mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Problemino con il mio contascatti

Ciao a tutti!
Uso la versione 5.0 professional di VB
il mio SO è windows ME
Il mio problemino è il seguente:
Sto provando a creare un contascatti...
Vorrei sapere come si fà a capire se il modem è connesso ad internet, per
così poter attivare il conteggio.
Devo usare qualche Socket???
Grazie in anticipo
RushSeeker

 ha scritto nel messaggio
news:%1Is8.1076$vF6....@news2.tin.it...

umm allora , se su una com hai istallato solo e sempre il modem , un metodo
grezzo puo'essere quello di testare la com con un controllo mscomm , basta
gestire gli errori tipo :
if errore(COM OCCUPATA) then
'non ricordo il numero di errore , guarda l'help del controllo
 scatti = scatti +1
else
 msgbox ("sei stato connesso e hai accumulato " & scatti & " Scatti")
Endif
naturalmente richiami la funzione ogni X tempo cioe' il tempo dello scatto
pero' controlla anche il tempo che ci mette a verificare che sia occupata !
Lo so il metodo e' grezzo ma le mie poche conoscenze e la mia poca voglia
arrivano fin qui ^_____^

 così poter attivare il conteggio.
Prova questo... a me ha sempre funzionato.
Lo piazzi in un modulo, e quando vuoi richiami la funzione
"IsConnected", che restituisce True se sei connesso:
Public Declare Function RasEnumConnections Lib "RasApi32.dll"
Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long,
lpcConnections As Long) As Long
Public Declare Function RasGetConnectStatus Lib "RasApi32.dll"
Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As
Any) As Long
Public Const RAS95_MaxEntryName = 256
Public Const RAS95_MaxDeviceType = 16
Public Const RAS95_MaxDeviceName = 32
Public Type RASCONN95
    dwSize As Long
    hRasCon As Long
    szEntryName(RAS95_MaxEntryName) As Byte
    szDeviceType(RAS95_MaxDeviceType) As Byte
    szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
Public Type RASCONNSTATUS95
    dwSize As Long
    RasConnState As Long
    dwError As Long
    szDeviceType(RAS95_MaxDeviceType) As Byte
    szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
Public Function IsConnected() As Boolean
Dim TRasCon(255) As RASCONN95
Dim lg As Long
Dim lpcon As Long
Dim RetVal As Long
Dim Tstatus As RASCONNSTATUS95
TRasCon(0).dwSize = 412
lg = 256 * TRasCon(0).dwSize
RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)
If RetVal <> 0 Then
                    MsgBox "ERROR"
                    Exit Function
End If
Tstatus.dwSize = 160
RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)
If Tstatus.RasConnState = &H2000 Then
                         IsConnected = True
Else
                         IsConnected = False
End If
End Function
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Leggete perché MERITA...

Nessun commento preventivo... godetevelo così com'è...
-------------------------------------------------------------------------
Salve a tutti,
stiamo cercando un mago professionista in grado di
arrestare le continue sfighe che si stanno abbattendo su webfam
milanese.
Chiunque si reputi in grado di assumere tale incarico lasci
un recapito sul newsgroup e sarà contattato quanto
prima.
La prestazione sarà retribuita 50% subito, 50% a 30gg.
Astenersi millantatori o perditempo
----------------------------------------------------------------------------
Sto ancora ridendo...
Andrea

 Sto ancora ridendo...
Io no e se mi dai l'indirizzo li contatto subito e ci vado.
Non lo sono, ma se a loro serve crederci, mi qualifico anche come mago.

 
Ma che ng frequenti?
:-)
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 Andrea
ciaociao


Anche io....
Ciao, Vincenzo
PS.: occhio agli allegati!

 maxx
Andrea

 
Se non ricordo male hai cambiato spesso lavoro nell'ultimo anno, ma 
pensavo fossi rimasto nell'ambito della programmazione...
;-)


 maxx
Andrea

> PS.: occhio agli allegati!
E' un bug di Quotefix.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Proprieta Multiline della textbox di vb

Ciao a tutti,
Sto cercando di scoprire come far visualizzare un messaggio su di una
TextBox utilizzando
la proprietà Multiline.
Il problema nasce dal fatto che il messaggio contiene più di una riga però
non riesco a fare andare a capo ogni riga cioè
se faccio:
Dim msg as string
msg = "Data: 23/11/2001" & vbCr 'ritorna a capo
msg = msg + "Quantità: " & Valore  & vbCr
msg = msg + "Modello: " & Model
Text1.text = msg
Vedo che nella mia textbox il carattere chr$(13) e non mi va capo riga...
eppure la proprietà Text1.Multiline= False.
Qualcuno  mi sa dare qualche aiuto ???
Grazie. a tutti.
Andrea

Io uso vbCrLf, forse ti potrà essere utile !
--
'''®foolbrain®'''
Visual Basic Programmer
Database Designer & Manager
ICQ 88912631

 ha scritto nel messaggio
news:9tljjs$3ebpn$1...@ID-61455.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: problema x JAVALAB

Ciao JavaLab volevo chiederti se mi  puoi risolvere qsto problema che mi sta
facendo impazzire.
Ho creato una applicazione dal mio PC con Win2k e poi ho creato la lista di
distribuzione x poterlo installare su dei PC con Win98 e qui mi salta fuori
subito un problema.
Qndo lancio il programma Setup mi da un errore sul file Atl.DLL e nn mi
registra gli OCX che ho utilizzato.
Aiutami, sono nelle tue mani :)

 ha scritto

