mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Suoni di sistema

Come faccio ad identificare il file .wav associato (eventualmente) ad
ogni evento di sistema, tipo avvio di windows, arresto critico e così
via? Pensavo fossero in win.ini, ma esiste una sezione [Sounds] con
solo "SystemDefault=,".
--
DoS :: 
dos...@hotmail.com
«Non la forza, ma la costanza
di un alto sentimento fa gli
uomini superiori», Nietzsche

PlaySound()
-- 
Posted from 
smtp.technorail.com
 [195.103.144.19] (may be forged) 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

PlaySound()
Grazie... io voglio capire qual è il nome del FILE WAV associato ad
ogni evento, poi riprodurlo lo so fare.


ogni evento, poi riprodurlo lo so fare.
... e leggere la documentazione di PlaySound() ?
ciao, hal

a che ti serve?
comunque:
HKEY_CURRENT_USER\AppEvents
and have fun


 ha scritto:

--


l'indicazione dei file sonori
Hai ragione, ho letto male il tuo post, ero completamente fuori tema.
I beg your pardon :-(
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: trovare un oggetto dal Tabindex

Esiste una funzione che dato in indice (tabindex,index,tag) mi restituisca
il relativo oggetto nella Form ?
Successivamnte dovrei modificare il contenuto di tale oggetto (textbox)
come posso fare?

usa la collection Controls del form e te la fai tu....
For Each i in Me.Controls
    If i.TabIndex = IndexCheVoglioTrovare Then
        Msgbox i.Name
    End if
Next
adattala e vedi che funziona.....
good coding!!!
-- 
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262

 ha scritto nel messaggio
news:bjngoe$kuhc9$1...@ID-134521.news.uni-berlin.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: Come utilizzare una penna ottica ?

Devo realizzare un programma di fatturazione che usi la penna ottica.
Qualcuno sa dirmi se ci vuole un OCX a parte ? Se si dove posso trovarlo.
Ringrazio anticipatamente chiunque voglia rispondermi.
Vito.	

Credo che sia sufficiente il software fornito con la penna.
Ciao

La maggior parte delle penne ottiche simula l'input da tastiera come se
l'utente avesse digitato i codici.
~~~~~~~~~~~~~~~~~
Adriano Ghezzi
Avion Sistemi Srl
mailto:
agh...@isp.it
http://www.isp.it
Vito Casulli ha scritto nel messaggio <01bd717c$75ae9120$a5c067c3@vito>...


Esiste una penna ottica in emulazione di tastiera ... quindi nessun problema
Passo



I lettori di barcode funzionano o in emulazione di tastiera o via RS232.
Dunque ti dovrebbe bastare, nel secondo caso, il normale supporto per le
comunicazioni seriali. Ad esempio i modelli Datalogic che conosco io
comunicano senza handshake da 1200 a 9600 bps 7E1, e si puo scegliere
un protocollo di comunicazione molto semplice. Piu' problematica e' la
creazione dei barcode..

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

Ciao a tutti,
vorrei creare un'applicazione collegata ad un database di contabilità che,
alle scadenze che io avrò impostato nel database, mi avverta con un
messaggio all'avvio del computer oppure anche durante l'utilizzo dello
stesso.
Ho guardato nel Sito Comune ma purtroppo non ho trovato nulla che mi possa
aiutare.
Grazie.    Eugenio.

stesso.
Ti serve un prg, il piu' snello possibile, che venga lanciato
all' avvio da windows (sul come ci sono parecchi recenti post al
riguardo), esegua quello che hai in mente e si termini.
Come vedi, niente di trascendentale.
Ciao
Aldo

riguardo), esegua quello che hai in mente e si termini.
Concordo pienamente.
Visto che si parla di roba snella, pero', penso che la farei piuttosto
in Delphi piuttosto che in VB... :)
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro RomagnoloŽ, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-IV --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD

Newsgroup: it.comp.lang.visual-basic
Titolo: Lettura di valori Null

VB6 non mi legge i valori NULL dal database. Mi restituisce un errore di 
runtime: codice 94
La connessione č realizzata tramite ado
Grazie,
Alessandro 

If not isnull(Campo) then
    variabile=Campo
else
    'Vedi un po' tu
endif
Oppure solo se è una stringa:
variabile=Campo & ""
Ciao, Sauro

Newsgroup: it.comp.lang.visual-basic
Titolo: vb e fax

Come posso inviare fax in automatico con VB.
Grazie

 ha scritto nel messaggio
news:eT06e4a...@cwnts22.ciaoweb...

Newsgroup: it.comp.lang.visual-basic
Titolo: [ot] mysql

Ciao a tutti, so che avrei dovuto porre la domanda in un newsgroup di
database, ma quando posso chiedo qui perchè è l'unico che frequento e ci
trovo gente molto in gamba, in più mysql ho visto che è abbastanza
conosciuto anche qui.
La mia domanda comunque è molto semplice, esiste un interfaccia per mysql un
po più user-friendly che non quella a carattere che ha?io non ho trovato
niente ma magari qualcuno di voi sa darmi qualche dritta.
grazie, ciao.


http://www.mysql.com/downloads/index.html
Graphical clients
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

Io personalmente mi trovo molto bene con il Control Center (lo puoi
scaricare dalla home di MySql)...
Saluti,
Federico

adesso provo, grazie mille a tutti e due.
Newsgroup: it.comp.lang.visual-basic
Titolo: Creare un collegamento ad un programma sul desktop

