mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [CERCO] Ocx tipo listbox ma che...

Ciao,
cerco un controllo che abbia le stesse funzioni
del listbox ma che mi permetta di cambiare i colori
delle voci che aggiungo in lista.
Grazie per l'attenzione.
DaDe



Si, l'ho mandata alla tua email!
Ciao e buon lavoro.

 ha scritto nel messaggio
news:3ba7e6fe...@news.libero.it...

di che controllo si tratta ?
Saluti



Leggi il corpo del messaggio di Dade!
Ciao

Ciao
Penso che Fox intendesse il nome del controllo ...
Magari puo' essere utile anche ad altri.
ciao, hal

 ciao, hal
Grazie Hal .. per fortuna che tu comprendi il mio dialetto
Saluti

 ciao, hal


Fox Mulder ha scritto:

Gia'... peccato che altri dialetti traducano il verbo prendere, ma
non il verbo dare :-(
ciao, hal

 wrote:

Scusami, non avevo capito!
http://www.vb2themax.com/FileBank.asp?PageID=FileBank
http://www.vb2themax.com/Downloads/Files/MBListEx.zip

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto!!

Ciao a tutti.
Ho un quesito che non mi lascia dormire (non esageriamo!) , ho scritto un
programma che dopo vari calcoli scrive i risultati su un foglio excel
tramite un collegamento DDE , e' possibile sempre tramite DDE bordare le
celle excel contenenti i dati ?
Se si , come?
Grazie in anticipo
Air

 wrote in message
7hsltc$kp4$1...@news.mch.sbs.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo Mapi

 Ma dove si trova questo controllo? Sto venendo scemo ma non riesco a 
visualizzarlo nel pannello degli strumenti, ma neanche nei riferimenti.
merci
-- 
Greg 


La dll da cui dipende il controllo, mapi32.dll, è ppresente sul disco.
Dal pannello dei scontrolli se faccio sfoglia, poi la seleziono, mi dice: 
inpossibile registrare il xxxx come compenente active x.
Suggerimenti?
-- 
Greg

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Icone carine per programmi gratis

Mi sapete dire dove posso trovare delle icone carine gratis per i programmi? 
L'ideale è un formato 32x32 o anche 64x64
Grazie
Ciao 

 programmi? L'ideale è un formato 32x32 o anche 64x64
Ciao,
nell'Area Download di 
www.visual-basic.it
 ne trovi centinaia.
E comunque, se fai una ricerca su google, ne trovi a migliaia.
Ciao
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

 L'ideale è un formato 32x32 o anche 64x64
Prova questo...
http://www.splash.it/grafica/icone/
Occhio se ti parte in automatico un programma come Getright per lo
scaricamento, scarica una immagine diversa (con il logo di splash)...
Io me ne sono accorto solo dopo averne scaricato una cinquantina :-\
-- 
Daniele Pinna  (leva oops. per rispondere) * ICQ "chiedilo"
* Vota il mio sito nella TOP100 Italiana *
Sito Web 
DAPINNA.COM
: 
http://www.dapinna.com
Il Docfa in Pillole:  
http://www.ildocfainpillole.it

Newsgroup: it.comp.lang.visual-basic
Titolo: gestire icq

come posso gestire icq attraverso un progr. visual basic?

 come posso gestire icq attraverso un progr. visual basic?
Ma la gente è tarda ??
Ti è stato risposto poco piu in basso.

 Ti è stato risposto poco piu in basso.
Sarò anche tardo ma non riesco a trovare niente, perchè non mi dai una mano?

 una mano?
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
allora :
- tasto destro su "it.comp.lang.visualbasic"
- cerca
"ICQ"
-- 
<Gigio2K>
Sito Comune
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: info exe runtime

ho creato un exe con visual basic e sul mio computer funziona benissimo.
L'ho inserito in un cd e poi distribuito, ma non funziona sugli altri
computer.
Mi dice che manca il file msvbvm60.dll
mi sono documentato è ho trovato che un runtime necessita di vbrun300.dll.
se io inserisco quest'ultimo nella cartella che contiene l'exe nei miei
supporti di distribuzione, risolvo i miei problemi?
o cosa devo fare?
Ciao e Grazie
Gianluca

 mi sono documentato č ho trovato che un runtime necessita di vbrun300.dll.


 wrote


Il programma non ha gui, serve solo per copiare un file di fonts nella
directory predefinita quando lo avvii.
il file ms...... posso metterlo nella stessa cartella dell'eseguibile?
Ciao Gian

 registrarla.
se usi regsvr32 con la msvbvm60.dll non ti da errore, come fa invece con una
DLL standard, per cui presumo che sia ActiveX pure quella
Ciao  :)
Faber

 wrote in message
news:qA885.18909$2s6.2...@news.infostrada.it...


 DLL standard, per cui presumo che sia ActiveX pure quella
sul portatile non posso provare x' pur usando vb5 in vb6 ho dei prg, ma ho
visto adesso che sul desktop di casa non ho la msvbsm60 (ci sono in compenso
3 versioni, 8 file in tutto, della 50...).
prova a fare un exe in vb6 che faccia solo un msgbox "hello world" e a
mandarmelo. nb: *piccolo* :)
poi copio a mano la dll e risolviamo lo spinoso problema :)
ciao, a.

 delle ActiveX.
tra cui molte funzioni il cui nome inizia per "Zombie" :)

 vb6 - msvbvm60.dll
anche questa è inclusa in Win 2000 e in Win ME

 wrote in message
news:lc395.36040$2s6.4...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Cristal Report

Ciao a tutti. Ho un problema banale. C'e' qualcuno che mi sa dire come si fa
a filtrare un report creato con Cristal Report facendo la selezione dei dati
con delle caselle textBox presenti su una form qualsiasi ??? Ad esempio per
filtrare un archivio di magazzino da un codice articolo ad un altro. Grazie
Via E-mail 
mauro...@tin.it
  oppure 
mgr...@libero.it

 wrote in message 7reac5$gmo$1...@nslave1.tin.it...


Guarda sull'help del Crystal Report la voce "SelectionFormula"
Ciao
--
----------------------------------------------
Se la tua donna ti chiede un parere in realtą
vuole solo sentire il SUO parere detto con la TUA voce
----------------------------------------------
Andrea
inf...@rcmcastelli.it
(xxx=NOSPAM)

Newsgroup: it.comp.lang.visual-basic
Titolo: Come si inserisce un path?

