mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Lettura percorso file con VB6

Ciao a tutti.
Sapreste dirmi come fare a leggere il percorso e l'esistenza di un file con
VB6?
Ad esempio: voglio cercare il percorso e l'esistenza del file Pippo.txt
Grazie a tutti
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ha scritto nel messaggio
news:217Z18Z99Z186Y1...@usenet.libero.it...


Vedi Dir()
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 Ad esempio: voglio cercare il percorso e l'esistenza del file Pippo.txt
http://www.thescarms.com/vbasic/shelllnk.asp
--
Fosco

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

Saltuariamente presto assistenza software e hardware, però ora una scuola
vorrebbe la mia assistenza, ma senza possibilità di fattuare non posso
andare da loro. come posso fare?
Grazie 
sosm...@tin.it

Grazie 
sosm...@tin.it
Forse puoi risolvere con le "Prestazioni occasionali", ma devi stare sotto
una certa cifra ( mi sembra5 Milioni Annui). Loro possono fatturare a te
come persona anche senza P.Iva.

Grazie 
sosm...@tin.it
Se il lavoro e' occasionale puoi emettere ricevuta per "Prestazione
occasionale", non serve partita iva e puoi detrarre le spese
sostenute.
Se l'assistenza e' continuativa, puoi emettere ricevuta per
"Collaborazione coordinata e continuativa", non serve partita iva, le
tasse le paghi sul 95% del compenso (il 5% e' deduzione forfettaria
delle spese); ti devi iscrivere all'inps come "lavoratore coordinato e
continuativo" e la scuola versa per te la ritenuta inps (quest'anno il
12%).
Il confine tra le due modalita' e' molto labile e non esiste alcun
limite di importo o altra regola fissa
In pratica se fai un paio di interventi all'anno anche di notevole
importo e' una prestazione occasionale; se lavori regolarmente anche 1
ora alla settimana diventa collaborazione coordinata e continualtiva;
negli altri casi e' prestazione professionale e ti serve l'iva.
ciao
Alessio Vremec
Newsgroup: it.comp.lang.visual-basic
Titolo: Manuale per gestire database in VB

Sto cercando un buon manuale che mi insegni a  gestire database in VB.
Qualcuno sa consigliarmi?
Risposte in e-mail
Saluti                                     Alberto

sta per uscire un libro della apogeo........................ se sia
buono....................boh.......speriamo!!!
ciao
andrea


buono....................boh.......speriamo!!!
Quando uscira'?
Ho scritto tre giorni fa via e-mail alla Apogeo per avere notizie ma
fino ad ora non hanno ancora risposto....
Ciao, Paolo.

pare a febbraio, era sul listino 98-99 perciò forse sarà febbraio99.
:)))


>buono....................boh.......speriamo!!!

Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda breve e facile

Come faccio ad andare a capo scrivendo i text e le caption di comandi tipo
label o textbox? Sia che io scriva da codice sia che io scriva direttamente
nella finestra proprietą in fase di progettazione il contenuto di tali
proprietą?
La label mi va a capo a "fine corsa", mentre nella textbox il testo
eccedente la dimensione della stessa scompare..!!!
Grazie.

TextBox:
proprietą Multiline = True
Label:
Dim s As String
s="Ciao" & VbCrLf & "Pippo"
Label1.Text=s
-- 
----------------------------
Mauro Gamberini

>>> Label1.Caption=s
 ----------------------------
 Mauro Gamberini

 proprietà?
Multiline abilitato nelle prorieta' (True) :
Private Sub Form_Load()
Text1.Text = "ciao" & vbCrLf & "dove vai stasera" & vbCrLf & "ciao"
End Sub
--
Fosco

Grazie ad entrambi!
Newsgroup: it.comp.lang.visual-basic
Titolo: Un chiarimento sull'uso della dll [Lunghetto]

Scusate ma ho una vaga idea di come si usi una dll... mi spiego... ne devo
creare una da zero e visto che ho un po' di tempo non e' che mi va di fare
copia incolla da una gia' prefatta e modificare i valori xche sarebbe
stupido e poco produttivo x me, allora mi chiedevo come fare a fare una
procedura che carichi una flexgrid chiamando una dll...
Io ho creato un form banale con una flexgrid all'interno. Poi ho creato una
dll con le relative property get e let di numero pari ai campi della tabella
che devo caricare + una property della connectionstring... ora pero' non so
come fare...
Ho creato una function boolean che si chiama Init che in pratica fa una
"select * from nome_tabella" e mi prende tutto il contenuto...
vabbe posto un pezzo del codice...
If rs.EOF Or rs.BOF Then
    Init = False
Else
    Me.Interattiva = rs.Fields("Interattiva")
    Me.Analisi = rs.Fields("Analisi")
    Me.Vocabolario = rs.Fields("Vocabolario")
    Me.AggVocabolario = rs.Fields("AggVocabolario")
    Me.Matrice = rs.Fields("Matrice")
    Me.Spaziatura = rs.Fields("Spaziatura")
    Me.Lingua = rs.Fields("Lingua")
    Me.Selezione = rs.Fields("Selezione")
    Init = True
End If
dall'altra parte pero' magari riesco a caricarmi la prima riga estratta da
questa select ma poi le altre righe come le carico??? cioe' dalla parte del
form non posso mica fare un rs.MoveNext xche il recordset il form non lo
vede... oppure se faccio un
for i = 1 to rs.count
....
loop
il form non sa che cavolo sia il count dei dati...
mi date una mano? come carico tutta la flexgrid del forum quindi???
Grazie...

 il form non sa che cavolo sia il count dei dati...
Crei una proprietà che porti all'esterno il valore letto nel recordset dal tuo
ActiveX DLL.
Ciao!
--
Esteban
Hosted by 
www.seber.it
(Remove nonspammare for reply)

 Grazie...
Potresti creare un metodo Connect che crea il riferimento nella tua DLL alla
flexgrid del form chiamante:
'nelle dichiarazioni:
private m_fgdControl  as MSFlexGrid
'Metodo
Public sub Connect( fgdControl as MSFlexGrid)
   set  m_fgdControl = fgdControl
end sub
ricordati di inserire in class_terminate
   set  m_fgdControl  = Nothing
a questo punto puoi creare un metodo Fill che ti riempie tutte le righe con
i record utilizzando un ciclo
In questo modo, dal tuo programma chiamerai solo
    miaclasse.Connect MiaFlexgrid
    miaclasse.Fill
Saluti
G.C.

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] "Eliminare" Mike Schilling

Spero che i messaggi post-datati del suddetto tizio vengano eliminati al più
presto: non ho nessuna voglia di vedermeli davanti per due anni !!!

 ha scritto nel messaggio