zampe, prego :)
purtroppo per te devo passare la palla. mai capitato. (si dice. si mormora.
finora. ancora. toccando ferro. senza dire gatto finche'. senza vendere la
pelle dell'orso).
j.sup
cmq non personalizzare i post, seno' chi mi odia li legge per vedermi in
difficolta' e io sono molto timida :))

 registra gli OCX che ho utilizzato.
Anche se non sono la persona che cercavi credo di poterti dare la risposta :
ATL.DLL per windows NT (e quindi anche 2000 penso) è diversa da quella per
Win9x.
Io ho risolto il problema facendo due distinti programmi di setup. Come
soluzione non è il massimo ma funziona.
Ciao
Pier

Newsgroup: it.comp.lang.visual-basic
Titolo: ADO- JET 3.51

Ho fatto un programma dove utilizzo Ado con connection Microsoft Jet 3.51
sul mio pc funziona perfettamente , installandolo su un'altro pc  non
funzione  dicendo IMPOSSIBILE TROVARE PROVIDER. E' POSSIBILE CHE NON SIA
INSTALLATO CORRETTAMENTE. Sapete darmi un aiuto. Grazie.
PS. Nel PC dove non funziona non e' ovviamente installato VB6 nemmeno
Access.

 ha scritto nel messaggio
news:a94m8v$n85$1...@pluto.news.dsi.unimi.it...

Devi distribuire/installare il tuo programma creando il pacchetto di
installazione.





Allora per primo devi creare il pacchetto di distribuzione.
Quando l'hai creato devi verificare che insieme ai files del programma ci
sia anche il file "Mdac_typ.exe". 
Questo files installa i componenti Data
Access 2.0 che permetto al tuo programma di usare i driver ado etc..
--------------------------------
Inviato via 
http://usenet.iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Qualcuno l'ha visto ??!!!

Somo alla ricerca di un oggetto da inserire su di un'applicazione che stò
realizzando, si tratta di un oggetto che mi permette di incrementare e
decrementare i minuti e l'ora che voglio visualizzare.
Ho provato a costruirmelo utilizzando un textbox ( per visualizzare l'ora )
e due pulsanti  sui lati up-e-down per decrementare e incrementare, ma con
pochi successi.
 AIUTO!!! MAX

 ha scritto nel messaggio
news:8v3sbq$a3u$2...@nslave3.tin.it...


 wrote in message
news:8v8jsh$nnf$1...@serv1.albacom.net...

// Prova anche in finestra immediate:
x= Time : Debug.Print x, DateAdd("s", 1, x)
// e premi invio
Ciao
Aldo

 ha scritto nel messaggio
news:8v8rq2$3sart$1...@ID-56381.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: File testo o Memo?

In un campo di database (Access) devo salvare delle descrizioni(50, 100,
150, 200 ecc. caratteri)
E' preferibile in termini di performance e/o di risorse spese scegliere di
definire un campo testo con 255 caratteri oppure va meglio un campo Memo?
Grazie
--
Gulp ! Forse mi sono perso qualcosa !

 ha scritto:
Il  Subject č errato leggi Campo al posto di File
Scusate.


 Il  Subject è errato leggi Campo al posto di File


 definire un campo testo con 255 caratteri oppure va meglio un campo Memo?
http://makeashorterlink.com/?S19A235A3

 
http://makeashorterlink.com/?S19A235A3
Chiarito il tutto. Grazie.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Debug

Il problema e' molto semplice:
Il mio software funziona bene in ufficio da me , ma dal mio cliente si
pianta!
Dicendomi Errore [ODBC]... -
2147217913
. Error Converting data Type Varchar
to float
Mia conf: VB6 + Win98 +Mdac 2.7
Cliente: Win98 +Mdac 2.6
Funziona cosi': apro un file txt con delle registrazioni contabili, le metto
in una grid, se vanno bene le scrivo in un database MSDE/SQL ( non creato da
me) tramite una query di insert passata ad una connessione ADO + ODBC.
Ho "provato" il file incriminato da me in ufficio con database con struttura
Uguale ( dati diversi) e fila tutto liscio.
quindi e' colpa del "cliente", allora ho provato mettendo su la stessa
versione dei miei driver sql (Mdac2.7) dal cliente ma niente.
Ora le domande:
1- E' possibile effettuare una sorta di debug presso il cliente senza
portarsi dietro VB ( tipo software dedicati o altro)
2- Come posso sapere a che "altezza" del codice si pianta.
Spero di essere stato chiaro e ringrazio tutti in anticipo

 2- Come posso sapere a che "altezza" del codice si pianta.
In genere si utilizzano due metodi per "debuggare" l'eseguibile: uno brutto,
che consiste nell'infarcirlo di msgbox, per capire da dove è passato e da
dove no, l'altro, un po' più raffinato, consiste nel ridefinirsi una classe
che sostituisca l'err, e che provveda a scrivere in un file gli errori che
vengono generati dalla tua applicazione. In questo caso potresti aggiungere
i numeri di linea al tuo codice (non inorridire, è vero) e con la variabile
di sistema erl potresti sapere il numero di linea in cui l'errore si è
verificato
Salutoni
Sergio

 la sparo: impostazioni internazionali diverse?
sniff sniff...
sento odore di virgole in un insert...
sniff sniff...
sento odore di conversioni implicite e di concatenazioni
stringhe&numerici...
Alberto

 stringhe&numerici...
anche io. tutte cose che funzionano benissimo, finchè, improvvisamente e
"inspiegabilmente", tutto crolla.
Salutoni
Sergio

 potresti sapere il numero di linea in cui l'errore si è verificato
Variabile di sistema "erl" ...  è un errore di digitazione o la mia guida
pecca di un argomento?
-- 
Saluti
Andrea Moro
Sito Comune : 
http://www.it-lang-vb.net

 guida pecca di un argomento?
potrebbero essere vere tutte e due le cose: potrei aver scritto male il nome
della variabile, ma ne esiste sicuramente una, che però (e questo è certo)
non è documentata.
Salutoni
Sergio

 Cliente: Win98 +Mdac 2.6
Oltre a quello che ti hanno detto gli altri sarebbe opportuno installare
MDAC 2.7 anche al cliente... :)
                    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: su che rivista il SP3 per Visual Basic 5

su che rivista il SP3 per Visual Basic 5
Grazie anticipatamente
PFM
--
To reply please remove from e-mail 'xyz'- Per rispondere togliere 'xyz' dall'indirizzo e-mail.


DEV N.52, Maggio 1998
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Routine Property con argomento un oggetto

Salve,
vorrei passare un oggetto (una form,ma trovata la via presumo sia la stessa
per tutti gli oggetti)come argomento alla routine Property. Ho effettuato
due tentativi purtroppo falliti:
Primo tentativo:
modulo classe2
Private mf As Form
Public Property Get f() As Form
  Set f = mf
End Property
Public Property Set f(ByVal NewForm As Form)
  Set mf = NewForm
End Property
Private Sub Command3_Click()
  Dim c2 As New Class2
 
c2.f.Name
 Form1 'Errore: Utilizzo non valido di Property
End Sub
------------------------------
Secondo tentativo:
modulo classe2
Private mObject As Variant
Public Property Get anyObject() As Variant
  If IsObject(mObject) Then
    Set anyObject = mObject
  Else
    anyObject = mObject
  End If
End Property
Public Property Let anyObject(ByVal newvalue As Variant)
  mObject = newvalue
End Property
Public Property Set anyObject(ByVal newvalue As Variant)
  Set anyObject = newvalue
End Property
Private Sub Command3_Click()
  Dim c2 As New Class2
  c2.anyObject Form2 'Errore: Utilizzo non valido di Property
End Sub
giuseppeD

   c2.anyObject Form2 'Errore: Utilizzo non valido di Property
Le property non sono metodi!
   c2.f =  Form1 '.Name?? Assegni al form o al suo nome??
   c2.anyObject = Form2
    (ci vorrà il Set? Non mi ricordo mai :))
Ciao
------------------------- SiDB Simple DataBase engine ----
------------------------- adParser Expression evaluator --
 
http://space.virgilio.it/zntf...@tin.it/
----------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Informazione Programmi

Sapete come fare uno script che mi visualizza la lista dei programmi sul
pc??
Grazie

 programmi sul  pc??
I programmi che sono correttamente installati e che
percio' (di solito) hanno un uninstaller il  qui sotto file bat :
'1) *.bat
@Echo Off
Start /Wait Regedit /E %TEMP%.\Tmp HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall
Find "DisplayName" < %TEMP%.\Tmp >%TEMP%.\ARProg.txt
Del %TEMP%.\Tmp
Notepad %TEMP%.\ARProg.txt
'2 *.vbs (X sfizio)
Set fso = CreateObject("Scripting.FileSystemObject")
Set oShell = WScript.CreateObject("WScript.Shell")
bKey =oShell.RegRead("HKLM\Software\Microsoft\Windows\"&_
               "CurrentVersion\ProgramFilesDir")
Set f = fso.GetFolder(bKey)
Set fc = f.SubFolders
Set newf = fso.createtextfile("install.log")
For each fol in fc
'newf.WriteLine 
fol.name
 &" >>> " & fol.size
newf.WriteLine 
fol.name
next
newf.Close
oShell.run"install.log"
Set oStream =fso.OpenTextFile("install.log")
    Do Until oStream.AtEndOfStream
      sLine = oStream.ReadLine
      If InStr(UCase(sLine),"OUTLOOK EXPRESS") Then
WScript.Sleep 200
    Msgbox "Outlook installato"
'Msgbox bKey &"\"& sLine
Folderspec = bKey &"\"& sLine
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & "file: " & f1
s = s & vbcrlf
Next
msgbox(s)
end if
    Loop
--
Fosco

Fatto !! e funziona
Domanda,   pensavo che funzionasse anche l'oggetto printer per stampare.
Invece non riesco a trovare l'istruzione per stampare??
"Fosco" <fa...@fake.invalid> ha scritto nel messaggio
news:5hhtc.346464$rM4.14...@news4.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Differenza tra tempi

Sto cercando di trovare il modo per fare la differenza tra due tempi sul
formato hh/mm/ss: come devo fare?

hai provato col -?
Faber

 formato hh/mm/ss: come devo fare?
Immagino che il problema tu ce l'abbia con ore a cavallo fra due giorni. Se
e' cosi' prova:
Dim dateBegin As Date
Dim dateEnd   As Date
Let dateBegin = "02.00.00"
Let dateEnd = "06.00.00"
Debug.Print _
  Format$( _
      (dateEnd - 24 * (dateBegin > dateEnd)) - dateBegin _
    , "Long Time")
Let dateBegin = "22.00.00"
Let dateEnd = "06.00.00"
Debug.Print _
  Format$( _
      (dateEnd - 24 * (dateBegin > dateEnd)) - dateBegin _
    , "Long Time")
--
Ciao.
Maurizio

Prova con la funzione DateDiff a cui passi le date in
formato LongTime con ora minuti e secondi.
Saluti
locaduck
* Sent from AltaVista 
http://www.altavista.com
 Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping.  Smart is Beautiful

 formato LongTime con ora minuti e secondi.
Mi sa che non funziona, perche' DateDiff non ritorna una data ma
"Restituisce il numero di intervalli di tempo tra due date specificate". Se
pero' mi sfugge qualcosa potresti spiegarmi, per favore?
--
Ciao.
Maurizio
Newsgroup: it.comp.lang.visual-basic
Titolo: [!][MSDN] Chiarimenti da m$oft sulle licenze...

Mi è arrivata oggi una lettera (su carta) da Microsoft dove l'azienda
chiarisce una volta per tutte la questione delle licenze dei prodotti
contenuti in MSDN. In pratica ribadiscono quello che già stava scritto sulle
loro faq in inglese.
Appena posso la acquisisco con lo scanner e la metto on-line a disposizione
di tutti. Chissà se è possibile pubblicarla sul SC! :-)
hth
Alessandro

Qualche post sopra al tuo ce ne è uno dal subject MSDN
Ciao, Vincenzo

 Qualche post sopra al tuo ce ne è uno dal subject MSDN
Credo che Lord, che paraculo non è, volesse pararci il culetto a tutti,
mettendo sul SC la foto di un cosa che domani potrebbe essere negata...

 negata...
... qui lo dico e qui lo nego... firulì firulà... O:)
Newsgroup: it.comp.lang.visual-basic
Titolo: [VBA] Dichiarare variabile Applicazione Word

Salve a tutti.
Linguaggio VBA, necessito da Access di creare un documento Word con un
template costruito appositamente (con installato Office 2003).
Se scrivo questo codice:
__________________________________
Dim ApplicazioneWord As Word.Application
Set ApplicazioneWord = CreateObject("Word.Application")
MsgBox "Versione: " & ApplicazioneWord.Version
<...>
__________________________________
Mi segnala un errore a runtime nella seconda riga, riguardo a "Run-
time error: 13 - type mismatch"
Come se stessi dichiarando in modo sbagliato la variabile
"ApplicazioneWord"
Dichiarandola Variant me lo permette, non mi segnala errore ed esegue
correttamente tutto il resto.
___________________________________
Dim ApplicazioneWord As Variant
Set ApplicazioneWord = CreateObject("Word.Application")
MsgBox "Versione: " & ApplicazioneWord.Version
<...>
___________________________________
Qualcuno sa per caso dirmi come dovrei dichiarare la variabile
ApplicazioneWord, in modo che funzioni correttamente? (che non sia
Variant quindi)

Ehm.. lol. L'ho dichiarato "Object" e funziona correttamente.
Ora però mi viene un dubbio:
Con Office 2007 la sequenza di istruzioni la considera valida:
____________________________________
Dim ApplicazioneWord As Word.Application
Set ApplicazioneWord = CreateObject("Word.Application")
MsgBox "Versione: " & ApplicazioneWord.Version
<...>
Mentre con office 2003, no.
Può essere che word 2007 accetti questa dichiarazione e Word 2003 no,
oppure c'è qualcos'altro sotto?

 ha scritto nel messaggio 
news:fbfbd443-e78c-458e...@f36g2000hsa.googlegroups.com...



------------------
questa odvrebbe andre sempre:
dim W as object
set W = createobyect("Word.Application")
greg


