mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: I metodi di Inet

Sapete dirmi per cortesia se il controllo Inet possiede un metodo che possa 
determinare ad esempio la conclusione dell'invio di un file tramite FTP ?
Mi spiego.
Utilizzo il controllo Inet per trasferire, tramite il metodo Execute, un 
file su un server WEB.
Nessun problema solo che vorrei essere "avvisato" quando la trasmissione 
del file si č conclusa.
Sapete dirmi come fare?
Grazie.

 Sapete dirmi come fare?
Private Sub Inet1_StateChanged(ByVal State As Integer)
  If State = icResponseCompleted Then
     msgbox "operazione completata"
  End If
End Sub
un esempio di FTP con il controllo inetto su:
http://vbsimple.virtualave.net/cliserv/003.htm
--
Fibia "non è mia colpa mia" 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

 del file si è conclusa.


Ciao,
sembra che al momento ci siano in via di sviluppo un paio di
versioni diverse di client ftp :) Uno lo stò facendo anche io...mi serve
per fare una cosa strana che mi è venuta in mente...mi porterà un sacco di
soldi :))))
Comunque, se cerchi sulla guida "Errori intercettabili del
controllo Internet Transfer" apparirà come per magia una lista di tutti gli
errori e non del controllo inet; vale comunque la pena di guardarla. Su
quella pagina, se clicchi su "vedere anche" (e ancora "vedere anche")
clicca su "Controllo trasferimento Internet" e buttaci un occhio che, oltre
a fornirti i comandi ftp, ci sono anche degli esempi di come usare i
metodi.
Mi soffermo su alcuni errori che vale la pena provare, uno in
particolare nella descrizione riporta:
Qualcosa si bloccherà
hehehe
io sono un seguace Microsoft...però certe volte se le cercano eh :))
Saluti...
--------------------------------
Inviato via 
http://usenet.iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Copia di tabelle access

Devo scrivere una procedura che copi una tabella da un database
access ad un altro. Tale procedura deve funzionare sia con Access 2 che
con Access 2000. C'è un metodo per effettuare una copia da un mdb ad un
altro senza dover ricreare la struttura nel nuovo database e copiare tutti i
dati???
In caso che non esistesse qualcuno sa come copiare la definizione della
tabella
in Access 2 (dato che non funziona)
Grazie
©pEIO

 copiare tutti i dati???
Vedi Select Into ...

 ha scritto nel messaggio
news:bq23i7$1tpona$1...@ID-174464.news.uni-berlin.de...

