mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: join tra tabelle di db diversi

salve,
usando vb6, access 2000 e ADO e' possibile fare un join tra due tabelle che
risiedono in due db diversi?
grazie
franceeeeee

 risiedono in due db diversi?
Sě, basta anteporre al nome della tabella il percorso e il nome del database
che la contiene (senza .MDB)

 wrote in message
news:4CBj9.33363$Av4.6...@twister2.libero.it...

Oppure colleghi (o meglio "alleghi") la tabella del db A nel db B e poi
esegui la query sul db B come se fosse una tab locale (soluzione consigliata
da MS)
Saluti

ciao Lupo,
innanzitutto grazie per la risposta ma c'e' un prob...
in ogni caso posto il codice dopo aver messo il nome del database
(non avevo specificato che non ho inserito il alcun database come dsn...)
        Dim Conn As ADODB.Connection
        Dim Rs As ADODB.Recordset
        Set Conn = New ADODB.Connection
        Conn.CursorLocation = adUseClient
        Conn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data
Source=E:\Develop\database1.mdb;"
        Set Rs = New ADODB.Recordset
        Rs.CursorLocation = adUseClient
        Dim cmd As ADODB.Command
        Conn.Open
        Set cmd = New ADODB.Command
        cmd.ActiveConnection = Conn
'query strana....
        cmd.CommandText = "select * from tabella1 left join
database2.tabella2 on database2.tabella2.CODICE=tabella1.CODICE"
        cmd.CommandType = adCmdText
        Set Rs = cmd.Execute
        If Rs.BOF And Rs.EOF Then
            MsgBox "none"
        Else
            Do While Not Rs.EOF
                MsgBox Rs!CODICE
                Rs.MoveNext
            Loop
        End If
P.S.
ovviamente non va :p

 Saluti
File / Carica dati esterni / Collega tabelle ?
la MS consiglia questa soluzione?
ARGH! :p
Grazie Fox :-)

 database2.tabella2 on database2.tabella2.CODICE=tabella1.CODICE"
Mi fai vedere, per favore, il codice esatto di questa riga?
Cos'è database2?
Creedevo di essere stato chiaro, nel senso di non equivocabile.
Prova con
cmd.CommandText = "select * from tabella1 left join
C:\cartella\nome_database2_senza_mdb.tabella2 on
C:\cartella\nome_database2_senza_mdb.tabella2.CODICE=tabella1.CODICE"
Cosa vuol dire "non va"? Che errore, che segnalazione?


mi dice:
Errore di Run-time -
2147217900
 (80040e14)
 errore di sintassi (operatore mancante) nell'espressione della query

  errore di sintassi (operatore mancante) nell'espressione della query
Ultimo invito: Ci mostri il tuo codice, per favore?
Scrivi anche in che drive e cartella risiede il secondo database, che nome
ha e qual è la tabella che intendi utilizzare.

 ha scritto nel messaggio
news:ammnpg$rb4$1...@monty.lombardiacom.it...

Senti, hai provato una roba del tipo:
SELECT Tab1.CampoA,Tab2.CampoB FROM Tab1 INNER JOIN Tab2 IN
'c:\archivi\foo.mdb' ON Tab1.ID=Tab2.Codice
cioè nel caso di tabelle non nel db corrente la sintassi mi pare di
ricordare che sia:
<nometabella> IN '<percorso altro DB>'
Ma forse non ho capito bene la tua domanda... :)
Davide
Newsgroup: it.comp.lang.visual-basic
Titolo: tree wiew e list wiew

Ciao a tutti,
dove posso trovare il file della guida comctl1.hlp necessario per l'help di
tree wiew e list wiew?
Grazie
--
Bye,   Roby
*** Per rispondere via e-mail toglere la prima w dall'indirizzo ***

...


Newsgroup: it.comp.lang.visual-basic
Titolo: posizione filmati avi

come posso posizionare un filmato avi controllandolo con il controllo
MMC,
il filmato si apre ma si posiziona dove gli pare come posso fare per
posizionarlo in punto ben preciso ?
aiutatemi .
grazie
enrico 
cdm...@tin.it

posizionarlo in punto ben preciso ?
Puoi passare l'handle di una tua finestra ed evitare cosi' che si crei lui
la sua. Questo ha anche il vantaggio di poter intercettare i vari eventi
sulla finestra.
Studiati bene i comandi MCI e vedrai che otterrai buoni risultati.
Documentazione ed esempi (magari in altri linguaggi, ma tanto spesso i
comandi sono proprio delle stringhe...) si trovano in rete.
Ciao
Gian Michele Bertoni
homepage: 
http://space.tin.it/computer/gbertoni

Newsgroup: it.comp.lang.visual-basic
Titolo: winsock e multicast

é possibile ricevere un messaggio inviato in rete con modalità multicast?
Mi sembra che mswinsock non supporti tale capacità.
Chi mi può aiutare?


Se ti accontenti del broadcast...
http://groups.google.com/groups?hl=it&lr=&ie=UTF-8&threadm=acuk0i%2438js%241
%
40stargate1.inet.it
&rnum=1&prev=/groups%3Fq%3Dbroadcast%2Bpaperino%2Bgroup:
it.comp.lang.visual-basic%26hl%3Dit%26lr%3D%26ie%3DUTF-8%26selm%3Dacuk0i%252
438js%25241%
2540stargate1.inet.it
%26rnum%3D1

Newsgroup: it.comp.lang.visual-basic
Titolo: winsock : come postare informazioni tramite modulo html ?

Ciao a tutti,
utilizzo vb6 sp5 su win XP e sto eseguendo un applicativo che recupera 
informazioni da pagine internet tramite il controllo winsock ed il 
protocollo http.
Il problema che mi è insorto è questo :
devo riuscire a recuperare delle informazioni su pagine protette alle quali 
si accede nel sito solo dopo autenticazione tramite apposito form su pagina 
html (o asp che sia), per intenderci tipo ebay.
Ovviamente conosco le user e le password e come funziona il protocollo http 
(per le pagine non protette non ho problemi), ma non so come riuscire a 
postare al server web qeuste informazioni per avere l'accesso.
Forse devo recuperare la pagina del login e valorizzare i campi, quindi fare 
il submit, ma non so come.....
Un aiuto ?
Grazie 

Per queste cose in genere uso il WebBrowser e smanetto con la proprietà 
Document...
-- 
Quando noi ignoranti eravamo di più, tutto era più bello...
(A. Celentano)
Per rispondermi in privato, prima togli "l'immondizia dalla testa" :)

 Document...
ma secondo te conviene che cambi ocx ?
hai qualche esempio o link sul webbrowser ?
ciao e grazie

