mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: ADT lista con VBA???

Buonasera a tutti,
ho programmato a lungo in C++ e ora mi trovo a fare un programma
sotto VBA. La mia domanda č: come faccio a gestire una lista dinamica,
ovvero una lista di elementi di una lunghezza che puň variare nel tempo,
considerato che non esistono i puntatori???
Spero possiate aiutarmi, non riesco ad intravedere la soluzione!
Vi ringrazio anticipatamente

 Vi ringrazio anticipatamente
Vedi istruzione redim
Salutoni
Sergio

 Vi ringrazio anticipatamente
Ciao
Andrea

 Non so se in VBA si possono creare i moduli di classe
Si può
Salutoni
Sergio

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

Cosa può succedere se su una macchina istallo
Access 97, Office 2000 e Office XP?
Posso istallare prima  Office XP e poi Access 97?

Io una volta ho installato Access 97, su un pc che aveva gia' installato
Office 2000 e non ci sono stati problemi...
Certo... non e' una soluzione pulita, ma non dovresti avere nessun
problema!
Ciao
Giuliano
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

io ce li ho tutti e tre e non mi da nessun problema, solo che a volte 
se hai un DB fatto con Access2000 te lo apre con il 97.
Quindi dovrai aprire prima Access2000 e da li aprire il tuo DB
In bocca al lupo


Lory wrote:

il problema tra 2000 e 97 (xp non so) è che automaticamente 
l'associazione al file mdb viene cambiata con l'ultima versione che hai 
aperto.
Quindi se hai lavorato col 97 e poi fai doppio click su un mdb questo ti 
si apre col 97 (se l'mdb era 2000 non è riconosciuto)
se hai lavorato col 2000 e apri col doppio click un mdb questo ti si 
apre col 2000 (se l'mdb era 97 la prima volta che lo apri col 2000 ti 
chiede se lo vuoi convertire o eseguire. Se scegli il secondo caso non 
potrai apportare modifiche)
ciao Valerio

 ha scritto

non so con xp, fra 97 e 2000 puo' succedere anche:
-- se installi il 97 per ultimo, l'idiota puo' darsi che cerchi versioni
'precedenti' (idiom ms per 'differenti') e le rimuova senza dire 'a' ne
'ba'. che invece dirai tu...
-- con tutti e due installati, l'ultimo con cui apri un file si associa il
doppio clic. per cui cercherai di aprire mdb97 col 2000 e mdb2000 col 97,
con conseguente profluvio di pensierini sulle parentele femminili dello
staff ms. io ho messo due link nel send to e in genere funziona.


io sono stato fortunato perche non mi ha rimosso mai un'altra versione...
ma forse non è poi una gran fortuna!
ciao Valerio
Newsgroup: it.comp.lang.visual-basic
Titolo: Gestione MP3 con VB6

Ciao a tutti,
Sono un neofita di VB6, sto' realizzando un programma che costruisce e
organizza un database utilizzando i nomi e l'organizzazione dei file
sull'Hard Disk. Per ogni canzone vorrei memorizzare nel DB oltre al nome e
la dimensione, anche il bitrate e le altre informazioni che ogni MP3 si
porta dietro.
Come faccio?
Esistono dei controlli che mi permettono di gestire un file MP3?
IF esistono THEN
     dove li posso trovare?
ELSE
     voi al mio posto come fareste?
END IF
Grazie a tutti per l'attenzione.
Alex.


Io ho trovato alcuni controlli per la gestione di un file Mp3, oltre a
leggere le varie info permettono anche il play.
Ma ho riscontrato dei problemi, senza capire il motivo, su alcuni file
non riuscivo a reperire le info ID cosa che con un piccolo codice
fatto da me riuscivo perfettamente.
Purtroppo non so come avere info sul bitrate senza usare quell'ocx.
Quindi nulla di definitivo! Sorry
Ciao

> Esistono dei controlli che mi permettono di gestire un file MP3?
dai uno sguardo sul sito comune 
http://www.it-lang-vb.net
--
Fibia "Service Bot" FBI
E-mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Sito Personale: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
Membro #26 delle Mitiche Brigate Takahashi sezione Sud

 ha scritto nel messaggio
news:9pi5bm$r2e$1...@nreadb.inwind.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Re: Commanddialog multiselect

Ci avevo pensato anche io a fare una cosa del genere, il problema č che in
quel modo lě con drivelist, dirlist e filelist non riesco ad accedere alle
cartelle di rete, mentre con il commondialog si!
Che fare?!?
Grazie

Salve a tutti,
ho necessità di aprire una commondialog in modo che sia possibile
selezionare più file, e una volta cliccato open mi metta i file selezionati,
separati, su una listbox...
Ho guardato sulla msdn e dicono di usare il flag cdlOFNAllowMultiselect,
però se metto questo flag mi si apre un menu di apertura vecchio stile, tipo
windows 95 o ancora più indietro!
Vorrei a vere la possibilità di selezionare più file mantenedo però lo stile
del menù di windows xp, anche perchè in questo modo è più agevole l'apertura
di file su altri pc attraverso le cartelle condivise...
Come faccio??
Grazie!


Creati un form o uno usercontrol tuo.
Vb ti mette a disposizione gli oggettini singoli per sfogliare i dischi, le
cartelle e i files.
Tu aggiungi un listbox a selezione multipla, e sei a posto.
Ciao
Alberto
--
E tutto mi sembrava andasse bene...

 di apertura vecchio stile, tipo windows 95 o ancora più indietro!
[SNIP]
Lo stesso problema era stato segnalato in un messaggio di non molti giorni 
fa; devi combinare questo flag con cdlOFNExplorer.
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown 

Grazie, ora funziona come voglio io!
Grazie ancora!
Newsgroup: it.comp.lang.visual-basic
Titolo: Stampa su form e allineamento testo...

Devo stampare su un form dei dati da un array e fino a qui nessun
problema... il problema viene quando devo allineare delle cifre a
destra, dovrei ottenere una cosa tipo:
dato 1			L. 1.000
dato2		          L. 100.000
ma come in questo post non ci riesco proprio...
i dati li formatto con Format(var,"Currency").
Il codice di partenza è questo
Form2.Print Form1.Label1(N).Caption; Spc(1); Form1.combo(N).Text;
Tab(50); Val(Form1.comboqt(N).Text); Tab(58); Format(arraycosti(N),
"currency")
e cosi ottengo un allineamento a sinistra rispetto alla tabulazione
come faccio ad allineare i valori a destra??
Sono riuscito anche ad allinearli però se il valore supera il milione
ovvero 7 cifre che formattate diventano 12 (L. #.###.###) risulta
sempre spostato rispetto al resto (che è ben allineato!!) di 1/2
carattere... Qualcuno sa come mai?? Uso come carattee il MS SANS SERIF
che dovrebbe essere un carattere non proporzionale quindi il problema
non dovrebbe essere quello.
Grazie per l'attenzione
Federico Ianni
ia...@progetto3000.it

"currency")
Devi usare il metodi Form1.TextWidth() con il quele ricavi la lunghezza del
testo. Com quella decidi quanto spazio dedicare alla scritta e quindi
imposti la proprieta' Form1.CurrentX per far iniziare il testo dove vuoi.
Esempio:
Form1.Print Form1.Label1(N).Caption;    ' Notare il ; finale
Form1.CurrentX = Form1.CurrentX + Form1.TextWidth("000000000000") -
Form1.TextWidth( Format(arraycosti(N),"currency") )
Form1.Print Format(arraycosti(N),"currency");
Buon Lavoro


ciao, fammi sapere
Il problema è il font proporzionale (come Roman e Arial)
Dim pippo As String
Dim pluto As String
Font.Name = "courier new"
pippo = "*******"
pluto = "#####"
RSet pluto = "L."
For i = 1 To 10
    RSet pippo = Format(i * 1000, " #,#00")
    Print pluto + pippo
Next i


Grazie ha funzionato alla meraviglia!!
Newsgroup: it.comp.lang.visual-basic
Titolo: Cosa cosa usate per distribuire le applicazioni fatte in Vb6 ???

E' diverso tempo che non seguo ...  Vi è qualche novità in merito alla
distribuzione dei pacchetti di installazione ??
Che cosa mi consigliate ?? (nelle mie applicazioni uso ADO e Cristal
rep.7...insomma accesso ai dati in *.mdb o *.dbf) quando vado ad installare
il software c'è sempre qualcosa che non và.
Grazie a tutti quelli che mi daranno qualche 'dritta'.

...


 ha scritto nel messaggio
news:8u1c5h$snd$1...@nslave3.tin.it...


Strano a dirsi ma io ho sempre usato l'autocomposizione e non ha mai fallito
un colpo da VB4(cioè da quando uso VB) in poi. Forse dipende dal fatto che
sulla macchina di sviluppo ci sono Windows98 e  VB6 soli soletti?
GG

...


 Grazie a tutti quelli che mi daranno qualche 'dritta'.
Da quando uso il VB (versione 1 !) ho usato sempre l'autocomposizione
senza nessun problema. Devo ammettere che tutte le volte che ho letto
di inconvenienti si parlava di accesso a database, però, che io non uso.
Ah, già, e il bug True/Vero, che a me non è capitato.
Un Paperino CV10§0, forse.

Io uso autocomposizione .. standoci attento e gli unici problemi li ho
avuti su macchine con Win95a/b senza IE4 !!!
Ciaps
Stracca
http://www.stracca.net
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: [vb6] dll activeX

Salve a tutti,
mi sapreste fare un esempio di come creare una dll activex che semplicemente 
visualizza un form e che sia caricabile da un progetto con la createobject? 
io da vero ignorante in materia, ho creato una dll activex con una sub 
Esegui che fa semplicemente form1.show ma la createobject non me la carica 
:( devo forse creare qualche function o altro per farla caricare?
grazie 1000
A. 


Nella dll ActiveX (MiaDLL) devi aggiungere una classe (es. MiaClasse) 
con un metodo pubblico che richiama la tua form (es MostraForm).
Dall'esterno, usi un codice del tipo
Dim Oggetto as Object
Set Oggetto = CreateObject("MiaDLL.MiaClasse")
Oggetto.MostraForm
...
set Oggetto = Nothing
Bye by SixaM 8-]


Le DLL ActiveX non possono esporre direttamente funzioni, ma solo
oggetti.. quindi, come ha già detto SixaM, devi impacchettare le tue
funzioni almeno dentro una classe pubblica.
Ci sarebbe un monte di cose da dire sulla faccenda, per le quali ti
rimando alla guida di VB, aggiungo solo un paio di appunti veloci:
Ipotizziamo tu crei la classe A con metodo Esegui che mostra una form.
Public Sub Esegui
    Form1.Show
End Sub
il metodo qui sopra apparentemente funziona, ma in realtà è
scorretto... una determinata istanza di Form può essere aperta solo e
soltanto una volta; dato che questa viene invocata da un oggetto, e
dato che di questo oggetto ne possono esistere più istanze, il codice
qui sopra potrebbe dare errore se invocato da punti diversi. Hai
bisogno di caricare in maniere distinta le diverse istanze della
medesima form.
Quindi, quando piloti le finestre attraverso classi pubbliche, usa
SEMPRE questa sintassi, per toglierti da ogni problema:
Public Sub Esegui
    Dim f As Form1
    'una istanza di form distinta per ogni chiamata
    Set f= New Form1
    f.Show
    'ecc...
End Sub



voglio contribuire anch'io! :-)
in un'istanza di vb crei un gruppo di 2 progetti, una dll activex e un
exe standard rispettivamente di default (Progetto1) e (Progetto2):
nella dll metti un form (Form1) e un modulo di classe (Class1)
nel exe standard metti un form e un commandbutton (Command1)
copia:
--nel modulo di classe Class1 della dll ---
private frmdll As form1
public sub showformdll()
set frmdll = new form1
frmdll.show
end sub
-------------------------------------------
------nel form del exe standard:-----------
private sub  command1_click()
Dim fdll As object
set fdll = createobject("Progetto1.Class1")
fdll.showformdll
end sub
----------------------------------------
ricorda di mettere tra i riferimenti dell'exe standard il progetto della
dll (Progetto1) e come progetto di avvio sempre l'exe. 
finito, puoi compilare!
Newsgroup: it.comp.lang.visual-basic
Titolo: PER SEBAMIX

Le tue informazioni sono state valide.
Mi servirebbe adesso capire come impostare le varie colonne in base alla mia
stringa SQL. ti spiego.
Questo èquello che ho scritto al momento come codice.
Set cmdAdoDBase.ActiveConnection = cnnDBase
cmdAdoDBase.CommandText = "SELECT LIBRI.Settore FROM LIBRI"
rsDBase.Open cmdAdoDBase, , adOpenStatic, adLockPessimistic
rsDBase.MoveFirst
Set TDBGrid1.DataSource = rsDBase
Adesso gli devo dire che tutti i dati del recordset li deve visualizzare
nella prima colonna.
Grazie
FormW@re

Non ti ho detto che ho usato una TDBGrid OLE.
Ciao
FormW@re

Ti ho risposto sotto.
CiaoZ
SebaMix
--
------------------ - -  -   -    -     -      -
Sito Comune del newsgroup it.comp.lang.visual-basic
http://www.murialdo.it/it_lang_vb
------------------ - -  -   -    -     -      -
Rimuovete NOSPAM dall'indirizzo per scrivermi...
Remove NOSPAM from address to write me...
------------------ - -  -   -    -     -      -
Newsgroup: it.comp.lang.visual-basic
Titolo: Errore nel passagio dati

Salve a tutti, ho uno strano problema che nn capisco: ho creato una
Procedura con il passagio dei parametri:
Private Sub CreaFileExport(NomeConnessione As String, NomeTabella As String)
Solo che qndo la richiamo mi da errore :
CreaFileExport("VIAGGIF01", "PF0200")
Dove sbaglio ?

č una Sub, quando la devi richiamare senza parentesi......in pratica:
CreaFileExport "VIAGGIF01", "PF0200"
Se fosse stata una Function, allora avevi ragione tu....con in piů la
variabile ritornata
a=CreaFileExport("VIAGGIF01", "PF0200")
ciao, e good coding!!!
--
Damiani Liborio Igor
idam...@hotmail.com
 - 
igor.d...@light.it
http://www.igordamiani.it
ICQ : 11847262

 CreaFileExport "VIAGGIF01", "PF0200"
[...]
Giusto. Oppure usi l'operatore Call:
Call CreaFileExport ("Viaggi....
Attento, comunque: la tua dichiarazione considera i parametri ByRef, mentre
tu passi delle costanti.
Ciao,
Carlo.

Newsgroup: it.comp.lang.visual-basic
Titolo: Trovatemi l'errore

Mi dovrebbe aprire un file text ma non funziona:
Private Sub mnuFileApri_Click()
Dim MyString, MyNumber
cdbFile.Flags = &H2000 + &H400 + &H200000 + &H100 + &H2
cdbFile.Filter = "Documento di Testo (*.txt)|*.txt|Documento Batch
(*.bat) | *.bat|Tutti i files (*.*)| *.*"
cdbFile.ShowOpen
Open cdbFile.FileName For Input As #1
Do While Not EOF(1)   ' Ripete fino alla fine del file.
   Input #1, MyString, MyNumber   ' Legge i dati nelle variabili.
   txtNotepad.Text = txtNotepad.Text & Left(MyString, MyNumber)
Loop
Close #1   ' Chiude il file.
End Sub
                                                    Grazie molte

                                                    Grazie molte
Spero di non esserti sembrato pignolo... ma pochi accorgimenti ti
risparmiano di impuntarti su errori incomprensibili.
Ciao
Daniele
Newsgroup: it.comp.lang.visual-basic
Titolo: Come sapere il codice ascii di una lettera?

Salve,
come si fa a sapere il codice ascii di una lettera? VB mi mette
qualcosa a disposizione?
Saluti...
--------------------------------
Inviato via 
http://usenet.iol.it

****Direttamente da Msdn****
Funzione Asc(string)
Restituisce un valoreInteger che rappresenta il codice di carattere corrispondente alla prima lettera di una stringa.
Dim MyNumber
MyNumber = Asc("A")      ' Restituisce 65.
MyNumber = Asc("a")      ' Restituisce 97.
MyNumber = Asc("Apple")   ' Restituisce 65.
Ciao SIMO
--
__________________
www.sasim.cjb.net


 qualcosa a disposizione?
Si usa la funzione Asc per es.
    CodiceAscii=Asc("A")
CodiceAscii avrà il valore 65 che rappresenta la "A" Maiuscola.
Ciao
Fabio


Vedi ASC, CHR
	Lore.


Non ho fatto in tempo a tornare per dire che ho risolto che già tre post
nel giro di pochissimo!! Guardate qua :)
 skunk   - 15:38 
 Fabio   -
15:39 
 Simone  - 15:43 
 Lorenzo - 15:44 
Hehehe alla faccia dell'
efficenza eh...di quanto lavorate! ;))


 15:39