Select Into Cosa??????
La tabella nel nuovo mdb non esiste!!!! :o(

 La tabella nel nuovo mdb non esiste!!!! :o(
Appunto, la crea.


grazie 1000.
Ciao
©EIO
Newsgroup: it.comp.lang.visual-basic
Titolo: Connection with SQL

I can´t make a connection between VB an SQL, when I try it an error
appears about the provider, I already included SQL on the ODBC. What
can I do?


Can you show us the ConnectionString?
ciaociao

the connectionstring a asume its correct because I've already used it
in other PC but when I try it in a laptop, the connection can be
ended, anyway the string is:
"provider=SQLSERVER.1;Integrated Security=SSPI;Persist Security Info=
False; Initial Catalog= SIDA; Data Source= Netvista"
where my database is SIDA and my server (my pc) is Netvista


try with OLEDB provider:
Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;Initial
Catalog=SIDA;Data Source=Netvista
bye

Newsgroup: it.comp.lang.visual-basic
Titolo: cerca una parola in una cella di un campo, di una determinata tabella e mettila in una variabile.......

Un saluto al NG
la mia esigenza è questa:
Lavoro sullo stesso DB di access
da una casella combinata seleziono ad es. il nome "Mario"
La tabella che contiene i dati si chiama "Personale" ed è composta da 3
campi:
Nominativo|Mansionelavorativa|LuogoLavoro
____________________________________
    Mario   | operaio                   | Magazzino
    Luca     | impiegato                | ufficio
qual'è la sintassi esatta per dire:
cerca la parola "mario" nel campo "Nominativo" della tabella "Personale"
metti la parola "Mario" nella "VariabileNominativo"
In corrispondenza della prima parola cercata devo poi posizionarmi sulla
parola nella cella adiacente e cioè "operaio" e metterla nella
"VariabileMansioneLavorativa"  e così via nei campi che decido io.
Tutto questo per ottenere da una parola chiave,  un indirizzo sottoforma di
variabili,  per poi scriverle su delle etichette oppure per esportarle in
word
 scusate la banalità della mia spiegazione ma vorrei essere il più chiaro
possibile.
Ringrazio anticipatamente
Maurizio

 "VariabileMansioneLavorativa"  e cosě via nei campi che decido io.
ci sono dei recenti post su questo ng (max 5 gg fa),
cmq:
Dim strNome As String
Dim strMansione As String
Dim rs As Recordset
.... qui apre il recordset, quindi ...
strNome = rs!Nominativo
strMansione = rs!Mansione
.... ecc.  ecc..
...(omissis)...
Ciao
Aldo

Rispondo ad Aldo
Grazie per il consiglio
purtroppo VB lo conosco appena e ho molte lacune di base
nonostante abbia provato a consultare l'help, non sono riuscito a creare una
query e ad aprire il recordset da VB
a questo punto sarei disposto anche a pagare la consulenza di qualcuno
(prezzi modici si intende) per risolvere questa cosa.
Ho provato anche a consultare il NG di access ma il problema è il medesimo,
quello che mi servirebbe in questo momento, per accelerare i tempi,  è un
codice completo
Ciao
Maurizio
Newsgroup: it.comp.lang.visual-basic
Titolo: Passaggio di parametri alla creazione di un oggetto

Ho creato un array di oggetti relativi ad una classe. Il mio problema è
quello di passare un parametro durnte l'inizializzazione degli oggetti
stessi. Avevo pensato di passare il valore del parametro tramite una
proprietà, ma siccome mi serve un'unico valore per tutti gli oggetti sarebbe
inutile. Adesso sto utilizzando variabili globali, ma credo che non sia la
scelta migliore.
Ciò mi serve per ridimensionare una proprietà dell'oggeto dichiarato come
array dinamico
Private Sub Class_Initialize()
    Dim i As Integer
    Select Case Tipo
    Case 0
        ReDim mvarFaccia(1 To Numero_Unità_0)
        Forma = 0
    Case 1
        ReDim mvarFaccia(1 To Numero_Unità_1)
    Case 2
        ReDim mvarFaccia(1 To Numero_Unità_2)
    End Select
End Sub
Non esiste un modo per passare un parametro all'inizializzazione
dell'oggetto del tipo
Private Sub Class_Initialize(byval parametro as integer)
    ReDim mvarFaccia(1 To parametro)
End Sub
o qualche altra maniera?
Grazie per un eventuale aiuto.
Angelo Chillemi
Catania - Italy
tri...@tin.it
------------------------------------------------------
Eliminare ES dall'indirizzo modificato
Cut ES from modified address
------------------------------------------------------

 Catania - Italy
Crea un metodo del tipo:public sub creaoggetto(dato as tipodato)
e sposta il codice di inizializzazione in questa procedura.
Chiaramente creaoggetto deve essere chiamata prima di ogni altro metodo o
proprietą.
Ciao Dany
--
Posted from 
dns.iqsnet.it
 [192.106.88.9]
via Mailgate.ORG Server - 
http://www.mailgate.org
Newsgroup: it.comp.lang.visual-basic
Titolo: CERCO aiuto dagli esperti di VB4 e di Database

Scrivetemi a 
nic...@euroweb97.com
 se potete aiutarmi con un database in un form che mi fa girare le scatole
--
Posted from 
mare.gol.grosseto.it
 [194.243.196.2]
via Mailgate.ORG Server - 
http://www.mailgate.org

...


Perchè non esponi qui il tuo problema?
-- 
Remove xxx from E-mail.

Newsgroup: it.comp.lang.visual-basic
Titolo: HELP ! Numero di serie di un volume ( es. Unità C: volume 16FC-3779)

Qualcuno potrebbe aiutarmi?
Come si potrebbe leggere il numero di serie di un volume di un HD?
Grazie
Nino
e...@italsoftweb.it

...





Codice molto spartano ma funzionante
Ciao
Corrado
Option Explicit
Private Declare Function GetVolumeInformation Lib "kernel32" Alias
"GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal
lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long,
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long,
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal
nFileSystemNameSize As Long) As Long
Private Sub Command1_Click()
Dim sBuf1 As String, lBuf1 As Long, lVolSn As Long
Dim lTmp1 As Long, lTmp2 As Long
Dim sBuf2
sBuf1 = Space$(256)
sBuf2 = Space$(256)
lBuf1 = 256
Debug.Print GetVolumeInformation("C:\", sBuf1, lBuf1, lVolSn, lTmp1, lTmp2,
sBuf2, Len(sBuf2))
Debug.Print Left$(sBuf1, InStr(sBuf1, vbNullChar) - 1)
Debug.Print Left$(Hex$(lVolSn), 4) & "-" & Right$(Hex$(lVolSn), 4)
End Sub




 
Vai sul sito comune di questo NG, lo trovi tra i progetti di esempio
http://members.xoom.com/it_lang_vb
-- 
Ciao
By -MES-   Maronese Ettore
http:\\
ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://members.xoom.com/it_lang_vb

>
e...@italsoftweb.it

Newsgroup: it.comp.lang.visual-basic
Titolo: [NEWBIE] Impossibile aggiornare un recordset di un Db Oracle..

Salve,
ho un problema con un programma che sto facendo.
Premetto che per prova prima usavo un db Access e funzionava tutto
perfettamente, ora che invece vado ad interfacciarmi con Oracle mi da
un errore. Nello specifico, quando Vb esegue quest'istruzione:
rs.fields("nome campo").value = nuovo_valoreA & nuovo_valoreB
(nuovo_valoreA & B sono due stringhe, il vecchio valore contenuto nel
campo forse era numerico).
Il messaggio di errore che mi da VB è: "Si sono verificati errori in
una operazione composta da più passaggi..". Ho controllato sull'MSDN,
ho trovato un articolo dove c'era scritto di modificare il Registry
(!!!), l'ho fatto ma nulla.
Forse un problema di connessione? Ora uso il provider MSDAORA.1, forse
potrei tentare con una fonte dati ODBC?
Grazie
Walter

 potrei tentare con una fonte dati ODBC?
No, non c'entra niente la connection, è sicuramente un problema di
aggiornamento dei dati nel campo.
Ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: Modificare le preferene di un programma?

Ciao a tutti,
spero che almeno voi possiate aiutarmi perchč ci ho perso una giornata senza
trovare soluzione.
Devo modificare le impostazioni di un percorso di un programma e ho scritto
il seguente codice (penso che l'errore sia sull'ultima riga):
currSupportPath = preferences.Application.DefaultFilePath
'percorso attuale
newSupportPath = currSupportPath & ";" & peracad & "EmiLISP\"    'nuovo
percorso con una cartella aggiunta
preferences.Application.DefaultFilePath = newSupportPath
'Qui probabilmente sbaglio perchč il nuovo percorso
non va a sostituire il vecchio
Potete darmi qualche dritta?
Ringrazio tutti in anticipo.
Ciao
Emiliano

Di che natura sarebbe l'oggetto preferences?
-- 
Saluti
Andrea Moro

 Di che natura sarebbe l'oggetto preferences?
Sto utilizzando il VBA di ProgeSOFT IntelliCAD (è un programma CAD);
l'oggetto preferences mi permette di controllare tutte o quasi tutte le
impostazioni del programma come ad esempio la cartella dove salva i file
temporanei, la cartella di installazione del programma ecc.
Nella seguente riga di codice esempio ricavo una serie di percorsi separati
da ";" dove il programma va a ricercare i file che gli servono:
currSupportPath = preferences.Application.DefaultFilePath
pensavo fosse quindi sufficiente, prendere questo percorso modificarlo a
piacimento e applicarlo con un semplice "=" come la riga di codice seguente
preferences.Application.DefaultFilePath = newSupportPath
Nel scorso post forse ho tralasciato due righe di codice importarti pertanto
le riscrivo per intero qui sotto:
Dim currSupportPath As String
Dim newSupportPath As String
Dim preferences As ApplicationPreferences
Set preferences = ThisDocument.Application.preferences
currSupportPath = preferences.Application.DefaultFilePath
'percorso attuale
newSupportPath = currSupportPath & ";" & peracad & "EmiLISP\"    'nuovo
percorso con una cartella aggiunta
preferences.Application.DefaultFilePath = newSupportPath   'Qui
probabilmente sbaglio perchè il nuovo percorso
Ti ringrazio
Emiliano

Beh ... vba si ... però è una cosa integrata da un altro prodotto,
quindi magari sono delle cosine che ha aggiunto sto cad di cui
il vba stesso non sà nemmeno nulla e di conseguenza nemmeno
noi.
-- 
Saluti
Andrea Moro

Newsgroup: it.comp.lang.visual-basic
Titolo: Verificare cambio valore di una proprietà

Salve a tutti,
sto iniziando a fare le mie prime classi.
Volevo sapere se è possibile verificare il cambio di una proprietà 
all'interno di una classe.
Mi spiego meglio: in una classe ho una proprietà boolean che quando 
passa da false a true deve abilitare un timer. Come è possibile fare questo?
Grazie a tutti per l'attenzione.

 passa da false a true deve abilitare un timer. Come č possibile fare questo?
Ad esempio devi scatenare un evento nel Set della proprietą.
L'utilizzatore dichiarerą la classe With Events e potrą monitorarlo e fare
uqel che deve.

 uqel che deve.
Grazie mille ho provato è ha funzionato, tra l'altro per quello che
devo fare io non ho bisogno neanche di  generare un'evento, ma abilito
il timer direttamente nel Set.
Newsgroup: it.comp.lang.visual-basic
Titolo: Come popolare una tabella di un mdb

Ho collegato una tabella di un database mdb con un controllo DataGrid
e va bene.
 
Devo popolare la tabella prendendo i dati da un file TXT
 
Per fare questo :
Leggo tutti i dati in una collection e va bene.
 
 
Ora devo collegare la collection con il DataGrid per passargli i dati
Credo che questa sia la procedura per poter vedere alla fine i dati
nella tabella dell'mdb
Non so come si fa e quindi chiedo aiuto per completare il mio
procedimento oppure per modificarlo se ho sbagliato.
 
Grazie dell'aiuto
Tommaso

Ciao,
presumo tu stia lavorando in VB6.
 
I dati contenuti in una collection non devono essere messi nella DataGrid a meno che tu non voglia presentarli all'utente.
 
Poniamo tu abbia una tabella "MiaTabella" con tre Campi (CAMPO1 CAMPO2 CAMPO3).
 
Ti costruisci la INSERT INTO così:
 
INSERT INTO MiaTabella (CAMPO1, CAMPO2 CAMPO3) VALUES ('Valore1', 'Valore2', 'Valore3')
 
Quindi vai di ciclo sulla collection e procedi a costruirti tante "INSERT INTO" quante sono le righe da inserire in tabella.
 
Nicola


OK, grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: SP6 lo istallo?

Volevo sapere da chi l'ha istallato se vale la pena istallarlo o rimanere
con SP5
Carmelo

 con SP5
http://groups.google.it/group/it.comp.lang.visual-basic/search?group=it.comp.lang.visual-basic&q=sp6&qt_g=1
Ave
giuseppeD
---
CCR

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] come trovo un server con SQLServer