Carissimi,
stò tentando disperatamente da qualche giorno di realizzare un
programmino in vb5 che, tra le tante cose, mi permetta di creare un
collegamento ad un programma sul desktop.
Ho preso come riferimento i molti esempi riportati su rete che nella
totalità dei casi consigliavano di realizzare la procedura che di
seguito riporto:
Public Declare Function fCreateShellLink Lib "VB5STKIT.DLL" _
    (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, _
    ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As
Long
Sub main()
     ret = fCreateShellLink("..\..\Desktop", "Blocco Note",
"C:\WINNT\Notepad.Exe", "")
End Sub
Quando compilo ottengo:
            run-time error '53'
            File not found: VB5STKIT.DLL
Ciò dovrebbe far capire che questa libreria non è "vista" tra i
riferimenti e allora tento di inserirla tra questi, punto alla libreria
in oggetto che mi trovo in una cartella di installazione di VB e la
seleziono... ottenendo:
            Can't add a reference to the specified file
Dirvi che sono completamente disperato è poco!!!
Spero nell'aiuto di qualche "anima buona".
Un saluto a tutti.
Lino
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

www.it-lang-vb.net
  scarica FileSuite.
E' un programma che ho fatto io. Se vedi i sorgenti di Winpak, noterai un
menů con "crea collegamento sul desktop". Usa quel codice.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
"Seminate Linux, che Windows si pianta da sč...." (Antico Adagio)
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it

 bye
Perdonami ma non riesco il codice che mi interessa.
Gentilmente potresti indicarmi precisamente il file da visionare????
Un grazie di cuore!!


 Un grazie di cuore!!
Hai gia scaricato questo file?
http://www.it-lang-vb.net/download.asp?file=http://www.riolo.org/Archivio/Sorgenti/FileSuite.zip&ID=646
il file da aprire è "winpak.vbp" contenuto nella cartella winpak.
vedi il menù "opzioni" del form "frmmain".
Il codice è già tutto scritto.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
"Seminate Linux, che Windows si pianta da sè...." (Antico Adagio)


 bye
Con calma dò un'occhiata e ti faccio sapere.
Grazie 1000000000 di volte.


End Sub
Quel path relativo e' quasi certamente la causa dei tuoi problemi.
-- 
ciao, un hal di passaggio

 Quel path relativo e' quasi certamente la causa dei tuoi problemi.
Qualunque path relativo, prima o poi, finisce con l'essere causa
di innumerevoli problemi ;-).
Bye, G.
-- 
Fanculizza e dimentica. Nel killfile nessuno puo' sentirlo urlare.
Thorin (naturalmente).
Newsgroup: it.comp.lang.visual-basic
Titolo: Sintassi VbProperCase

Ciao a tutti.
Nell'help oltre a vedere che esiste non ho trovato
nessun esempio.
Ho provato:
text1.text = format (text2.text, VbProperCase)
ma non mette le maiuscole all'inizio delle parole
e nemmeno mi segnala errori di sintassi.
Why?
_____________________________________________
James Tiberius Kirk, matricola SC 937-076 CEC
  Nato a Riverside, nello Iowa, USA, Terra
            il 1277.1 (26/03/2233)

 Why?
anch'io mi sbaglio sempre, l'ultima volta mi ha corretto faber:
s = s & StrConv(Left$(sSelectDrive, iSlashSpot), vbProperCase)
sul perche' format non dia errore, misteri microsoft.
anzi, scusa: MicroSoft.
ciao, a.

 ha scritto nel messaggio
news:9jq6fm$12hbf$1...@ID-51318.news.dfncis.de...


 forse già lo sapeva
lo sei stato anche per pal -- grazie :)

Newsgroup: it.comp.lang.visual-basic
Titolo: Api Midi

Salve a tutti!
Vi è capitato di vedere il file Midismpl?
Se si, qualcuno mi potrebbe spiegare
come vengono determinati i parametri di
MidiOutShortMsg?
( Quello che non riesco a capire è  midimsg = &H90 + ((baseNote + Index) *
&H100) + (volume * &H10000) + channel
   midiOutShortMsg hmidi, midimsg)

primo byte
Canali da 1 a 16 in base (0) ossia da 0 a 15 + 144  (H90)
secondo byte
nota cromatica { 0,127 , in teoria } pianoforti { 21/108 }
terzo byte
volume { 0,127 , in teoria }
in un messaggio unico, da cui l'uso dei moltiplicatori.
ciao
Mauro Mastropasqua ha scritto:


 ciao
Intanto grazie...
Ho dato un'occhiata al protocollo MIDI  e c'è da divertirsi un bel po'...
Poi:
Sapresti dirmi qual'è il modo in cui la cosa funziona?
Cioè, in base a cosa il valore del secondo byte va moltiplicato per &H100 e
non per un altro numero?
La guida di Visual Studio dice che il valore del messaggio è una
DOUBLEWORD, codificata come segue:
dwMsg
MIDI message. The message is packed into a doubleword value with the first
byte of the message in the low-order byte. The message is packed into this
parameter as follows: Word Byte Usage
High High-order Not used.
 Low-order The second byte of MIDI data (when needed).
Low High-order The first byte of MIDI data (when needed).
 Low-order The MIDI status.
ma poi non mi dice come va packata ( o non l'ho capito?)
Grazie in anticipo
Mauro

Newsgroup: it.comp.lang.visual-basic
Titolo: prog di Bari

Qualcuno di voi è di Bari ?

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Informazioni sulla Tool-Bar

Ho inserito un bottone Drop-Down nella mia Tool-Bar, ma non ho capito, se è
possibile, come inserire delle immagini per gli elementi della lista.
Grazie a tutti.
Ciao, Claudio.
--------------------------------
Inviato via 
http://usenet.iol.it


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] come agganciare "al volo" una dll activex?

Salve, sto sviluppando un piccolo programma per distribuire gli
aggiornamenti software.
Il funzionamento è il seguente: l'utente scarica ed esegue un file zippato
(.exe) che contiene al suo interno i seguenti file:
aggiorna.exe
aggiornamento.dll
programma.exe
il file autoestraente decomprime i tre file in una cartella temporanea e
lancia automaticamente il file aggiorna.exe
a questo punto il file aggiorna.exe deve utilizzare la dll
aggiornamento.dll!
come faccio ad agganciarglela al volo?
GRAZIE

 aggiornamento.dll!
Basta che come prima cosa il programma registri la dll, con regsvr32.exe
oppure chiamando la RegisterServerDll (se ricordo bene il nome) contenuta
nella dll stessa.
Ciao
--
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

Newsgroup: it.comp.lang.visual-basic
Titolo: Informazioni su sto benedetto controllo INET

Vorrei proporre all'attenzione di tutti i componenti del NG.  il seguente
quesito.
Questa è la sub che ho implementato per poter trasmettere un file in un
apposito FTP, comunque la connessione non avviene, e il prog. si pianta.
Potreste cortesemente darmi delucidazioni su sto benedetto controllo "inet",
e su come impostare sintatticamente la sub? perchè io dopo vari tentativi ho
rinunciato.
Private Sub mnuInvioTcpIp_Click()
    Dim UrlFtp As String
    Dim sendFTP As String
    sendFTP = "/Cassiopea/prova.mdb"
    UrlFtp = "