Essendo arrivato primo cosa vinco??? :))) devo pur mangiare...
Qua si parla di record .....!!
Ciao
Fabio


 ha scritto nel messaggio
news:157Z29Z81Z46Y...@usenet.iol.it...


 Qua si parla di record .....!!
preferisci .edit o .addnew ?

 ps.....era facile....:-))))
eheheh in effetti....:))
Ciao
Fabio

 ha scritto nel messaggio
news:9gt0e9$aifn8$1...@ID-51318.news.dfncis.de...

.addnew però su un recordset tutto mio 8)))
Ciao
Fabio

ma di poco...circa 4 minuti..ehehhehee
Cia SIMO
--
__________________
www.sasim.cjb.net

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Guida FTP

Ciao, non c'entra niente con VB, ma qualcuno mi sa dire un sito dove trovo
la spiegazione dei comandi FTP?
ciao a tutti
--
Fabrizio

prova a fare una ricerca con google parola chiave "Ftp Comandi" .. troverai
moltissimo!

 dove trovo la spiegazione dei comandi FTP?
/rfcs
acc.. non sono su mirc e gli alias non funzionano :Pp
allora
http://www.faqs.org/rfcs
oppure 
http://www.rfc.net
--
Fibia "Service Bot" FBI
E-mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Sito Personale: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
Membro #26 delle Mitiche Brigate Takahashi sezione Sud

 writes:
f> Ciao, non c'entra niente con VB, ma qualcuno mi sa dire un sito dove trovo
f> la spiegazione dei comandi FTP?
Cerca la RFC 959, c'è _tutto_.
--
Gian Uberto| main(){printf(&unix["\021%six\012\0"],(unix)["have"]+"fun"-0x60);}
Lauri      |                        David Korn, 1987 ioccc best one liner 
(aka saint)|-------------------------------------------------------------------
em@ail: 
sa...@eng.it
 ( vedere X-nospam nello header - see X-nospam in header )

 ciao a tutti
Microsoft Windows 2000 [Versione 5.00.2195]
(C) Copyright 1985-2000 Microsoft Corp.
C:\>ftp
ftp> help
I comandi possono essere abbreviati. I comandi sono:
!               delete          literal         prompt          send
?               debug           ls              put             status
append          dir             mdelete         pwd             trace
ascii           disconnect      mdir            quit            type
bell            get             mget            quote           user
binary          glob            mkdir           recv            verbose
bye             hash            mls             remotehelp
cd              help            mput            rename
close           lcd             open            rmdir
ftp> disconnect /?
Non collegato.
ftp> disconnect -?
Non collegato.
ftp> help disconnect
disconnect      termina la sessione ftp
ftp>
ciao, j.ftp.maichefossesemprelostessalarichiestadihelp...