Usando WebBrowser è come se integrassi Internet Explorer nella tua 
applicazione.
Però dieversamente dall'uso di una finestra explorer "esterna" alla tua 
applicazione, l'uso di WebBrowser ti consente di accedere all'oggetto 
Document che contiene tutto il necessario per analizzare, compilare e 
modificare la pagina HTML che stai navigando.
Quindi dài un'occhiata su MSDN all'oggetto Document.

Newsgroup: it.comp.lang.visual-basic
Titolo: Stradurre i nomi lunghi

devo fare in modo che un mio prg deregistri e riregistri (oddio ma che ho
scritto...) una sua dll perchè è stata ricompilata.
uso il regsvr32 lanciato da una shell che aspetta la fine dell'applicazione
prima di proseguire.
Logicamente al regsvr32 passo una dll compresa di percorso che puo essere
c:\documenti\applicazione Mia\file.dll
regsvr32 si incavola perché non riesce a leggere "applicazione Mio" con lo
spazio!
Ora dico come si trasforma un percorso con nomi lunghi (o meglio con gli
spazi) in uno dos es c:\docume~1\applic~1\file.dll
Grazie
--
~~~~~~~~~~~~~~~~
Andrea Fabbrucci
anfa...@tin.it
Fax: 06 233201786
www.andreafabbrucci.it
~~~~~~~~~~~~~~~~

spazi) in uno dos es c:\docume~1\applic~1\file.dll
Con l'API GetShortPathName. Un esempio lo trovi sul mio sito o sul Sito
Comune.
Ciao,
Moreno
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 spazio!
Racchiudi il percorso tra doppi apici cosi':
  regsvr32 "c:\documenti\applicazione Mia\file.dll"
CIAO!

Newsgroup: it.comp.lang.visual-basic
Titolo: imagelist

che componente devo includere per avere la imagelist?
--------------------------------
Inviato via 
http://usenet.libero.it


Un libro di vb????
--
Il Wodkino Nazionale č a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 Quotefix e altro:
http://www.martek.it/go.asp?portamia=4
 Usr: ICLVB Pw: amici

 Un libro di vb????
LOL
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.471 / Virus Database: 269 - Release Date: 10/04/2003

Newsgroup: it.comp.lang.visual-basic
Titolo: OT Programma Newsgroup

Qual'e' un buon programma per il newsgroup..dato che outlook express mi
segna da leggere il newsgroup anche se alcuni argomenti che ho segnato come
non interessanti?
Grazie

Ugo il terribile ha scritto:

Se vuoi puoi provare il mio, anche se ancora
e' in fase di test.
-- 
Samuele Battarra
mail server: 
libero.it
, account: battarsa
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/leggiminews.html

Per adesso lo provo..poi ti faccio sapere..
grazie


 ha scritto nel messaggio
news:UjW_6.27473$G35.1...@news2.tin.it...




Io uso Agent 1,8 e mi sembra un ottimo programma.
Saluti
Newsgroup: it.comp.lang.visual-basic
Titolo: MSFlexGrid???? o altro

Ciao, vorrei tanto sapere come posso fare per mettere questi incolonnati in
una griglia:
50=12.546
  2=25.123
37=53.126
38=04.562
Il mio problema č:
Mettere tutte le cifre che riguardano il n. 2 in una colonna, tutte le cifre
che riguardano il n. 37 in un'altra, ecc.
Grazie a tutti, Apuleius.
apul...@tiscalinet.it


A design time seleziona la griglia, premi F1 e leggi cio' che appare
davanti.
Ti suggerisco comunque le proprieta' TextMatrix, TextArray e Text per
leggere e scrivere i valori delle celle.
Se per qualche motivo non ti funzionasse l' help, vai sul sito di msdn e
scrivi nel campo di ricerca: msflexgrid.
Ti compariranno almeno 50 voci, alcune di queste veramente molto istruttive.
Ciao
Aldo

Newsgroup: it.comp.lang.visual-basic
Titolo: Salvataggio su file txt da Excel

Saluti a tutti,
sto approcciando ora con vb per excel per la prima volta.
Vorrei salvare dei dati su un file di testo, e ho fatto così:
Open file_name For Output As #1
    For j = 1 To N
    Print #1, Worksheets("Data").Cells(1, j).Value
    Next j
Close #1
e sembra funzionare (prende i dati dalla riga 1 della tabella e li
scrive).
Il problema è che mi mette ogni valore a capo, mentre io vorrei metterli
sulla stessa riga, separati da una tabulazione.
Come posso fare?
Quali sono inoltre i caratteri per tabulazione, a capo ecc (\n, \t, \r
del C per intenderci)?
Ho provato a cercare sulla guida di Excel, ma quel maledetto "aiutante"
più che casino non fa.
Ringrazio tutti e saluto
Roberto
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Come posso fare?
aggiungi una virgola a fine istruzione
   Print #1, Worksheets("Data").Cells(1, j).Value,
se invece vuoi andare di seguito, metti un punto e virgola.
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 Come posso fare?
Avvia il registratore di Macro, salva il file come file di testo, arresta il
registratore di macro e guarda che codice t'ha generato.
Newsgroup: it.comp.lang.visual-basic
Titolo: VBA per EXCEL

Ciao a tutti,
mi chiamo Giovanna. 
C'e' qualcuno che ha esperienza con vb che richiama e modifica un foglio
di excel???
Ho il seguente problema: 
sto scrivendo un programma in vb che crea un oggetto di excel (lanciando
excel) e inserisce tabelle nel foglio creato.
Per richiamare metodi propri di excel, e' necessario anteporre 'nome
oggetto'.Application, (per es. per selezionare la cella in alto a sin.,
invece che 
			Range("A1").Select, 
bisogna scrivere 
			'nome oggetto'.Application.Range("A1").Select
Se provo, nello stesso modo ad usare il metodo Selection.Border(xledgetop)
(che serve per selezionare il margine superiore della cella o delle celle
selezionate), mi viene visualizzato un messaggio di errore...e' possibile
che manchi nella versione di vb che ho qualche libreria relativa ad excel?
Se qualcuno ha in mente una soluzione, per favore, mi scriva!!!
Grazie mille, 
			giovanna
 | Orlandini Giovanna                        |
 | 
orla...@cs.unibo.it
                      |
 | University of Bologna                     |
 | Undergraduate Student in Computer Science |