ftp://255.255.255.255/Cassiopea
"
    Inet1.OpenURL (UrlFtp)
    Inet1.UserName = "Cucurullo"
    Inet1.Password = "Pincopalla"
    MsgBox "stabilire contatto?", vbInformation
    Inet1.Execute UrlFtp, "Put gsDatabase sendFtp"
End Sub
Ringrazio anticipatamente tutti coloro che vorranno aiutarmi!

Come suggerito nello help devi inserire nel codice prima le linee
relative a UserName e PAssword e poi OpenURL!
Spero funzioni!!
maxx 


E' possibile che il problema sia relativo alla sintassi della riga
seguente??


...


Newsgroup: it.comp.lang.visual-basic
Titolo: Compact Disc Sorgenti

Causa passaggio ad hobby differente (montaggi video), vendo un compact disc
pieno di sorgenti, controlli, applicazioni e documentazione riferita  a
visual basic (caricati da internet in due anni e ordinati), a lire 50.000
comprese le spese di spedizione.
contattami al 
ste...@globalnet.it

Se ne vendessi pių copie, guodagneresti di pių...

 Se ne vendessi piů copie, guodagneresti di piů...

...

Passaggio hobby differente?
Cos'è? Una roba tipo "vendo moto causa inutilizzo"?
Ciao

 wrote in message 8ejmh3$guu$1...@nslave1.tin.it...


Perchè non mandi un elenco delle cose principali?
GG
Newsgroup: it.comp.lang.visual-basic
Titolo: usercontrol

ho creato un usercontrol che ho chiamato "pagina";
ora ho bisogno di trovare un modo che identifichi in modo univoco (sotto
forma di stringa o numero)
gli usercontrols (pagina1, pagina2...) che inserisco nella form del
programma.
In pratica l'usercontrol "pagina" deve creare un file, ma
se metto piu di un usercontrol il nome x il file scelto rimane uguale;
vorrei quindi un aiuto per creare automaticamente nomi diversi per ogni
usercontrols.
Una volta messi nella form principale questi UC assumono nomi diversi
"pagina1" "pagina2" etc
ma ovviamente il nome del file resta uguale;
volevo usare qualcosa del tipo:
i$ = pagina.Name
grazie a tutti e sopratutto a chi mi aiuta....

 ha scritto nel messaggio
news:9fb1d.243554$OR2.11...@news3.tin.it...



allora...non riesco a farlo funzionare...
in:
Private Sub UserControl_Initialize()
Label5.Caption = Extender.Name
end sub
mi porta errore 398 : sito client non disponibile (???)
se scrivo:
Private Sub UserControl_Initialize()
Label5.Caption = 
pagina.Extender.Name
end sub
dove pagina è il Name del mio UC...
mi porta errore 424 : necessario oggetto
mi aiuti ancora?
non c'è un modo ad esempio per leggere la posizione in memoria degli UC
usati?
a me basta solo far capire al progr pincipale che si tratta "pagine"
diverse...


Il metodo migliore č quello descritto sopra che si avvale della proprietą
Extender.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vb98/html/vbobjextenderobject.asp
Bye
Raf

ti ringrazio molto...ho usato l'evento paint
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Connectionstring con ADO

Salve a tutti,
per i miei pgm VB6 di solito utilizzo una base dati Access97 / 2000 e mi
connetto con ADO cosě:
    Set cConn = New ADODB.Connection
    cConn.ConnectionString = "DRIVER=Microsoft Access Driver  & _
(*.mdb);UID=admin;PWD=;UserCommitSync=Yes;Threads=3;SafeTransaction=0;PageTi
meout=5; & _
    MaxScanRows=8;MaxBufferSize=2048; & _
    FIL=MS Access;DriverID=281;DBQ=" & sPercorso
    cConn.Open
Diventa un po complicato perň quando devo collegarmi a dati Pervasive:
-    mi connetto tramite ODBC ai dati pervasive e poi COLLEGO le tabelle in
un DB Access e utilizzo ADO come sopra.
Se volessi connettermi (sempre con ADO) direttamente agli ODBC (magari
facendo delle SELECT tra le varia tabelle) come dovrei fare??
Grazie a tutti, mi fareste un grande piacere rispondendomi.
Ciao.
Paolo.


:-(
Hai i driver Pervasive o stai usando l'accesso a btrieve fornito da Access
fino alla 97?
Che versione usi di btrive pervasive?
Se hai i driver Pervasive, perchè non usi direttamente il provider Microsoft
Odbc e i driver Odbc di Pervasive?
Provider=MSDASQL.1Files
Non ho qui driver Pervasive btrieve, per cui non posso costruirti una
stringa corretta, ma, al limite fai così:
1) Crea un nuovo progetto vuoto
2) Aggiungi una Dataenvironment
3) Proprietà della Dataenv: Provide Microsoft Odbc
4) nella scheda "connessione" scegli "utilizza stringa di connessione"
5) costruisci col wizardino la tua connection al database Pervasive
6) Chiudi la Dataenv
7) nella finestra immediata scrivi ? dataenvironment1.connection1
8) et voilà... la trua stringa di connessione...
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: Parametri alla Form_Load

Ciao a tutti,
vorrei sapere se č possibile passare una variabile ad una routine evento di
VB.
Ad esempio vorrei una routine che invece di:
Private Sub Form_Load()
Sia
Private Sub Form_Load(Optional scelta As Integer)
E quindi dentro la form Load comportarmi diversamente se passo questo
parametro.
E' possibile farlo?
Qual'č l'alternativa piů pulita?
Grazie

 Grazie
gli eventi non credo che tu li possa modificare....
anche in net sono override credo i metodi...un evento non credo....
ne puoi fare di nuovi...ma modificare gli esistenti...boh!
sistema migliore?
Property
e poi
un tuo Metodo o un po di if o select dentro l'evento che desideri
se invece è un metodo...fallo come ti pare
public sub MyLoad(quello che mi pare)

 un tuo Metodo o un po di if o select dentro l'evento che desideri
Scusa la niubbaggine, ma la property sarebbe quella:
Property SET .....?
Perchč ora come ora ho messo una variabile globale booleana, che setto a
true quando richiamo da un punto specifico e nella form load faccio:
if booleana=true then
  ....
else
  ...
endif
Dato che la cosa che devo fare non č complessa, forse č la via piů semplice
(la property non l'ho mai usata).
Grazie :)
Newsgroup: it.comp.lang.visual-basic
Titolo: Rdo/Dao/ODBC: Aiuto per favore