ftp> exit
Comando non valido
ftp> qui
C:\>quit
"quit" non è riconosciuto come comando interno o esterno,
 un programma eseguibile o un file batch.
C:\>ftp
ftp> qui
C:\>
ma accetta anche solo 3 lettere ?

java ha scritto:

Ma si proprio un cane :-P
Accetta il numeor minimo di lettere per rendere univoco il comando.
Se scrivi v (la "v" da sola) viene interpretato come verbose,
nel caso di quit ne servono almeno 3 per distinguerla da quote.
ciao, hal

 ha scritto

l'avesse anche vb sta cosa !
in clipper era tutto un sele, endi, endd, whil
per un pigro era il top :)
non che io sia pigra, sia chiaro...
cia, j.
Newsgroup: it.comp.lang.visual-basic
Titolo: case x Vb

Qualcuno sa dove reperire un case x Vb e se conviene usarlo?
grazie

Qualcuno sa dove reperire un case x Vb e se conviene usarlo?
Reperire un case? ATX o AT? Miti o Tower? ;-)))
Al di lŕ della battuta forse intendi l'istruzione "Select Case". Cosa intendi per "reperire"? Forse
intendi "dove posso trovare informazioni sulla sintassi?" Se la domanda č questa, la risposta č
"Nella guida in linea di VB (tasto F1)"
Sempre supponendo che tu sia parlando dell'istruzione di cui sopra... "conviene usarlo?"
Beh, dipende.... se devi esaminare le possibili alternative del contenuto di una variabile, beh,
piuttosto di usare decine di If, magari annidati direi proprio "Sě, conviene"... altrimenti bisogna
vedere quello che devi fare.
Cerca di essere piů chiaro nell'esposizione delle tue domande. A tal proposito non posso non
consigliarti la lettura del manifesto di questo NG, reperibile sul Sito Comune (URL nella firma)
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

 intendi "dove posso trovare informazioni sulla sintassi?" Se la domanda è
questa, la risposta è



CASE : Computer Aided Software Engineering
si tratta di strumenti software utilizzati per la produzione di software (un
po' come i CAD servono per fare disegni).
In genere per ambienti RAD (Rapid Application Development), come Visual
Basic, i CASE non sono molto utilizzati, piuttosto si preferisce utilizzare
dei "framework", ossia insiemi di utility e pezzi di codice sorgente
(gerarchie di classi, in linguaggi OOP) o oggetti di interfaccia utente, che
velocizzano l'implementazione di particolari tipologie di applicativi (es.
un framework per gestionali per la gestione di magazzini, etc...)
Comunque non escluderei la possibile esistenza di CASE per VB.
Roal Zanazzi



OK, mi scuso con Pablo2 e grazie Roal per aver tolto un altro bit alla mia ignoranza... ;-)))


 ha scritto nel messaggio
news:Z5qL4.4662$xt2....@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Eliminare controlli

Salve qualcuno mi saprebbe dire se esiste un modo per eliminare un controllo
creato in design time, durante l'esecuzione?
grazie

 creato in design time, durante l'esecuzione?
ma... io non capisco che cacchio di problemi ti stai facendo.
Perchè dovresti aver messo un controllo per poi toglierlo?
Secondo me anche in questo post ti stai ponendo dei problemi paranoici.
Ciao

 ha scritto nel messaggio
news:bu8fre$f29jk$1...@ID-184808.news.uni-berlin.de...


> Secondo me anche in questo post ti stai ponendo dei problemi paranoici.
Uhm... Ma credi che si possa essere paranoici anche nella programmazione??
:-@
Antonio Mirarchi

 cmq per rispondere, vedi funzione unload.
Sono due casi completamente diversi.
L'unload permette di scaricare un oggetto che può essere creato a mio
piacimento (contro-funzione LOAD).
Un controllo solitamente è non creabile, quindi una volta tolto te lo
saresti perso per sempre.
L'unload lo puoi usare solo su controlli che fanno parte di una matrice di
controlli: in quel caso sono creabili.
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 controlli: in quel caso sono creabili.
Per inciso: gli elementi degli array di controlli creati a design time non
sono scaricabili.


Non credo che sia paranoico.
Secondo me ha semplicemente confuso la parola "controllo" con "oggetto".
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 ha scritto nel messaggio
news:rGQNb.126521$_P.45...@news4.tin.it...


leggi il mio post e confermerai la mia affermazione.


 soluzione alternativa ma è molto scomoda e poco elegante.
Sul tuo form metti una sola label con index=0.
A run-time crei tuttle le label che ti servono con:
load labelx(n)
labelx(n).top=100
labelx(n).left=100
'modifichi tutte le proprieta' che ti servono
...
labelx(n).visible=true
Per scaricarle quando non ti servono piu' usi l'istruzione:
unload labelx(n)
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 unload labelx(n)
Non mi pare che sia quello che è stato chiesto.
Oppure la domanda è stata malposta.


 
La seconda che hai detto.
:-)

Newsgroup: it.comp.lang.visual-basic
Titolo: Urgente (se potete) registry