La mia necessita' e' quella di integrare un browser che mi consenta di
vedere quale/quali server in una rete forniscono accessi a un database
SQLServer. So che una cosa del genere e' fattibile (ODBC manager ha
una cosa simile), pero' non so nemmeno da dove si cominci.... devo
usare Winsock, devo usare altre cose (tipo chiamate a qualche
API)..... qualcuno di voi ha qualche idea o si e' imbattuto in
documentazione sull'argomento??? Sono bene accetti riferimenti a
esempi o, meglio ancora, a documentazione, preferibilmente su MSDN.
In cambio prometto che pubblichero' il codice non appena
disponibile....
Ciao e grazie.
Luca Menegotto.

...

Credo che l'unico sistema sia di interrogare la porta utilizzata da SQL,
sperando che non sia stata cambiata in fase di installazione (credo sia la
1414, ma potrei sbagliare).
Sul come, però non ti posso aiutare.
Tieni presente che anche il SQL Manager (se non ricordo male) ha bisogno di
sapere il nome del server SQL per registrarlo, quindi potrebbe non essere
semplice 'pingare' tutta la rete per trovare i server SQL.

 1414, ma potrei sbagliare).
Dovrebbe essere la 1433
--
Roal Zanazzi
z...@iol.it

 wrote in message
y4br3.14485$wv4....@typhoon.libero.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Dove trovare una dll - Urgente

Salve a tutti,
qualcuno sa dove trovare una DLL che legga un file RTF o HTML e copi il
contenuto formattato nella clipboard.
Grazie Marco

Niente dll: controllo richtextbox, oggetto clipboard.
Newsgroup: it.comp.lang.visual-basic
Titolo: Icone per VB 5.0

Sapete indicarmi qualche sito per poter scaricare delle icone carine
da utilizzare in VB. ?
Grazie.
Marco - 
m.al...@sanpaolo.com
*---------------------------*
Marco - 
m.al...@sanpaolo.com
*---------------------------*