che manchi nella versione di vb che ho qualche libreria relativa ad excel?
Che errore ti da?
Chiaramente (come hai scritto anche tu), devi usare l'oggetto Application:
oExcelApp.Selection.Border(....etc...)
E poi, xledgetop e' una costante, giusto? Ma e' una costante della libreria
di oggetti di Excel, o l'hai definita tu?
Nel primo caso, assicurati che il tuo progetto VB abbia un riferimento alla
libreria di Excel (menu Progetto|Riferimenti, check su Libreria di Excel).
Buono studio
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: runtime 20997

Ciao ragazzi.
Ho un problema con un progetto che ho realizzato con VB5.
Sul mio pc tutto ok sia in fase di esecuzione da vb sia dall'eseguibile
compilato.
Quando però lo lancio dal portatile su cui l'ho installato, mi propone un
errore di run time 20997 alla richiesta di aprire i report (tutti i report).
Mi sapete dire da cosa potrebbe dipendere?
E che errore è il 20997?
Grazie mille.
Elisa

 E che errore è il 20997?
bho , cercalo sul sito della m$ in MSDN non ve ne' traccia

 Elisa
crystal report ?
http://groups.google.com/groups?as_q=error%2020997&ie=UTF-8&oe=UTF-8&l
r=&hl=it

 > E che errore è il 20997?

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi nell'esecuzione di un eseguibile

ciao a tutti!
Ho un problema. nel mio Sw c'e' la possibilità di compilare pagine con diversi
editor (Wordpad, w97, w2000). Le path le vado a leggere nel Registro. Con word
no problema, ma con wordpad si. infatti leggo %ProgramFiles% ma non so come
farlo eseguire. eseguo l'editor con una shell, ma non so come passargli
ProgramFiles in Programmi
spero che sia chiaro il problema
ciao
lucio
-- 
Posted from  [62.110.151.98] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

--- CODE ---
Option Explicit
Private Declare Function SHGetSpecialFolderPath _
   Lib "shell32.dll" _
   Alias "SHGetSpecialFolderPathA" _
   (ByVal hWnd As Long, _
   ByVal lpszPath As String, _
   ByVal nFolder As Integer, _
   ByVal fCreate As Boolean) As Boolean
Private Const CSIDL_PROGRAM_FILES = &H26
Private Sub Form_Load()
   Dim blnReturn As Long
   Dim strBuffer As String
   strBuffer = Space(255)
   blnReturn = SHGetSpecialFolderPath(0, _
      strBuffer, _
      CSIDL_PROGRAM_FILES, _
      False)
   strBuffer = Left(strBuffer, InStr(strBuffer, Chr(0)) - 1)
   MsgBox strBuffer
End Sub
--- END CODE ---
guarda su msdn che ci sono altre ~50 costanti per ricevere tutte le
directory di sistema
ciao
L2K

Newsgroup: it.comp.lang.visual-basic
Titolo: Listbox e desktop wallpaper

Scusate la domanda da inesperto confuso:
Ho una listbox, con una finestra open ci carico un file (additem)e voglio
che tramite un pulsante mi metta l'immagine corrispondente sul desktop.
Il desktop lo cambia grazie a un api.(SystemParametersInfo)
Io passo all'api una variabile, " wallpaper" che deve essere il file che ho
caricato nella listbox.
Ma non lo fa e c'e' qualcosa che non capisco.
A cosa devo associare wallpaper?
Devo fare una matrice di variabili stringa?
E le proprieta' list e listindex?
Non dovrebbe essere la proprieta' list a restituirmi il file che ho caricato
con la finestra open?
C'e' qualcosa sui files e sulle stringhe che mi sfugge e mi sfuggira' per
sempre?
Sorry, ma e' il mio prima programma.
Davide Banda Partial Arts - 
http://www.geocities.com/SoHo/lofts/1842
UIN Mirabilis ICQ: 5887365

...

sempre?
Fai anche molta attenzione ai parametri che passi a
systemparametersinfo().
--
                    Ciao ANdrea!