Devo far leggere un file di testo che si trova nella directory system32 di
NT, ma voglio che una volta installato su 98 (con il file di testo in
c:\windows\system) non faccia casini, quindi non posso usare un path tipo
c:\winnt\system32\miofile.txt ma mi serve un percorso piu' relativo tipo
<%systemdir%>/miofile.txt.
oggetto.Path [= nomepercorso]
Come va scritto il percorso?
CiaoZ



Dai un'occhiata sul mio sito.
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
---------------------------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: Come pilotare Outlook da VB?

Sono un programmatore poco esperto, ma riesco a pilotare agevolmente Winword
da Visual Basic. Vorrei sapere se si può fare altrettanto con MS Outlook per
spedire mail da programma. Qual'è il file *.olb necessario? Dove si trova?
Dove posso trovare un po' di documentazione?
Thanks a lot,
Riccardo.

...


Se è possibile mi diresti dove posso trovare un po di documentazione su come
pilotare winword dal vb5
grazie ciao
joh...@libero.it


Newsgroup: it.comp.lang.visual-basic
Titolo: prblemi con i report

io ho   inserito un data enviroment e vi ho associato un data report (report1), 
il data enviroment e associato ad una tabella del database, il problema e che 
quando io faccio report1.show mi viene mostrato i report correttamente , ma se 
poi modifico la tabella a cui e associato il data report ad esempio eliminando 
 delle righe , e rifaccio report1.show mi viene sempre visualizzato il report 
che avevo visto all inizio , per poter visualizzare il report correttamente 
devo uscire dal programma e riavviarlo , vi prego aiutatemi
kaz...@tiscalinet.it

 wrote in message
8gjl60$ata$1...@pinco.nettuno.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: URGENT HELP REQUIRED....API CALL TO PLAY .AVI FILE?

All
I have used the multimedia control in Vb6 to play an uncompressed avi file,
but there is NO SOUND argh!
I know the API call for sound but not the one for playing a movie if you
know PLEASE HELP!!
or if you know any other way round this problem please tell...
--
Mark Fowkes
Home E-Mail : 
mark....@webleicester.co.uk

 or if you know any other way round this problem please tell...
I would suggest using ShellExecute(hWnd, "play", <filename> etc.), and
allow the Windows operating system to decide which program to run.
--
Roger Abbott, RHA (Minisystems) Ltd
http://www.rhaminisys.com
DDE FAQ and tools, DDE Client component for Visual Basic
Program launcher/setup menu, freeware, shareware
Sent via Deja.com 
http://www.deja.com/
Before you buy.
Newsgroup: it.comp.lang.visual-basic
Titolo: Stranezze di VB ...

ciao a tutti
Volevo avere conferma di una cosa che ho riscontrato e che mi sembra
alquanto strana.
Se dichiaro una variabile di tipo boolean come static il valore che assume
quando viene inizializzata non č fisso (mi aspettavo che fosse False),
mentre se la variabile č di tipo intero vale sempre zero fino a quando io
non decido di assegnargli un valore.
Ho usato una variabile di questo tipo in procedure simili di form diversi,
ed in alcuni il valore iniziale era False, ma in altri era invece True,
mandando a pallino tutti i miei controlli che facevo in base al valore di
questa variabile...
Non ho piu' parole ....
===========================================
gio...@newsoft.it
===========================================
--
Posted from root@[212.35.192.2]
via Mailgate.ORG Server - 
http://www.mailgate.org

 Non ho piu' parole ....
Nemmeno io. E' normale (doveroso, altrimenti pericoloso) che
tutte le variabili che si dichiarano debbano sempre venire
inizializzate, perchč di solito contengono un valore casuale. 
Personalmente mi stupisco che VB5 ponga dei valori di default.
Maurizio

Newsgroup: it.comp.lang.visual-basic
Titolo: help please !

  Vorrei sapere se e'possibile, in VisualBasic 4 a 16bit, settare, ad
esempio 'txtTextBox.enabled=true' per tutti i text boxes presenti in una
stessa form o in uno stesso frame, senza toccare gli a altri oggetti
presenti.
    Grazie !

Giovanni Bacci ha scritto nel messaggio ...

prova a guardare l'Help sotto la voce "TypeOf". Dovrebbe esserci un esempio
di come gestire la collection "Control"


-------------
Ciao!
Per disattivare tutti i TextBox presenti in un form, puoi utilizzare questo
codice:
    Dim Text As Object
    For Each Text In Me
        If TypeOf Text Is TextBox Then Text.Enabled = False
    Next Text
Alla prossima
Marco Minerva
http://www.armaditaggia.com/marco
http://www.geocities.com/SiliconValley/Foothills/7260/

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con le text

Ciao, io ho la necessità di controllare che in una determinata text non
siano state inserite delle lettere, minuscole e maiuscole, o segni di
punteggiatura, ecc. ma solamente numeri. Qualcuno mi può aiutare? Inoltre se
io inserisco un numero decimale in una text col tastierino numerico, ad
esempio 4.7, visual basic me lo legge come 47, e per farglielo leggere come
decimale bisogna mettere la virgola così 4,7, quindi il punto del tastierino
numerico non me lo accetta come virgola. Come mai? Mi potete aiutare? Grazie
a tutti.

numerico non me lo accetta come virgola.
Per convertire il testo di una Textbox usa Val:
miavar=val(textbox.text)
Ciao
Daniele
Newsgroup: it.comp.lang.visual-basic
Titolo: VB.net percorso database

Come posso scrivere la stringa di connessione in modo da non specificare
la directory in cui si trova il db visto che è la stessa di dove si
trova l'eseguibile???
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 trova l'eseguibile???
Se il DB é access dovrebbe bastare che non specifichi la cartella nel
percorso e lui userà la cartella di default (cartella da cui viene avviato
il programma che normalmente é la cartella dove questi si trova!).
Altrimenti ricorda che la cartella in cui si trova il tuo eseguibile é:
System.Reflection.Assembly.GetExecutingAssembly.Location
                    Ciao
Allanon
--
- SPAMKILLER
 L'indirizzo delle risposte é 
itlangv...@michele.sytes.net
 LASCIATE il NOSPAM fa parte dell'indirizzo :-)
  Per superare le impostazioni di protezione antispam scrivete
  nel testo del messaggio la scritta "SPAMKILLER"