Ciao a tutti, vi presento il mio problema:
ho un applicativo che condivide una base dati access 97. Il di sco del
server è mappato e gli utenti leggono e scrivono sul server.
Questo è un applicativo che gestisce input da penne ottiche, ogni
pennata è un record in aggiunta.
Quando le postazioni di lavoro sono tante iniziano i problemi (da 8 in
su), dati non congruenti, rallentamenti... con 3/4 postazioni le
risposte sono immediate e la congruità dei dati buona.
L'applicativo VB5 scrive direttamente con il motore jet su access.
Fermo restando che secondo me inserire un SQL server dovrebbe
risolvere questi problemi vorrei sapere se, cambianto il programma,
(come primo step) quindi passando attraverso ODBC riesco ad avere
maggior sicurezza e migliori risposte oppure non cambia nulla.
Grazie a tutti
Attilio

maggior sicurezza e migliori risposte oppure non cambia nulla.
Credo che Il problema sia dovuto al solito blocco record di Access con
pagine di 2Kb.
Se vuoi passare a SQL non usare la ver. 6.5 che credo abbia lo stesso
problema.
ODBC invece dovrebbe peggiorare la situazione in termini di velocità
Auguri

Newsgroup: it.comp.lang.visual-basic
Titolo: vbSendmail.dll clsSendMail

Sto utilizzando in un vecchio progetto VB6 la dll e la classe citata in 
oggetto. Ho qualche difficoltà con SMTP nel senso che non so quali 
parametri configurare e come. Si tratta in particolare 
dell'autenticazione e della sicurezza.
 
Es. Aruba per il suo 
smtps.aruba.it
 vuole per la sicurezza della 
connessione: SSL/TLS
 
Non so a che voce della classe e con che valore impostare tale parametro.
 
Il codice che uso è corretto, infatti se uso un smtp di alice, 
out.alice.it
 su porta 25 che fa passare di tutto :)  va che è una delizia.
 
 
-- 
Gulp®
--
"Partimque figuras retulit antiquas, partim nova monstra creavit."
(La Metamorfosi - Ovidio)

 Non so a che voce della classe e con che valore impostare tale parametro.
 
Io all'epoca ne provai diverse, e l'unico modo di far funzionare anche
aruba, gmail, e pec varie fu fare un mini programma console in .NET a
cui passo i parametri su un file e lui manda l'email.
 
-- 
Freccia@Bulldozer63 :D

 
Chiedo troppo se ti chiedo tale mini programma?
Se ti è possibile invia a 
dr...@mail.com
 
 
In ogni caso grazie.


 In ogni caso grazie.
 
Purtroppo non essendo mia la proprietà del codice non posso, ma si trova
su internet con facilità:
http://dotnetmemo.blogspot.com/2011/04/c-vbnet-inviare-posta-certificata-net.html?m=1
 
 
-- 
Freccia@Bulldozer63 :D
Newsgroup: it.comp.lang.visual-basic
Titolo: -> non trovo l'msdn (http://msdn.microsoft.com)

mi sono collegato al sito *
http://msdn.microsoft.com
* x scaricare
MSDN,e consultare l'help online di VB6.
Ma come diamine si scarica?
Riesco solo a scaricare delle versioni di Internet Esplorer,ma di MSDN
nessuna traccia.
Ma che,forse fa parte di IE?
Insomma sarei grato se qualcuno mi desse una dritta
-- 
Rispondetemi solo sul NewsGroup. Grazie
   (il mio indirizzo e' alterato)

lele, msdn online e' l'intero sito.
a tempo perso avevo cominciato a scaricarlo con teleport. pero':
1. in certi casi richiede la registrazione del prodotto (questo non era un
problema).
2. comprati un hd da 6-12 gb da dedicargli, a occhio e croce.
3. preparati a lunghe attese. la velocita' degli http ms, a differenza degli
ftp, e' disastrosa.
4. spesso alcune parti, portate su hd, non vanno.
la cosa migliore che ho trovato, con le mie linee, e' consultarlo alle 2-3
di notte, quando la maggior parte degli italiani *e degli americani* e' a
nanna o comunque non sul lavoro.
<le...@no.spam> ha scritto


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

Ho riempito un unica area di una Picture con 5 immagini consecutive. 
Al termine di questo riempimento cerco di salvare l'area in un file
usando SavePicture, ma non riesco a salvare un fico secco.
Dove sbaglio ?
Grazie amici.
Bob

...

Probabilmente la Picture ha Autoredraw = false.
Prova a settarlo a true, così Windows copierà nell'hDC della picture il suo
contenuto.
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: Icone

Mi servirebbero per fare alcune applicazioni icone tipo Win 98 (Salva,
stampa, aggiorna, leggi) per posizionarle sui pulsanti delle applicazioni.
Dove posso trovarle?
--
Grazie
Gabriele F.
gab...@NOSPAMtin.it
Eliminare NOSPAM per scrivere

Dove posso trovarle?
www.winfiles.com
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
---------------------------------------------------------------------------

applicazioni. Dove posso trovarle?
In una delle cartelle create da VB quando lo installi...
Piu' semplice di cosi' non si puo' ;-)
DElyMyth.
-----BEGIN PGP SIGNATURE-----
Version: PGP 6.5.3
iQA/AwUBOVMFizrVvGrSrespEQLB8wCgi1vBg3JoeTM/pe6uC5fcZfhOTgUAoNxn
HUeM/Tqgp6L8j+vJulC4eFpj
=x9Kb
-----END PGP SIGNATURE-----

Dove posso trovarle?
Con un programma tipo PSP catturi le icone, anche tutta la toolbar con
capture object e poi le ricrei come bmp o gif (puoi catturare anche
con Alt+Stamp).
Sennò nel cd di vs, nelle dll o in qualche parte del mondo. Io ho
trovato quelle di W2k...

Mi servirebbero per fare alcune applicazioni icone tipo Win 98 (Salva,
stampa, aggiorna, leggi) per posizionarle sui pulsanti delle applicazioni.
Dove posso trovarle?
--


Dai un'occhiata su:        
www.download.com
Ciao By Gianni

 Dove posso trovarle?
Mah... Io ne ho una collezione di circa 620 che ho collezionato in circa 2
anni di programmazione VB. Non ricordo dove le ho trovate (molte le ho
estratte da altri prg) però se vuoi te le zippo (circa 1,6 MB decompressi) e
te le mando via email privatamente... Fammi sapere.
Antonio Mirarchi
Newsgroup: it.comp.lang.visual-basic
Titolo: Carattere apostrofo

Salve a tutti, ho un problemino con VBA di access 2000 ed è precisamente
questo:
Supponiamo di voler creare un recordset da da una tabella con SQL
es. : set rst=dbs.openrecordset ("select all * from clienti where cliente=
'"+variabile+"'")
tutto fila liscio fino al momento in qui l'utente non cerca un cliente
inserendo nella stringa di ricerca il carattere apostrofo (') che genera un
errore nella stringa SQL.
Essendo utente di Office Developer Tool Kit 2000 ho telefonato a Microsoft e
mi hanno risposto che office dtk 2000 e' stato ritirato dal mercato per
problemi e non possono dare assistenza (grazie ho appena speso più di
2.000.000 e mi dicono arrangiati).
Qualcuno di voi sa come si puo' aggirare il problema.
Ho già ovviamente inserito una gestione degli errori che mi intercetta il
problema ma mi sembra una schifezza non poter cercare la stringa " l'albero
" per esempio.
Grazie a tutti in anticipo.
Riccardo
rsan...@interfree.it

 " per esempio.
...potresti inserire un controllo degli errori che se trova un apice fa la
ricerca con le virgolette (chr(34)), e viceversa...
se le trova entrambe dici all'utente:
MsgBox "Uhè, ti sembra il caso?! Credevi di fregarmi eh? prrrrrrr",
vbInformation
:)
Faber

 la soluzione che accetta l'SQL per evitare il problema dell' apostrofo
..... è il doppio apostrofo.
Attenzione sono due apostrovi ( ' + ' ) e non le doppie virgolette (").
Function TrdApo(x As String) As String
'Toglie apostrofo per ricerca S.Q.L.
Dim N As Integer, StrA As String
x = Trim(x)
For N = 1 To Len(x)
 If Mid(x, N, 1) = "'" Then                'Attenzione qui " ' "
  StrA = StrA + "''"                         '                      " ' ' "
 Else
  StrA = StrA + Mid(x, N, 1)
 End If
Next N
TrdApo = StrA
End Function

 ha scritto nel messaggio
news:XIdz4.26500$O3.2...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con l'istallazione su windows 2000.

Lavoro con vb6
Ho creato un pacchetto di installazione di un mio programma che funziona
regolarmente su win98 e xp.
Dovendolo installare anche su windows 2000 devo risolvere il problema che si
presenta all'inizio: appare il messaggio -
"Alcuni file di sistema nel sistema in uso non sono aggiornati. Impossibile
continuare. Fare clic su OK per aggiornare automaticamente tali file. Prima
di rieseguire l'installazione č necessario riavviare Windows. Fare clic su
Annulla per uscire dall'installazione senza aggiornare i file di sistema."
Quindi facendo clic su OK il pc si riavvia, ma poi rilanciando il setup allo
stesso punto riappare sempre lo stesso messaggio. In pratica č impossibile
installare il programma.
Ringrazio anticipatamente quanti vorranno rispondere a questo messaggio!
Grazie!

 installare il programma.
Vedi anche i link interni:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;279764

 pratica è impossibile installare il programma.
E magari nel setup.lst c'è msvcrt?
Ciao
Alberto

 E magari nel setup.lst c'è msvcrt?
Giusto:
http://support.microsoft.com/default.aspx?scid=kb;IT;q191096

 wrote in message
b3kjfu$1nlus3$1...@ID-174464.news.dfncis.de...


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

Mi potete spiegare la differenza tra GlobalMultiUse e GlobalSingleUse?
Grazie
Simo

Per capire il termine Global devi prima capire la differenza tra SingleUse e
Multiuse.
SingleUse: Ogni nuova istanza delle varie classi che compongono il tuo
componente generano una nuova istanza del componente,questo giá ti fa capire
che SIngleUse é utilizzabile solo per componenti Out-Of-Process (.exe)
Multiuse: Tutte le istanze vengono invece fornite dalla stessa istanza del
componente, che puó essere sia In Process (.Dll) oppure Out-Of-Process(.exe)
Il termine Global fa si ache tu possa utilizzare i componenti senza dovere
necessariamente prima istanziarli, ovvero puoi usare le proprietá e i metodi
devi vari oggetti come se fossero funzioni instrinsiche a VB (In pratica
puoi estendere il linguaggio con tue funzioni custom).
Personalemte ti consiglio di evitare entrambe le soluzioni Global, quando
uso oggetti voglio averne il controllo totale senza che VB mi crei istanze
fantasma senza che io lo chieda.
Ciao,
Corrado

Newsgroup: it.comp.lang.visual-basic
Titolo: Vb.net Bloccare il Control e il tasto win

Come posso bloccare alcuni tasti ad esempio CTRL e il tasto windows?
Per il ctrl alt canc ho visto che in winxp basta modificare il registro ma
per questi tasti
vorrei che fossero bloccati solo quando è aperto il programma.
E' possibilie bloccare il puntatore del mouse?
Grazie in anticipo è importante.

 E' possibilie bloccare il puntatore del mouse?
non so se è corretto
1- costruire un puntatore trasparente
2- Forse la Proprietà Cursor.Clip
3- utilizzo dell'evento Form1_MouseMove
Ave
giuseppeD
---
CCR
Newsgroup: it.comp.lang.visual-basic
Titolo: Passaggio tra applicazioni

C'è qualche modo per rilevare se un utente è passato dal mio programma ad
un'altra applicazione, ad es. in seguito alla pressione di Alt-Tab?
Grazie
Lorenzo

La sparo: dovrebbe esistere evento lostFocus, verifica.

Newsgroup: it.comp.lang.visual-basic
Titolo: Funzione Dir

Salve a tutti!
Ho cominciato da poco ad usare la funzione Dir e
ho incontrato le prime difficoltà, ho scritto queste righe
per provare:
Debug.Print Dir("C:\Pippo\", vbDirectory)
Do
Debug.Print Dir()
DoEvents
Loop Until Dir() = vbNullString
E così speravo di recuparare i nomi di tutte le sottodirectory
di C:\Pippo, ma a quanto pare mi sbagliavo, alla fine infatti
mi viene fuori una lista che comprende alcuni file a caso
e due o tre dir su sette... Dove sbaglio?
Grazie mille a chi mi risponde!
--------------------------------------------
             ASSA
http://assatarram.yohoo.it
Napster: Assatarram3
it.comp.lang.visual-basic: Assa
--------------------------------------------

 it.comp.lang.visual-basic: Assa
Ti ha preso bene questo ng per metterlo in firma? :-)))
Adesso mi linciano.... o peggio mi squoiano dalle ocx...

 Loop Until Dir() = vbNullString
[SNIP]
l'errore' e' quello di usare Dir() anche come condizione di controllo del loop:
infatti ogni chiamata a dir senza parametri successiva a quella iniziale ritorna
un valore, facendo così per ogni stringa stampata nel debug te ne perdi una nel
"Loop until", devi usare una variabile:
Dim strDir As String
strDir = Dir("C:\Pippo\", vbDirectory)
Do
    Debug.Print strDir
    strDir = Dir
Loop Until strDir = ""
'cito dalla guida: "vbNullString [..] Non equivale a una stringa di lunghezza
zero ("")"
'sembra funzionare lo stesso ma non si sa mai...
c'e' ancora un altro piccolo problema, relativo al parametro vbDirectory; sempre
nella guida della funzione Dir trovi:
"vbDirectory Specifica le directory o le cartelle *oltre ai file senza
attributi*"
quindi potrebbero essere ritornati anche alcuni file nella radice "Pippo", che
vanno filtrati; la versione definitiva potrebbe essere circa così:
Dim strDir As String, strRoot As String
strRoot = "C:\Pippo\"
strDir = Dir(strRoot, vbDirectory)
'usiamo Do While perche' se la radice non ha sottocartelle evitiamo
'di stampare una stringa vuota come nel caso di "until"
Do While strDir <> ""
    If (GetAttr(strRoot & strDir) And vbDirectory) = vbDirectory Then
        'stampiamo solo le cartelle.
        Debug.Print strDir
    End If
    strDir = Dir
Loop
Ciao
--
Luca Dormio
luca....@tin.it

 "Loop until", devi usare una variabile:
[RICUT]
Grazie mille!


    strNewName = Dir("c:\pippo\*.*")
    Do While strNewName <> ""   ' Avvia il ciclo.
        ' ... tuo codice
       strNewName = Dir  ' Legge la voce successiva.
    Loop
Io faccio così per i file.
Prova a metterci il parametro vbDirectory dopo aver specificato il path.
CiaoZ
SebaMix
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Trovare dimensione di un file con funzioni API INET

Sto scrivendo il codice per scaricare un file da intenet con vb.
Visto che il controllo inet non mi permette (almeno ho avuto questa
impressione) di monitorare il trasferimento passo passo ho deciso di usare
le API INET come InternetReadFile() ecc.
Il codice principale che uso e' il seguente:
'----------- INIZIO CODICE ---------------------
Private Function DownloadUrlFile(IndirizzoUrl As String, _
        FileOutput As String) As Boolean
Dim hOpen As Long
Dim hOpenUrl As Long
Dim bRet As Boolean
Dim BufferDati As String * 2048
Dim sBuffer As String
Dim NF As Integer
On Error GoTo GetSourceErr
Dim NumberoByteLetti  As Long
hOpen = InternetOpen("VB OpenUrl", _
                INTERNET_OPEN_TYPE_PRECONFIG, _
                vbNullString, vbNullString, 0)
hOpenUrl = InternetOpenUrl(hOpen, IndirizzoUrl, _
            vbNullString, 0, _
            INTERNET_FLAG_RELOAD, 0)
NF = FreeFile
Open FileOutput For Binary Access Write As #NF
Do
    BufferDati = vbNullString
    bRet = InternetReadFile(hOpenUrl, _
                BufferDati, _
                Len(BufferDati), _
                NumberoByteLetti)
    DoEvents
    Put #NF, , Left$(BufferDati, NumberoByteLetti)
Loop While (NumberoByteLetti > 0)
Close #NF
If hOpenUrl <> 0 Then InternetCloseHandle (hOpenUrl)
If hOpen <> 0 Then InternetCloseHandle (hOpen)
DownloadUrlFile = bRet
Exit Function
GetSourceErr:
    Close #NF
    If hOpenUrl <> 0 Then InternetCloseHandle (hOpenUrl)
    If hOpen <> 0 Then InternetCloseHandle (hOpen)
    DownloadUrlFile = False
End Function
'------------- FINE CODICE ---------------
Mi sembra che funzioni bene il problema pero' e' che volevo inserire una
progressbar per visualizzare a che punto si e' del download e qui c'e' il
problema di scoprire in anticipo la dimensione complessiva del file da
scaricare.
So che con le funzioni FtpFindFirst/NextFile si puo' avere la dimensione di
un file ma mi risulta che queste funzioni agiscano solo su indirizzi di tipo
ftp: mentre io devo scaricare da http:
Come posso fare per scoprire la dimensione del file in anticipo?
ciao
Paolo B.


io ho usato la inet, con il comando size mi faccio arrivare la
grandezza del file e mentre copio controllo con la filelen a che punto
è arrivato della copia
Ciao Emanuele
______________________
Emanuele
TDM 850 93' "la scura"
Ts4n full ergal
Ipaq 3630 ppc2002

 è arrivato della copia
Ma il comando size si puo' usare anche per file su http?
Io quando ho provato inet ho notato che funzionava in modo sincrono col
metodo OpenUrl.
Potresti mostrarmi il codice che hai usato?
ciao
Paolo B.

Paolo B.



Ti ringrazio tanto :-)
ciao
Paolo B.
Newsgroup: it.comp.lang.visual-basic
Titolo: Intercettare tasto dx, e rotellina del mouse in VB6

Ciao a tutti, volevo chiedervi se era possibile e come si fa a intercettare 
la pressione del tasto destro del mouse (quindi un _click diverso per sx e 
dx), il muovere la rotellina su e giù e magari anche la pressione della 
rotellina e se possibile vorrei intercettare anche la pressione del quarto 
tasto che è presente sul mio mouse, il tutto su VB6 pro.
Posseggo un mouse logitech cordless e ottico.
è possibile tutto ciò?
Grazie.
Bye.
Katte.

per il tasto dx/sx vedi eventi mouseUp e MouseDown
per il resto mi sa che bisogna andar giů di API ....
CIAO

 Katte.
Ho avuto qualche tempo un problema simile su Access, volevo intercettare il
movimento della rotellina per impedire il cambio record
automatico/distratto...
sul sito di MSDN trovai la soluzione ben documentata
 si trattava di creare una classe che generi l'evento  e lo renda
disponibile alla form
 se credi che ti possa essere di aiuto ti faccio avere il codice che ho
usato
ciao Acia

 usato
...un codice che funziona con vba excel lo ho studiato anch'io (funziona
solo con il 2000/xp per via dell'operatore unario addressOf), ma mi crea
degli errori e dopo che ho chiuso il form una volta, non solo non riesco più
ad agganciare il giusto parametro (WM_MBUTTON....), ma addirittura mi blocca
l'esecuzione del programma.
Pertanto sarei interessato al tuo codice ringraziandoti in anticipo per il
tuo contributo.
ciao da ciccio

 ha scritto nel messaggio
news:t0SL8.13459$5i1.5...@news2.tin.it...

... purtroppo anche il mio è per access2000 ( MSDN docet) e se mi dici che
l'operatore addessof crea problemi.... non sto neanche a postartelo...
sicuramente usa la stessa logica
Acia
Newsgroup: it.comp.lang.visual-basic
Titolo: Collegamenti su Desktop e Menu Avvio

Ciao a tutti, come posso fare per creare un collegamento ad un eseguibile o
documento sul desktop o nel menů avvio?
Grazie

 wrote in message
YXuN7.203438$sq5.9...@news.infostrada.it...


 ha scritto nel messaggio
news:EmvN7.31108$4M2.7...@news2.tin.it...


 ha scritto nel messaggio
news:YXuN7.203438$sq5.9...@news.infostrada.it...

Prova questo:
       Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal _
        lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal _
        lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
      Dim Dip&
       Dip= fCreateShellLink("..\..\Desktop", "Collegamento a
NOMEPROGRAMMA", PERCORSOPROGRAMMA, "")
        lReturn = fCreateShellLink("\Esecuzione automatica", "Collegamento a
NOMEPROGRAMMA", PERCORSOPROGRAMMA, "")

 > documento sul desktop o nel menù avvio?


Questo è un esempio preso da api-guide.
Private Declare Function fCreateShellLink Lib "VB5STKIT.DLL" (ByVal
lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal
lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Private Sub Form_Load()
    'Create a shell link on your desktop
    lngresult = fCreateShellLink("..\..\Desktop", "LINK", "C:\myfile.exe",
"")
End Sub
Se ha vb 6,potrebbe essere presente solo il file aggiornato e quindi sarà
VB6STKIT.DLL
Ciao,
Alex
------------------
email: el_co...@TOGLIQUESTOlibero.it
icq: 132581870
------------------

 ha scritto nel messaggio
news:9u8i9d$6t1lr$1...@ID-83341.news.dfncis.de...


farmi avere qualcosa che funzioni.......
a parte il quoting --ca§§o--, una pasta e un cappuccino no?
il suo suggerimento e' un ottimo punto di partenza. scrivi il codice,
vai su una api e premi <f1>
buon divertimento.
hint: il desktop e il menu' avvio sono in una posizione diversa a
seconda dei sistemi operativi.
saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 0.71, 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

 a parte il quoting --ca§§o--, una pasta e un cappuccino no?
Scusa, eh, ma stavolta sono costretto a correggerti.
L'espressione esatta è: "Una fettina di c#10 magra, tagliata sottile,
e vicino all'osso, che è più tenera".
Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: Come chiudere Windows 9x

Come faccio a chiudere windows 9x da VB5?
    Ciao
Gabry
--
----------------------------------------------------------------------------
---------------
Per le EMail senza allegati: 
ga...@freemail.it
Per quelle con allegati: ga...@SoftHome.net
Con un messaggio su 
ga...@freemail.it
 con subjet :file inviato
----------------------------------------------------------------------------
---------------

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Dim r As Long
r = ExitWindowsEx(*, 0&)
dove per asterisco di intende una delle costanti sopra.
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

Newsgroup: it.comp.lang.visual-basic
Titolo: SharpZipLib + VB.NET + Trend Micro

Salve a tutti,
ho un problema di questo tipo. Ho sviluppato un'applicazione in vb
2005 che comprime i file (SharpZipLib) e poi l'invia in allegato ad
una mail. Fin qui tutto ok. Il problema è che trend micro non permette
l'invio di questi file; torna indietro un messaggio dicendo che
l'allegato contiene il virus "compression_huge_file" e pertanto è
stato cancellato. Invece se comprimo i file manualmente, tramite
winzip o winrar, Trend micro non crea nessun problema. Premetto che i
file creati manualmente e quelli tramite riga comando hanno lo stesso
nome.
Qualcuno saprebbe aiutarmi?...grazie anticipatamente...

Io uso SharpZipLib e non riscontro alcun problema, anche nella 
compressione di fil da 50MB (uso però Avast come antivirus).
Nicola
moll...@libero.it
 ha scritto:


 compressione di fil da 50MB (uso però Avast come antivirus).
Curiosità personale: perché vi appoggiate a librerie esterne e non usate il
namespace System.IO.Compression con le relative funzioni ? Ho sviluppato un
layer per web services che serializza i dataset, li comprime/decomprime con
la gestione degli GZipStream trasferendo dati binari, trovandomi benissimo.
Ciao
PaF

PaF ha scritto:

Io uso entrambi i metodi... dipende da cosa devo fare.
La SharpZipLib altro non è che una libreria che sfrutta il namespace 
System.IO.Compression con in più tutta una serie di gestioni automatiche 
dei file (ad esempio vi è già implementata la gestione degli zip e così 
via). E' molto comoda quando si devono comprimere/decomprimere vari file 
in un unico archivio.
Il System.IO.Compression lo uso invece quando devo comprimere un flusso 
di dati che voglio trasferire, senza andare a salvarlo in un file. 
Oppure lo uso quando voglio comprimere un singolo file con estensione gzip.
Nicola
Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO!! Problemi di installazione

Spero che qualcuno possa aiutarmi in maniera indolore a risolvere questo
problema. Stiamo sviluppando un'applicazione in VB5 (nessun service pack
installato). Tale applicazione funziona perfettamente sulle macchine di
sviluppo, ma, al momento di utilizzare il Wizard per creare il setup, ci
ritroviamo con la segnalazione che, per  un paio dei nostri OCX,
l'autocomposizione non riesce a trovare dependencies. Ignorato tale
messaggio, vengono creati i dischetti di setup, ma , una volta installato
su una macchina 'pulita' l'applicativo non funziona, dandomi un ERROR 380,
indicante una property o un metodo che il sistema non riconosce per qualche
OCX (presumibilmente uno di quelli indicati). 
Qualcuno che e' gia' incappato in questo problema è in grado di suggerire
un sistema per ovviare a questo inconveniente? Oppure far vedere al setup
wizard le dependencies (che devono esistere, visto che gli OCA ci sono ed
il programma funziona sulla macchina di sviluppo), o dirmi cosa toccare,
anche eventualmente ocn un text editor nei files del progetto
Per ora, grazie

 wrote:

Ciao, 
sarebbe utile sapere quali sono gli OCX in questione.
Potresti contattare gli autori per avere il file .DEP.
Oppure puoi aggiungere manualmente i files necessari (si fa
nell'ultima schermata del Setup Wizard.
In alternativa puoi crearti il file di dipendenze.
Se ti può servire ti allego ciò che mi hanno scritto quelli della APEX
per il True DBGrid 4.0e:
You should just be able to add the lines below to your VB5 Setup
Wizard
dependency file.  If you have installed VB5 into the C:\VB5 direcotry
on
your machine, this file will be:
C:\VB5\SETUPKIT\KITFIL32\VB5DEP.INI
If you installed VB5 into a different directory, adjust the file path
given above accordingly.
The lines you need to add to this file are:
[TDBG32.OCX]
Dest=$(WinSysPath)
Register=$(DLLSelfRegister)
Uses1=MFC ocx Runtime Support
In case you are interested, the files required for MFC OCX runtime
support are also given in this file, under the following entry:
[MFC ocx Runtime Support]
Dest=$(WinSysPath)
Uses1=OlePro32.dll
Uses2=MFC40.dll
Uses3=MSVCRT40.dll
Ciao
--------------------------------------------------------------------
Fulvio Senore
Eliminate "zz" dall'indirizzo e-mail per scrivermi (spammers...)
Remove "zz" from e-mail address to write me (spammers...)
--------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: environ

com'e' possibile ottenere via codice l'elenco delle var in environ ?
grazie, a.

 com'e' possibile ottenere via codice l'elenco delle var in environ ?
   Dim r As Integer
   Dim sVarEnv As String
   Dim sTotVarEnv As String
   For r = 1 To 256
       On Error Resume Next
       sVarEnv = Environ(r)
       If Err > 0 Then Exit For
       If sVarEnv = "" Then Exit For
       sTotVarEnv = sTotVarEnv & sVarEnv & vbCrLf
       On Error GoTo 0
   Next
   Debug.Print sTotVarEnv & vbCrLf & "Variabili d'ambiente totali = " & r -
1
Ciao
*Roby*

 1
Ahem, meglio spostare l'On error goto 0 dopo il Next. Anzi, è probabile che
addirittura la gestione dell'errore non serva a nulla, l'ho inserita solo
per scrupolo.
Ciao
*Roby*

 ha scritto
grazie, funziona benissimo.
ciao, a.

Newsgroup: it.comp.lang.visual-basic
Titolo: Errore di installazione: can't find dll entry point create in kernel32 visual basic windows nt

Ho provato ad installare un mio programma (compilato in vb6 su pc con
windows millenium)su un computer con sistema operativo windows nt, ma
al momento della copia dei diversi file segnala il seguente problema:
can't find dll entry point Create T oolhelp32s napshot in kernel32.
Premettendo che su altri sistemi operativi l'installazione è andata a
buon fine, da che può dipendere tale problema?Grazie

buon fine, da che puň dipendere tale problema?Grazie
Concludendo che le premesse si fanno all'inizio e non alla fine
(altrimenti non sono piu' PREmesse ;-) non mi sembra un problema di
setup.
-- 
ciao, un hal di passaggio
Newsgroup: it.comp.lang.visual-basic
Titolo: Icona Introvabile

Mi collego alla rete tramite Modem NETGEAR FA311 collegato alla LAN.
Quando il PC esegue la connessione ad internet nella tray appare
un'icona che rappresenta due monitor sovrapposti. Durante la connessione
c'e' una piccola animazione, quindi l'icona mostra i due monitor, quello
davanti sempre acceso mentre quello dietro si accende e si spegne in
relazione all'attivita'.
Ho bisogno di sapere quale e' il file che contiene questa(e) icona,
nella SHELL32.dll non c'e'.
Sto facendo un programmino in VB6 che dovrebbe rilevare la presenza
della suddetta icona.
Grazie, Roby.
-- 
*** Ti piace Piccante? 
www.PeperonciniPerHobby.it
 Facci un Giro! ***

della suddetta icona.
se dici che windows usi e se fornisci un mini screen shot della situazione
ti si aiuterebbe meglio
sicuro poi che il file non sia di uno di quelli del modem netgear,
entrato magari con una installazione (esempio 'usb')?
comunque le icone animate come potrebbe essere la tua 
(come la lente che gira sulla cartella quando usi 'Cerca' su w98)
stanno in Windows da un altra parte, che però adesso non ricordo dove
e non ricordo nemmeno su quale versione di Windows le avevo viste 
poi a me sembra che vedere se una icona c'è o non c'è 
non sia il modo migliore per capire se sotto Windows 
sta succendendo qualcosa;
con i comandi tradizionali di VB6 non riesci a capirlo, ma con le API
riesci sicuramente a capire 
se ci sono delle connessioni in corso o anche se un determinato processo è
in esecuzione...
se prorio vuoi partire dalla presenza di questa icona e non hai altro,
puoi provare a prendere tale icona con la Api GetClassLong ed il parametro
WM_GETICON, 
se non ricordo male (passando anche l'handle della finestrella dove si
troverebbe), 
poi la disegni in memoria, fai un confronto pixel-pixel con una che avrai
preso da un suo screenshot
e se i pixel corrispondono l'hai trovata, (se è una animazione, devi
considerare tutte le icone 
della animazione), ma è l'ultima spiaggia (dopo c'è solo dj francesco)...

 della animazione), ma č l'ultima spiaggia (dopo c'č solo dj francesco)...
Ah, no. Piuttosto che DJ Francesco, preferirei mettermi io lě
di persona a vedere se c'č l'iconcina.
Bye, G.