--                 Adeo pauperes erant ut unum tantum equum aberent communem
     __ o   
    _`\<,         Andrea 'Parsifal' De Previde Prato - 
a.deprev...@telecomitalia.it
 __( )/( )__    home page 
http://space.tin.it/libri/adeprevi
Newsgroup: it.comp.lang.visual-basic
Titolo: Info TextBox

E' possibile caricare un numero di textbox in base ad un parametro passato
al momento del caricamento della Form?
Grazie

Si , inserisci un TB con indice 0 e potrai caricare i successivi.
(odio essere pignolo, ma non puoi passare parametri all'evento load del
form, credo sia più corretto parlare di flag)


Si! Sulla form crea una matrice di controlli, semplicemente
inizializzando a 0 la proprietą Index del controllo TextBox che vuoi
gestire. Dopodichč puoi aggiungere controlli alla matrice a run-time.
Questo articolo ti spiega come fare:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/office97/html/output/F1/D6/S5B38E.asp
Verso metą pagina trovi il codice vb.
Michele
___________________________________
DevSpy.com - Information Technology
per gli sviluppatori Windows
http://www.devspy.com/
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.visual-basic
Titolo: gestire barra di avanzamento o percentuale numerica durante l'esecuzione di un processo

mentre eseguo un comando filecopy da una sorgente ad una destinazione come 
posso visualizzare un valore numero percentuale a video che rispecchia la 
percentuale di copia eseguita in quel momento.
 
grazie. 
 

percentuale di copia eseguita in quel momento.
 
1) VB6 o .NET?
 
2) Posta il codice della tua routine di filecopy e vediamo cosa si pu� 
eventualmente fare
 
Abbiamo esaurito le sfere magiche 
 


Perch� hai aperto un nuovo thread per fare la stessa domanda fatta nel 
tuo thread precedente?!?!?!
 
Ciao, Vincenzo

"Federico"  ha scritto nel messaggio 
news:528f6240$0$707$5fc...@news.tiscali.it...

dim fs
 
Set FS = CreateObject("Scripting.FileSystemObject")
FS.CopyFolder "C:\MiaCartella", "C:\CartellaTemporanea\"
 

Ciao, Vincenzo
 
per visibilit� del problema l'altro era annidato in un altro post. ciao. 
 

FS.CopyFolder "C:\MiaCartella", "C:\CartellaTemporanea\"
 
Intanto con questo sistema gi� ti dovrebbe comparire la finestrella di 
sistema di Windows con tutti i dettagli dell'operazione in corso!
 
Quindi non capisco la tua domanda... sei poco chiaro
 
Hai provato il codice qua sopra prima di fare la domanda? 
 

Hai provato il codice qua sopra prima di fare la domanda?
 
si provato in vbache � come vb6 e copia tutto ma di finestre con barra di 
avanzamento di cui parli nemmeno l'ombra il sistema � come bloccato mentre 
copia poi torna libero, � per questo che ho fatto la domanda

Newsgroup: it.comp.lang.visual-basic
Titolo: comandi per pattern matching con vb

esistono dei comandi in vb 6 che permettano di modificare stringhe:
per esempio spezzare la stringa in un array quando trova un carattere
richiesto...
praticamente sto cercando il comando corrispondente del perl: split

 praticamente sto cercando il comando corrispondente del perl: split
--
Ciao.
Maurizio
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT MA URGENTE] data1.cab

Ciao a tutti...
qualcuno sa il motivo per cui ad ogni installazione sul mio pc ho
problemi col file data1.cab (ricevo un messaggio di file corrotto)
mentre in altri pc gli stessi pacchetti di installazione funzionano
correttamente.
Sto sclerando... per favore help me!!!!!
P.S.
Ho sistema operativo win98 se


Dipende da dove si trova il file.
Floppy?
CD?
Rete?
Potrebbe anche essere fatto male il pacchetto, ma riceveresti un errore
diverso...
Alberto
--
"Non mi sembra piů granda del Delfino..."
"A partir dal fat che la merda liquida
l'as drisa gnan a puntlarla,
cňsta chě l'č piň granda, gnuranta."

 ha scritto:

Prova a cancellare la directory c:\windows\temp\ e verifica che in 
c:\windows\  non ci sia una file con lo stesso nome. Se lo trovi prova a 
rinominarlo
Ciao Gab 

> Prova a cancellare la directory c:\windows\temp\ e
Il contenuto non la directory
Scusa
Ciao Gab 

 Alberto
Ciao Alberto...
il setup è su cd... ma la cosa strana è che su un pc funziona metre su
un altro no.... Come mai? E' la prima volta che mi succede una cosa
del genere

 correttamente.
Potrebbe essere il tuo lettore CD oppure un banco di RAM difettoso.
Saluti,
        Simone!

...

Magari la copia di quel CD non č perfetta... e capita che qualche
lettore CD (ma non tutti) non riesca a leggerla in toto. Ti consiglio
di rimasterizzarlo, magari andando un pelo piů lento.
Alex

 del genere
Innanzitutto, se impieghi quasi 6 ore per dare un dettaglio, dubito che la
cosa sia così urgente.
Secondariamente, i CD stanno diventando come i floppy, ossia
qualitativamente sempre più scarsi.
La frequenza con cui si incontrano CD illeggibili è elevatissima.
Se poi il CD è stato masterizzato a velocità troppo alte, è comunissimo (ma
è sempre stato così) che non venga letto correttamente da tutti i lettori.
Ciao
Alberto

Newsgroup: it.comp.lang.visual-basic
Titolo: [Semi OT] Programmazione e cash..

Cercando in giro per la rete non ho trovato nessuna indagine a rigurado,
quindi mi butto direttamente sul campo:
Qual'è la retribuzione media di un buon programmatore (VB e non) in Italia?
Ciao!
Cristiano

Come non detto... trovato il survey su 
jobpilot.it
Ciao!
Cristiano

Newsgroup: it.comp.lang.visual-basic
Titolo: Inviare un comando unix ad un gateway con vb6

Vi espongo il problema Ho un applicazione Unix "GatewayIp" che gira su
un server ed e' in ascolto su una porta, vorrei sapere se e' possibile
inviare comandi unix attraverso una mia interfaccia VB6 che sfrutta
l'oggetto WINSOCK.
Grazie a tutti



Certo che si', basta che conosci porta e protocollo.
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: vorrei risolvere questo problema qualcuno può aiutarmi ?

devo creare un meccanismo per cui,nel form Login (in VB6)
nella txtUserName, venga visualizzato appunto l'user di quel pc;
l'informazione è in "regedit" ; ma poi ?
é chiaro che ci vuole una chiamata all 'API , MA NON RIESCO A CAPIRNE I
TERMINI.
Qualcuno può dirmi qualcosa ?
Grazie in anticipo
fe...@libero.it

 ha scritto nel messaggio
news:NeY25.220630$VM3.1...@news.infostrada.it...

Mi pare tu possa utilizzare l'API GetUserName:
Public Declare Function GetUserName Lib "advapi32.dll" Alias
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As
LongDeclare Function GetUserName Lib "advapi32.dll" Alias
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
The GetUserName function retrieves the user name of the current
thread. This is the name of the user currently logged onto the system.
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

 é chiaro che ci vuole una chiamata all 'API , MA NON RIESCO
A CAPIRNE I TERMINI.
Penso ci sia anche in VB6 qualcosa di simile al progetto
Setup1.vbp presente in VB4, giusto? Prova ad ispezionarlo.
Dovresti trovare tutto quello che ti serve riguardo la
gestione del Registry.
Poi visita anche il Sito comune:
 
http://www.murialdo.it/it_lang_vb
e consulta la "Raccolta API" di Cesare Rizzi:
 
http://members.xoom.it/CesareRizzi
--
Ciao.
Maurizio

 TERMINI.


Newsgroup: it.comp.lang.visual-basic
Titolo: orientamento testo

DOMANDA:
E' POSSIBILE STAMPARE UNA SINGOLA PAROLA IN VERTICALE (CON LE
LETTERE RUOTATE DI 90° VS.DESTRA)?
UTILIZZO PRINT.ORIENTATION MA COSI'
RUOTA L'INTERA PAGINA IN STAMPA
--------------------------------
Inviato via 
http://usenet.iol.it

RUOTA L'INTERA PAGINA IN STAMPA
1) Non gridare
2) SITO COMUNEEE
Ciao,
Moreno
-- 
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 RUOTA L'INTERA PAGINA IN STAMPA
Ho capito, ho capito... non gridare... :))
Dunque... l'API che fa al caso tuo é TextOut...
Se cerchi help in merito cerca textout sui vecchi POST (SEMPRE CERCARE NEI
VECCHI POST!!!!! :-P ):
http://groups.google.com/advanced_group_search
Oppure nell'help di allapi (
http://www.allapi.net
)
                CIAAAAOOOOOOO!!!!
                                    Allanon

 VECCHI POST!!!!! :-P ):
VERISSIMO!
Io non ho neanche dovuto domandare, stamattina... :-)
Piero "Giops" Giorgi
Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con FindFirst

Scusate se vi pongo un quesito che senz'altro sarà semplicissimo, ma io mi
sono veramente incastrato.
data l'istruzione:
Data1.Recordset.FindFirst "Pinco=Pallino"
Come faccio a rendere variabile "Pallino", ho provato con il classico:
Dim Pallino
Pallino = TextBox1.Text
ma non funziona una mazza.
Help Please !

 wrote in message 8sf9am$r1l$1...@nslave2.tin.it...


 Pallino = TextBox1.Text
Data1.Recordset.FindFirst "Pinco='" & Pallino & "'"
-oppure-
Data1.Recordset.FindFirst "Pinco='" & TextBox1.Text & "'"
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Problema risolto...
Grazie a Stefano e a Maurizio Borrelli
Newsgroup: it.comp.lang.visual-basic
Titolo: Cambiare colore caratteri outlook

Salve a tutti, è possible creare un'applicazione in visual-basic
che mi permetta di cambiare il colore dei caratteri in outlook express
componendo una email in formato html sia in modalità random che
sequenziale da una palette colori pre impostata, anche a fine battitura
email o mentre si digita a tastiera.In pratica una email con caratteri
colorati diversamente, o esiste quakcosa di già fatto.
Grazie delle eventuali risposte.
Ciao.

 colorati diversamente, o esiste quakcosa di già fatto.
non mi pare che outlook express esponga un'API per manipolarlo,
tuttavia potresti  produrre un file .eml che contenga il mail e
farlo caricare ad outlook express tramite la riga di comando.
ma che utilita` avrebbe un simile programma?
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Numero di righe sorgenti