Scusate il disturbo, ma non posso più di pubblicità

 di dove si trova l'eseguibile???
app.path
Salutoni di fretta
Sergio

 Sergio
troppa fretta... era per .net
Application.ExecutablePath, se non ricordo male
Salutoni di nuovo
Sergio

Scartabellando per i vari manuali online ho trovato la funzione curdir(.
Che ne pensate ???


 trova l'eseguibile???
System.Environment.CurrentDirectory
giuseppeD

ho provato ma mi da errore io ho scritto cosě
Const stringconn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & System.Environment.CurrentDirectory & "\scadenze.mdb;Persist
Security Info=False"


 Security Info=False"
Questo perche', come dovrebbe averti anche segnalato il compilatore, non
puoi dichiarare una costante che sia la composizione di valori non
costanti... devi usare una normale variabile stringa
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 Security Info=False"
System.Environment.CurrentDirectory
ti dovrebbe essere segnalato dal runtime come errore.
Il seguente da me funziona.
Dim strConnect As System.String
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
System.Environment.CurrentDirectory & "\Clienti.mdb;Persist Security
Info=False"
sicuro che il file.mdb si trova nella cartella bin ?
giuseppeD

Newsgroup: it.comp.lang.visual-basic
Titolo: Vb.net come creare form MDIchild ?

Sto cercando di imparare ad usare il nuovo 
vb.net
ma non trovo come fare dopo aver impostato il mio form in MDI
a creare le formMDIChild
con vb6 era semplice
grazie

 grazie
prego
--
.A
UGIdotNET - User Group Italiano .NET
http://www.ugidotnet.org
Read my blog at: 
http://www.ugidotnet.org/4.blog
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] LIKE per soli numeri (integer o long)

VB6
Come posso verificare se un determinato campo sia strettamente numerico
integer o long e non contenga lettere?
NOT LIKE "*[A-Z]*"  :-(((
o simile...
TNX
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 80,000 Newsgroups - 16 Different Servers! =-----

 integer o long e non contenga lettere?
In Vb c'č la funzione IsNumeric
Se intendi un campo su un Db e verificare, lo intendi come verificare i dati
contenuti con una query, allora non capisco.
Cioč, se un campo č integer č integer!!!
Come fanno ad esserci delle lettere?
Se intendi che hai dei campi string ma ci hai cacciato dentro anche dei
numeri, sorvolo commenti inutili e ti rispondo cosě
Al momento non saprei darti una soluzione valida, se non aprirti il
recordset, scorrerlo tutto con un ciclo e con la funzione isnumeric
piazzarti i record che contengono solo numeri in un array.

 integer o long e non contenga lettere?
Ponendo che il tuo campo si chiami Dato e la tua tabella Tabella1:
SELECT Tabella1.Dato
FROM Tabella1 where val(dato) >0
Ciao
*Roby*

 ha scritto nel messaggio
news:anrdpi$gsc46$1...@ID-94194.news.dfncis.de...

Tnx!,
grazie info, ho sfruttato anche isnumeric...
ciao


Newsgroup: it.comp.lang.visual-basic
Titolo: GIF ANIMATE

Salve!
Vorrei sapere se c'è un modo, in VB4, per caricare gif animate.
Grazie!

...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Carica di file txt grandi in textboxes

Come posso caricare di file txt grandi (100 kb per esempio) in una textbox
senza che mi venga dato l'out of memory?
Grazie
Riccardo

 ha scritto nel messaggio
news:8hgmv3$kla$1...@nslave1.tin.it...

Prova ad utilizzare i RitchTextBox
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

Newsgroup: it.comp.lang.visual-basic
Titolo: Toolbar e bottoni con buttonmenus Dropdown

Rieccomi!!
Il problema di adesso mi ha impegnato un po'. Questo per dire che non posto
un problema appena mi si presenta!!
Comunque...
Nel mio MDIform ho inserito una ToolBar composta da 2 tasti, uno semplice
(style 0-tbrDefault, caption "Bottone1") e uno con Buttonmenus (style
5-tbrDropdown, caption "Bottone2") con 3 sottomenu caption "Stmenu1",
"Stmenu2", "Stmenu3". Ho scritto poi questo codice.
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button
        Case "Bottone1"
            Debug.print "Bottone1"
        Case "Bottone2"
            Select case
MDIForm1.Toolbar1.Buttons(2).Buttonmenus.????????????
                Case "Stmenu1"
                    Debug.print "Stmenu1"
                Case "Stmenu2"
                    Debug.print "Stmenu2"
                Case "Stmenu3"
                    Debug.print "Stmenu3"
            End Select
    End Select
End Sub
Domanda:
Cosa devo scrivere al posto dei ?????????????. Oppure quale altro sistema
c'e' perche' il programma mi restituisca il Sottomenu
Premuto nel Bottone2?
Grazie e ciao!
*frankyz



 ha scritto nel messaggio
news:8v6ula$pv3$1...@nslave3.tin.it...



...cut....
L'avevo fatto e l'ho cercato di nuovo dopo il tuo appunto. Purtroppo non
esiste un evento Toolbar1.ButtonMenuClick!!
Esiste solo l'evento .ButtonClick.
Come posso fare? Forse non lo vedo io. Come descrivere la sua sintassi.
Grazie
*frankyz


Guarda meglio. L' ho appena provato e funziona.
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As
MSComctlLib.ButtonMenu)
    MsgBox ButtonMenu.Text
End Sub
Ciao
Aldo

Newsgroup: it.comp.lang.visual-basic
Titolo: Passaggio stringhe a DLL

Ciao.
Il mio problema č nel passare una stringa ad una DLL.
Premetto che sviluppando la DLL a 16 bit tutto mi funziona.
Quando faccio la DLL a 32 bit ,non riesco a passare la stringa.
La funzione in C č :   int NomeFunc (LPSTR NomeFile) ..........
Uso VC++4.0 e VB5.0 .
In VB5 dichiaro:
Declare Function NomeFunc Lib "C:\prova\miadll.dll" (ByVal NomeFile As
String) As Integer
Poi chiamo la funzione : a = NomeFunc("mio.txt") , ma VB mi dice :
Convenzione di chiamata DLL non valida;nell'help mi dice che il parametro
passato č del tipo sbagliato,difatti se cambio le cose e passo un Integer
tutto funziona.
Se la stessa DLL la compilo a 16 bit funziona,ma a me serve a 32 bit !!!!
Qualcuno sa delucidarmi sulla questione ???????

...


 Qualcuno sa delucidarmi sulla questione ???????
Prova con:
Declare Function NomeFunc Lib "C:\prova\miadll.dll" (ByRef NomeFile As
String) As Integer
Ciao.
Beppe
Newsgroup: it.comp.lang.visual-basic
Titolo: load oggetti

Ho realizzato un programma in vb6 creando un mio componente ocx.
In una form, tramite il comando load, ne carico circa 30, a seconda del
numero di record in una tabella.
Quando faccio unload della form, anche i componenti ocx caricati vengono
rilasciati, oppure no?
Grazie in anticipo.
Maurizio
-- 
Posted from 
ausmac.auselda.it
 [194.185.113.133] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
news:d19ec4fdccd028aef2...@mygate.mailgate.org...


Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi di Query !!!!!

Ancora piccoli problemi
ho predisposto una griglia di visualizzazione per mostrare 2 colonne
mi serve poter visualizzare da due tabelle  1 campo di una e il valore di 
quanti ce ne sono nell'altra.
adoStat.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + 
gDataSource + ";Persist Security Info=False"
    adoStat.CommandType = adCmdText
    adoStat.RecordSource = "SELECT tab_Movimenti.CampoA , Count(*) As Totali 
From tab_Movimenti INNER JOIN tab_Tabella2 ON tab_Movimenti.CampoA = 
tab_Tabella2.id_CampoA  GROUP BY tab_Movimenti.CampoA;"
 adoStat.Refresh
se faccio così funziona ma mi mostra l'ID della Tabella2 e quante volte è 
presente nella tabella Movimenti
se invece voglio mostrare la descrizione del campo_A presa della tabella2 
mi viee fuori un errore
adoStat.RecordSource = "SELECT tab_Movimenti.CampoA  , Count(*) As Totali, 
tab_Tabella2.desc_CampoA From tab_Movimenti INNER JOIN tab_Tabella2 ON 
tab_movimenti.CampoA = tab_tabella2.id_CampoA  GROUP BY 
tab_Movimenti.CampoA;"
Chi mi aiuta ???
 

 Chi mi aiuta ???
Quando c'è una funzione di aggregazione (come Count() nel tuo caso) occorre 
che tutti gli altri campi di output compaiano anche nella clausola GROUP BY.
La tua query invece specifica solo tab_Movimenti.CampoA...
Ciao
Raf 

 Chi mi aiuta ???
Ti hanno gią risposto.
Ho notato che dai tuoi post non hai grandi conoscenze di VB e di SQL (non
che sia una colpa, ci mancherebbe, nessuno nasce imparato).
Ma ti consiglierei di studiare un minimo quello su cui devi lavorare, la
programmazione "a caso" o "alla google" non porta spesso a grandi
risultati.
Non dico di imparare a mente ogni cosa, ma almeno una conoscenza di base di
SQL, e le nozioni per capire quale sia il metodo per ingrandire una colonna
di una flexgrid si.
Poi il mio č un consiglio, vedi te :)

 Poi il mio è un consiglio, vedi te :)