Come faccio , da VB 4.0 Enterprise , a leggere un valore od un chiave nel
registry di WIN95 , in particolare dovrei recuperare il valore
SOFTWARE\Microsoft\Windows\CurrentVersion nella chiave CommonFilesDir. ?
Esiste una funzione VB ? Delle librerie free linkabili da VB che lo
permettono ?
Alternativa : quando il codice della mia applicazione  carica una classe per
la gestione dei parametri da VB verso alcuni fogli excel, sulle macchine
client (senza VB installato...)  si verifica il seguente errore bloccante :
ERROR LOADING DLL .
Sulle macchine di sviluppo con VB installato questo non si verifica.
Dopo diverse prove ho scoperto che registrando le dll dao3022 , e dao350
nella directory programmi\files comuni\microsoft shared\dao (operazione che
effettua VB durante la sua l'installazione) tutto ricomincia a funzionare.
Conoscete il modo per evitare un problema del genere ?
vi ringrazio.....
Alex

 wrote in message
news:7mvc3o$ami$1...@fe1.cs.interbusiness.it...


 
Guarda nei sorgenti del sito comune
 
www.murialdo.it/it_lang_vb
ci sono un paio di programmini su come usare il regitry
Ciao
:-) Hd (-:

Newsgroup: it.comp.lang.visual-basic
Titolo: access+menù

Ciao a tutti.
Ho realizzato una piccola applicazione in access 2000 destinata ad utenti
poco esperti su pc.
Dopo aver caricato il file mdb, da me realizzato, ci sarebbe un modo per
nascondere i menů di access in modo che questi utenti poco esperti non
vadano a metterci le mani?
Grazie
Michele b.

 ha scritto:


 ha scritto nel messaggio
news:9eorfd$63p$1...@pegasus.tiscalinet.it...

Puoi usare barre personalizzate da assegnare alle maschere o nascondere
quelle standard utilizzando il metodo showtoolbar (mi pare) dell'oggetto
DoCmd.
Comunque siamo un pochino OT, in questo caso č meglio postare su
it.comp.appl.access.
Ciao, Simone

Newsgroup: it.comp.lang.visual-basic
Titolo: cr & tables

Salve,
con crystal report, come posso fare a cambiare tabella da codice??.....mi 
date una mano ??
Grazie


hai già postato la stessa domanda ed hai detto anche che le tabelle sono
identiche; resta però da sapere:
- come accedi al report (ocx, api...)
- che versione ci c.r.
Come ben sai qui non c'è frate indovino, non basta dire aiutatemi... se non
spieghi di cosa hai bisogno è dura...
Comunque ecco due suggerimenti:
- cerca su Google (ti conviene cercare in tutte le lingue, non solo
l'italiano....)
- vai su 
www.crystaldecisions.com
 e cerca nella KB: trovi di tutto, dalla
documentazione a esempi di codice...
HTH
--
Stefano Zamboni (
sz...@libero.it
)
--------------------------------------------------------------
"If Bill Gates had a dime for every time a Windows box crashed...
...Oh, wait a minute, he already does."
Newsgroup: it.comp.lang.visual-basic
Titolo: picture





Ciao a tutti


ho risolto il mio problema con la stampante xerox 
docuprint c55, ora vorrei sapere se qualcuno sa dirmi se si può ruotare 
l'immagine di un oggetto "PICTURE", secondo me non si può, specifico chi io uso 
VB5.



qualcuno sa dirmi se si può ruotare l'immagine di un oggetto "PICTURE",
secondo me non si >può, specifico chi io uso VB5.
prova questo codice:
metti in un form 2 picture una contenente il bmp di origine e l'altra per la
destinazione
e un commandbutton per lanciare il tutto
Private Sub bmp_rotate(pic1 As Control, pic2 As Control, ByVal theta!)
  Const Pi = 3.
14159265359
  Dim c1x As Integer  ' Center of pic1.
  Dim c1y As Integer  '   "
  Dim c2x As Integer  ' Center of pic2.
  Dim c2y As Integer  '   "
  Dim a As Single     ' Angle of c2 to p2.
  Dim r As Integer    ' Radius from c2 to p2.
  Dim p1x As Integer  ' Position on pic1.
  Dim p1y As Integer  '   "
  Dim p2x As Integer  ' Position on pic2.
  Dim p2y As Integer  '   "
  Dim n As Integer    ' Max width or height of pic2.
  ' Compute the centers.
  c1x = pic1.ScaleWidth / 2
  c1y = pic1.ScaleHeight / 2
  c2x = pic2.ScaleWidth / 2
  c2y = pic2.ScaleHeight / 2
  ' Compute the image size.
  n = pic2.ScaleWidth
  If n < pic2.ScaleHeight Then n = pic2.ScaleHeight
  n = n / 2 - 1
  ' For each pixel position on pic2.
  For p2x = 0 To n
     For p2y = 0 To n
        ' Compute polar coordinate of p2.
        If p2x = 0 Then
          a = Pi / 2
        Else
          a = Atn(p2y / p2x)
        End If
        r = Sqr(1& * p2x * p2x + 1& * p2y * p2y)
        ' Compute rotated position of p1.
        p1x = r * Cos(a + theta)
        p1y = r * Sin(a + theta)
        ' Copy pixels, 4 quadrants at once.
        c0& = pic1.Point(c1x + p1x, c1y + p1y)
        c1& = pic1.Point(c1x - p1x, c1y - p1y)
        c2& = pic1.Point(c1x + p1y, c1y - p1x)
        c3& = pic1.Point(c1x - p1y, c1y + p1x)
        If c0& <> -1 Then pic2.PSet (c2x + p2x, c2y + p2y), c0&
        If c1& <> -1 Then pic2.PSet (c2x - p2x, c2y - p2y), c1&
        If c2& <> -1 Then pic2.PSet (c2x + p2y, c2y - p2x), c2&
        If c3& <> -1 Then pic2.PSet (c2x - p2y, c2y + p2x), c3&
     Next
     ' Allow pending Windows messages to be processed.
     t% = DoEvents()
  Next
End Sub
Private Sub Command1_Click()
    dim mioangolo as integer
   mioangolo=30
    Const Pi = 3.
14159265359
    angle = Pi / mioangolo
    Picture2.Cls
    Call bmp_rotate(Picture1, Picture2, angle)
End Sub
Tutto con VB5
Ciao stefano

ho risolto il mio problema con la stampante xerox docuprint c55, ora vorrei
sapere se qualcuno sa dirmi se si può ruotare l'immagine di un oggetto
"PICTURE", secondo me non si può, specifico chi io uso VB5.
Sul sito comune trovi qualcosa per ruotare il testo, non so se funziona
anche con le immagini.
Prova a vedere.
Altrimenti devi ruotartela "a mano".
--
Diego Mazzaro
"L'importante non è conoscere tante cose ma sapere dove trovarle" A.
Einstein
Newsgroup: it.comp.lang.visual-basic
Titolo: [SQL] help - per relazioni a piu' tabelle

salve!
Chiedo aiuto a tutti!
Ho messo un file in 
it.binari.visual-basic che documenta il mio problema
qui sotto la spiegazione
Grazie anticipatamente
PFM
Ho una difficolta' nel collegare dei dati tra varie tabelle:
Vorrei precisare:
ho definito alcune tabelle
CLfo - anagrafica comune per i clienti e fornitori in modo da
contemplare
l'eventualita' che un cliente sia fornitore e viceversa.
Fornitori - utile per la gestione della contabilita'
Clienti - utile per la gestione della contabilita'
li ho messi in relazione in modo da poter visualizzare attraverso 2
query o
solo i dati dei fornitori o solo i dati dei clienti
qclfo_clienti_ok e qclfo_fornitori_ok
allo stesso modo ho creato 2 tabelle
nomicommerciali (2 record caricati) - simile a Clfo per avere
l'anagrafica
comune dei nomi degli articoli
a sua volta i nomicommerciali sono legati alla tabella distributori
articoli - (per ora ne ho caricati 3) - questi pescano per
l'anagrafica da
nomicomm e sono diversi in base alle pezzature, ai distributori
articoli contiene il cod_fo (codice fornitore) che vorrei mi
permettesse di
leggere i dati del fornitore e la relativa anagrafica
Vorrei come ho fatto per Clfo_clienti/fornitori visualizzare tutti gli
articoli con i relativi dati del fornitore!
Se do piu' importanza nella relazione agli articoli rispetto ai
fornitori
visualizzo solo i dati degli articoli e non i dati del fornitore, ad
esempio
la ragione_sociale.
altrimenti vedo solo i dati dei fornitori e vuoti i campi relativi
agli
articoli
ho provato a fare delle query separate e una volta creato il recordSet
unirle, ma nulla di fatto
(vedasi
qArtMaga, qClifoFornitori_ok
qArtMaga&Fornitori_Ko
HELP!!!
Grazie anticipatamente
PFM
--
To reply please remove from e-mail 'xyz'- Per rispondere togliere 'xyz' dall'indirizzo e-mail.



Newsgroup: it.comp.lang.visual-basic
Titolo: [FORSE OT] Oggetti per server IIS4-5

 oggetto e utilizzarlo?
certamente... anzi.. č consigliabile se si vuole tenere separata
la parte grafica del progetto dal codice vero e proprio...
---
Ciao,
Enrico

Ciao a tutti...
Utilizzando VB6 ho visto che si possono creare anche progetti chiamati IIS
APPLICATION....
Sapete dove posso trovare maggiorni informazioni in rete su questo tipo di
progetto?
E' possibile secondo voi creare degli ActiveX da poi "affiancare" ad un
WebServer e tramite pagine scritte in ASP creare un'istanza di questo
oggetto e utilizzarlo?
Grazie a tutti!!!
P.S.
Non rispondete alla seconda domanda...è molto + importante la prima [ma se
mi sapete rispondere anche alla seconda sono felice ^_^]
Ale





fastidio non me ne da di certo.. altrimenti non ti avrei risposto.. :)))
pero' io ho letto tutto da msdn... di piu' nin so'...
--
Ciao,
Enrico