Salve,
C'e' un modo _semplice_ in Visual Basic per sapere di
quante righe è composto un progetto od un gruppo di
progetti?
Grazie,
Andrea


mz tools --> statistiche
--
bye BlackMagic
ICQ# 85485468

 progetti?
Scaricati l'add-in gratuito MZTools e lo trovi, unito ad una gran quantita'
di altre cose... un must.
http://www.mztools.com/
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 Ciao
Ciao
Andrea


Non so che dirti, prima di incollare il link ci sono andato, e in questo
momento idem...riprova tra un po'
il link diretto al download e' 
http://www.mztools.com/download/mztools.zip


 
Creati da solo un contatore! ;-)
http://www.vb2themax.com/HtmlDoc.asp?Table=Articles&ID=420
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Documents

Buongiorno,
mi chiedevo dove Windows2000 memorizzasse i file contenuti in 
Start-->Documents
N.B.: Non MyDocuments o altro ma proprio quei file che corrispondono
agli ultimi che si sono aperti.
Grazie.
Saluti.
Andrea.

Buongiorno,
volevo sapere dove sono contenuti i file che si vedono in
Start --> Documents
ossia quei file che sono stati per ultimi visti.
Grazie.
Saluti.
Andrea.

 ha scritto nel messaggio
news:3fe2b925...@powernews.libero.it...

sul mio win2000 il percorso č:
C:\Documents and Settings\<username>\Recent
dove trovi tutti i link agli ultimi files aperti......
good coding!!!
-- 
Alletun
Sorry, ask me if you want to get my e-mail!

 Grazie.
afaik c:\document and settings\nome utente\recent
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

[Alletun] scrisse:(snip)
ok, questa volta hai vinto tu



wrote:
[Super CUT]
Grazie a entrambi ma non vedo i miei post!!!!
Vedo solo le vostre risposte COME MAI????

Andrea wrote:
<snip>
GetSpecialFolder API.
Ciao,
Andrea

[Andrea] scrisse:

ti sarai plonkato, come era capitato ad un tuo omonimo.
quello che ha risposto per ultimo, per intenderci, e anche quello che ha
dato la risposta più pertinente, sempre per intenderci.


 GetSpecialFolder API.
Sei IT nell'OT , quindi doppio OT ! 
-- 
<Gigio2K>
--- 
www.g2kweb.it
 ---
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/
Newsgroup: it.comp.lang.visual-basic
Titolo: msflexgrid colore a colonne

Non riesco ad impostare il colore di sfondo alle colonne.
..dalle proprietą non sembra possibile...
Ad esempio la colonna 1 rossa, la colonna 2 verde...
ciao
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
Ti conviene scrivere una funzione del tipo
Public Sub FlexGridColumnBackColor(flxTmp as MsFlexGrid, _
                                   ByVal iColNumber as integer, _
                                   byval lBackColor as long)
dim lOldRow as Long
Dim lOldCol as Long
  With flxTmp
    .AutoRedraw = False
    ' Memorizzo la posizione attuale dellacella con il focus
    lOldCol = .Col
    lOldRow = .Row
    ' Seleziono la colonna
    .Row=0
    .RowSel = .Rows
    .Col = iColNumber
    .ColSel = iColNumber
    ' Cambio il colore
    .CellBackColor = lBackColor
    ' Reimposto la cella con il focus
    .Col = lOldCol
    .Row = .OldRow
    .AutoRedraw = True
  End With
End Sub
(scritta al volo e non testata, ma ti dovrebbe dare l'idea di come fare)
-- 
Bye by SixaM 8-]
---------------------
Sito comune  : 
www.it-lang-vb.net
Aiuto on line: premi F1

grazie poi la testo.
A prima vista ho visto che x il colore mi hai dato il parametro:
ByVal lBackColor As Long
cercherņ la tabella di corrispondenza fra Colori e numeri Long
grazie e ciao


 grazie e ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: compilare un campo di un form.html da vb

se ho una pagina internet attiva e dal mio programma su click volessi 
compilare i vari campi del form in automatico qualcuno ha un idea e se č 
possibile?
grazie. 

 possibile?
Una curiosità: sei italiano?
Ciao 

 Ciao
si perchè? 

 si perchè?
Beh, non sembrerebbe :)
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca


a si? dai tratti somatici? :) 

 a si? dai tratti somatici? :)
No. Da come scrivi ;)


 a si? dai tratti somatici? :)
Dai tratti *semantici*.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: ?minuti senza lo zero

Devo inserire in una  TextBox l'ora e i minuti del momento
Text2.Text = Hour(Time) & "," & Minute(Time)
Se i minuti non hanno lo zero davanti va tutto bene
se sono le 17.30 mi scrive 17.30
se invece sono le 17.08
mi scrive 17.8
Come posso fare a risolvere la questione ed ottenere 17.08?
Un garzie a coloro che avranno tempo e pazienza da dedicarmi
Un saluto
Paolo Testi

 
text2.Text= format(time,"hh.nn")
ciao
	maxx