magari non hai fatto caso a quelle presenti sul CD (che poi se non sbaglio
vengono pure installate sull'HD) di VB5...
ciao Davide
Marco ha scritto nel messaggio <36c43cd7...@news.sanpaolo.priv>...


vengono pure installate sull'HD) di VB5...
Grazie, ma le ho viste e anche installate. Cercavo qualcosa in più da
scaricare via internet. Ho trovato un sito di grafica carino -
http://www.abcgiant.com/
grazie. Marco


Newsgroup: it.comp.lang.visual-basic
Titolo: Inviare o ricevere E-Mail con VB

Come posso creare un programma per ricevere o inviare un E-Mail con Visual
Basic 5.0 o 6.0

Dai un'occhiata sul sito comune:
http://www.murialdo.it/it_lang_vb
ci sono alcuni esempi.
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

Basic 5.0 o 6.0
La questoine ormai e' di fama mondiale :) Comunque puoi farlo tramite
alcuni OCX oppure utilizzando direttamente i server come faresti con
telnet... non so se sei pratico della cosa, senza utilizzare terze
parti.
Ciao
Federico Emanuele Galli
Sideralis Programs (Visual-Basic and Delphi)
http://www.softitaly.com/sideralis
Le cose importanti sono le più difficili da 
dire perchè le parole le rimpiccioliscono.

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con autocomposizione installzione

Ho sviluppato un'applicazione in VB5, ho installato SP3
Ho creato i dischi di installazione e in fase di autocomposizione
installazione  ho scelto le opzioni:
Ricompila il progetto
Crea File dipendenze
Al momento dell'installazione ottengo il seguente messaggio:
una o piu' file gia' esistenti verranno sostituiti. Potrebbe
verificarsi una perdita di dati per un'applicazione esistente.
Annullare l'installazione? SI - No 
dico no e poi compare il seguente messaggio:
Impossibile trovare e quindi registrare il file 
c:\windows\system\$(DLLSelfRegisterEX)
Come riferimenti ho inserito
Microsoft Tabbed Dialog Control 5.0 (SP2)
Microsoft Data Bound Grid Control 5.0 (SP3)
Microsoft DAO 305 Object Library
Microsoft Calendar Control 8.0
Gia' in fase di autocomposizione Installazione 
ottengo che il file di dipendenze relativo al componente MSCAL.OCX non
e' aggiornato
cosa devo fare? come aggiornare il file dipendenze MSCAL.OCX?
Grazie anticipatamente
PFMarro
--
To reply please remove from e-mail 'xyz'- Per rispondere togliere 'xyz' dall'indirizzo e-mail.

 Gia' in fase di autocomposizione Installazione ottengo che il file di
dipendenze relativo al componente MSCAL.OCX non e' aggiornato cosa devo
fare? come aggiornare il file dipendenze MSCAL.OCX?
se non sbaglio mscal.ocx non e' di vb ma di office, quindi puo' essere usato
solo su pc che abbiano office97, oppure distribuito con o.d.e.
hai provato a toglierlo e ripetere ?
da me cosi', su un pc che aveva office95, e' andata.
hth, pal
--
andrea dot palazzi at tin dot it
free vb/sw: 
http://www.comune.modena.it/cittadini/apal/html/
Newsgroup: it.comp.lang.visual-basic
Titolo: Perchè nessuno risponde?

..Ho fatto una domanda scema?! (msg. delle 11.17)
Può essere.
Ringrazio chi si prendesse il tempo di dirmi almeno se il mio problema è
troppo (?) per essere preso in considerazione

..Ho fatto una domanda scema?! (msg. delle 11.17)
Personalmente (non so per quale motivo) non l'ho scaricato, quindi non saprei aiutarti.
In ogni caso è Domenica è sono passate solo poche ore: evidentemente in queste poche ore non c'è
stato nessuno in grado di risponderti. Ricordati che il ng è seguito da volontari, che dedicano il
loro tempo ad aiutare gli altri, ma molte volte il tempo manca oppure non tutti sono omniscenti ed
in grado di rispondere a tutte le domande...
Quindi cerca di essere un po' più tollerante, paziente e riconoscente per il lavoro che viene svolto
in questo newsgeoup: ti posso assicurare che la percentuale di domande che rimangono senza risposta
è molto bassa, nonostante il ng sia molto frequentato; molte risposte arrivano in poche ore,
comunque entro un giorno, quindi...
Inoltre ti consiglio la lettura del Manifesto di questo NG che trovi sul Sito Comune...
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: CLSID ?

Sono al mio primo programmino con vb5, programmino che cerca un nome in un
db (Access) e ne compone il relativo n. telefonico via modem.
Il programma risiede sul mio computer che funge anche da server.
Mentre sugli altri tre computer il programma funziona correttamente, su di
uno, dopo aver caricato la finestra del programma, mi da il seguente
messaggio:
"Classe non registrata. Si sta cercando l'oggetto con CLSID:{.....}"
e poi, in un secondo messaggio:
"Data error event hit err: Errore definito dall'applicazione o dall'oggetto"
Il computer in questione è simile (simile ... HA HA HA) agli altri win 98.
Ovviamente non appaiono i dati del db.
Abbiate pietà, Lor.


Hai fatto un setup e quindi installato tale programma sui client ?
Ciao
Aldo

 Hai fatto un setup e quindi installato tale programma sui client ?
Ehmmm ... Setup ?
Guarda, è una cosa molto umana, il programmino è un unico exe che risiede
sul mio computer (che funge anche da server).
Ho provato ad installarlo diretamente sull'altro computer ma i risultati non
cambiano.
Lor.


Non so cosa intendi per "installarlo direttamente" (forse "copiato"), ma
hai provato ad eseguire la creazione guidata di installazione (o come diavolo
si chiama in italiano, sarebbe il package deployment wizard) ?
Su alcuni pc funziona perche' hanno gia' installato le librerie occorrenti.
La vera prova del fuoco e' portare il programma in un pc con solo win95 A. 
Se sei fortunato, anche con il setup sei costretto a fare almeno un reboot,
altrimenti devi pure aggiornare il s.o.
Ciao
Aldo
Newsgroup: it.comp.lang.visual-basic
Titolo: Dll ActiveX - Uso

Mi stavo cimentando nell utilizzo delle Dll ActiveX e in particolare volevo
inserire in una Dll tutte le immagini della mia applicazione per poi
caricarle a run-time.
Dunque ho creato un nuovo progetto Dll Activex e VB6 mi ha aperto la
finestra "Class1", dopo di che ho aggiunto un Form "Form1" dove ho caricato
una matrice di Image Image1(0), Image1(1) ... con le relative immagini.
Poi nella Class1 ho scritto una funzione di questo tipo:
Private Function PassaPic(Indice As Integer, Tipo As Integer) As Image
    Select Case Tipo
        Case 0           ' Fomr MDI
            PassaPic = Form1.Image1(Indice).Picture
    End Select
End Function
e cosě ho creato il file "Prog.dll".
Ho quindi creato un altro progetto e ho inserito il file Prog.dll nei
riferimenti, poi ho scritto:
Private Sub Form_Load()
    Image1.Picture = PassaPic(0, 0)
End Sub
 nel form principale, e poi in un modulo ho scritto:
Public Declare Function PassaPic Lib "Prog.dll" (Indice As Integer, Tipo As
Integer) As Image
ma non funziona, mi dice che č impossibile trovare il file Prog.dll...
come funziona ?
Grazie a tutti.
Ciao, Claudio.

 ha scritto nel messaggio
news:1TR78.23252$nI1.7...@twister1.libero.it...

Logico, se crei una DLL ActiveX *NON* devi usare il Declare Function, ma la
usi come se fosse un qualunque DLL aggiuntiva.
Riferimenti
Ciao
--
Timothy Redaelli

E' proprio quello il punto ..... come si usa una qualunque dll aggiuntiva ??
Scusa l'ignoranza, ma č la prima volta.
Grazie mille.
Ciao, Claudio.

 Scusa l'ignoranza, ma è la prima volta.
Nessuno nasce "imparato".
Menu Progetto >> Riferimenti >> Sfoglia
Qui selezioni la tua dll.
Poi da codice puoi fare es.
Private Sub Form_Load()
    Dim Prova As New class1
    Prova.passapic 'etc
End Sub
Chiaro?
Ciao
--
Timothy Redaelli

Spero di si.
Grazie mille.

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

Ciao a tutti,
dovrei creare una griglia che ha due colonne che devono
essere riempite con due campi di una tabella.
I campi di questa tabella sono:
1) guasto riscontrato
2) risolto
Nel campo "guasto riscontrato" c'è la descrizione di un guasto
e nel campo risolto contiene valori "Si/No".
Io vorrei visualizzare tutti i problemi nella prima colonna di questa
griglia e nella seconda colonna il campo di risoluzione "Si/No".
Il mio problema è questo: è possibile diversificare i colori delle righe
a seconda se il valore del campo risolto è uguale a "Si" o è uguale a "No"?
Nel caso in cui ciò non fosse possibile, esiste qualche controllo ocx
capace di fare ciò?
Grazie a tutti
Ciao