Grazie comunque come avevo scritto qualche post fà su un altro argomento, 
avevo abbandonato la programmazione in VB6
erano un pò di anni che non facevo nulla ( prima non è che avessi fatto 
chissà che) e molte cose imparate le ho dimenticate.
Adesso stò creando un programmino che mi serve in tempi brevi e x questo 
chiedo aiuto.
Nel frattempo stò recuperando manualistica su .NET e appena finisco questo 
prg formatto e passo al superiore e mi metto a studiare.
Newsgroup: it.comp.lang.visual-basic
Titolo: [URGENTE] perche' questa si blocca!!!

ecco la procedura che uso per prendere dati da un as/400 (tramite ado) e
metterli in un db access (tramite dao)!!!
Do Until AS400rs.EOF
        db.Execute "INSERT INTO tbl1 (campo1, campo2) VALUES ('" &
AS400rs!campo1 & "','" & _
                    AS400rs!campo2 & "')"
        AS400rs.MoveNext
Loop
che mi sia perso qualche patch o service pack ??? non mi spiego il motivo
per cui questa si dovrebbe bloccare!!!
stessa cosa se faccio rs.addnew (per aggiungere nel db access)
scusate se sono pesante ma proprio non mi funziona

Puo' darsi che la tabella in cui tenti di fare la insert sia bloccata in
modo esclusivo da una transazione di un altro utente.


mmm no questo no, perche' e' un db access che ho nella mia macchina senza
nessuno che le possa vedere...
ho provato a mettere un doevents, prima del movenext, cosi' funzia ma e'
leeeeennnnnnnttttttooooo :)))
cmq sempre meglio che premere un ok di un msgbox per 15.000 volte (era la
vachia soluzione adottata) =)
ciao e grazie
Mela <melani...@tiscalinet.COM> wrote in message
9q1ii5$lfg5v$1...@ID-6300.news.dfncis.de...


 ha scritto nel messaggio
news:xkVw7.5570$g42.1...@news.infostrada.it...

Il problema principale secondo me è l'ultilizzo del loop e l'incrocio tra
DAO e ADO.
In un sistema del genere è meglio far lavorare l'odbc con un istruzione di
questo tipo:
Private Sub Command1_Click()
Dim db as DAO.Databases
Dim sqlString As String
Set db = Workspaces(0).OpenDatabase(App.Path & "\db1.mdb")
sqlString = "INSERT INTO tbl1 ( fld1, fld2 )" & _
            "SELECT tabella.Codice, tabella.Descr1 " & _
            "FROM [ODBC;DRIVER=SQL
Server;SERVER=NT2000;UID=sa;PWD=;DATABASE=millenium].tabella;"
db.Execute sqlString
db.Close
End Sub
In questo modo mandi al server una sola istruzione e non 15.000 e non
prepara x 15.000 il cursore
Notare che non ho bisogno di creare un DSN ma e' tutto specificato sulla
riga di apertura della tabella...
P.S. L'esempio è fatto con Il driver ODBC per SQL Server
il server si chiama "NT2000" , il database "millenium" e la tabella
"tabella"
Ho fatto un test e per leggere circa 40000 record ci mette circa 20 sec con
un collegamento a 100Mbit, msde, pIII 800 128Mb, nt2000 server
Prova e fammi sapere....
Newsgroup: it.comp.lang.visual-basic
Titolo: [?FAVORE]