P.S. Vedi sulla guida l'istruzione format
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 Come posso fare a risolvere la questione ed ottenere 17.08?
Il problema è un non problema.
Tu ti stai concentrando sul fatto che questa cosa rappresenti un minuto,
senza considerare che sbagli in partenza.
Facendo
Text2.Text = Hour(Time) & "," & Minute(Time)
tu fai due concatenazioni fra un intero, una stringa ed un altro intero.
Questo è male, tutte le conversioni implicite sono male.
Non soltanto per performance o compatibilità con altre cose, ma proprio
perchè, non abituandosi ad esplicitare le conversioni, ci si inchioda di
fronte a qualunque cosa, per non parlare di tutti i bug che risultano
'incomprensibili', e che nascono semplicemente perchè non si è convertito
esplicitamente un tipo.
Nel tuo caso, ad esempio:
Text2.Text = format$(Hour(Time),"00") & "," & Format$(Minute(Time),"00")
è il modo corretto.
Ciao
Alberto

 esplicitamente un tipo.
Grazie per la soluzione ma soprattutto grazie per le indicazioni che mi dai
Ciao, Paolo


Mi sfugge perche' si debba scrivere l' espressione qui sopra piuttosto 
che la piu' semplice:
Text2.Text = format$(time,"hh,nn")
grazie
	maxx


 Text2.Text = format$(time,"hh,nn")
Era solo per non complicare troppo la cosa a Paolo.
Ho voluto seguire il suo schema logico, concentrandomi sull'aspetto della
conversione dei tipi.
La tua soluzione è effettivamente valida, ma leggermente a rischio, in
quanto nella format$ con le ore, con alcune impostazioni internazionali il
separatore viene modificato.
Me ne sono accorto formattando delle variabili datetime di VB per delle
Insert verso Sql-Server. Non ricordo esattamente i dettagli, ma credo che al
posto dei due punti apparissero i punti semplici, o viceversa, non ricordo.
Ciao
Alberto

 separatore viene modificato.
...  se uso il separatore predefinito per l'ora, cioe' il :
Ma se utilizzo un'altro carattere (la virgola in questo caso o un'altro 
carattere) non credo ci siano problemi.
Se scrivo
format(time,"hh^^^^nn") ottengo 19^^^^01
oppure
format(time,"hh^&^&^nn") ottengo 19^&^&^02
Fatto salvo che e' meglio utilizzare come separatore quello delle 
Impostazioni Internazionali, non credo ci siano problemi ad usare altri 
caratteri nella format. O sbaglio?


 caratteri nella format. O sbaglio?
Beh, ovviamente non li ho provati tutti.
Ricordavo il caso che ti ho citato, ossia quello in cui mi serviva nella
stringa i ':', e mi usciva il '.', per cui avevo dovuto fare un replace.
Per il resto credo che vada benissimo.
Ciao
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: Real Basic - Cosa ne pensate?

Mi hanno prestato realbasic 5.2 io programmo in visual basic 6.0. Cosa ne
pensate di realbasic?
Nick Sahdow

 Nick Sahdow
Andrea

 pensate di realbasic?
Mai provato, però mi pare sia scaricabile la versione demo da
www.realbasic.com
.
Da quel poco che ho sentito dire sembra un buon prodotto.
P.s.: per DeerBear, sarebbe ora che la smettesse di sparare sui linguaggi
che non conosce.
RealBasic è simile a VB, ma compila anche per altre piattaforme, e i prezzi
sono differenti da VB, ecco perchè potrebbe non bastare "un" basic.
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 Ciao
Ciao,
Andrea

Newsgroup: it.comp.lang.visual-basic
Titolo: Speech per VB6

Sto cercando delle Api per VB6 per far parlare il computer, dove posso
trovarle e come si chiamano?
Grazie.
--
Salvatore