Tu hai già provato a fare una cosa del genere?
Grazie!!
Ciao Enrico

Newsgroup: it.comp.lang.visual-basic
Titolo: Programma che si sposta e si cancella?

Come fa un programma a spostarsi o a cancellarsi, se è in esecuzione? Esiste
qualche comando apposta o bisogna inventarsi qualcosa di incredibile?

 qualche comando apposta o bisogna inventarsi qualcosa di incredibile?
devi fare un Virus?

quando esegui l'exe in realtà viene fatta una copia in memoria delle
istruzioni, quindi puoi trattare il file come qualsiasi altro, lo cancelli,
lo rinomini ecc.. ora, non so se su NT,2k,XP viene bloccato, ma a tutti gli
effetti il file NON è in uso. Se lo fanno è solo per una questione di
sicurezza che hanno i SO. Nel caso, non credo che tu lo possa toccare
Fabio

 memoria delle istruzioni,
Sì, ma non viene copiato *tutto* in memoria.
Vengono caricate solo le istruzioni che debbono essere eseguite al
momento.
Per cui cancellare il file (o rinominarlo, spostarlo, ecc..) non è
possibile.
Ciao.
--
BSD is for UNIX-lovers -- linux is for Windows-haters.

 wrote in message
3C65315D...@libero.it...


 ha messo?
App.Path ti restituisce il percorso dove si trova il programma.


 App.Path ti restituisce il percorso dove si trova il programma.
Basta scrivere questo nel registro sotto
\software\microsoft\windows\currentversion\run
Personalmente detesto i programmi che si piazzano qui senza una mia
autorizzazzione.
Ciao

 qui senza una mia autorizzazzione.
Sì, la cosa è decisamente antipatica pure a me.



Nsomma non si è risolto il problema da quel capisco, si è mai parlato di
routine di autoaggiornamento senza che apro google? (vabbè lo apro + tardi)
Ciao
Luther

 routine di autoaggiornamento senza che apro google? (vabbè lo apro + tardi)
Brào... ti dò una dritta: cerca "WININIT.INI" e "MoveFileEx" :-P
Comunque alla fine andrai a finire qui:
Q140570 HOWTO: Move Files That Are Currently in Use
http://support.microsoft.com/support/kb/articles/Q140/5/70.asp
Bye, G.

 ha scritto nel messaggio
news:bZq98.43824$om6.1...@news1.tin.it...

personalmente, di solito, li disinstallo.
ciao
ugo

 personalmente, di solito, li disinstallo.
bastasse...
il top del testadicazzismo:
- cometcursor. si installa via web, basta solo toccare un qualche sito che
li usa, una serie di cursori dementi, senza chiedere a ne' ba. alla terza
volta ho avvisato che o cambiavano sistema o il mail dopo gli arrivava da
un'avvocato (quale, poi?). ma piu' che per strizza loro penso di non averne
piu' trovati per fortuna mia.
- realaudio, multimedia fra i piu' mentecatti a disposizione. basta capitare
su un .rm e ci si trova con 15 mb di ram buttati a ogni boot, anche se il
.rm successivo lo incontri 3 mesi dopo. tolto almeno dal run con tweaki (la
3 credo sia gratis, ora), si e' reinstallato 2-3 volte. non la pessima
qualità dell'audio suppongo derivi dal fatto che le orecchie gli devono
fischiare mica poco.
j.ma.chi.se.li.fila.questi.qui
Newsgroup: it.comp.lang.visual-basic
Titolo: [!!]Bug di VB da pelarsi dalle risate :-))))

 di 65.000 bugs, annuncia di voler rendere pubblico il codice sorgente e
poi
Beh, io ho installato Windows 2000 Professional qualche ora fa, aggiornando
da un Windows NT 4.0 Workstation SP 5, e finora sono rimasto più che
soddisfatto: installazione perfetta, veloce e, dulcis in fundo,
completamente automatica. Sistema stabile, anzi forse più stabile.
Interfaccia ancora migliore di quella di Windows 98.
Solo perchè Microsoft ha ammesso la presenza di bugs, il povero Windows 2000
sta passando per "schifezza"... Perchè, prima i bugs non c'erano?
--
Umberto Meroni
[
http://www.ubi1k.com
] [
http://www.ubi1k-vb.net
]
[Come contattarmi: 
http://www.ubi1k.com/meroni
]
---
Tre cose solamente m'ènno in grado,
le quali non posso ben fornire,
cioè la donna, la taverna e 'l dado...
---

 Solo perchè Microsoft ha ammesso la presenza di bugs, il povero Windows