news:IzBp5.135849$dF5.2...@news.infostrada.it...


Il server e':
news.libero.it
ed i 2 messaggi sono datati 20/08/02
--
Ciao
Roberto

 ha scritto nel messaggio
news:LmJp5.136858$dF5.2...@news.infostrada.it...


in outlook express crea un account con l'email di questo tizio
seleziona il messaggio che devi eliminare e dal menu messaggio scegli
annulla messaggio

Newsgroup: it.comp.lang.visual-basic
Titolo: Finestra Informazioni Professionale

Kolter ha >>Come faccio a fare quella bella finestra con tutte le


...


Newsgroup: it.comp.lang.visual-basic
Titolo: Interbase - Visual Studio

Salve a tutti.
Volevo chiedere se esistono dei componenti per Visual Studio.Net che
permettono l'accesso a Interbase, magari anche di terze parti. Visto che
Interbase è molto utilizzato come mai non sono stati implementati
nell'ambiente di sviluppo dei componenti che già si connettono ai DB di
qwuesto tipo
Un grosso ringraziamento a tutti quelli che perderanno qualche minuto per
me...
--
Demetrio

 di qwuesto tipo
Puoi provare con 
ADO.NET
 oppure aspettare Delphi.NET, con cui la Borland
rilascera' tutte le sue librerie, comprese quelle di accesso ai DB.
Andrea

Che io sappia non esiste ancora un provider 
ADO.NET
 nativo per interbase,
quindi ti consiglio di usare il provider 
ADO.NET
 per ODBC...
            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à

 ODBC...
Funziona?
Sul libro di balena questo provider non è trattato, pur se si accenna alla sua
esistenza, se non ricordo male.
--
Salutoni
Sergio

 ha scritto nel messaggio
news:b70rc5$9r6b1$1...@ID-173193.news.dfncis.de...

I privider supportati da 
ADO.NET
 ad oggi :
SQLOLEDB (il provider  OLE DB per Microsoft SQL SERVER)
Microsoft.Jet.OLEDB.4.0
MSDAORA (Oracol)
a meno di smentite
giuseppeD

 MSDAORA (Oracol)
per la precisione gli ultimi due gestiti tramite la libreria system.data.oledb,
se non ricordo male
--
Salutoni
Sergio

 se non ricordo male
Nein... :)
Non per forza Oracle ha ben 2 provider nativi: uno sviluppato da Microsoft e
uno dalla Oracle stessa...
Quello sviluppato da Microsoft si può scaricare da 
www.microsoft.com
l'altro... boh... :)
Anche possibile passare tramite il provider per OleDB ma in questo caso le
prestazioni crollerebbero di sicuro... :)
                Ciao
                                        Allanon

Ciao!

Sì, funziona... era incluso fino alla beta2 del framework, poi é stato per
ignoti motivi escluso (é disponibile come download a parte) e sarà di nuovo
presente nella versione 1.1...
P.S. E mi pare che così sia accennato nel libro di F. Balena... ;-)


 ha scritto nel messaggio
news:E2Rka.20758$DT4.6...@twister1.libero.it...


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

Il problema è sempre lo stesso inizialmente dovevo installare su un PC che
avesse solo il sistema operativo W95, un applicazione fatta in VB 6.0 che
usi come fonte dati Access, il problema grazie a voi è stato risolto ,
difatti si doveva installare APPROPRIATAMENTE  DCOM98, ma dovi si trova
questo benedetto dcom98.exe io non lo trovo , inoltre sapreste darmi qualche
dritta su dove trovare informazioni sul DCOM e i server di automazione
remota?
Vi ringrazio anticipatemente
Alessandro


Su uno dei CD di VB5 e/o VB6.
Newsgroup: it.comp.lang.visual-basic
Titolo: Help x esperti

Salve!
volevo sapere come è possibile
upgradare un programma da me fatto in Vb
con un unico file eseguibile es:
il file UP.exe deve cercare la presenza di un'altro file eseguibile di nome
specifico e aggiornarlo
con il nuovo contenuto in up.exe.
è possibile questo?
Grazie per l'attenzione

 wrote in message
news:9tekfg$6a7$1...@nreada.inwind.it...

Non puoi cambiare il contenuto di un file EXE. Devi ricompilarlo.
Naturalmente puoi sempre rimpiazzarlo completamente con qualcos'altro.
Se vuoi veramente aiuto, cambia il soggetto del tuo messaggio, e fai una
domanda precisa, tipo : Come apro e modifico un file binario ? Facendo
naturalmente sapere che il file in questione é un file di dati e NON un
eseguibile....
Ciao
Sal

 writes:
F> Salve!
F> volevo sapere come è possibile
F> upgradare un programma da me fatto in Vb
F> con un unico file eseguibile es:
F> il file UP.exe deve cercare la presenza di un'altro file eseguibile di nome
F> specifico e aggiornarlo
F> con il nuovo contenuto in up.exe.
F> è possibile questo?
F> Grazie per l'attenzione
Oddio, ci sono delle utilities per creare patch e quindi applicarle anche
in forma binaria, se non ricordo male, e vengono da Unix, ma non le ho mai
usate. E non si può aggiornare un programma o una DLL in esecuzione.
-- 
Gian  | main(){printf(&unix["\021%six\012\0"],(unix)["have"]+"fun"-0x60);}
Uberto|                        David Korn, 1987 ioccc best one liner 
Lauri |-------------------------------------------------------------------
(aka saint) >>Vedere X-Nospam nell'header - See X-Nospam field in Header<<

 usate. E non si può aggiornare un programma o una DLL in esecuzione.
Ci sono anche sotto win, anche se non ricordo il nome. Comunque
la via più semplice è usare il wininit o la MoveFileEx:
Q140570 HOWTO: Move Files That Are Currently in Use
http://support.microsoft.com/support/kb/articles/Q140/5/70.asp
Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: form.initialize

nella sub form.initialize richiamo la mia sub draw_grid
la draw_grid viene eseguita ma nulla appare sul form.
Se la stessa la chiamo ad esempio da un command_click tutto funziona a
dovere.
Sapete chiarire questo problema?
grazie

dovere.
Prova a tralasciare la Form_Initialize e sposta il codice in Form_Load

Ti succede perchè sbagli evento... l'initialize scatta prima della
load, ovvero prima ancora che la form venga visualizzata...
dopo la load, appare la tua form... e quindi, a meno che non ci siano
altri controlli di mezzo, scatta l'activate, che scatta ogni volta che
una form riceve il fuoco...
come diceva Zanna, prova a spostare il codice sotto un altro evento,
come il Load.
fammi sapere,
RiK