Usa la MSFlexGrid
esempio banalissimo di codice
GriEco.Col = 0
GriEco.Row = 0
GriEco.Font = "Courier New"
GriEco.FontSize = 8
GriEco.FontBold = True
GriEco.Text = "Cod"
Riccardo ha scritto:

Newsgroup: it.comp.lang.visual-basic
Titolo: Uso delle DLL con ACCESS

Sto scivendo una serie di DLL in VB5 e, per motivi vari, ho necessità di
utilizzare parte di queste procedure con ACCESS 2.0.
Il mio ENORME problema è che in VB5 una DLL deve necessariamente utilizzare
delle classi che fungano da interfaccia con l'esterno, di conseguenza non
posso usare l'istruzione declare come in un primo momento avevo pensato di
fare poichè non ho modo di vedere i moduli di classe.
Declare Function GetWinFlags Lib "Kernel" Alias "#132"() As Long
Questo è un esempio di istruzione declare riportato nella guida di ACCESS;
contiene il nome della libreria, l'alias, il nome della funzione ma non
considera minimamente l'esistenza di qualcosa di intermedio come i moduli di
classe.
Qualcuno può aiutarmi ?????
                                                           Grazie
                                                            Alfonso





[...]
Hai un GROSSO problema: Access 2.0 e' a 16 bit,
VB5 a 32 bit. Hai due soluzioni:
1. Sviluppare le DLL a 16 bit (con VC++ 1.5, ad
   esempio)
2. Aggiornare Access, alla versione 7 (95) o 8 (98),
   magari producendo degli OCX in VB5, utilizzabili
   da Access 7 / 8
-------------------------------
Louis Cretier  R1100RS/R80GS TO      
http://www.show.it/lcretier.htm
-------------------------------
"L'uomo accorto impara dai propri errori
 il saggio impara da quelli altrui"

Newsgroup: it.comp.lang.visual-basic
Titolo: Filter in Ado con operatore LEFT

     c.Filter = "(Left(nomeesempio, 1)) = 'T'"
Non mi filtra sapete perchč?

ciao
il left và fatto sul value del campo non sul Name
il Filter funziona così:
c.Filter = 'NomeCampo' & " = " & Valore Cercato

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] collegamento DDE!

Vorrei sapere quale è il codice, per effettuare un collegamento DDE, tra una
textbox di Vb e un foglio di Excel.
grazie

 wrote in message
i3Bj4.7594$C3.8...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: VB.NET -Stampe

Ho iniziato a studiare Visual Basic .NET e sinceramente mi stà
appassionando.
Avrei bisogno di acquisire notizie in merito alle stampe, praticamente cosa
c'è oggi al posto del vecchio oggetto Printer. Inoltre vorrei studiarmi
CR.NET
; sapreste suggerirmi qualche libro.
Grazie.

 
CR.NET
; sapreste suggerirmi qualche libro.
CR penso sta per Crystal Reports.
Non mi sembra sia uscito nulla di specifico.
Penso che il sito della Crystal è il miglior riferimento
giuseppeD

L'oggetto Printer e' stato sostituito dall'oggetto PrintDocument il quale ha
una serie di eventi tra i quali PrintPage all'interno del quale attraverso
GDi+ scrivi nel canvas rappresentante la tua pagina, l'aspetto positivo e'
che associando questo ad un oggetto PrinPreview hai gratuitamente un preview
della tua stampa.
Dai un occhiata a MSDN a PrintDocument e troverai tutte le info necessarie.
HTH
-- 
Corrado Cavalli [Microsoft .NET MVP-MCP]
UGIdotNET - 
http://www.ugidotnet.org

 c'è oggi al posto del vecchio oggetto Printer.
Leggi questi 2 articoli che sono una vera PERLA!
http://msdn.microsoft.com/library/en-us/dnadvnet/html/vbnet01282003.asp?fram
e=true
                        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à
Newsgroup: it.comp.lang.visual-basic
Titolo: [Meeting] le foto (2)

Altra tornata di foto. Le trovate sempre sul sito comune
(
http://www.it-lang-vb.net/meeting/index.html
) cliccando sul terzo "qui" ;-)
Oppure direttamente dal fornitore: 
http://www.morenosoft.com/meeting032003/
Ciao
*Roby*

 ha scritto nel messaggio
news:b6bdas$3ik7r$1...@ID-94194.news.dfncis.de...

Splendide ! Per me il premio del miglior reportage e' tuo ^_^
Non me ne vogliano GBC e LordRaiden ^_^



grazie :-) Peccato, avrei potuto farne di piů...
Ciao,
Moreno
-- 
sirri at morenosoft dot com
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 grazie :-) Peccato, avrei potuto farne di piů...
Concordo... su tutti e due i punti. Sia sul fatto che le tue foto siano
molto belle, che sul fatto che avresti potuto farne di piů :-P
Avete parlato tanto di questa cameriera, almeno potevate farle un po' di
foto ;-)
Ciao.
-- 
BSD is for UNIX lovers -- linux is for Windows haters.

 almeno potevate farle un po' di foto ;-)
Mi dispiace, ma non venire al meeting comporta necessariamente qualche
svantaggio... ;-)
Ciao
*Roby*


ROTFL ;-)

Mi spiace non esser potuto venire.
Spero che vi siate divertiti anche alla facciazza mia ^__^
ps: dopo tanto tempo ho ripreso a programmare in VB.
Ciao e tutti
Ettore Maronese,
il Mes

 ha scritto

IL MES ! bentornato !
ciao, a.

 il Mes
Quasi mi passava inosservato questo post!
Ben tornato!
Lokar
--
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
UGIdotNET - 
http://www.ugidotnet.org

 Ciao e tutti
Benrivisto.

ps: dopo tanto tempo ho ripreso a programmare in VB.
E sarebbe bene o male? :-)
Se questa č la notizia brutta, spero che la bella sia che riprendi a
frequentare il ng... :-)