2000 sta passando per "schifezza"... Perchè, prima i bugs non c'erano?
*features*, si chiamano, in informatica. vulgo, solamente vulgo, bugs...
ProvaDel9: hai mai sentito un commerciale informatico parlare di "bugs" ?

 ProvaDel9: hai mai sentito un commerciale informatico parlare di "bugs" ?
No. Però l'ammetterne la presenza è già un passo avanti...

 Interfaccia ancora migliore di quella di Windows 98.
Solo un poco OT: io vorrei fare la stessa cosa.
Possiedo un AMDK6-2 450 con 128MB di ram e
9gb hd. Visto che gia' in se' questo sistema
e' lento (swappa come un bastardo! :-))
come ti sei trovato in termini di prestazioni
nel passaggio? Me lo consiglieresti?
Ciao e grazie!

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Crystal Report cambia molto dall ver 5.0 alla 6.0?

Possiedo la versione 5.0 . Cosa cambia dalla versione 5 di crystal report
alla versione 6? Vale la pena? Anche a voi credete che CR faccia abbastanza
schifo o sono io che non so usarlo?
Ciao, Luka

Andrò contro corrente, ma io con Cr mi sono sempre trovato bene
E' veloce, l'ambiente di sviluppo mi sembra molto elastico, le sue formule
mi hanno sempre lasciato fare (quasi) qualsiasi cosa e
inoltre usando le Api di CRPE.DLL e CRPE32.DLL è molto "smanettabile"....
(/\/\ gli OCX!).
L'unico neo è che le ossa bisogna farsele da sole in quanto
la documentazione è davvero scarna (o sono io che non sono
mai riuscito a reperirla...)
Bah!!
Saluti
Newsgroup: it.comp.lang.visual-basic
Titolo: datacombo con ADO

Salve,
	come posso associare un Recordset alla proprietą RowSource senza 
utilizzare adodc ?
Un esempio sarebbe l'ideale 
Ciao e grazie

 ha scritto

se posso: lascia perdere il datacombo e usa il combo normale, molto
piu' leggero. lo colleghi a un campo del tuo rs e poi lo carichi al
load e/o quando ti serve:
Public Sub FillLists()
    Dim rs As New Recordset
    With frmNet
        .cboArea.Clear
        .cboUrlArea.Clear
        .lstArea.Clear
    End With
    rs.Open "select area from aree order by area", _
        mainDB, adOpenStatic, adLockOptimistic
    With rs
        Do While Not .EOF
            frmNet.cboArea.AddItem !area
            frmNet.cboUrlArea.AddItem !area
            frmNet.lstArea.AddItem !area
            .MoveNext
        Loop
        .Close
    End With
    Set rs = Nothing
End Sub
ciao

, 
a...@tin.it
 says...
Ok, per me va bene, l'unica cosa e' l'incongruita' con l'interfaccia.
Il combo normale non mi fa il flat, mentre il datacombo si.
Ho modo di avere un aspetto flat anche nel combo normale ?


 Ciao e grazie
gia', un'altra di quelle propr flat che dovrebbero esserci ma non ci
sono.
hmmm... codeguru gli fa di tutto ma questo direi di no.
http://www.codeguru.com/vb/Controls/ComboBox/index.shtml
in c invece sembra si possa
www.codeguru.com/combobox/FlatComboDemo.shtml
qui suggerisce di subclassare
http://www.experts-exchange.com/Programming/Programming_Languages/Visu
al_Basic/Q_20247147.html
altre dritte, come al solito, in google:
http://www.google.it/search?sourceid=navclient&hl=it&q=%22visual+basic
%22+%22flat+combobox%22
ciao

, 
a...@tin.it
 says...
Ok, grazie


 al_Basic/Q_20247147.html
Anche
http://extreme-vb.net/content/01,0074,01/01.aspx
Flat Comboboxes by Garrett Sever - October 28, 2002
Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: problema con file ad accesso sequenziale

Sto creando un prog che mi salva 2 array a dim. variabile in un file.
I 2 array sono:Alias( ) e Comando ( ).
Per adesso riesco solo a salvarli cosě:
Alias(n)
Comando(n)
......
Ho qualche problema:
1.Come faccio a salvarli nel seguente modo??:
Alias (n) - Comando ( n)
Alias (n) - Comando (n)
.......
2.come faccio a togliere i "" che aggiunge davanti ogni array salvato??
3.Perchč come prima riga mi aggiunge un valore vuoto??
Ciao e grazie
ps:sotto vi allego il codice.
Dim Alias() As String
Dim N As Integer 'var che contiene il num tot degli alias
Dim Comando() As String
Dim Pos As Integer
Dim Cont As Integer
Private Sub btnNuovo_Click()
txtAlias.Text = ""
txtComando.Text = ""
End Sub
Private Sub btnSalva_Click()
N = N + 1
ReDim Preserve Alias(N)
ReDim Preserve Comando(N)
Alias(N) = txtAlias.Text
Comando(N) = txtComando.Text
Cont = N
Pos = N
Elemento = Alias(N) & " - " & Comando(N)
ListAlias.AddItem Elemento
ListAlias.Refresh
End Sub
Private Sub btnPrec_Click()
If Pos > 1 Then
Pos = Pos - 1
txtAlias.Text = Alias(Pos)
txtComando.Text = Comando(Pos)
Else
End If
End Sub
Private Sub btnSucc_Click()
If Pos = N Then
Else
Pos = Pos + 1
txtAlias.Text = Alias(Pos)
txtComando.Text = Comando(Pos)
End If
End Sub
Private Sub Form_Load()
N = 1
File = App.Path & "\prova.dat"
Open File For Input As #1
Do Until EOF(1)
ReDim Preserve Alias(N)
ReDim Preserve Comando(N)
Line Input #1, Alias(N)
Line Input #1, Comando(N)
Elemento = Alias(N) & " - " & Comando(N)
ListAlias.AddItem Elemento
ListAlias.Refresh
N = N + 1
Loop
Close #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
File = App.Path & "\prova.dat"
Open File For Output As #1
N = 1
Do While Not N > Cont
Write #1, Alias(N)
Write #1, Comando(N)
N = N + 1
Loop
Close #1
End Sub
Private Sub ListAlias_Click()
txtAlias.Text = Alias(ListAlias.ListIndex + 1)
txtComando.Text = Comando(ListAlias.ListIndex + 1)
End Sub

Io proverei ad aggiungere un ; dopo l'istruzione write
Ciao, Claudio.


 3.Perchè come prima riga mi aggiunge un valore vuoto??