Devi scaricarti lo speech SDK dal sito della M$.
Non so pero` se esiste il motore in italiano.
Chiunque avesse info a riguardo ... ben vengano.
Ciao, Miche.


 trovarle e come si chiamano?
Dai un'occhiata ai vecchi messaggi...
Ti basta SAPI 4.0 + Pannello di controllo per SAPI 4.0 + Microsoft Agent
Engine Italiano

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT ] Gioco dell'impiccato...quali database?

Sto cercando su google da un po', ma credo che magari qui qualcuno mi può
aiutare meglio....
Sto creando un piccolo gioco dell'impiccato (praticamente, indovinare una
parola che compare con soli asterischi) da inserire in Keyzard
(
http://www.igordamiani.it/keyzard
, spam leggero non fa mai male!!)
:-)))
Sto cercando quindi dei piccoli database da cui estrarre parole da far
indovinare. Pensavo ad esempio a diversi argomenti: nazioni del mondo,
cinema, o magari (meglio) argomenti per bambini (giocattoli, o parole
tipiche delle fiabe)......mi date qualche indicazione, qualche url da cui
poter scaricare?
meglio se direttamente in db Access, altrimenti va bene anche un file di
testo, poi converto il tutto io....
grazie, good coding!!!
-- 
Alletun
"Io lo so che accadrà. La voce sussurra nei miei pensieri
di Jair, Rone, Allanon e soprattutto nelle Mortombre.
Sussurra segreti che mi sono tenuti nascosti, nella grigia
oppressione di questo giorno e nell'oscurità caliginosa
di quello che mi aspetta.
Saremo distrutti. Tutti."
Brin Ohmsford - La Canzone di Shannara - T. Brooks

 cui poter scaricare?
Impiccato, favole, parole...
http://makeashorterlink.com/?V2F822957
Ciao
Alberto

Ma ROTFL!
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 ha scritto nel messaggio
news:c08cq5$13oose$1...@ID-222113.news.uni-berlin.de...

Smodato ROTFL !!!!!!!!!
Newsgroup: it.comp.lang.visual-basic
Titolo: Come si puo fare a...

Modificare un programma sviluppato in visual basic, senza avere i sorgenti?
Si puo' aggiungere qualche funzione in qualche modo?
In pratica è possibile disassemblarlo?
Grazie

 wrote in message 96m6sn$3s4$1...@nreadB.inwind.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: IMMAGINI IN COMBO BOX STANDARD TRAMITE CHIAMATE API

Sono alla ricerca di una funzione per poter associare ad ogni elemento di un
combo box standard in Visual Basic un'immagine. La cosa è sicuramente
supportata dai controlli standard di Windows dato che la stessa shell del
sistema operativo ha forms che utilizzano i combo con immagini associate
agli elementi (es. form di Connetti Unità di Rete).
Personalmente credo che la cosa si riesca a fare tramite una chiamata alla
funzione SendMessage... Ho cercato in Internet nei siti dedicati ai trucchi
in VB ma non ho trovato la soluzione.
So che in Visual Basic 6 esiste un OCX che implementa un combo-box con
immagini ma vorrei utilizzare il combo-box standard di Visual Basic.
Grazie.

 ha scritto nel messaggio
news:EPVQ4.9908$Vo3.1...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: VB e file pdf

Come faccio ad aprire da visual basic 6 un file .pdf per usare
successivamente il suo comando "trova..."?
Per ora sono riuscito con il WebBrowser ad aprire il file ma il comando
cerca come si può fare?
Sono gradite anche ulteriori soluzioni rispetto al WebBrowser.
Grazie e  tutti...
Simo



Una domanda:
Per comprimere e decomprimere i dati con Visual Basic 5.00, e che mi
permette anche se il file compresso
è di dimensioni elevate suddividerlo su più dischetti, come il Winzip o il
backup del Windows. Quale è?
Io ho utlizzato ACTIVEZIPPER.OCX , ma se il file supera le dimesioni del
floppy da 1,44 non mi permette di farlo

 wrote in message
news:8bg8cn$4i2$1...@fe1.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Vb e sms

Sapete se si puo implementare una procedura o funzione per inviare messaggi
sms da un programma vb6. Quale server esterno potrebbe effettuare la
comunicazione.

La mia societą si era interessata al problema. Ci sono due possibilitą, a
quanto ne so io.
La prima consiste per l'appunto nell'appoggiarsi ad un server su Internet;
tieni presente che non č legale e soprattutto non hai ovviamente garanzie
sui tempi di consegna (un po' come fa l'home-page di Repubblica.it).
Se invece vuoi avere tutto sotto controllo, allora devi acquistare un modem
particolare, che spedisce direttamente l'SMS attraverso un collegamento
ponte radio.
--
Damiani "Alletun" Igor
ico...@simcity.it

Interessa anche a me!


-------------------------------------
Non mi stancherò mai di imparare...
Grazie a tutti!
dario.m...@SONOlibero.it 
(ovviamente da correggere)





http://www.grupposgm.it/fr_page_sgm.asp?id=5


 


questo è il link dell'applicativo client server per 
inviare sms con 1 modem falcon gsm e 1 sim card.


 


L'ho acquistato qui in SIMOD S.P.A. ed i risultati 
sono soddisfacenti.


 


Costo approx : 2.600.000 + 1 pc 
dedicato!!


 


Saluti


 


Federico


 


cell. 0338/2581615
Newsgroup: it.comp.lang.visual-basic
Titolo: Wave in comtemporanea

E' possibile eseguire più file wave contemporaneamente???
ThankU
Zero


Si... procurati le directx7.0 SDK trovi addirittura un esempio in VB che fa
proprio questo......
Ciao
Ven.

Newsgroup: it.comp.lang.visual-basic
Titolo: Sintetizzatore vocale italiano VB.Net

Dove posso trovare la libreria che mi permette di realizzare un 
sintetizzatore  vocale in lingua italiana (non il sintetizzatore inglese) 
con VB.2008?
nero23 

un tempo era disponibile....era un pacchetto da circa 20 mega...mi sembrava 
che il nome fosse "silvia" di microsoft, ma l'hanno tolto e non capisco il 
motivo....
"NERO23" <TOGLIMI...@TOGLIMIvirgilio.it> ha scritto nel messaggio 
news:4bd9d59e$0$1118$4faf...@reader2.news.tin.it...


 capisco il motivo....
"Ho trovato un file con questa descrizione RSSolo4ItalianSilvia.exe", pesa 
22 Mb.
Spero di trovare un codice gi� pronto per vb 2008.
ciao 

 22 Mb.
OK, � lui. Funziona perfettamente.


Perfetto!! mi daresti il link cosi me lo scarico anche io? Ho provato a 
cercare sul sito microsoft ma senza successo 

 cercare sul sito microsoft ma senza successo 
http://www.notaioricciardi.it/UFFICIO/SintesiVocale.zip

 
http://www.notaioricciardi.it/UFFICIO/SintesiVocale.zip
perfetto....ho scaricato il file ma non compare nell'elenco delle voci 
disponibili :(
Ho win7 a 64 bit....suggerimenti? 


Io ho Vista e funziona perfettamente.

Newsgroup: it.comp.lang.visual-basic
Titolo: Caps lock

come faccio a impostare caps lock da programma? con sendkeys mi si accende
un'attimino... porca loca...
--------------------------------
Inviato via 
http://usenet.iol.it

un'attimino... porca loca...
NON ci riesco nemmeno usando l'api
SetKeyboardState... mi si accende e spegne, ma se scrivo nel notepad non
glie ne frega niente... mi sa che devo toccare qualche altro tasto...
programmaticamente parlando?


un'attimino... porca loca...
NON ci riesco nemmeno usando l'api
SetKeyboardState... mi si accende e spegne, ma se scrivo nel notepad non
glie ne frega niente... mi sa che devo toccare qualche altro tasto...
programmaticamente parlando?
 fuNZIona CHe beLlo mi EsAlto coME UN
paZzo... hO uSaTO Le Api dIveRsE...
hO UsAtO kEyB_EVeNt...
=) mI sENtO
UN pErfEtTO iDiOtA mA CapIteMi... ERa Il MIo SoGNo (Da QueSta maTtINa...)
cIAO E grAzIE A TUtTO Il NeWsGrOuUuUUuUUuUUp!!!!!!!!!
:)

Newsgroup: it.comp.lang.visual-basic
Titolo: VB5 sp3 e stampanti laser

Salve a tutti,
ho un problema a stampare dei grafici con delle laser.
uso una routine del tipo:
    printer.line...
    printer.pset...
    printer.circle...
    printer.enddoc
con stampanti inkjet (epson,hp,canon) tutto ok.
con delle laser (canon[molto vecchia]; hp [4L,5L] non stampa assolutamente
nulla!
in tutti i casi la stampante è quella predefinita..
uso il Vb5 e il Sp3.
grazie a tutti.!




wrote:

Una cosa simile capitava anche a me (HP 5P) da quello che ho potuto
capire, la causa era nella scelta del colore (... accettava solo il
nero...) e nello spessore delle linee (... usando printer.scalemode
=pixel, spessori di 3 o 5 pixel venivano stampati a tratti... ) alle
volte stampava solo se la stampante era stata *appena* spenta e
riaccesa... ma....
comunque avevo VB2... (forse era lui)
auguri
Maurizio
maum...@basta.tin.it
togliete >basta< per rispondere :)
<  state buoni  .... se potete ....>

Newsgroup: it.comp.lang.visual-basic
Titolo: Widget di chiusura

Ciao,
sapete se sia possibile eliminare da una finestra il widget di chiusura?
Come?
Saluti

...

-----------
Ciao
Se per "widget  di chiusura" intendi il tasto X delle finestre, per
disattivarlo trovi un esempio sul Sito comune dei programmatori VB,
http://members.xoom.com/it_lang_vb
. Se, invece, vuoi semplicemente
nascondere questo pulsante (ma anche quelli per ridurre e ingrandire il
programma), ti basta settare la proprietą "ControlBox" del form su "False".
Alla prossima
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco

Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo di PowerPoint in VB6

Ciao a tutti,
devo controllare una sequenza di presentazioni powerpoint da un 
programma in vb6. Ho spulciato un po l'msdn ed ho trovato il modo di 
gestire gli eenti di powerpoint (tipo apertura e chiusura di una 
presentazione)..  Ho creato una classe Class1 con questo codice:
Public WithEvents appevent As Application
Private Sub appevent_SlideShowBegin(ByVal Wn As SlideShowWindow)
    MsgBox "you started a slideshow"
End Sub
  ed in un form ho inserito questo codice:
Dim myobject As New Class1
Sub StartEvents()
    Set myobject.appevent = Application
End Sub
Private Sub Command1_Click()
Call StartEvents
End Sub
quando clicco sul Command1 mi da questo errore:
Errore Runtime 429
Il componente ActiveX non può creare l'oggetto
Qualcuno mi può dare una mano??

 Il componente ActiveX non puň creare l'oggetto
Prova a vedere cosa succede facendo cosě:
Dim myobject As Class1
Sub StartEvents()
   Set myobject = new Class1
   Set myobject.appevent = Application
End Sub
E indica la riga precisa su cui hai l'errore.
E poi, application chi la istanzia?
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Flat Button in VB6 ?

Ho settato la proprietą Appearance di unb bottone a 0 - Flat, ma il bottone
rimane 3D. Ho provato usando l'API SendMessage col messaggio BM_SETSTYLE
aggiungendo lo stile BS_FLAT ma non cambia lo stesso.
Vi chiedo: c'č un modo di creare un bottone piatto in VB6 o no?
Grazie.

 ha scritto

col sistema qui sotto, in cui riciccio suggerimenti di domenico statuto,
puoi fare una toolbar piatta via codice.
hth, pal
--
andrea dot palazzi at tin dot it
free vb/sw: 
http://www.comune.modena.it/cittadini/apal/html/
'declares in a BAS module
Public Const WM_USER = &H400
Public Const TBSTYLE_TRANSPARENT = &H8000
Public Const TBSTYLE_FLAT = &H800
Public Const TB_SETSTYLE = (WM_USER + 56)
Public Const TB_GETSTYLE = (WM_USER + 57)
Public Const CCS_NODIVIDER = &H40
Declare Function SendMessageAsLong Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal Msg As Long, ByVal WP As Long, ByVal lp As
Long) As Long
Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal
lpsz2 As String) As Long
'form_load ( TB = toolbar, IL = imagelist )
TB.ImageList = IL
Dim btnX As Button
Set btnX = TB.Buttons.Add(, "exit", , tbrDefault, "exit")
btnX.ToolTipText = "Close"
Set btnX = TB.Buttons.Add(, , , tbrSeparator)
Set btnX = ...
...
Dim lStyle As Long, lReturn As Long, ToolbarHandle As Long
ToolbarHandle = FindWindowEx(TB.hwnd, 0&, "ToolbarWindow32", vbNullString)
lStyle = SendMessageAsLong(ToolbarHandle, TB_GETSTYLE, 0&, 0&)
lStyle = lStyle Or TBSTYLE_FLAT Or TBSTYLE_TRANSPARENT Or CCS_NODIVIDER
lReturn = SendMessageAsLong(ToolbarHandle, TB_SETSTYLE, 0, lStyle)

 hth, pal
grazie, ma io vorrei usare un bottone normale, non una toolbar completa, che
non mi serve.
Grazie lo stesso comunque :-)
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: Form modal e modless...

Problema: ho una form in un programma che puo' essere chiamata da
un'altra sia in modalita' MODAL che MODLESS.
Nel FORM_UNLOAD della form chiamata ho una istruzione che rende
visibile la form chiamante:
      Manager.Show
Questo ovviamente genera un errore "Can't show non-modal form when
modal form is displayed (Error 401)" quando la form era stata chiamata
come MODAL. Posso ovviare ignorando l'errore con:
   On Error Resume Next
      Manager.Show
   On Error GoTo 0
Pero' anche se funziona egregiamente non e' molto elegante... Ci
vorrebbe qualcosa del tipo
   If FORM_MODALE = TRUE then Manager.Show
C'e' un modo per leggere a run-time se la form e' stata chiamata come
MODAL o MODLESS ? 

 wrote in message
news:3a178707...@news.galactica.it...

Un sistema banalissimo (ce ne saranno sicuramente di migliori) potrebbe
essere quello di incapsulare la chiamata alla Show, aggiungendo un metodo
pubblico al form da chiamare che abbia gli stessi argomenti di Shoe e magari
anche qualcos' altro che ti puo' essere utile. Per esempio:
Public Function ShowMe (Optional nShowMode As long = 0, _
                                    Optional varParams As Variant) As Long
    If (Not IsMissing(varParams)) Then
        // gestisco i miei parametri aggiuntivi
    End If
    If (nShowMode == vbModal) Then
            // qui faccio qualcosa
    End If
    // mostro il form
    Me.Show nShowMode
    ShowMe = 1
End Function
Da fuori, la chiamata sara'
Manager.ShowMe vbModal
oppure
Manager.ShowMe
HTH
Ciao
Aldo

 Manager.ShowMe
io lo sapevo che con gli oggetti sono negato.
in un bel bas avrei fatto una per tutte una sub del tipo
    public sub mostra (f as form, modale as boolean)
' e gia' sul passare un form mi viene il mal di mare
        if modale then
            f.show vbmodal
        else
            f.show
        endif
    end sub
chiamandola poi con
    mostra manager
    mostra frmGoofy
ecc.
glob !

 wrote in message
news:8v76bt$3ri6h$1...@ID-51318.news.dfncis.de...

E' questione di foma mentis. Siccome, nonostante la veneranda eta' che mi
ritrovo, programmo da poco tempo, ho iniziato quasi subito con gli oggetti
(prima di vb avevo scorrazzato un po' in java, poi ho scelto di imparare vb
solo perche' avevo trovato un lavoro che me lo richiedeva).
Buonanotte, a
(scusa se ti ho rubato la ",a", ma abbiamo la stessa iniziale)

 Siccome, nonostante la veneranda eta' che mi ritrovo...................
Veneranda età ? Sei del 1961 come suppongo ?
Io del 1966 ma mi sento ancora giovanissimo :-))))))))))))))
CIAO ALDO!!!!!
Sirjo