WAW che accoglienza!!
Grazie a tutti!
e.. se quel "a.p" è chi credo io...   CIAO PAL!!!  ^__^
Ettore Maronese
il Mes

 e.. se quel "a.p" è chi credo io...   CIAO PAL!!!  ^__^
y
ciao ilmes, che tu ci sia mi tira sempre su :)

 svantaggio... ;-)
Arghhh... Oltre il danno la beffa... :-)

Newsgroup: it.comp.lang.visual-basic
Titolo: Loopare istruzioni in background in VB6

Ciao a tutti,
sapreste indicarmi come fare in VB6 ad far looppare determinate istruzioni
e cantemporaneamente aver la possibilità di interagire con i vari pulsanti del form.
In pratica non so come far girare in background una sequenza di istruzioni.
Grazie per eventuali aiuti

 ha scritto nel messaggio
news:cd45d86b.04021...@posting.google.com...

all'interno del ciclo, ad esempio il do...while, usa l'istruzione
DoEvents.....
occhio, però, blocca i pulsanti che potrebbero far crashare il ciclo in
qualche modo.....
good coding!!!
-- 
Alletun
"Io lo so che accadrà. La voce sussurra nei miei pensieri di Jair, Rone,
Allanon e soprattutto nelle Mortombre.
Sussurra segreti che mi sono tenuti nascosti, nella grigia oppressione
di questo giorno e nell'oscurità caliginosa di quello che mi aspetta.
Saremo distrutti. Tutti."
Brin Ohmsford - La Canzone di Shannara - T. Brooks

 wrote in message
c1039b$1ckeac$1...@ID-134521.news.uni-berlin.de...

ciao, utilizza un timer con dentro le tue istruzioni e lo attivi e disattivi
quando ti pare
in questo modo i pulsanti funzionano sempre...
Saluti Antonio

Newsgroup: it.comp.lang.visual-basic
Titolo: televideo su ati all in wonder pro

Vorrei sapere se esistono librerie per prendere i dati dal televideo ,
sia in c++ che in visual basic.Questi dati mi servirebbero per fare
grafici in automatico.
Grazie 
Simone Palmeri 
sip...@yahoo.com

...


Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.NET] - Rendere trasparente una Picturebox e gli oggetti "Shape" e "Line"

Ho caricato su una Picturebox una immagine .GIF con
la trasparenza impostata.
Mi aspettavo di vedere quindi di vedere l'effetto trasparenza, in 
particolare on altro oggetto che passa sotto la picturebox, ed invece
nulla.
Occorre usare qualche controllo particolare, magari disponibile
sul sito comune?
Sempre a proposito di controlli particolari... dove è finito
il controllo "shape" e "line" che trovavo come standard in VB6?
Anche in questo caso si può usare in controllo particolare
disponibile sul sito comune?
-- 
Daniele Pinna  (leva oops. per rispondere) * ICQ "chiedilo"
Sito Web: Il DoCFa in Pillole: 
www.dapinna.com

 il controllo "shape" e "line" che trovavo come standard in VB6?
Presumo che desideri eseguire grafica.
In .NET ci sono le classi compresi nella gamma System.Drawing
Nella guida sono presenti numerosi esempi
Per la linea puoi utilizzare la Label
Ave
giuseppeD

 Per la linea puoi utilizzare la Label
Si poi ho visto qualcosa nella guida sul nuovo sistema per
generare la grafica... ma ancora non ho provato nulla :-)

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Stampare con una stampante non di sistema

Ho provato a vedere nelle documentazione varie e nei sorgenti del sito
comune ma non sono riuscito a capireun gran che.
Io devo stampare delle righe di testo con la stampante, ora:
A) Se la stampante che voglio e' quella predefinita di sistema mi rivolgo
all'oggetto printer con un
    Printer.Print <riga di testo>
    Printer.EndDoc
B) Se la stampante non e' la stampante di sistema, devo passare per gli hdc?
Devo utilizzare il codice
prhDC = CreateDCBynum("WINSPOOL",
PrinterNome$, vbNullString, 0)
Per avere l'handle della stampante (PrinterNome$) nella variabile prhDC?
Giusto?
Poi come procedo per stampare la mia riga?
Grazie a chi vorra' rispondermi.......

...


Grazie Luca per avemi risposto. La soluzione che mi proponi avevo gia'
provato ad adottarla ma VB e' un asino e quindi non funziona.
Ho installato 2 stampanti sul computer che si chiamano
1) Epson LX 300 (stampande di default)
2) Epson styilus Color.
Ho provato ad eseguire il seguente codice:
Dim X As Printer
For Each X In Printers
     If X.DeviceName = "Epson Stylus COLOR" Then
       ' Imposta la stampante come predefinita di sistema.
        Set Printer = X
        ' Interrompe la ricerca di una stampante.
    Exit For
 End If
Next
Debug.Print Printer.DeviceName
Printer.Print "RIGA DI PROVA"
L'assegnamento e' avvenuto a buona termine, in quanto la riga di debug mi
stampa "Epson Stylus Color" il che vuole dire che l'oggetto printer e' stato
riassegnato. Purtroppo pero' la stampa avviente sulla stamoante "Epson
LX300"... il mio sospetto e che vb abbia solo cambiato la proprieta'
"Devicename" della stampante e nient'altro...
Sembra che VB mi stia prendendo per il sedere.
Qualche suggerimento?


Ebbene si`:-)
Nel senso che e` un bug di VB prima del VisualStudio 97 Sp2.
Cmq leggi qui:
http://support.microsoft.com/support/kb/articles/q167/7/35.asp
----
Ciao, Mauro CB.
----
E-mail: 
mau...@reteitalia.net
ICQ: 7632323
"Continuamente nascono i fatti a confusione delle teorie."
Newsgroup: it.comp.lang.visual-basic
Titolo: Regular Expression VB6

Qualcuno sa dirmi dove posso trovare un po' di esempi sulle Regular
Expression in VB6. Sull'MSDN, non ce ne sono molti..
Grazie
Jena

Expression in VB6. Sull'MSDN, non ce ne sono molti..
Sugli ultimi due numeri di Computer Programming c'e' un articolo che
le tratta.
-- 
ciao, hal

 ha scritto nel messaggio
news:bqn8q2$t12$1...@serv1.iunet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [!] faq iclvb

http://www.manuali.net/manuali/predownload.asp?id=429
Descrizione:La raccolta di Faq del NG it.comp.lang.visual-basic: i
trucchi, i consigli, tutto in italiano.
N° download: 1823
Lingua:
Clicca per votare:
Dimensione:47 kb
aggiornamento 1998.
non ne sapevo niente.
tu asterix ?

 wrote in message