Questi numeri di telefono sono di uno "sfruttatore " solo 400.000 al mese
per prog in vb circa 10 ore al giorno. Ed il bello è che non vuole nemmeno
darmele..............
cia...@libero.it
 è la sua e-mail
ed i nr di
cell sono
3288627176
3286593585
se gli mandate qualche msg non mi
dispiacerebbe.
Ps. Si chiama FRANCO CIARDULLO 
sito 
www.arox.it
 (in
costruzione)
GRAZIE MILLE
--------------------------------
Inviato via 
http://usenet.iol.it

questo msg č fuori luogo...ma in un modo talmente palese che ti rispondo
persino...

aggiungo:
spero che tu sia un ragazzino... perchè fai davvero pena...

 GRAZIE MILLE
Deficente.

PLONK

 darmele..............
buuuuhh.. mamma.. digli di smetterla..
si, ho parlato con papà e mi ha dato un calcio in cu*o
diglielo tu..
come no?!?
ma non è giustooooo!!!
mamma.. ecchecca...
buuuhuh.. ti odio..
nono... non li mangio i ravioli con gli spinaci...
ecchissenefrega della cena.. niente TV? ma non è giustoooooooo
almeno digli di farmi dare i miei soldiiiii
buuu.. ed io faccio spamming sul ng e gli dico di mandargli virus
e lo sai che faccio? ci metto pure i numeri di telefono così impara.
...
ecco..
...
mamma.. i ravioli mettili in frigo... li mangio più tardi :D
--
Fibia "Save our souls please" 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


LOL
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: Errore durante il caricamento

Salve a tutti,
sto lavorando con VB.
Da una form richiamo una seconda, ma ogni volta che richiamo quest'ultima mi
compare l'errore file inesistente eppure la form mi viene aperta!
Dove è l'inghippo?
Grazie a tutti,
Simone


  Ma in ambiente di sviluppo? Solo una volta compilato? Cosa fai nel Load()
della seconda form?
 Ciao
--------------------------------
Inviato via 
http://usenet.libero.it

 Dove è l'inghippo?
Potresti postare il codice che usi quando richiami la seconda?

 viene aperta! Dove è l'inghippo?
Hai salvato la form con un nome diverso da quello con cui l'hai salvata la
prima volta?
--
Gulp ! Forse mi sono perso qualcosa !

Salve a tutti,
il problema stava nel nome del database, che era errato!
Azz la sbadataggine!
grazie per la comprensione,
Simone
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto con le API