Io proverei a usare l'evento Activate. Dando dei riferimenti rispetto al
form, se questo č ancora "in carica" ti genera errore. L'activate si
verifica una volta che il form č fatto e finito, quindi i riferimenti hanno
senso.
Fammi sapere se funziona.
Ciao.
matpascal


dovere.


...

AAAAAAAAAh, mo ho capito il tuo problema.
E' sempre lo sciagurato AutoRedraw: settalo a True, altrimenti devi mettere
il codice per il ridisegno nell'evento _Paint
Ciao.

volta...
coma già detto, l'Activate scatta ogni volta che il form riceve il
fuoco... e non mi sto confondendo con il get_focus...
quello che dici tu va bene se l'applicazione ha un solo form, ma se ne
ha di più, magari conviene ragionarci un attimo, visto che non è tanto
bello e performante il fatto che una routine che serve eseguire una
volta sola scatti invece ogni volta che si seleziona quella
determinata form.
Rik
Newsgroup: it.comp.lang.visual-basic
Titolo: Host_id() e Visual Basic

Set Rstmp = dbcaaf.Execute("select Host_id() as HostId,Host_Name() as
HostName")
Con stazioni W2000 il valore HostId ritorna correttamente un valore stringa
max 8 caratteri, con stazioni Windows95/98 ritorna un valore non valido
(stringa maggiore 8 caratteri e con segno negativo)
Grazie Giannni

 ha scritto

Il nome di un campo può terminare con (), almeno in Access 97 che ho
provato, ma il non lo farei mai. Viene gestito come se fosse una funzione.
Metti i nomi dei campi contenenti spazi (altra cosa che non faccio mai) e/o
caratteri "strani" fra parentesi quadre.

scusa, ma il campo si chiama host_id() ???
Prova a mettere tra quadre tutti i nomi dei campi a vedere se cambia
qualcosa

 ha scritto nel messaggio
news:Gv659.190535$Jj7.4...@news1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Risoluzione Immagine JPG

Salve, come posso ottenere la risoluzione di una immagine Jpg ?
Esiste qualche API?
    Grazie, Giulio

 ha scritto nel messaggio
news:9romos$9fa$1...@pegasus.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Eliminare i file temporanei di Explorer

Visto che alla precedente domanda non ho ricevuto risposta (neanche un nooo)
porvo a riformulare.
Si riesce da vb adeliminare i file temporanei di Explorer simulando il
comando 'strumenti opzioni elimina file' ?
Ciao e grazie.

[*Giango* = 
gi.s...@tin.it
 in news:IDjFb.22386$
wM.18...@news1.tin.it
] ha
scritto:

Non ne so nulla, ma mi pare che nel topic
"Kill" non trova i file di sistema
del 15/12 vi sia qualche soluzione in tal senso

Newsgroup: it.comp.lang.visual-basic
Titolo: FlexGrid - Informazioni su ciclo

Salve,
ultimamente per motivi di lavoro mi riaffaccio al mondo VB (VB6 nel mio 
caso) e nello specifico parlo delle flexgrid.
Ho una form che incorpora dei dati di un db tramite flex grid ... alcune 
domande:
1. ho un campo di tipo si\no che visualizzo come 0\-1 ... non posso 
trasfprmarlo nuovamente in Si\No con l'apposita casella di controllo?
2. legato al punto 1, dovrei inviare un file in rete ai solo record con 
campo valorizzato a Si
Scusate l'elementarità probabile della cosa, ma dopo mesi (anni) di stop, mi 
trovo alquanto arruginito.
Ogni input sarà gradito e prezioso.
Grazie e buona giornata.
MC 

[cut]
Nessuna idea\suggerimento?

Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto calcolo secondi

Io ho bisigno dato un tempo esempio tempo lavoro 10.25.30
10 ore 25 minuti 30 secondi di avere il totale dei secondi
Pper poi fare una divisione per pezzi del tipo
        Dim Secondipezzo
        Secondipezzo = Val(tempolavoro.Text) / Val(pezzi.Text)
        MsgBox ("Secondi pezzo " & Secondipezzo )
     Text5.Text = Secondipezzo
grazie dell'aituto
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 80,000 Newsgroups - 16 Different Servers! =-----

 ha scritto nel messaggio
news:3d187...@corp.newsgroups.com...


Scusami,
ma al tuo post di oggi hai gią avuto ben tre risposte una meglio
dell'altra...
Quindi mi chiedo, perchč lo riproponi?
Ciao, Luciano.
Newsgroup: it.comp.lang.visual-basic
Titolo: Adodc & Setup Wizard

Salve a tutti,
non riesco assolutamente ad installare applicazioni che contengono il
controllo ADODC (VB6) su altri PC.
Setup Wizard sembra includere tutte le DLL e i file di supporto, ma quando
il programma viene installato su altri PC (dove fra l'altro non vi sia mai
stato installato VB6) non ne vuole sapere di partire.
Il controllo ADODC si aggancia direttamente al file MDB senza passare da
ODBC: la proprietą Connectionstring č la seguente:
Adodc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security
Info=False;Data Source=" & App.Path & "\dati.mdb"
Il programma non ha problemi di funzionamento suoi (nel senso che si compila
e funziona correttamente); il problema, ripeto, sta nell'installazione e in
qualcosa che la stessa non registra o include. Basti pensare che se installo
VB6 e l'eseguibile senza passare da setup, su tale PC gira senza problemi.
E' per caso capitato a qualcun'altro lo stesso problema o mi qualcuno mi sa
dire che cosa sbaglio?
Grazie a tutti.
Fabio.

Nel pacchetto di installazione è stato incluso il file Mdac_typ.exe?
Se il pacchetto verrà installato in un sistema Windows 95/98, dovrà essere
installato in modo appropriato DCOM98.
ciao Ivan

Newsgroup: it.comp.lang.visual-basic
Titolo: Compattare un file con Winzip

Ciao a tutti, è possibile da Vb richiamare Winzip passandogli la stringa
dove risiede il mio file e lui mi crea
il file compattato nella stessa directory con estensione .zip!
Un po come fare tasto destro del file e scegliere "Add to nomefile.ZIP"
P.s. non leggete il msg Winzip x' è uguale a questo

Non ti conviene utilizzare le librerie zip32.dll e unzip32.dll?
La riga di comando di winzip è abbastanza complessa e a volte non funziona a
meraviglia...
Se ti servono le librerie sopra citate te le posto...
-----------
Ciao
Sabba

 wrote in message
news:8hjjjn$f9r$1...@fe2.cs.interbusiness.it...


a me! arf arf! io ho unrar completa di documentazione, is it ok?

Sabba, mi potresti mandare le 2 dll Zip, te ne sarei grato!!!!!!
O quantomeno dammi un indirizzo dove possa scaricarle!!!
Ciao                                                 
ca...@siasoftwork.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Ancora filtro su date

Scusate se insisto, ma è diventata una questione di principio.
Perchè la select
SELECT Anagrafica_Preventivo.Data_preventivo ,
format(data_preventivo,'yyyymmdd')
FROM Anagrafica_Preventivo
where format(data_preventivo,'yyyymmdd') between  '19990101' and '29991231'
Da Access funziona e via odbc mettendo
adodc1.recordset.filter="format(data_preventivo,'yyyymmdd') between
'19990101' and '29991231'"
non funziona?
Devo filtrare sulle date (già postato il problema), e a parte trasformare il
campo data
in un campo testo non mi viene niente in mente.
    danilo

 in un campo testo non mi viene niente in mente.
Usare < e > ?
Ciao
Alberto

 Usare < e > ?
si ma non funziona nemmeno questa (che da access funge).
format(data_preventivo,'yyyyddmm') > '19990101' and
format(data_preventivo,'yyyyddmm') < '20501231'

Ho utilizzato oltre che il consiglio di Albe V°
il comando "DATEVALUE" ed è andato tutto
a posto.
    danilo

 format(data_preventivo,'yyyyddmm') < '20501231'
Sě, ma stai confondendo ciň che gira su Access (via Jet o Odbc non importa),
e ciň che gira in Ado.
Filter č Ado, e devi usare la sua sintassi.
Forse (non ho mai provato), non č supportato neppure Format.
Perň, se non sbaglio, č usabilissimo il < e > direttamente con le date.
Cioč, io avrei usato:
.Filter="data_preventivo>#01/01/1999# and data_preventivo<#12/31/2050#"
Ciao
Alberto

 data_preventivo<#12/31/2050#"
se quello che sta a sinistra del .filter è un recordset ado, la data non va
scritta in formato americano, ma secondo quanto stabilito nelle impostazioni
internazionali della macchina.
almeno se non ricordo male un mio vechio esperimento sull'argomento.
http://www.google.it/groups?hl=it&lr=&ie=UTF-8&selm=b5v0v8%24115h%241%40ID-173193.news.dfncis.de
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo


http://www.google.it/groups?hl=it&lr=&ie=UTF-8&selm=b5v0v8%24115h%241%40ID-1
73193.news.dfncis.de
Giusta precisazione.
Lo ritengo una stupidata, ma effettivamente funziona come tu dici.
Ciao
Alberto
--
"Non mi sembra piů granda del Delfino..."
"A partir dal fat che la merda liquida
l'as drisa gnan a puntlarla,
cňsta chě l'č piň granda, gnuranta."
Newsgroup: it.comp.lang.visual-basic
Titolo: barra delle applicazioni e system tray

Scusate l'ignoranza ho fatto un programma che quando è in funzione deve 
essere invisibile ( si tratta di un post it) ma vorrei poterci accedere e 
quindi non lo vorrei vedere in esecuzione nella barra delle applicazioni ma 
solo l'icona nella system tray a destra vicino all'orologio cosi da poterlo 
mettere visibile quando voglio. come faccio?
 grazie :-)) 

 ha scritto 