news:9jgj63$npurq$1...@ID-51318.news.dfncis.de...

Io nemmeno...
Imho si potrebbe chiedere a 
www.manuali.net
 di specificare che il newsgroup
ha un suo sito (il Sito COmune) dove vengono costantemente raccolte ed
aggiornate le FAQ ed i progetti nati nel newsgroup. Tali "faq" sono fatte in
casa, non copiano quelle che erano le vecchioe "Piccole Perle" del Sito
Comune (ora tolte perché in fase di rifacimento), quindi legittime a tutti
gli effetti.
Ciao,
Moreno (@work)

 tu asterix ?
Mi giunge nuova nuova...
Vorra' dire che le aggiungeremo alle FAQ in preparazione :P
Ciaotutti,
Alessandro

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT RECYCLED] SMAU98 Cosa non dobbiamo perderci?

Entriamo nella settimana dello SMAU (22-26 OTTOBRE).
Invito i tutti i programmatori VB, professionisti e principianti a stilare
una lista delle cose "da non perdere" durante la manifestazione.
E' vero che sul sito 
www.smau.it/magellano
 è già possibile avere
informazioni, ma preferisco le esperienze personali alle promozioni.
Comincerò io:
1) Nelle edizioni precedenti era possibile acquistare libri, presso gli
stand delle varie case editrici, con un piccolo sconto. (portarsi i $$)
Ora tocca a voi.
Ciao
--
-
MIX (VB5SP3)
post...@yahoo.com
90 links ai siti VB
http://space.tin.it/computer/gaais
http://www.tempolibero.com/user/mix/
 (alternativo)
-

stand delle varie case editrici, con un piccolo sconto. (portarsi i $$)
Si', anch'io ho sempre comprato libri allo SMAU (che si fa fatica a trovare altrove in
Italia). 
Comunque di solito in occasione dello SMAU si organizzano i meetings dei vari newsgroup,
chats, tra amici virtuali in rete ecc. Tanto.. DICIAMOLO....chi di voi non verra'???
Io di solito non partecipo, ma mi sembrano delle cose carine .. :-)
Ciao,
Paola
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ 
HomePage: 
http://vitsys.com/paola


So che molte aziende distribuiscono materiale o CD-ROM di demo,
documentazione etc...
Dato che, sfigatissimo, non sono mai riuscito a prendere nulla (a parte
pacchi di depliant che di solito fanno sempre la stessa fine :-), sarei
interessato a dritte su quali stand frequentare in modo particolare.
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: impedire l'esecuzione di programmi

E' possibile tramite un programma VB impedire all'utente della macchina
l'esecuzione di qualsiasi tipo di eseguibile o aprire il pannello di
controllo? (SO: win98 o winXP-home)
ciao
Grazie
Gianpaolo

 controllo? (SO: win98 o winXP-home)
Si
Studiare: Sistem Wide Hook su MSDN
Perdona l'estrema sintesi ,
ma il raggiungimento dello scopo č molto diverso sui due sistemi indicati.
Ad ogni modo ti consiglio anche di studiare , le Security Policy di Windows
.
Settandole č possibile fare sparire interi pezzi di interfaccia o inibirne
l'accesso da parte degli utenti
Ciao
Lorenzo

Newsgroup: it.comp.lang.visual-basic
Titolo: Selezione multipla con CommonDialog

Ciao,
    esiste un modo per selezionare più files alla volta tramite una common