Salve,
dato che mi stanno un pò antipatici gli OCX, mi trovo spesso a servirmi
delle API, ma il visualizzatore di API mi dà solo la definizione e non mi
dice cosa servono ne come si usano, quindi vado a tentativi finchè mi si
blocca tutto. Poi mi sono chiesto "ma ci saranno in giro delle guide
complete sulle API di Windows, così da non dover tutte le volte rischiare di
fare danni sul mio PC ?"
Già che ci sono, ho un altro dubbio che spero qualcuno mi chiarisca:
Come si fa a creare un link ad un file (con un'API) ?
Grazie.

 Come si fa a creare un link ad un file (con un'API) ?
per entrambe le cose fai un salto su 
www.allapi.net
 e scaricato l'api-guide
altrimenti sul sito comune dovrebbe esserci una guida con esempi a cura
di Cesare Rizzi (
www.it-lang-vb.net
)
ciao
--
Fibia "primo post utile di agosto" FBI
E-mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Sito Personale: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
Membro #25 delle Mitiche Brigate Takahashi sezione Sud


Non scordiamoci l'MSDN, che nessun "pirata" degno di questo nome si dovrebbe
scordare di copiare insieme a VB :)
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Cancellare file da VB6

Con VB6  avrei la necessità, attraverso un command
button, di cancellare un file che ho sull'HD
Quale è il codice?
Grazie e scusate l'ignoranza...

Giorgio ha scritto:

Kill
L'help è cosultabile in modo Gratuito come pure il NG, nel quale puoi
effettuare ricerche ed accorgerti che anche senza fare domande hai la
risposta......!
@Alex
Newsgroup: it.comp.lang.visual-basic
Titolo: vb.net array condiviso synclock

Ciao a tutti e innanzi tutto grazie a tutti coloro che risponderanno a
questo post..
 
ho una semplice situazione, ma vorrei capire come gestirla:
 
in una form, esitono decine di timer che casualmente, scrivono in un
determinato array di stringhe.
vorrei capire se è possibile "lockare" l'array allo scopo di
utilizzare l'oggetto in mutua esclusione.
 
da alcune mie ricerche, è possibile utilizzare synclock... ma vorrei
capire come funziona e se è la strada migliore per il mio caso.
 
grazie ancora...
attendo numerose risposte ed esempi.
 
EG
 

 capire come funziona e se è la strada migliore per il mio caso.
 
dipende molto dalle prestazioni che vuoi ottenere, o meglio da quante 
rischiano di essere le scritture concorrenti. In uno scenario come il 
tuo è molto facile lockare, c'è una keyword apposta, ti faccio un 
esempio in C# che mi è più congeniale:
 
//questa è la risorsa condivisa usata per gestire i lock
static readonly Object syncRoot = new Object();
 
void SafeWrite( String value )
{
   lock( syncRoot )
   {
      //il primo thread che arriva qui
      //acquisisce il lock e mette in
      //coda gli altri che a loro volta
      //acquisiscono il lock quando il
      //precedente "locatario" lo libera.
   }
}
 
-- 
blog @ //
milestone.topics.it
 
 
 

On 14 Gen, 15:50, Mauro Servienti [MVP] <mauroservie...@online.nospam>
wrote:

Sarebbe fantastico avere il corrispettivo nella versione VB.Net...
 
grazie ancora.
 
EG

 EG
 
.m
 
-- 
blog @ //
milestone.topics.it
 
 
 

 grazie ancora.
 
E' talmente semplice il codice che quasi basta togliere le parentesi 
graffe per averlo già tradotto...
 
Ad ogni modo: 
http://www.developerfusion.com/tools/convert/csharp-to-vb/
 

Ciao ancora a tutti,
stavo riprendendo il progetto e ho seguito i vostri consigli...
ma ahimè le necessità ora sono cambiate.
 
in effetti, non ho bisogno di "lockare" un singolo oggetto (array), ma
una vera e propria sub o una parte di codice...
 
esiste qualche costrutto che mi permette di utilizzare in mutua
esclusione una rountine? magari con un semaforo...
fatemi sapere.
 
mille grazie.
Ciao!

 Ciao ancora a tutti,
trasforma il "codice" in un "oggetto"...ed usa un mutex!
http://community.visual-basic.it/lucianob/archive/2006/04/30/17126.aspx
 
 
-- 
----- Italliaaaaa 3227! -----
Grembiule nero e fiocco azzurro: per un bambino milanista il primo 
giorno di scuola è un trauma.
(Diego Abatantuono)
Newsgroup: it.comp.lang.visual-basic
Titolo: DAO -> ADO

Mi potete dare delle delucidazioni sulle differenze tra DAO e ADO

Qualcuno ha una procedura FFT scritta in VB o una dll?
Enrico

Qualcuno ha una procedura FFT scritta in VB o una dll?
E' piu facile che lo trovi le procedure FFT in c/c++ e compilate come
dll che in vb
Sidewinder
---------------------------------------------------
"C'e' una luce in fondo al tunnel..."

 
c'e' un problema anche piu' grande:
il VB va uno schifo con i conti e le FFT sono piuttosato pesanti
per cui la soluzione migliore e' proprio quella di creare una dll in C
che faccia la FFT 
P.S. se avete problemi fatemelo sapere che ci faccio un pensierino
Marco Colandrea

che faccia la FFT 
Appunto... mi ricordo quando ho fatto l'esame di elaborazione numerica
dei segnali...





...


Newsgroup: it.comp.lang.visual-basic
Titolo: lint / profile per VB

Esistono strumenti come lint e profile per VB?
Ho visto da qualche parte che esiste un profiler nel CD di VB5, ma non l'ho
trovato. Come si chiama?
E per quanto riguarda lint qualcuno sa dirmi qualcosa?

Lo trovi nella directory D:\VB5.0\TOOLS\UNSUPPRT\VBCP
Ciao
 
--------------------------------------------------------------------
Roberto Ruggeri
za...@tin.it
sisinfin...@interbusiness.it
http://www.indicitalia.com

Si trova in D:\VB5.0\TOOLS\UNSUPPRT\VBCP


Newsgroup: it.comp.lang.visual-basic
Titolo: SQL ???

Ho sempre svilupparo applicativi per la gestione dei dati che utilizzavano
il file MDB.
Mi trovo ora con un progetto che mi porta alla gestione di una massa di dati
molto elevata, mi è stato quindi consigliato di utilizzare l' SQL server.
Essendo profano di tutto ciò c'e qualcuno che mi può brevemente dire di cosa
si tratta ed eventualmente dive posso reperire informazioni di base sulla
programmazione di SQL Sever (sia on line , sia pubblicazioni )
Grazie Marco

De Pra S.r.L. wrote:

SQL è un Database Management System Relazionale sviluppato da Microsoft per
server Windows NT. Tramite ODBC è possibile creare applicazioni VB che
interrogano dati presenti su SQL Server. Ti consiglio il libro SQL Server edito
da Mondadori, prezzo L. 100.000, ma li vale tutti!!!
--
**steve (c) 1996
*** just on the net

Esiste un libro : Visual Basic 5 e SQL Server 6.
Ottimo.
Prende in considerazioni tutti gli attuali metodi di programmazione
Client/Server, DAO, RDO, ODBCDirect, Api ODBC ....
    a te la scelta !!!
CIAO !!!
Newsgroup: it.comp.lang.visual-basic
Titolo: Programmi VB6 sotto Windows XP

Ciao a tutti,
Ho un problema con VB6 e Windows XP. All'interno dell'ambiente di sviluppo i
programmi funzionano correttamente. Se però creo l'eseguibile, quando tento
di farlo partire si sente il suono che contraddistingue l'errore di
un'applicazione, ma non viene visualizzato alcun messaggio, nonostante il
software non parta. Se invece imposto una compatibilità per il programma
(Windows 95, 98 & ME, NT o 2000, non fa differenza), tutto funziona
correttamente.
A qualcuno è mai capitato un problema analogo?
--
Marco Minerva, 
vbco...@libero.it
http://www.marcominerva.com/vbcorner

 ha scritto nel messaggio
news:BvPb8.10360$8F6.5...@twister2.libero.it...


 ha scritto nel messaggio
news:eHQb8.10864$8F6.5...@twister2.libero.it...


 Grazie per il suggerimento, ma ho già installato il
 CUT
Beh è il risvolto di programmare usando API...puoi fare molte cose...ma
perdi flessibilità!
Nel senso che le API non te le garantiscono immutabili!
Se è per un prog generale il più possibile standard...non le guardare le
API!
Se è un  prog che gira solo su un S.O.  e specifico per un cliente...be
allora è un altro discorso!
...io però non sono tanto propenso ad "andarci pesante" con le API!
Per mia esperienza prog compilati sotto win 98 e 2000 girano benissimo sotto
XPpro...prog senza API!!!
Saluti!
:-)

 alla perfezione.
semmai dall'uso che fai di API  :)
in questi casi il modo migliore per risolvere è un bel log, in cui
scrivi prima e dopo la chiamata alle funzioni dell'API. molto
probabilmente passi un parametro per valore invece che per indirizzo o
viceversa
facci sapere
--
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: picturebox1.fillstyle = 7

in una form ci sono due controlli, shape1 ed una picturebox1
nella finestra delle proprieta' assegno ad entrambi i controlli
shape1.fillstyle = 7.La shape funziona correttamente mentre la picturebox
non fa nulla,
ho provato ad essegnare la proprieta picture1.fillstyle= 7  via codice in un
commonbutton,nella form_load, ho probato ad inserire nella picture:paint
l'istruzione picture1.fillstyle= 7 ma senza risultato.
sono nel pallone
leonello

 non fa nulla,
Cos'è fillstyle = 7?
Ciao
-- 
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 Cos'è fillstyle = 7?
disegna un reticolo inflinato di 45 gradi
esempio
shape1.fillsstyle= 7  la shate risulta tratteggiata con un reticolo a 45
gradi
la propriete fillstyle c'e' anche nella picturebox
leonello

 la propriete fillstyle c'e' anche nella picturebox