nel messaggio 
news:7xujj.52948$8j3....@tornado.fastwebnet.it
...


>  faccio? grazie :-))
Click cosa?
-> GbC|
www.gbcweb.com
www.chiappori.com
 

 Click cosa?
"This is a multi-part message in MIME format" ...
il link puntava a
http://www.planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?optSort=Alphabetical&txtCriteria=system+tray&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE&lngWId=1
non e' un modo molto simpatico per pubblicarlo su un ng in formato txt...
se il link sembrava lungo, 
http://tinyurl.com/3e27cd
io comunque per l'icona nel tray avevo usato il tuo esempio e funzionava
http://www.gbcdepot.com/free/vb%5Froutines/
ciao fotografo capellone,
a.
in primavera si torna dai tuoi amici? 


Pure a Carnevale se vi va :)
-> GbC|
www.gbcweb.com
www.chiappori.com
 

 Pure a Carnevale se vi va :)
per me carnevale coincide con la quaresima. da lunedi mi hanno incastrato a 
fare corsi 6g a settimana fino a fine febbraio, come sanno quelle anime 
sante di alberto e greg. e nei fine settimana saro' dell'umore di uccidere 
chiunque vedo che non disponga di coda, orecchie floppy e zampe palmate.
a parte quello, la xsara non e' anfibia. in quelle zone, a febbraio, almeno 
un hummer, col trailer per le mondine. anche se andrebbe benone per la cagna 
palustre :)
ma appena si puo', e' un posto bellissimo, e loro molto simpatici.
se magna puro bbene.
ciao, a.




 ha scritto nel messaggio
news:478f10e7$0$16028$5fc...@news.tiscali.it...



Qua trovi una serie di esempi fatti decisamente bene
http://vbnet.mvps.org/code/subclass/shellnotifybasic.htm
Bye
Raf 

 vedo che non disponga di coda, orecchie floppy e zampe palmate.
Potresti fare "e/o zampe palmate" ? Non si sa mai :-)
Bye, G. 

 Potresti fare "e/o zampe palmate" ? Non si sa mai :-)
:)
potrei. ma non corrono rischi, e' raro che incontri anatre.
oche parecchie, in verita'.

Newsgroup: it.comp.lang.visual-basic
Titolo: oggetto Button in Toolbar ??

ciao, volevo sapere se c'č un modo per fare andare a capo il testo sotto
all'icona di un oggetto button contenuto in una Toolbar. Un esempio č il
pulsante "Pagina Iniziale" della toolbar di Internet Explorer che va a capo
essendo piů lungo dell'oggetto button stesso. Ho provato piů volte ma il
testo che insrisco anzichč andare a capo prosegue aumentandomi la larghezza
del pulsante sulla toolbar.
grazie.

no, non c'è modo, nemmeno se fai "Rigo 1" & vbCrlf & " rigo 2"
ti allinea tutto e mette un quadratino nel mezzo
E' *uno* dei limiti delle toolbar standard MS
Fabio
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiutoooo !!!

Qualche anima pia sa come fare per visualizzare in una textbox l'ora di
sistema ?
Ringrazio in anticipo
Ciao
Il principiante