Prova per documento nuovo:
Public Sub m()
On Error GoTo RigaErrore
    Dim objWord As Object
    Dim objDoc As Object
    Dim objSelection As Object
    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Add()
    Set objSelection = objWord.Selection
    objWord.Visible = True
    'Codice
RigaChiusura:
    objWord.Quit
    Set objSelection = Nothing
    Set objDoc = Nothing
    Set objWord = Nothing
    Exit Sub
RigaErrore:
    MsgBox Err.Number & vbNewLine & Err.Description
    Resume RigaChiusura
End Sub
Per documento che hai già:
Public Sub m()
On Error GoTo RigaErrore
    Dim objWord As Object
    Dim objDoc As Object
    Dim strPath As String
    strPath = "C:\mioFile.doc" '<<--Modifica
    If Dir(strPath) <> "" Then
        Set objWord = CreateObject("Word.Application")
        Set objDoc = objWord.Documents.Open(strPath)
    Else
        MsgBox "File non trovato"
        Exit Sub
    End If
    objWord.Visible = True
    'Codice
RigaChiusura:
    objWord.Quit
    Set objDoc = Nothing
    Set objWord = Nothing
    Exit Sub
RigaErrore:
    MsgBox Err.Number & vbNewLine & Err.Description
    Resume RigaChiusura
End Sub
-- 
---------------------------
Mauro Gamberini
http://www.riolab.org/
Newsgroup: it.comp.lang.visual-basic
Titolo: AAA cercasi - stampa bollettini postali

C'è qualcuno che abbia sviluppato delle utility per la stampa di bollettini
postali?
Grazie.
Ligre.

postali?
Io avevo fatto qualcosa con VB3. Se ti interessa ti posto i sorgenti.
--
Bye.    _____
          |     /\   | /
          |    /__\  |\
          |   /    \ | \
   Tak ah lah. Mi him en tow
Per 
rispondermi:ma...@pinet.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Documentazione sui codici a barre per programmare

Sapreste darmi qualche indicazione su dove trovare documentazione sui codici
a barre per poterli usare nella programmazione?
Grazie
Vincenzo

 wrote in message
9nt8ac$c6t$1...@nreada.inwind.it...

sui siti: 
http://it-lang-vb.net/
 
www.visual-basic.it
ciao
Jack

 ha scritto nel messaggio
news:9nt8ac$c6t$1...@nreada.inwind.it...


 ha scritto nel messaggio
news:9nt8ac$c6t$1...@nreada.inwind.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Ma porca di quella paletta!!! DATAGRID

Sono un altro sfortunato personaggio dell'oggetto datagrid...
Allora, qualc'uno puo' darmi una soluzione? sono notti che provo a fare
qualche cosa...non riesco ad aggiornare una datagrid... il mio cod e'
questo:
----
DataEnvironment1.Commands("elenco_partite").Parameters("riferimento").Value
= Mid(ID, 4)
DataEnvironment1.rsElenco_Partite.Requery
Principale.elenco_partite.ReBind
-----
la query mi ritorna i record in modo corretto, ma non riesco a visualizzarli
nella datagrid quando modifico il parametro della query...
sto bestemmiando in turco!!!! srtuvlftrerto gun
PS: ho provato a leggere qualche messaggio con deja ma non ho risolto
niente....
grazie!

 nella datagrid quando modifico il parametro della query...
Hai provato con datagrid.refresh ? a me funziona....
Credo che sia perche con le istruzioni che usi aggiorni il recordset, ma
'sta benedetta griglia non la aggiorni mai?
Ciao
Alex

Non so se questo è il caso, ma DataGrid ha diversi bug con Requery e Filter
del Recordset, se usato in modalità Bound.
Proprio per evitare questo, io ho spostato tutto in unbound.
Ciao
Alberto

 ha scritto nel messaggio
news:a4dnl4$r15$1...@newsreader.mailgate.org...

mmm, mi sembrava che fossi io...le avevo provate tutte...provero' come dici
grazie!
Newsgroup: it.comp.lang.visual-basic
Titolo: Datenviromnet e ricerca

Sto provandoad usare il dataenviroment, ma mi sa che mi sto perdendo in un
bicchiere d'acqua....
Devo creare una ricerca su un (o una?) command.
prima (quando non usavo il DE) facevo +o- cosi' ,  qundi dichiarando tutto
via codice.
Set dbc = DBEngine.OpenDatabase("c:\miadir\database.mdb")
Set rs_brani = dbc.OpenRecordset("SELECT * FROM DATA where autore='pino
daniele'")
--- disegnavo la treeview con questo recordset------
ora pero', dato che ho gia' il database aperto volevo sfruttarlo, senza
stare a riaprirlo una seconda volta dato che ho il DE gia creato.
come faccio a creare un recordset filtrato partendo dalla command del DE?
spero di avere usato i termini giusti.....
grazie!

 ha scritto nel messaggio
news:Cvq17.10098$rh.2...@news6.giganews.com...

Il DataEnvironment utilizza la tecnologia ADO. mentre, a quanto vedo dal tuo
codice, prima utilizzavi
il JET / DAO. C'è una gran bella differenza fidati !!!!
Dovresti avere una minima infarinatura della tecnologia ADO
Comunque posso dirti che ADO si avvale dei seguenti oggetti principali (ed
altri che non sto ad elencarti)
CONNECTION - Realizza una connessione al server (o altro archivio es. .MDB)
RECORDSET - Recupera un insieme di dati (tabelle / query) simile al RS di
DAO
COMMAND - Può effettuare query - eseguire stored procedure ect....
Ma il tempo per spiegarti è notevole
Documentati meglio e fammi sapere altrimenti resta col tuo DAO/JET (che ti
sconsiglio dato l'orientamento di Microsoft in direzione UDA e la tendenza
ad abbandonare DAO)
Ciao
Mario M.

Newsgroup: it.comp.lang.visual-basic
Titolo: Re: [ O T ] Maledetto news.cs.interbusiness.it

 
ce ne sono vari che permettono la registrazione gratuita.
qualche info la puoi trovare su 
http://www.vene.ws/
-- 
+-------
| Paolo opg
|
| janickg ( at ) hotmail ( dot ) com
| (fake address in reply-to field!)
+-------



 ha scritto

http://news.individual.net
 , quello che sto usando ora.
registrazione gratuita.
non ha i binari.
ciao, j.

 ha scritto nel messaggio 
news:366ei9F...@individual.net...



ma non sta per diventare a pagamento?
-- 
"Tutta la droga del mondo non vale un grammo della mia adrenalina"
Lorenzo Cherubini alias Jovanotti
Per bypassare i filtri antispam scrivi nel testo del messaggio "AIEIE"
MasterDavidex - David Ruscelli
ICQ 223258511 

 ha scritto nel messaggio 
news:3adh8dF...@individual.net...

Newsgroup: it.comp.lang.visual-basic
Titolo: Anteprima stampa

Salve a tutti, devo realizzare un'anteprima stampa di una fattura. Se la 
fattura è salvata sul database tutto ok. Per
l'anteprima senza salvare la fattura ho pensato, a creare  di creare una 
tabella (o due intestazione, descrizione ) in cui salvo i dati provvisori,
 e poi alla fine cancello i record provvvisori. C'è qualche soluzione 
migliore? per l'anteprima utilizzo DataReport di VB6.
Grazie Magox

Magox ha scritto:

La creazione di tabelle che contengono solo i dati per la stampa porta 
più problemi che altro sopratutto se il programma è multiutente.
Meglio crearsi un recordset disconnesso (magari gerarchico) che una 
volta popolato puoi agganciare (come fosse una normale tabella) al tuo 
datareport.
E' un po' meno immediato e un po' più complicato da implementare ma 
sicuramente ti risparmierai tanti problemi.
Ciao
Stefano

 E' un po' meno immediato e un po' piů complicato da implementare ma 


Newsgroup: it.comp.lang.visual-basic
Titolo: sorgenti mp3 e ocx

Ma non esiste un ocx per mp3 che suoni TUTTE le mp3 ?
io ne ho svariati...ma uno suona solo VBr, altre a BR fisso...altri non
suonano...
altri suonano solo quelle che je va ...
per fare un progetto per un cliente sto usando tre oggetti diversi per
suonare tutte le mp3 ...adesso divento pazzo...
ma non esistono moduli open source, funzioni, quelunque cosa da spulciare
per suonare correttamente tutte le mp3 che voglio ?



E' tanto che non rispondevo con un semplice, unico, indiscutibile...
Sito Comune
;-P
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
---------------------------------------------------------------------------

 Moreno
Puoi dirmi il nome ? cosa devo scaricare precisamente ?

Puoi dirmi il nome ? cosa devo scaricare precisamente ?
http://www.it-lang-vb.net/
mi pare che sia ancora in bacheca ;-)
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: nome del' oggetto da una variabile?

Volevo gentilemente chiedere, se è possibile
utilizzare nel codice un nome di un oggetto
tratto da una variabile stringa.
es:
stringa = "text1"
indice = "(1)"
oggetto = stringa & indice
oggetto.caption = " ciao"
Grazie 1k


---
Vorrei vedere le piramidi di Cheope,
ma sono miope, ma sono miope.
---

Newsgroup: it.comp.lang.visual-basic
Titolo: Newbie: combobox

Sicuramente è una domanda da newbie... come posso attivare la modalità
change nelle combo-box "dropdown List"? Nel mio manuale (Francesco Balena -
Visual Basic 6) mi dice che non è possibile.
Esiste una soluzione?
Grazie mille!

ho risolto il problema: uso non "change" ma "click".
Spero di aiutare cosě un newbie con il mio stesso problema ;)
Newsgroup: it.comp.lang.visual-basic
Titolo: Device I/O Error durante la scrittura dell'exe

Prima che qualcuno mi insulti :-), lasciatemi specificare che:
	- il disco è stato controllato con più utilities
	- ho già provato a cambiare nome all'eseguibile
	- sul disco c'è spazio :-)
	- su un'altra macchina lo stesso exe viene creato senza problemi
	- ho già provato a reinstallare il VB
Qualcun'altro ha avuto questo problema?
Mario Mantese (
man...@pat.it
)


A me succede a volte con il setupwizard, ma solo sotto NT. W95 non si
lamenta.
Devi cancellare l'eseguibile precedente si cui sovrascrivi il nuovo
compilato. A volte non riesce a ricopriro bene.
Se invece non esiste file precedente, non so proprio cosa possa essere
:-(((((
Stefano - 53.6%
gl...@eponet.it
http://www.geocities.com/SiliconValley/Lakes/1218
(programmazione VB 32 bit)

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] MSDN Originale Vendesi

Vendo i seguenti numeri di MSDN Library Originali:
-MSDN July 2001 (3 CDs) 100.000 lire (ULTIMO NUMERO USCITO!!!)
-MSDN April 2001 (3 CDs) 60.000 lire
-MSDN January 2001 (3 CDs) 40.000 lire
-MSDN Library Archive (1 CD, tutta la documentazione per Win16) 100.000 lire
Inoltre questi prodotti: (se associati a un numero di MSDN Library a metà
prezzo!).
-Component Source MSDN 01/2001 Edition (1 CD) 20.000 lire (ULTIMO NUMERO
USCITO!!!)
-MS SQL Server 7.0 Kit di valutazione (1 CD) 16.000 lire
-MS Windows DNA (1 CD) 16.000 lire
-MS Internet Business Development Kit (4 CDs) 12.000
-MSDN V.3 Sampler CD (1 CD) 12.000 lire
-MS TechNet Sample (1 CD) 6.000 lire
-MS Year 2000 Resource CD (1CD)  2.000 lire
-MSDNNews Mar/Apr 2001 (opuscolo) 4.000 lire
-MSDNNews May/Jun 2001 (opuscolo) 10.000 lire (ULTIMO NUMERO USCITO!!!)
Spese di spedizione a carico del destinatario.
Scrivete a 
fran...@yahoo.it

Quanto al kilo ?

 wrote in message
news:9oshtp$e80$3...@nreada.inwind.it...



L'avevo già gentilmente segnalato un paio di volte, ma vedo che è
recidivo...
Inoltre rivendere invece Cd sampler gratuiti assortiti a pagamento mi sembra
(forse) legale, ma sicuramente offesnsivo nei confronti dell'intelletto dei
lettori...
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: R: R: [OT] Office 2000

Zeross non sei ben informato..
il k6-II è tecnologicamente superiore al Celeron-Pentium II. Ragguinge
livelli di integrazione maggiori cosa che la Intel ha solo fatto nel Pentium
Pro. Ha la cache che lavora a metà velocità(frequenza) del processore ha la
possibilità di utilizzare oltre che la cache on-chip anche la cache (di III
livello) on board..
ha le estensioni 3d now... e soprattutto costa meno della metà di un pentium
II
Ciao Dany
--
Posted from 
dns.iqsnet.it
 [192.106.88.9]
via Mailgate.ORG Server - 
http://www.mailgate.org

 II
K6 II 450 ..........  £ 210.000
Pentium II 400....  £ 328.000    (il P-II 450 non è più in listino)
K6 III 450 .......... £ 436.000
Pentium III 450.... £ 517.000
...dicevi, scusa.... ? ^__^
Vogliamo poi mettere in campo l'ormai obsoleta tecnologia del Socket 7
(seppure pompato a 100 MHz ?) rispetto allo Slot 1 o il PPGA ?
Mah... eppoi sarei io quello non informato....
Se vuoi una analisi completa e comparativa tra i processori non hai che da
chiederlo... appena avrò tempo di sicuro ti risponderò !
Aloha ! ^__^
Zeross

Newsgroup: it.comp.lang.visual-basic
Titolo: Access95 ---> Access97

Ho un programma che utilizza dei file MDB fatti con access 97, ma le persone
che utilizzeranno tale programma potrebbere volerlo utilizzare con un file
MDB creato da Access 95 o precedente.
Come fare?
Che righe di codice servono?
Ciao e grazie.

Ripeto la domanda perchè nessuno mi ha risposto.
Ho un programma che utilizza dei file MDB in formato Access 97 (o volendo
ache 2000), ma le persone che utilizzeranno tale programma potrebbere
volerlo utilizzare con un file
MDB in formato Access 95 o precedente.
Come fare?
Esistono delle linee di codice che permettono la conversione del formato?
se casomai non sia possibile fatemelo sapere, è importante.
Ciaio a tutti e grazie.

Newsgroup: it.comp.lang.visual-basic
Titolo: aggiornamento vb4

So che esiste un aggiornamento del vb4 alla versione 4.0a
volevo sapere se e' disponibile in rete da qualche parte.
Grazie.

...

Newsgroup: it.comp.lang.visual-basic
Titolo: Selezione Testo in Automatico!

Salve a tutti..
Qualcuno saprebbe dirmi come faccio a far selezionare in automatico
un valore che ho in textbox nell'evento GotFocus?
Grazie..

se la textbox si chiama Text1:
Text1.SelStart = 0    (o da dove vuoi)
Text1.SelLenght =  Len(Text1.Text)    (o altra lunghezza che preferisci)
Newsgroup: it.comp.lang.visual-basic
Titolo: Per "oZ" o chiunque mi voglia evitare la pazzia

Caro "oZ", siccome sono sull'orlo della pazzia provo a fare l'ultimo appello
sul NG. Per te che conosci già il problema e per quelli che leggeranno
questo post proverò a spiegare meglio il mio problema:
In ambiente VB il mio programma, formato da un form MDI e da altri form CHD,
funziona benissimo. Se creo l'eseguibile, o il pacchetto di installazione,
il programma non funziona più. In particolare riesco a caricare il form MDI
e lancio il primo form che dovrebbe gestire il collegamento con uno
strumento tramite seriale. Il collegamento va a buon fine, ma sull' unload
di questo form di collegamento mi da un errore in USER32.exe
Per verificare dov'era l'errore ho messo in ogni evento del form di
collegamento e in quello Mdi le seguenti righe :
    Open App.Path & "\Sommario.log" For Append As 2
    Print #2, " NOME EVENTO "
    Print #2, ""
    Close #2
sostituendo "NOME EVENTO" con "Unload", "Query Unload" etc., a seconda di
dove lo inserivo.
Il risultato è che l'ultima cosa che il programma fà prima di dare l'errore
è l'evento unload del form di collegamento.
In questo form ci sono solo delle Combo, delle Text, dei Frame e dei
pulsanti ........ niente di più semplice !!!!
Help !, please.
Ciao, Claudio.

 ha scritto nel messaggio
news:9e0ln5$r75$1...@nreadB.inwind.it...


Nell'unload non c'è nessuna riga di codice(tranne quelle che hai scritto tu
adesso)?
Ciao

 ha scritto nel messaggio
news:9e0p4t$ec8c$1...@ID-77238.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: problemi con maskedit....

Salve a tutti stò utilizzando un controllo di testo maskedit per limitare
l'inserimento dei dati a soli numeri
ho assegnato alla proprietà mask la stringa "########"  che significa che
accetta solo numeri
se però non inserisco tutte le cifre ma ad es. solo 5 quando prelevo i dati
mi vengono copiati anche i caratteri "_" che sostituiscono la mancata
inserzione dei numeri mancanti.
Io però non voglio prendere anche i trattini "_" perchè altrimenti quando
converto il valore in intero mi da un errore....
Ho pensato di sostituire il carattere "_" con uno zerp "0" ma non ho trovato
la proprietà...
Come posso fare?
Grazie mille a tutti!!

Domanda stupida, se il tuo problema è di limitare i caratteri inseribili ai
soli numeri, non potresti usare una normalissima TextBox e trappare l'input
dell'utente nell'evento KeyPress?
Byez
Tango
Newsgroup: it.comp.lang.visual-basic
Titolo: Cancellare un file !

Ciao, come faccio a cancellare un file ?...mi spiego...ho fatto un
programmino multiutente...e una delle opzioni è cancella utente, quindi, io
dovrei cancellare detto nome da un file che contiene tutti i nomi  e il suo
relativo file che si chiama utente.programma!....colgo l'occasione per
chiedere se c'è anche un metodo veloce per rinominare un dato all'interno di
un file!
Ciao
Ale

 wrote in message
news:crjM9.4249$Q%4.12...@news1.tin.it...

Kill "Nomefile"

 un file!
Dipende: che tipo di file č? E' a record a lunghezza fissa?
Ciao
--
using System.Gtk.Forms = "
http://www.neodatatype.net/windowsforms/sgf.aspx
"
mathParser = "
http://www.neodatatype.net
"
sitoComune = "
http://www.it-lang-vb.net
"


E' un semplice file creato con
Open "fille" for Output as #1
dentro ci sono massimo 5 voci....
Pippo
Paperino
Pluto
Minni
Topolino
se io voglio per esempio rinominare la terza?
Ciao
Ale

 se io voglio per esempio rinominare la terza?
Se la lunghezza di ogni riga è variabile hai un'unica via:
ti leggi tutto il file riga pe riga e lo riscrivi su un secondo, saltando o
modificando la riga che ti interessa.
Poi cancelli il file originale e rinomini il nuovo come il vecchio.


Newsgroup: it.comp.lang.visual-basic
Titolo: Un oggetto da un form ad un altro

Supponiamo ad esempio di avere in una stessa applicazione due form:
form1 e form2. Su entrambi si inseriscono due oggetti: ad esempio due
combo box combo1 e combo2. Nel  form1 con una qualche routine carico il
combo1. Si puo' riempire il combo2 senza utilizzare la routine di carico
oppure spostare l'oggetto combo1 sul form2 ?
Grazie
Sergio
--
Posted from [195.223.72.130]
via Mailgate.ORG Server - 
http://www.mailgate.org

oppure spostare l'oggetto combo1 sul form2 ?
Per spostare un oggetto (es. una combobox) su un altro form basta che tu
faccia:
SetParent Combo1.hwnd, Form2.hwnd
Non ne garantisco la piena funzionalità.
SetParent() è un'api.
Ma il sistema non mi sembra molto pulito.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Database e Password

ho creato questa istruzione
set db=createdatabase("Miodatabase", dblanggeneral & ";pwd=miapwd")
dove db e dichiarata come database
il database viene creato regolarmente e quando lo voglio aprire in access la
prima cosa che chiede e di immettere la password. Immettendola il database
viene regolarmente aperto.
per aprire il database in visual eseguo
set db=opendatabase("Miodatabase", , , ";pwd=miapwd")
a questo punto mi da un errore di password errata
ho provato ad aggiungere anche
set db=opendatabase("Miodatabase", , , "dbusejet; pwd=miapwd")
niente da fare sempre lo stesso codice di errore PASSWORD ERRATA
spero che qualche anima pia mi sappia risolvere il problema grazie
Enzo I8VKB

A ma usando:
Set DB = OpenDatabase("Miodatabase", False, False, ";pwd=miapwd")
Funziona
Bye
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6-ACCESS]Modificare il nome di un field esistente ...

Ciao a tutti,
stavo cercando il modo/capire come potrei modificare un campo gia' esistente
in una tabella.
Mi spiego meglio:
Ho un database ACCESS (Jet 4.0) con una tabella (miatabella) ed in questa
tabella ho due campi o fields "ID_Dest" ed "destinazione"; mettiamo il caso
che vorrei modificare "destinazione" con "destinazioni" , qual'e' la
sintassi/metodi da applicare ?
Logicamente questo esemp. mi serve in quanto dovro' far modificare ad un
numero x di clienti i propri database ... altrimenti avrei provveduto con
ACCESS stesso :-)
Grazie per l'attenzione
Filippo
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 sintassi/metodi da applicare ?
La procedura corretta è:
1) Creare una nuova colonna con il nome nuovo, usando ALTER TABLE ADD
2) Travasare i dati con UPDATE TABLE SET COLONNA2=COLONNA1
3) Eliminare la vecchia colonna con DROP COLUMN
La colonna nuova sarà, ovviamente, a 'fine' tabella, ma da un punto di 
vista relazionale questo non cambia niente, visto che occorre sempre 
indicare l'elenco dei campi, quindi che siano da una parte o da un 
altra non cambia.
Attenzione che se la colonna è utilizzata da un costraint (ad esempio 
se è una chiave esterna), occorre prima 'smontare' il costraint e 
ricrearlo sulla nuova colonna subito dopo.
Ciao
Alberto
-- 
A questo punto hanno trovato un muro,
un muro duro, molto molto duro,
che siamo noi.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Errore con ADO

Uso VB6 Enterprise con SP3
ho un database Access 2000, contiene 3 tabelle, 2 funzionano perfettamente,
mentre la 3 mi dà il seguente errore
dopo aver dato
rs.addnew
rs!nomecampo=txtDescrizione
mi viene generato il seguente errore:
    -
2147217887
 Si Sono verificati errori
non ho trovato niente su MSDN agg. ad Aprile
Grazie a tutti

...

Penso che tu sia convinto di trovare dei maghi in rete se ti aspetti
che qualcuno ti risponda senza dare informazioni piu' eloquenti tipo:
1) il tipo dati del campo che hai citato;
2) eventuali relazioni tra le tabelle implicate;
3) come hai aperto il recordset rs; ecc.
buona fortuna....

Newsgroup: it.comp.lang.visual-basic
Titolo: [File]Progetti recenti[?]

Ciao
Qualcuno sa dirmi come posso cancellare
i progetti recenti che appaiono in fondo al menu FILE?
Grazie
-----------------------------------------
Messaggio inviato con Excite Newsgroup.
http://www.excite.it/newsgroup

 i progetti recenti che appaiono in fondo al menu FILE?
Nel registro di sistema:
[HKEY_CURRENT_USER\\Software\Microsoft\\Visual Basic\\6.0\\RecentFiles]
-- 
Rivolterò il mondo per trovarlo, e anche se andasse in Indocina uno dei 
nostri starà nascosto in una ciotola di riso pronto a sparargli nel culo.
(Pulp Fiction)

 [HKEY_CURRENT_USER\\Software\Microsoft\\Visual Basic\\6.0\\RecentFiles]
Grazie :)

Newsgroup: it.comp.lang.visual-basic
Titolo: capslock e numlock

come è possibile, via Api, settare il CapsLock e il NumLock?
grazie
mario

 come è possibile, via Api, settare il CapsLock e il NumLock?
Dev' essere la SetKeyboardState
Ciao
Aldo


giusto
grazie

 giusto
Occhio a NT :)


perchč????? non mi mettere quest'ansia addosso... ::))))))))
mario

 perchč????? non mi mettere quest'ansia addosso... ::))))))))
Mah, niente. Le luci sulla tastiera se ne fregano di quello che
la funzione dice (anche se lo stato viene modificato).
Se vuoi "accendere le luci" su NT devi usare keybd_event()
al posti di SetKeyboadState().
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: ?Sintassi per TrayIcon

Ho scaricato 3 esempi dal SC per la TrayIcon.
- Uno, di Bruno Salzano, oltre alla DLL Shell_NotifyIcon, ha altre DLL, l'ho
provato ma quando riduco a icona chiude VB, vuol dire che qualcosa va in
conflitto.
- L'altro esempio, usa una picturebox come icona e il suo evento mouse_move
per intercettare il mouse.
- Il terzo usa l'icona del form e il suo evento mouse_move per intercettare
il mouse. Lo stesso metodo che ho visto in un esempio di Francesco Balena.
Sicuramente i secondi due sono molto più semplici e soprattutto non usano
molte DLL.
Quale sintassi usereste voi?
Carmelo

 il mouse. Lo stesso metodo che ho visto in un esempio di Francesco Balena.
Ma il mouse move funziona anche sui bordi del form ? Mi pare di noin vb ...
forse non ho capito cosa fa... puoi postare l'url degli esempi ?
Io credo che mi affiderei alle DLL di sistema, magari ci sono alcuni errori
nel codice che le utilizza.
P.S: La sintassi e' un'altra cosa....  se usi VB sei obbligato ad usare la
sintassi del VB  ;D
Newsgroup: it.comp.lang.visual-basic
Titolo: API e COM1

Ciao a tutti, ho il seguente problema.
Sto leggendo la lezione sulla gestione di una porta seriale all'indirizzo:
http://www.vbitalia.it/articoli/comm1.asp?lez=comm1
 .
Nella seconda pagina mi dice che per aprire la comunicazione con la Com1
devo fare cosě:
      Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal
lpFileName As String,_
      ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long,
lpSecurityAttributes As  Long, _
      ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As
Long, _
      ByVal hTemplateFile As Long) As Long
Private Sub Form_Load()
Dim nPorta As Long
nPorta = CreateFile("COM1", GENERIC_READ Or GENERIC_WRITE, 0, 0&, _
OPEN_EXISTING, 0, 0)
MsgBox nPorta
End Sub
A questo punto lanciando l'applicazione la prima volta, la "MsgBox nPorta"
dovrebbe darmi il valore di "280" (e cioč porta aperta) e rilanciando
l'applicazione il valore di -1 ( e cioč porta occupata perchč aperta
nell'operazione precedente). Per evitare il problema e cioč quello di
trovare al secondo lancio dell'applicazione la com1 occupata, dovrei
chiudere la porta richiamando la funzione CloseHandle come segue:
Nella Dichiarazione
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
nel form load scrivere:
CloseHandle nPorta
Purtroppo ho sempre il messaggio di porta occupata e cioč -1. Dove sbaglio?
Infinitamente grazie
Michele b.

 nell'operazione precedente).
Qui e' opportuno usare le costanti: -1 corrisponde ad INVALID_HANDLE
e non implica che la porta sia chiusa, ma che non e' stato possibile
ottenerne
l'handle.
In questo caso servirebbe una chiamata a GetLastError() per sapere quale
errore abbia causato il fallimento della chiamata.
Un errore tipico e' ERROR_ACCESS_DENIED (che vale 5), che significa
che la porta e' in uso da parte di un altro processo.
Facci sapere qual e' l'errore che ti impedisce di aprire la porta.
--
ciao, hal
--------------------------------
Inviato via 
http://usenet.libero.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Basic 6 & collegamenti ipertestuali

Se io, per esempio, volessi inserire un link all'interno del mio programma
in Visual Basic che distribuisco free, e che rimanda al mio sito internet,
che devo fare? E se voglio mettere il mio indirizzo di posta elettronica, in
modo tale che qualcuno clicca e si apre l'Outlook (o il programma di posta)
con il mio indirizzo (vedi mailto:
indi...@mioserver.it
 dell'HTML code),
che devo fare??
Grazie
--
Bye by Neo
http://web.tiscalinet.it/neowebpage

api shellexecute
ti serve più aiuto?
--
GbC

magari. Domande prevedibili
1) dove la posso scaricare (se non sta già da qualche parte nell'os)????
2) è free??
--
Bye by Neo
http://web.tiscalinet.it/neowebpage
GbC <N...@SPAM.PLEASE> wrote in message news:7p6538$i66$1...@nslave1.tin.it...


2) è free??
Si è free ed è una funzione del sistema operativo. Devi utilizzare
il visualizzatore api che si trova sul cd del Visual Basic.

 wrote in message 7p88ko$ikp$1...@serv1.iunet.it...

Io ho usato un sistema più semplice (che mi è stato suggerito in questo NG),
senza scomodare nessuna API (se poi usando l'API è più efficiente dittemelo
^___^;;;)
            Shell "Start mailto:
dap...@lycosmail.com
?subject=Programma
AutoQuote!", vbHide
--
Ciao!
==================================
Daniele Pinna
Email: 
dap...@lycosmail.com
Nell'indirizzo Email eliminare la parola OOPS
Sito Web: Il DoCFa in Pillole: 
http://dapinna.freeweb.org
ICQ UIN: 24567484
______________________________________
  La fantascienza come Star Trek non e' solo un buon divertimento, ma
assolve anche uno scopo serio, che e' quello di
espandere l'immaginazione umana.
  Limitare la nostra attenzione a questioni terrestri equivarrebbe a fissare
dei confini allo spirito umano.
Stephen Hawking

 wrote in message
news:7pcq9r$j8l$2...@aquila.tiscalinet.it...


 a me non funziona: dice "errore di run-time 53: impossibile trovare il
file"
Strano... ho riprovato anche adesso e funziona correttamente.
Copio e incolla la stringa direttamente da VB..
     Shell "Start mailto:
dap...@lycosmail.com
?subject=Programma
AutoQuote!", vbHide
Fai la prova da Start -> Esegui digitando solo:
    Start mailto:
dap...@lycosmail.com
?subject=Programma AutoQuote!
e dimmi che errore ti dice...


 >


ahahahahahahaaa............ (sto morendo di risate), Cmq devo ancora
provare....
--
bye by Neo
webmaster de "la homepage di Neo"
http://web.tiscalinet.it/neowebpage
Cortex <a@b.c> wrote in message 7puc9p$1gv$7...@auth2.ats.it...


(ma come c***o esce 'sta gente.................)

Newsgroup: it.comp.lang.visual-basic
Titolo: subdirectories -> database

Vorrei sapere se qualcuno ha mai sviluppato un programma VB di questo tipo:
dato un path iniziale, trova tutte le sottodirectory ed i relativi files, e
replica la struttura in un database di access.
Grazie in anticipo per qualsiasi risposta.

 ha scritto

la parte di scansione, si'.
l'ha fatto microsoft.
si chiama winseek.vbp (o qc del genere) e sta negli esempi di vb5, non ho
badato se anche vb6.
con replicare la struttura mi auguro tu non intenda creare tante tabelle in
relazione quante subdir trovi...
se ti basta mettere i nomi in un campo di una tabella, se parti dal sample
ms e' semplice.
ciao, a.
Newsgroup: it.comp.lang.visual-basic
Titolo: Reperire l'icona di un file

Qualcuno è in grado di dirmi come posso fare a reperire l'icona di un file.
Io ho provato con extractassociatedicon ma l'icona restituita è sempre
32x32. Se io volessi l'icona 16x16 associata come faccio ad ottenerla.
Grazie

Guardati l'allegato Icons.zip ...
Ma non era vietato inviare files binari su questo NG?
Ciao
--
-
MIX (VB5SP3)
post...@yahoo.com
80 links ai siti VB
http://space.tin.it/computer/gaais
http://www.tempolibero.com/user/mix/
 (alternativo)
-

...


conoscenza, se cosi' e' dove trovo queste informazioni?
Il manifesto è in fase di elaborazione (vedi tra i messaggi sul NG) e
probabilmente quando sarà terminato verrà incluso nel sito comune
http://members.xoom.com/it_lang_vb
Per quanto riguarda i files binari c'è un robot che li cancella sul server.
Ulteriori informazioni puoi chiederle al webmaster.
Ciao e benvenuto nel NG.


Per quanto riguarda i files binari c'è un robot che li cancella sul
server...

...