Primo, fai una Open For Binary sia per leggere che per scrivere.
Lascio a te tutte le letture a riguardo di questa modalità :)
Secondo, usa Get per leggere e Put per scrivere.
Terzo, per salvare a coppie (o meglio a record) potresti usare una type:
Type MyStruct
    Alias
    Comando
End Type
Dim Coppie() As MyStruct
Quarto, ovviamente se l'array è dinamico non c'è modo di sapere quanti ce ne
sono nel file a meno di non mettere un long come interstazione che ne indica
il numero.
A meno che sia Alias che Comando non siano dei tipi a lunghezza fissa, come
long, double, stringhe a lunghezza fissa, ecc, nel qual caso puoi fare:
NumeroArray = Lof(#1) \ Len(Coppie(0)) ' nota la divisione per interi
Ciao
--
using System.Gtk.Forms = "
http://www.neodatatype.net/windowsforms/sgf.aspx
"
mathParser = "
http://www.neodatatype.net
"
sitoComune = "
http://www.it-lang-vb.net
"

 wrote in message
pAxR9.68526$R45.3...@news2.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Registrare un controllo ?

Salve a tutti, ho un controllo dll come faccio a registare per poter usare
in vb.
ciao

 ha scritto nel messaggio
news:bfitsb$jmn$1...@lacerta.tiscalinet.it...



---
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

 regsvr32 /u directoryenomedelfile
emm e per DEREGISTRARLO cosa usi ? :p
/u = Deregistra
/s = no visualizza il msgbox di conferma
poi altro scrivendo nel prompt : "regsvr32 /?"

 ha scritto nel
messaggio news:bfj3t8$fa6ih$1...@ID-174485.news.uni-berlin.de...



Newsgroup: it.comp.lang.visual-basic
Titolo: Ancora Altaeeza Tool Bar

Come si fa a ricavare l'altezza della Tray Bar? In realtà è anche l'altazza
della tool bar sotto di wondows.
Vorrei fare in modo di far partire un form appena sopra alla barra di
windows.
Grazie

 wrote in message
8tmhc0$ece$1...@news.flashnet.it...

Un modo di m...a per farlo senza usare API può essere quello di massimizzare
la form. Una volta ingrandita sottrai l'altezza dello schermo a quella della
form.
Quella dovrebbe essere l'altezza della Barra di Win.
Fa schifo, lo so...
=)
Ciao, Matteo

 wrote in message
news:8tmiek$dc4$1...@lacerta.tiscalinet.it...

Pero' e' creativo!
Visto che l' argomento ultimamente ricorre spesso, suggerisco un a possibile
soluzione:
In un modulo di VB scrivere:
''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long,
lpRect As RECT) As Long
Public Function GetTrayWindowHeight() As Long
  Dim hwnd As Long
  Dim rc As RECT
  hwnd = FindWindow("Shell_TrayWnd", vbNullString)
  If hwnd Then
    If GetWindowRect(hwnd, rc) Then
      GetTrayWindowHeight = (rc.Bottom - rc.Top)
    End If
  End If
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Ciao
Aldo

Newsgroup: it.comp.lang.visual-basic
Titolo: Spegnimento PC

C'è un comando in VB che faccia spegnere il computer con XP come SO? e per
riavviarlo?
Vorrei fare un programmino semplice che al momento di chiudere il computer
invece di farlo normalmente avvio questo programma che prima mi fa il backup
di alcuni dati e poi spegne il computer in modo automatico senza che io
debba aspettare che finisca il backup per spegnere il pc.
Grazie
--
Claudio P.
ICQ: 39052657

 ICQ: 39052657
Bye. Gio
P.S. - Conosco persone che in auto percorrono i 300 mt. che separano
l'abitazione dal bar
e si lamentano del traffico e della mancanza di parcheggi. :-))

 riavviarlo?
C'è un post di ieri (Spegni PC con XP)

> La risposta la trovi a portata di copia e incolla qualche post piu' sopra
Chiedo venia
Grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: Ridisegnare una griglia

 detto che io debba fare il fiorista....  [Morgan]  <

Griglia.Rows = 1

 Griglia.Rows = 1
Sgrunt!!!!!
Terribilmente banale!
Scusa l'ignoranza e soprattutto la mancanza di intuito......
Grazie
Bye

Newsgroup: it.comp.lang.visual-basic
Titolo: Variabili senza segno

Come da oggetto, come posso lavorare con variabibli senza segno?
grazie

> Come da oggetto, come posso lavorare con variabibli senza segno?
Intendi dire tipo integer?
-5  >>  5
+5  >>  5

Dovrei lavorare con variabili Long, ma va bene lo stesso anche con 
l'integer. Sì mi riferisco proprio a:
-5  >>  5
+5  >>  5


Ok secondo me o lavori con abs(x) oppure crei una classe dedicata che alla
proprietà xClass.Value che metterai proprietà predefinita usi abs(x)  (te la
scrivo in 
vb.net
 perchè VB6 non me lo ricordo +)
Public Class XLong
Private m_Long As Long
Property Value()
Get
Return Math.Abs(m_Long)
End Get
Set(ByVal Value)
m_Long = Value
End Set
End Property
End Class

SUB-ZERO ha scritto:

Grazie mille! Ho risolto!

Newsgroup: it.comp.lang.visual-basic
Titolo: Clausola IN di sql con ODBC (2)

Ho visto nell'help di VB6 l'utilizzo della clausola IN di sql associata
all'istruzione SELECT per recuperare dati da un database esterno e ne
indica alcuni esempi di utilizzo: (SELECT IDCliente FROM Cliente IN
"C:\DBASE\DATI\VENDITE" "dBASE IV;" WHERE IDCliente LIKE "A*";)
Non indica però nessun esempio di utilizzo con un driver ODBC!
Io ho provato la seguente istruzione sql eseguendola con il metodo
execute di una variabile di tipo database:
"INSERT INTO tabella_access (campo1, campo2) SELECT campo1, campo2 FROM
nometabella IN 'Dns_name' 'ODBC;' "
L'istruzione funziona, ma se ne frega del DNS indicato e mi chiede
sempre quale DNS voglio utilizzare!
Dove devo mettere il DNS per non farmelo più chiedere???
Grazie in anticipo!
Roberto B.

 wrote in message
37F1BAB0...@oleostar.com...

Risorse del computer
Pannello di controllo
Origine dati ODBC (32 bit)
Ciao
Ven.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Copiare Eliminare files e directory

Come da oggetto.
Z.

 Z.

Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo Dbgrid

Ciao,
C'è qualcuno che sa dirmi come fare ad impostare automaticamente le
dimensioni delle colonne di un controllo dbgrid in base al loro contenuto?
Grazie!

Ciao
Andy