Se ho capito bene, devi aggiornare il contenuto della textbox utilizzando
l'oggetto Timer e l'evento Timer (cioe' , quando si verifica l'evento
Timer1_Timer devi aggiornare il contenuto della textbox secondo l'ora di
sistema desunta dalle variabili "now" o "time"). In questa maniera, avrai il
contenuto della textbox (o label) sempre aggiornato.
Ti ricordo che e' buona norma, quando si fa qualche richiesta nei newsgroup,
di indicare nell'oggetto la descrizione breve della richiesta: "Aiuto",
"Help", "Rispondete per favore" sono oggetti che hanno come unico effetto
quello di far leggere il messaggio a poche persone.
Buon lavoro
Fabio Pagano
Lorenzo ha scritto nel messaggio ...


Newsgroup: it.comp.lang.visual-basic
Titolo: chi mi aiuta ??

sono appena agli inizi , e sono riuscito ad aprire una tabella fatta con
access ma non conosco la procedura per inserire un nuovo record e
soprattutto a salvare la modifica, avrei bisogno che dopo l 'immisione dei
nuovi dati , un pulsante mi salvi la tabella modificata.
Un grosso grazie anticipato a chi mi aiuta !!
Ciao

Per inserire un nuovo record devi fare cosě:
es. Data1.Recordset.addnew  ' Apri un nuovo record
       Data1.Recordset!NomeCampo = "Pippo"  'Scrivi Pippo nel Campo
NomeCampo
     Data1.recordset.update ' Salvi il nuovo record
Ciao
gibo ha scritto nel messaggio ...


Prova ad usare ' Creazione Guidata Form Dati' dal Menu Aggiunte (Se non
compare utilizza il gestore sempre nello stesso menu') ed avrai un form con
accesso ai dati salvataggio ecc... ( Questo per VB5.0, per VB6 cambia poco
se non ricordo male)
by
Carlo Alberto


 ha scritto nel messaggio
news:BrLy5.318$OI2....@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: problema con date in visula basic

Facendo un confronto fra due date (la prima presa dal database Access e la
seconda passata come parametro)
in una query trovo che la seconda viene cosiderata imn formato americano
(cioè mm/dd/aa).
Devo, per caso, usare la funzione "Datavalue"? e come? o come posso
risolvere? Grazie.

> Antonio:

  Prima di "risolvere" bisogna porre il problema. Nei termini corretti. Fare
un confronto fra due date. Che vuol dire? Dove le metti tali date? Dici
"presa da...". Presa va bene, ma messa dove? Ovvero, in che tipo di
variabile? Il confronto non lo fai fra date ma fra variabili e tu proprio di
queste non ci dici nulla.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 > Per "confronto" intendo che uso un operatore di confronto (nel mio caso
è ">",  ma potrebbe essere anche "=" per esempio), poi ho precisato che tale
confronto lo faccio in una query (che nel mio caso è il metodo "open" di un
oggetto di tipo "recordset"). Infine le variabili sono entrambe di tipo
"date", in quanto la prima è definita come tale nel database, la seconda
dichiarata in un form del codice sorgente. Sperando di essere stato +
chiaro, aspetto una risposta, altirmenti non saprei come spiegare meglio.
  Forse ci sono. Magari se ci mostravi la stringa della query ci arrivavo
prima. Cosi` devo andare per ipotesi e fare un discorso piu` lungo. Non
specifichi nemmeno il tipo di database ed il tipo di accesso. Assumero`
quindi che si tratti di Access, va bene?
  Posto che tu abbia una tabella di nome Tabella1 che contenga un campo di
nome Campo1 in formato Data/Ora ed una variabile di nome dtmData dichiarata
As Date e che tu voglia costruire una stringa per estrarre i record in cui
Campo1 contenga date maggiori del valore di dtmData, la stringa dovrebbe
essere cosi` composta:
    <...> _
        = "SELECT *" _
        & " FROM [Tabella1]" _
        & " WHERE [Campo1] > #" & Format$(dtmData, "mm/dd/yyyy") & "#" _
        & ";"
  Ci siamo?


 wrote in message
9d398o$g04jt$2...@ID-52090.news.dfncis.de...


 Ma la funzione si puň chiamare "Format$" oltre che "Format"?
Funzionano tutte e due.
  RTFM ;-)


 wrote in message
9d398o$g04jt$2...@ID-52090.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] PDFcreator e VB6

Leggendo alcuni post precedenti ho scoperto l'esistenza
di questo programma.
L'ho scaricato e provato.
Mi interessa solo la parte della stampante 'fittizia'.
L'ho provato con word ed ho capito come funziona.
Purtroppo con la mia applicazione (uso l'oggetto printer)
non succede niente.
Non si apre quella finestra che chiede come salvare il
file.
Non compare nessun messaggio di errore e non viene
salvato niente.
Forse qualcuno di voi ha risolto il problema e può darmi
qualche dritta.
Grazie e saluti a tutti.
Sauro

 qualche dritta.
L'oggetto printer usa la stampante di defualt, probabilmente la 
stampante di PDF Creator non è impostata così.
Non uso l'oggetto printer ma mi sembra di ricordare che si possa 
reindirizzare la stampa anche su altre stampanti.
prova a guardare qui
http://www.visual-basic.it/articoli/printer1.htm
ciao
stefano

 stefano
Ciao Stefano e grazie.

   Forse poco intelligente, ma proprio cretino non sono. ;-)
o magari più semplicemente non ci si pensa e le cose più ovvie ci fanno 
perdere un sacco di tempo :-)
ciao
stefano

Stavo solo scherzando.
Ciao Stefano.
Sauro

 Sauro
ciao
stefano


No.
Però non era così importante.
Sarebbe stata una possibilità in più utilizzabile in qualche
occasione.
Ho una routine che crea i PDF, trovata con l'aiuto di questo NG, che uso per
l'invio delle email per gli ordini
e le fatture.
Però le devo sempre gestire da VB e quindi scrivere
del codice.
Ciao Stefano.
Sauro

salvato niente.
Da quello che ho capito ti devi creare un oggetto COM di tipo
PDFCreator.clsPDFCreator per gestire la stampante virtuale, li puoi
assegnare il nome e il path al file da creare poi usi l'oggetto
printer per stampare. 
Anche io sto cercando un alternativa ad Acrobat per creare PDF dalle
mie applicazioni VB6 ma PDFCreator non mi piace perchè richiede
l'installazione anche di GhostScript. Stò provando la classe
clsPDFCreator di Luigi Micco in versione Free e funziona abbastanza
bene se non ti serve di stampare in landscape (in questo caso c'è un
baco perche ti gira tutta la pagina compreso quello che poi ci scrivi)
e non necessita di altre installazioni, inoltre puoi convertire
velocemente anche un codice che usava l'oggetto printer.
Ciao
-- 
Fritz
Togli *ERASE* per rispondere in e-mail.