Sì, ma nella picturebox si applica al pennello e non alla picturebox, quindi
devi fare un fill (prova con la FloodFill) oppure prova con una
Picture1.Line(x,y)-(x1,y1), ,BF
Ciao

 Picture1.Line(x,y)-(x1,y1), ,BF
cosi funziona perfettamente
Picture1.Line(x,y)-(picture1.width,picture1.height), ,B
leonello
ps
hai raguine meglio usare le costante

 devi fare un fill (prova con la FloodFill) oppure prova con una
Picture1.Line(x,y)-(x1,y1), ,BF
cosi fa la picture tutta nera


 devi fare un fill (prova con la FloodFill) oppure prova con una
Picture1.Line(x,y)-(x1,y1), ,BF
cosi fa la picture tutta nera


scusa dei messaggi ripetuti,mi si e' impastato outlook
leonello

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con VB e MSDE

Ciao a tutti,
sto lavorando con VB su database MSDE. Ho un piccolo problema.....devo
creare un campo contatore autoincrementante (chiave primaria) in una
tabella. Come posso risolverlo?
Vi prego rispondetemi....sono disperata!!!!!!!!
Grazie a tutti
Angela
 
--------------------------------
Inviato via 
http://usenet.libero.it

 tabella. Come posso risolverlo?
Selezioni la tabella ->Tasto destro->Struttura->Selezioni il campo che vuoi
come contatore (o lo aggiungi scrivendone il nome in una cella
vuota)->Identità=True->Incremento=1
Ciao
Alberto

 ha
scritto:

--------------------------------
Inviato via 
http://usenet.libero.it

 dura!!!
2 Possibilità:
1)
Il campo che vuoi usare come contatore non è di tipo valido (ovviamente un
contatore può essere solo Int, Numeric o Decimal).
2)
Il login, che usi per connettere il tuo Enterprise Manager al server MSDE,
non ha l'autorizzazione a modificare il DB.
Verifica nei diritti dei login di avere accesso Administrator sul DB che ti
serve.
Ti posso comunque garantire che funziona come ti ho detto sopra.
Ciao
Alberto

Ciao Alberto,
prima di tutto grazie ancora x la disponibilità. Abbiamo scorperto che ci
avevano installato una versione dell'MSDE che non ci permetteva di fare
modifiche o altro. Adesso ho ri-installato tutto e sembra funzionare. Grazie
ancora.
Ciao ciao
Angela
***************************************************************************

Newsgroup: it.comp.lang.visual-basic
Titolo: DataReport: Orientamento di stampa

Ciao a tutti,
ho aggiunto un DataReport alla mia applicazione, il problema è che non
riesco a trovare il modo per impostare da codice l'orientamento della
stampa.
Quando si preme il pulsante "Stampa" sul Datareport, si apre una finestra di
dialogo dalla quale è possibile selezionare il tipo di orientamento
desiderato.
Come predefinito è verticale ma io lo vorrei orrizzontale, dato il numero di
campi che deve contenere.
Grazie in anticipo per eventuali suggerimenti.
               Symi.

stampa.
Usare la proprieta' Orientation pare brutto?
-- 
ciao, hal

> ho aggiunto un DataReport alla mia applicazione, il problema è che non
Scusami per la domanda.. ma cos'è DataReport... dove si scarica e dove ci
sono eventuali guide per il suo utilizzo??

 ha scritto nel messaggio
news:sj52uuks55dct8t73...@4ax.com...

Grazie hal,
in effetti mi ero concentrato su DataReport non pensando all'oggetto
Printer.
Il mio codice di stampa era questo:
With DataReport1
         .Hide
     Set .DataSource = rstBook
         .DataMember = ""
        With .Sections("Section1").Controls
           For intCtrl = 1 To .Count
             If TypeOf .Item(intCtrl) Is RptTextBox Then
                       .Item(intCtrl).DataMember = ""
                       .Item(intCtrl).DataField = rstBook(z).Name
                        z = z + 1
             End If
           Next intCtrl
        End With
        .Refresh
        .Show
        .WindowState = 2
  End With
Ora proverò ad inserire Printer.Orientation e vediamo cosa succede.
Ciao, Symi

 sono eventuali guide per il suo utilizzo??
Nel menů Progetto c'č la voce Inserisci Data Report e poi ho usato la guida
in linea.
Ciao

Printer.
Ehm, mi riferivo alla proprieta' Orientation ddl DataReport ;-)
-- 
ciao, hal

 sono eventuali guide per il suo utilizzo??
E' il report (cioè generatore di stampe) inglobato in VB6 .. è databound,
ed è molto semplice da utilizzare ...
imho, unica pecca : per creare report master-detail devi usare o un data
environment oppure una query SHAPE, per nulla facile da gestire.
Saluti

>Ehm, mi riferivo alla proprieta' Orientation ddl DataReport ;-)
Scusa se mi intrometto ma l'argomento mi interessa. Dove si trova la
proprietą Orientation del dataReport?
Ciao, Fiorello

 ha scritto nel messaggio
news:3de36f31...@news.conmet.it...

La proprietą Orientation, a cui faceva riferimento Hal, non appartiene al
Data Report ma all'oggetto Printer.
Ciao, Symi.
Newsgroup: it.comp.lang.visual-basic
Titolo: Coesistenza ADO - DAO

Salve a tutto il NG.
Chiedo gentilamente il Vostro aiuto!!
Ho un problema sul quale sto' impazzendo da un po'
E' il seguente:
  1) Abbiamo un database che per diversi motivi è gestito tramite RecordSet
(Vecchi) DAO e RecordSet nuovi ADO
  2) Ad un certo punto nel codice vi è l'esigenza in cui l'ADO cancella
DELETE e poi effettua un ADDNEW con il DAO sempre aperto
  3) Chiaramente poi vado ad utilizzare DAO avendo già effettuato l'UPDATE
in ADO
  4) Ottengo una segnalazione di errore pari a :«3159 - SEGNALIBRO NON
VALIDO: ID: DAO - RECORDSET NEL MODULO - CIAPET»
NOTA: Effettuando un REQUERY del RECORDSET DAO le cose funzionano un po'
meglio nel senso che l'errore non sempre si ripresenta.
Mi sapreste aiutare?? Ciao a tutto il NG da tronco21

 Mi sapreste aiutare??
Hai chiesto ai tuoi colleghi? <bg>

[*Bozu*=
tron...@inwind.it
] ha scritto:

In una parola, pur garantendo la coesistenza DAO e ADO, se usi l'uno non
usare l'altro. Punto.
Perchè? Perchè in M$ una stanza non parla con l'altra.

Newsgroup: it.comp.lang.visual-basic
Titolo: OT: Programmazione di word

Salve a tutti.
Premetto che ho guardato tutti le news dove poter indirizzarmi per il
problema che sto affrontando, ma non ho visto nessun gruppo che potesse fare
al caso mio.
Vorrei programmare una applicazione in word 2000, ma non so da dove
cominciare, cioè, da dove cominciare si, in quanto ho fatto un form sul
quale l'utente deve inserire dei campi testo, ma non so come inserire questi
campi all'interno del documento cioè come indirizzarlo in punti specifici
all'interno del documento stesso.
C'è nessuno che, mosso da pietà, possa indirizzarmi verso un testo o un
qualunque consiglio da darmi?
Grazie a chi vorrà rispondermi e scusate del tempo che vi ho fatto perdere.
Sergio

qualunque consiglio da darmi?
Nell'help di Word, cerca i segnalibri.
Ti consiglio il caro buon vecchio "Word Developer's Kit". E' vecchio:
risale alla versione 6.0 a 16bit ma non e' cambiato praticamente nulla
da allora --alla faccia dei commerciali di Microsoft :)--.
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 0.68, 152
  VBR - Vero Birro Romagnolo®, diffidate dalle imitazioni!
Nike Air Up Tempo Sad Walker -- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD
   On contrary of popular belief, Unix *IS* user friendly:
    it just appears to be selective who it is friend with
Newsgroup: it.comp.lang.visual-basic
Titolo: Ricerca con Change in COMBO BOX

Mi piacerebbe molto implementare all'interno di un mio progetto
l'utilizzo di combobox che ricercano l'elemento presente nella loro lista
mentre lo si sicrive si può fare?? COME??
ES: LISTA:
    123
    555
    76R
se dgt all'interno del combo 5 mi metta nel .TEXT 555
e magari 5 non selezionato mentre 55 è evidenziato.
GRAZIE ed A PRESTO
Ciao a tutti da Bozu

e magari 5 non selezionato mentre 55 è evidenziato.
Option Explicit
Private Declare Function SendMessage Lib "user32" _
    Alias "SendMessageA" _
    (ByVal hwnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) As Long
Private Const CB_FINDSTRING As Long = &H14C
Private Sub Combo1_Change()
    Dim nStart As Long
    Dim sText As String
    Static nLeftOff As Long
 
    If nLeftOff <> 0 Then
        Combo1.SelStart = nLeftOff
        nStart = nLeftOff
    Else
        nStart = Combo1.SelStart
    End If
    sText = Left$(Combo1.Text, nStart)
    Combo1.ListIndex = SendMessage(Combo1.hwnd, _
                    CB_FINDSTRING, -1, _
                    ByVal sText)
    If Combo1.ListIndex = -1 Then
        nLeftOff = Len(sText)
        Combo1.Text = sText
        Combo1.SelStart = 0
        Combo1.SelLength = Len(sText)
    Else
        Combo1.SelStart = nStart
        Combo1.SelLength = Len(Combo1.Text)
        nLeftOff = 0
    End If
End Sub
Private Sub Form_Load()
    Dim i As Long
    Combo1.Clear
    For i = 1 To 12
        Combo1.AddItem (MonthName(i))
    Next i
End Sub
-- 
ciao, hal

 wrote in message
htp9ivs2slahdts2o...@4ax.com...

Grazie Hal mi sei stato di IMMENSO aiuto e mi hai fatto risparmiare un SACCO
di TEMPO
GRAZIE !!! Bozu

Newsgroup: it.comp.lang.visual-basic
Titolo: modificare testo di statusbar

ho messo una status bar in basso, in un form.
vorrei che il testo venisse modificato ogni volta che col mouse mi muovo su
una toolbar, e cambiasse ovviamente a seconda del Button che è in quel
momento sotto il mouse.
vorrei inoltre che il testo della statusbar cambiasse anche quando "navigo"
tra le voci di menu...
il problrma è che non so che eventi intercettare, e neanche che oggetti
usare.
non esiste un oggetto "voce di menu" per cui ci sia l'evento "mousemove"
e non esiste l'oggetto "bottone di toolbar" per cui ci sia l'evento
"mousemove"...
secondo voi come risolvo la cosa?
grazie
MarioH

 wrote in message
news:9ml5j5$2ov11$1...@ID-70152.news.dfncis.de...


 info nella satus bar
sě, per la toolbar va bene, ma per i singoli pulsanti? come faccio a sapere
su quale pulsante della toolbar mi trovo?
l'oggetto toolbar ha l'evento mouse move, ma non ce l'hanno i singoli
pulsanti...
e poi per le voci di menu... lě non esiste manco l'oggetto... ::))))
MarioH
Newsgroup: it.comp.lang.visual-basic
Titolo: grazie Steo, ma ....

ho scaricato dal suo sito il programmino per il codice fiscale e l'ho
trovato molto interessante, però mi da un errore alla riga :
    Set DB = OpenDatabase(App.Path & "\" & "Comuni.mdb", False, False)
dicendomi che il controllo ActiveX non è in grado di eseguire l'operazione e
di conseguenza tutto il resto a partire da
    Set COMUNI = DB.OpenRecordset("Comuni") .....
va a farsi friggere.
c'entra il fatto che ho solo VB5 LE ?
Ho ovviato il problema passando tutto sotto Access con le adeguate modifiche
e quindi ho constatato che il programma funziona, però se qualcuno mi spiega
cos'è che non va lo ringrazio molto.
ciao
--
Stefano "Tita"
togli la  PRIVACY per rispondere

Prova cosě e assicurati se c'č una pw o no:
  Set Db = OpenDatabase(app.path & "\Nome.mdb", False, False, "Pwd:
Password")
Se non va Prova cosě:
DataBase = app.path & "\Nome.mdb"
Set Db = OpenDatabase(DataBase, False, False, "Pwd: Password")
ciao Luciano

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

Ciao utilizzo VB 6.0
Non riesco a capire come si inseriscono gli items in una TreeView, non so
come si inseriscono le roots, insomma tutte quelle stringhe che compaiono
nella treeView.
Potete aiutarmi???




 wrote in message 7u1mdj$arb$1...@fe1.cs.interbusiness.it...


 wrote