dialog?
Ho trovato un progettino su 
vbcode.com
 ma non funziona :-(((
per caso qualcuno saprebbe consigliarmi qualcosa a riguardo?
Grazie,
    mik



Basta usare la proprietà .flags, vedi documentazione
Esempio:
CommonDialog1.Flags=&H200
CommonDialog1.Action=1
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Registry

Stavo lavorando sul registry per limitare le funzioni a
disposizione dell'utente di una rete aziendale.
Datosě che ho delle problematiche inerenti al fatto
che c'č di mezzo un dominio, mi chiedevo se qualche
anima pia ha dei link o delle info in merito, in particolare
per segare via una serie di aspetti legati alla modifica del
desktop.
-- 
Saluti
Andrea Moro

Il 13/10/2003 13.04, Andrea Moro scrisse:

Sul CD di windows98 c'era un resource toolkit con molte informazioni.
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

Newsgroup: it.comp.lang.visual-basic
Titolo: [molto OT]hal dove sei?

E' da un po' che non leggo più post di hal, sono io che non li vedo o è
sparito?
L'ultimo post che ho trovato risale al 14/07/02.


Per quel che ne so stà bene ma è superoccupato... :(


Mi ha detto poco tempo fa di essere molto indaffarato... se si libera un 
po' lo ritroviamo di certo (non qui ma su i ng di C#).
:-D
-- 
Antonio Cangiano
Webmaster di 
www.visualcsharp.it
free.it.comp.lang.csharp
free.it.comp.lang.vbnet
free.it.comp.lang.aspnet
free.it.comp.lang.delphi
--

Newsgroup: it.comp.lang.visual-basic
Titolo: dettagli sull' API  Shell.Application

 
          Buongiorno a tutti
Chi mi puo' indicare un link per scoprire tutte le potenzialita' sulla API
"Shell.Application" ?
Grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

"Shell.Application" ?
 shell.Application non è un API ma un object che si usa negli script.
Puoi cercare con Google :
 
http://shorterlink.com/?GV528C
ma esiste un ng apposito in Inglese, dove l'argomento è molto trattato e trovi
le risposte a tutte le domande:
microsoft.public.scripting.vbscript
http://shorterlink.com/?UQLVEL
--
ciao
  Stefano


E uno in italiano:
microsoft.public.it.scripting
-- 
----------------------------
Mauro Gamberini
Newsgroup: it.comp.lang.visual-basic
Titolo: eseguire un file non sapendo qual'è l'unità del cdrom

sapete come potrei dal mio programma vb eseguire un file pippo.exe non 
sapendo però
se l'unità cdrom sia D: E: oppure F: ecc.....
c'è un modo sicuro che vada bene su ogni computer?
Grazie a tutti. 


Se usi gia' il FileSystemObject, puoi scorrere la collection Drives e 
verificare la proprieta' DriveType
Se non lo usi non vale la pena aggiungerlo solo per questo, e puoi ottenere 
la stessa cosa con le funzioni
Public Declare Function GetLogicalDriveStrings Lib "kernel32" _
    Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long _
    , ByVal lpBuffer As String) As Long
Public Declare Function GetDriveType Lib "kernel32" _
    Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Public Const DRIVE_CDROM = 5
i cui dettagli trovi su MSDN
Naturalmente puoi avere piu' unita' di tipo CD-ROM (caso tipico il 
masterizzatore) quindi memorizza tutte quelle che trovi e verificare 
l'esistenza del file
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown 


Con GetDriveType() (API Win32) risali al tipo di unita'.
Tieni presente che nulla vieta che i cdrom siano piu' di uno.
-- 
ciao, hal

 Luca Dormio - 
luca....@tin.it
Grazie mille a entrambi
l'esistenza del file la scopo con dir?
se dir è diverso da "" il file si trova in quel cdrom dico bene?
Grazie. 

 se dir è diverso da "" il file si trova in quel cdrom dico bene?
meglio usare questa che funziona sempre:
Private Declare Function GetFileAttributes Lib "kernel32" Alias _
"GetFileAttributesA" (ByVal lpFileName As String) As Long
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const FILE_ATTRIBUTE_INVALID    As Long = -1&
Public Function EsisteFile(Path As String) As Boolean
Dim Attr As Long
Attr = GetFileAttributes(Path)
If (Attr And FILE_ATTRIBUTE_DIRECTORY) > 0 Then
    EsisteFile = False
    Exit Function
End If
If Attr <> -1 Then
   EsisteFile = True
Else
   EsisteFile = False
End If
End Function
' termoPilucco
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Sub e altra roba

Sub Main()
a:
.............................
.............................
.............................
b:
............................
............................
............................
End Sub
Ecco. Come faccio da un'altra sub a richiamare b?
Se fossi nella stessa Sub farei GoTo b, ma..
grazie

 wrote in message 
news:1166549608.8...@48g2000cwx.googlegroups.com...


Se fossi nella stessa Sub farei GoTo b, ma..
  Spezzarla in due sub no?
-- 
  Ciao :-)
  Massimo
Nell'indirizzo, sostituire "micio" con "mc"

si avete ragione... la pigrizia a volte fa brutti scherzi... ;)


Magari perň, inserire una chiamata alla sub Main... si potrebbe cercare un
modo migliore, ecco.
Comunque si puň fare cosě:
Sub Main(Optional dove As Boolean = False)
If dove Then GoTo b
a:
.............................
.............................
.............................
b:
............................
............................
............................
End Sub
Sub AltraSub()
    Call Main(True)
End Sub
Spero ti sia utile. Ciao.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Newsgroup: it.comp.lang.visual-basic
Titolo: [NET] API, puntatori, attributi ecc.ecc.

Ciao a tutti,
volevo innanzi tutto ringraziare Giuseppe e Corrado per le risposte che mi
hanno dato ieri.
Purtroppo però non ho ancora risolto.
Ad ogni modo posto la dichiarazione dell'API (serve a ricavare il SSID di
una rete wireless)
BOOL iPAQGetWLANssid (TCHAR * lpszValue)
Parameters:
TCHAR * lpszValue [out] - the pointer to a string containing the SSID.
Facendo così non da errori, ma non mi ritorna il valore corretto:
Declare Function iPAQGetWLANssid Lib "IPAQUTILWLAN.dll" (ByRef MyStr As
System.IntPtr) As Boolean
Dim str As String = "xxxx"       'il valore che mi deve tornare è "ZZZZ"
Dim GCH As GCHandle = GCHandle.Alloc(str)
Dim ptr As System.IntPtr = GCHandle.op_Explicit(GCH)
Dim OK As Boolean = iPAQGetWLANssid(str)
TextBox1.Text = CType(GCH.Target, String)
in pratica non modifica la stringa che rimane "xxxx"
Ho provato a passare il puntatore ByRef, ByVal ma niente da fare.
Sto provando ad usare l'attributo <MarshalAs(UnManagedType.LPStr)> ma
ottengo solo errori.
Mi sono arenato, qualche idea ?
Ciao, Luca.

Prova cosi'
Declare Function iPAQGetWLANssid Lib "IPAQUTILWLAN.dll" (ByVal MyStr As
System.Text.StringBuilder) As Boolean
Dim sb As New System.Text.StringBuilder(4)
If iPAQGetWLANssid(sb) Then
         Dim sRetVal As String = sb.ToString
End If
Gioca con la dimensione del buffer dello stringbuilder nel caso non sia
sufficientemente grande
HTH
-- 
Corrado Cavalli [Microsoft .NET MVP-MCP]
UGIdotNET - 
http://www.ugidotnet.org

Newsgroup: it.comp.lang.visual-basic
Titolo: info immagine GIF

come faccio a visualizzare una Gif (in animazione) su di un Form?
ho sentito parlare di gif89.ocx ma non lo trovo
saluti da Stefano
ste...@panatronic.it
VB6

 wrote in message
news:9t1lj5$2cb$1...@fe2.cs.interbusiness.it...

ehhhh [sospirone] ! Forse un giorno si daranno dei corsi alle elementari per
insegnare come usare i motori di ricerca.....
http://www.jcomsoft.com/shareocx.htm
;-))
Sal
Newsgroup: it.comp.lang.visual-basic
Titolo: Sorgenti

 Salve a tutti
Come si dice "files sorgenti" in inglese???
Grazie mille
--
__________________________
                   by D.S.A.
 
adi...@tin.it
http://space.tin.it/sport/mdistasi
__________________________
Per rispondere sostituire il primo carattere dell'indirizzo con "a"

 Come si dice "files sorgenti" in inglese???
Source code

Newsgroup: it.comp.lang.visual-basic
Titolo: Array vuoto

Ciao a tutti,
esiste un modo per sapere se un array è vuoto (dimensionato con dim vet() as
integer)?
Grazie,
Sergio

integer)?
Senza andare a scomodare il descrittore dell' array, puoi tentare l' UBound sull' array.
Se va in errore allora e' vuoto.
ciao, hal

integer)?
Oppure scomoda il descrittore cosě:
Declare Function ArrayPtr Lib "msvbvm60" Alias "VarPtr" (ptr() As Any) As
Long
Declare Function CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As
Any, pSrc As Any, ByVal BytesLen As Long) As Long
Function admArrayDimensionCount(lpA As Long) As Long
    Dim Dims As Integer
    Dim lpA2 As Long
    Call CopyMemory(lpA2, ByVal lpA, 4)
    Call CopyMemory(Dims, ByVal lpA2, 2)
    admArrayDimensionCount = Dims
End Function
if (admArrayDimensionCount(ArrayPtr(mioArray)) <= 0) then -> non
dimensionato
Ciao