ciao
io ho il tuo stesso problema.
in pratica da un applicazione visual basic che dovrebbe stampare un
datareport
in formato pdf in autonmatico,
specificando anche il percorso-
mi puoi dare qualche consiglio?
ti ringrazio tanto
p.s. puoi scrivermi al mio indirizzo?
 
'++++++++++++++++++++++++++++++++++++++

--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Di nuovo qui. Archiviare i post del NG

Dopo un pň di vicissitudini con OE, sever tin ed impicci vari, una bella
resettata generale alla posta mi permette di poter nuovamente accedere al
NG.
Naturalmente ho perso mesi di post interessantissimi che ora dovrň
pazientemente riscaricare.
Tempo fa qualcuno (....mi sembra Pal, ma non vorrei sbagliare) scrisse di un
metodo per archiviare i messaggi piů interessanti in un DB access.
Ammesso che non si tratti di un programma creato appositamente (...in quel
caso proverei a farmelo da solo) qualcuno conosce questo metodo ???
Ciao a tutti
Steama

 metodo per archiviare i messaggi più interessanti in un DB access.


 se ti interessa ti mando l'ultima versione.
Grazie, mi farebbe comodo.
Un saluto.
Steama


Potresti mica postarlo anche a me?
Grazie, ciao
            P A O

Newsgroup: it.comp.lang.visual-basic
Titolo: Help - exit sub

Scusate la domanda banale:
Ho realizzato una procedura che richiama tante sub.
Call primaroutine
Call secondaroutine
Call terzaroutine
Call quartaroutine
In ognuna di queste, se si verifica un errore ho inserito un msgbox di
avvertimento ed un exit sub.
Se l'errore è nella seconda routine, esco prematuramente dalla seconda
routine, ma rimane sempre valida la terza e poi la quarta.
Come faccio ad uscire da tutta la procedura?
Saluti
Sebastiano Floridia
Siracusa - Italy
arch...@sistemia.it
freew...@aspide.it
http://freeweb.aspide.it/freeweb/windsurf
http://www.freeweb.org/sport/windsurf

Come faccio ad uscire da tutta la procedura?
Trasforma le tue 4 Sub in 4 Function che restituiscano un Boolean; quando si
verifica un errore, oltre al message box restituisci FALSE, se invece va tutto a
buon fine restituisci TRUE (o viceversa, scegli tu); a questo punto la tua
procedura principale diventa:
If Not primaroutine Then Exit Sub
If Not secondaroutine Then Exit Sub
If Not terzaroutine Then Exit Sub
If Not quartaroutine Then Exit Sub
Ciao.
--
Luca Dormio
l...@sig-la.com
ldo...@tin.it


mah, forse puoi mettere CALL SecondaRoutine alla fine della prima routine, e
Call TerzaRoutine alla fine della seconda, cosi' l'Exit Sub ti esce da tutte
Poi chiami solo la prima... forse pero' non e' pulititssima la cosa...

Newsgroup: it.comp.lang.visual-basic
Titolo: trasferimento dati su seriale: aiuto!

Sta realizzando un programmino per trasferire i file da un pc all'altro per
mezzo della seriale. Riesco a trasferire il nome del file da un pc e creare
il file sull'altro pc ma non riesco poi a riempirlo con i dati. La mia idea
è quella di trasferire pacchetti di dati di lunghezza X delimitati da un
identificatore.
Es. di pacchetto dati
(file:miaprova.exe)(dati:idfofsofsgk)(dati:idosfodfg)(file:miaprova2.exe)
ecc...
In altre parole prelevo i dati dal buffer della seriale, guardo i primi 6
byte e se è "(file:" allora c'è il nome del file, mentre se è "(dati:" ci
sono i dati del file. Il problema è che non riesco a implementare questo
ragionamento :-( !!
Non riesco a leggere X dati dal file destinazione e a costruire il
pacchetto.
Qualcuno può aiutarmi? grazie 1000
max

 ha scritto nel messaggio
news:brFD7.11915$7A4.7...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Re: [VBnet2013]

 [SNIP] ... sul mio win7/64 vedendo che il VB6 non mi si carica più... [SNIP]
 
VB6 funziona su W7/64
 
http://win.gbcdepot.com/_images/W7x64_Vb6.jpg
 
 
-- 
GbC
www.gbc.uno


Ah me VB6 su Win7 ha dato alcuni problemi.
Qualcosa funziona, altro no (ora non ricordo i dettagli)
 
Ho risolto con XP Mode.
 
 
 
-- 
Daniele Pinna
DAPINNA.COM
 
(leva oops per rispondere)
-----
Utente Skype: dapinna
DAPINNA.COM
        :  
http://www.dapinna.com
 
Il Docfa in Pillole:  
http://www.ildocfainpillole.it
 - Sito Aggiornato!!!
DAPINNA.COM
 su Facebook: 
www.facebook.com/pages/Sassari-Italy/DAPINNACOM/110085322371199
 
 

 Ho risolto con XP Mode.
 
Prova questo e il post successivo, ti posso dire che vb6 su 7 ormai l'ho 
stressato anche troppo.
 
http://delendanet.blogspot.it/2012/03/installare-visual-basic-60-su-windows-7.html
 
 
 
 
fe...@delenda.net
 
-- 
Swords will be drawn to prove that leaves are green in summer. (G.K. 
Chesterton)
http://delendanet.blogspot.com
 

 
http://delendanet.blogspot.it/2012/03/installare-visual-basic-60-su-windows-7.html
 
 
Avevo già provato il tools di Giorgio Brausi, ma anche con quello avevo 
avuto problemi, e quindi avevo risolto con la macchina virtuale.
Tra l'altro anche nel PC di casa uso una macchina virtuale con XP, dato 
che il sistema operativo principale è Kubuntu ;-)
 
Nel PC dell'ufficio, quando ho reinstallato perché ho messo un SSD (si 
lo so potevo migrare, ma ho preferito una installazione pulita), ho 
preferito tenere la macchina virtuale... che tra l'altro sta nel disco 
tradizionale :-)
 
Tanto ormai vb6 lo uso poco... lo stesso anche gli altri ambienti di 
sviluppo... che non ho nemmeno reinstallato :-(


Newsgroup: it.comp.lang.visual-basic
Titolo: [?2] VB6 e Access 2000

Ciao a tutti,
sul mio PC avevo installato VB5 e Access 97 e tutto funzionava
perfettamente.
Ora ho messo Access 2000 + VB6 e creando una tabella con Access e
associandola in un datacontrol, mandando in esecuzione mi restituisce un
errore di FORMATO DATABASE NON RICONOSCIUTO.
Domanda :
devo reinstallare l'Access 97 per far funzionare tutto di nuovo ??
Grazie

 wrote in message
7ujr8a$a1u$1...@nslave1.tin.it...


Volevo provare a tenerlo l'Access 2000.
Grazie del suggerimento, non l'avevo visto che c'era la possibilità di
convertire il DBase in una versione precedente.
Ciao
Luca
Newsgroup: it.comp.lang.visual-basic
Titolo: Aggiornare campi durante INSERT INTO

Salve a tutti.
Per velocizzare una procedura mi trovo nella necessità di applicare una 
INSERT INTO siffatta:
"INSERT INTO Db1 SELECT * FROM Db2;"
ora vorrei che oltre ad inserire i record presenti su Db2 venisse anche 
contestualemnte applicata una funzione di calcolo su alcuni dei campi di 
Db2 prima o dopo essere stati trasferiti.
Originariamente effettuavo una AddNew e poi trasferivo i valori campo-
campo effettuando in quel momento l'elaborazione del campo, solo che i 
tempi di elaborazione non sono accettabili.
Pensavo in alternativa di creare un Db di appoggio con i record da 
inserire presi da Db2, scorrerlo, elaborare i campi e poi accodarlo a 
Db1.
Si puo fare?.
Grazie e saluti
Paolo
-- 
Lemor...@Lycos.it

 Paolo
ciaociao

 
Il 'si puo' fare?' era riferito alla INSERT... :).
Devo copiare una serie di record da Db2 a Db1 effettuando una 
elaborazione sui dati trasferiti. Il Db2 di origine e' una query con vari 
Join.
Adesso faccio in maniera molto elementare cosi':
While Not Db2.EOF
    Db1.AddNew
    For Campo = 0 To Db2.Fields.Count - 1
        Db1(Campo) = Db2(Campo)
    Next Campo
 
    'funzione mia di calcolo di un campo appena inserito
    Db1("Campo1") = CalcolaIncremento(Db1("Campo1"))
 
    Db2.MoveNext
Wend
E' chiaro che cosi ho la disponibilita' dei campi per poterli elaborare 
ma devo fare un ciclo su tutti i record da copiare ed un'altro su tutti i 
campi per ogni record, mi piacerebbe ridurre tutto almeno al solo ciclo 
sui record.
Grazie, ciao.
Paolo
-- 
Lemor...@Lycos.it

 Paolo
ciaociao

 
Ok ho capito, allora..
... CalcolaIncremento(Db1("Campo1"))
come dice il nome la funzione calcola un incremento da applicare al campo 
in questione attraverso l'accesso ad un'altro database di configurazione, 
tipo: 
Function CalcolaIncremento(campo1)
dbx.open ConfIncrementi
select case campo1
    case <= 10
	incremento = dbx("incremento1") 
    case <=5 
	incremento = dbx("incremento2")
    case ....
end select
CalcolaIncremento = Incremento
per cui da quello che mi dici non mi pare sia possibile implementarlo 
nella query di origine.
O no?.
Ciao e grazie.
Paolo
-- 
Lemor...@Lycos.it

 Paolo
ciaociao

 
Ti ringrazio, mi metto a provare....
Ciao.
Paolo
-- 
Lemor...@Lycos.it

Newsgroup: it.comp.lang.visual-basic
Titolo: a proposito di VB....

salve! vi scrivo perchč volevo sapere se il download del programma Visual
Studio 6 della Microsoft č free o share? nel caso non fosse free (cosa che
dubito, che sia cosě) quanto costa su internet e quanto su  negozi
specializzati. Poi volevo sapere, siccome non sono un programmatore
provetto, che differenza c'č tra Visual Studio 6 e VB 6 oltre che al nome?
Vi ringrazio anticipante, aspetto le vostre risposte. ciao m@uro

 wrote in message
8ciodp$qcv$1...@pegasus.tiscalinet.it...

Mi sembra anche Visual J++

> Mi sembra anche Visual J++
Su dischetto a parte, se non ricordo male, per casini con le scadenze
Newsgroup: it.comp.lang.visual-basic
Titolo: DLL O OCX SU SERVER?

Salve a tutto il ng.
Vi chiedo una cosa che nn so se sia molto stupida o se sono io che
sono ignorante!!!
Vi volevo chiedere è possibile fare un programma in vb, che usi le dll
o gli ocx che si trovano su un sever o su una determinata cartella del
server invece di puntare a quelli locali della macchina del client?
Grazie a tutti ciao
Leo

 server invece di puntare a quelli locali della macchina del client?
Guarda ti rispondo ma non so se ho ragione perchč non l'ho mai fatto.
Hai provato da Progetto --> Componenti/Riferimenti ad andare su sfoglia e
prenderli dalle risorse di rete?
Prendendoli da lě dovrebbe (e sottolineo dovrebbe) prenderli poi dal
server.....
Al3x

Newsgroup: it.comp.lang.visual-basic
Titolo: Lavorare con le risoluzioni, 800x600; 1024x768 e altre

Vorrei sapere se esiste un metodo per far si che ad ogni risoluzione dello
schermo i vari form possano essere visti dall'utente finale in modo
simile... per ora ho disegnato tutto per 800x600, se cambio la risoluzione a
1024x768 ad es., si vedono ampi spazi vuoti...
Grazie!

 wrote in message
news:9gndnp$629$1...@pegasus.tiscalinet.it...


 wrote in message
news:viHX6.10531$m51....@news1.tin.it...


Vero Diego..il link non funge :-(
Ciao SIMO
--
__________________
www.sasim.cjb.net


 > Sul mio sito c'č un controllo che forse fa al tuo caso.


 > > Sul mio sito c'è un controllo che forse fa al tuo caso.

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB .NET] Cambiare il percorso del database a runtime

Ciao a tutti!
Ho un problema apparentemente di facile soluzione, ma che in realtà mi
assilla da giorni... Ho creato un report utilizzando Crystal Reports fornito
con Visual Studio .NET. Ora, dovendo distribuire l'applicazione, devo fare
in modo che il percorso del database da cui vengono prelevate le
informazioni sia impostato dinamicamente, a tempo di esecuzione. Ho cercato
su Internet, ma l'unico esempio che ho trovato fa apparire la finestra
"Collegamento a database" per confermare la connessione, mentre io vorrei
che avvenisse tutto in automatico. Esiste un modo per farlo?
Di seguito vi riporto il codice in questione:
    Dim crtableLogonInfos As New TableLogOnInfos
    Dim crtableLogonInfo As New TableLogOnInfo
    Dim crConnectionInfo As New ConnectionInfo
    Dim CrTables As Tables
    Dim CrTable As Table
    Dim TableCounter
        With crConnectionInfo
            .ServerName = "C:\Listino.mdb"
            .DatabaseName = "C:\Listino.mdb"
            .UserID = ""
            .Password = ""
        End With
        CrTables = crReportDocument.Database.Tables
        For Each CrTable In CrTables
            crtableLogonInfo = CrTable.LogOnInfo
            crtableLogonInfo.ConnectionInfo = crConnectionInfo
            CrTable.ApplyLogOnInfo(crtableLogonInfo)
        Next
        crvProdotti.ReportSource = crReportDocument
Grazie in anticipo a tutti!
Marco Minerva, 
marco....@tiscali.it

Premetto che ho letto moooolto velocemente il tutto.
In VB6 (
dot.net
 l'ho visto pochissimo) io farei cosě
a) Utilizzi un file .ini che vai ad aprire con il percorso del database
b) Metti il database nella stessa cartella dell'applicazione e usi
    come percorso del database app.path
            danilo

 ha scritto nel messaggio
news:2ra5otF...@uni-berlin.de...

Non mi sono spiegato bene... Il problema non č dove mettere il database e
come fare per recuperarne il percorso, ma quali istruzioni usare per dire a
Crystal Reports dove andare a leggere il DB...
Marco Minerva


Nel codice che hai scritto mi indichi quali sono le righe che dicono
a crystal report di quale db si tratta?
se sono queste non puoi scrivere:
With crConnectionInfo
            .ServerName = app.path & "\Listino.mdb"
                                    <><><>
            .DatabaseName = app.path & "\Listino.mdb"
                                        <><><>
            .UserID = ""
            .Password = ""
        End With
        danilo
Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi installazione sotto W2k

Salve,
Ho il problema che quando installo il pacchetto in fase di installazione
file di sistema , sotto W95,98 Xp tutto Ok ma sotto W2k mi da un messaggio
alcuni file di sistema non aggiornati riavviare per continuare e ricomincia.
Qualcuno sa perchč , grazie


Alcuni file di sistema non sono aggiornati.
Cioč, il pacchetto di installazione che VB crea contiene diversi file dll.
Se sono piů recenti di quelli presenti sul sistema aggiorna e rinvia.
Ovviamente dovrebbe farlo soltanto una volta; se ripete il messaggio ogni
volta allora c'č qualcosa che non va.
A rigore dovrebbe dare questo messaggio anche sui computer con Win95 e 98,
ma č probabile che qualche altra installazione li abbia dotati di versioni
aggiornate.

 alcuni file di sistema non aggiornati riavviare per continuare e
ricomincia.
http://support.microsoft.com/default.aspx?scid=kb;IT;q191096
Vedi tutto, in particolare l'ultimo link della pagina.
Newsgroup: it.comp.lang.visual-basic
Titolo: prg per le differenze d'orario

Ora per fare la differenza tra due orari uso:
Public Function DiffTime(sOra1 As String, sOra2 As String) As String
    Dim nMinutes, nOre As Integer
    On Error Resume Next
    nMinutes = DateDiff("n", sOra1, sOra2)
    nOre = Int(nMinutes / 60)
    nMinutes = nMinutes - (nOre * 60)
    DiffTime = Format(Trim(CStr(nOre)) + "." + Trim(CStr(nMinutes)),
"
hh.mm
")
    End Function
Ma non funziona in negativo, cioè se la differenza è tra 23.50 e le 01.30
del giorno dopo non funziona più, per la ovvia ragione che considera i due
orari facenti parte dello stesso giorno.
Qualcuno sa come risolvere il problema ?
--
+~~~~~+
  Necrøs
+~~~~~+

...

Prova cosi':
Public Function DiffTime(sOra1 As String, sOra2 As String) As String
    Dim nMinutes, nOre As Integer
    dim D1 as date, D2 as date
    On Error Resume Next
    D1 = cdate(sOra1)
    D2 = cdate(sOra2)
    if D2<D1 then D2 = dateadd("d",1,D2)
    nMinutes = DateDiff("n", D1, D2)
    nOre = Int(nMinutes / 60)
    nMinutes = nMinutes - (nOre * 60)
    DiffTime = Format(Trim(CStr(nOre)) + "." + Trim(CStr(nMinutes)),"
hh.mm
")
End Function
Ciao
By -MES-   Maronese Ettore
http://www.maronese.com/mes
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb

Funziona perfettamente !!!
Problema risolto.
Grazie a  Ettore Maronese
--
+~~~~~+
  Necrøs
+~~~~~+

 Qualcuno sa come risolvere il problema ?
Un modo potrebbe essere questo:
Option Explicit
Sub Main()
  Debug.Print _
    TimeDiff$(#10/27/2000 11:50:00 PM# _
            , #10/28/2000 1:30:00 PM#)
End Sub
Function TimeDiff( _
  Date1 As Date _
, Date2 As Date _
) As String
  Dim lngMinutes    As Long
  Dim dtmAbsMinutes As Date
  Dim lngHours      As Long
  ' Calcola il numero di minuti fra le due date.
  '
  lngMinutes = DateDiff("n", Date1, Date2)
  ' Converte in data il valore assoluto del numero dei
  ' minuti.
  '
  dtmAbsMinutes = DateAdd("n", Abs(lngMinutes), 0)
  ' Calcola il numero di ore e aggiunge il segno.
  '
  lngHours _
    = Sgn(lngMinutes) _
    * DateDiff("h", dtmAbsMinutes, 0)
  ' Restituisce ore e minuti formattati.
  '
  TimeDiff = _
      Format$(lngHours, "#,##0\.") _
    & Format$(dtmAbsMinutes, "nn")
End Function
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Questo mi sembra piu' semplice
Private Sub Timer1_Timer()
    If txtOre.Text = "" Then txtOre = 0
    If txtMinuti.Text = "" Then txtMinuti = 0
    If txtSecondi.Text = "" Then txtSecondi = 0
    secondi = CDbl(txtOre.Text) * 3600 + CDbl(txtMinuti.Text) * 60 +
CDbl(txtSecondi.Text)
    secondi1 = CDbl(Hour(Now)) * 3600 + CDbl(Minute(Now)) * 60 +
CDbl(Second(Now))
    If secondi < secondi1 Then
        tot = 86399 - secondi1 + secondi
    Else
        tot = secondi - secondi1
    End If
     ' Tempo restante
'Ore
     i = tot
HoursLeft = i \ 3600
    i = i Mod 3600
    'minuti
    MinsLeft = i \ 60
   i = i Mod 60
    'secondi
    SecsLeft = i
 Label2.Caption = HoursLeft & ":" & _
    MinsLeft & ":" & SecsLeft
   End Sub
-- 
Posted from 
uadvg128.cms.usa.net
 [165.212.11.128] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG