mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Ancora MySQL e ADO

Salve, premesso che programmo in php e Vb da qualche tempo, vorrei
utilizzare gli archivi che ho fatto in MySql
Ho letto qualche giorno fa alcune informazioni (20 c.m. ore 10.33) però
forse mi sfugge qualche passaggio.
Mi spiego,
devo caricare o settare qualche driver per accedere alle mie tabelle e come?
oppure basta inserire le solite righe di connessione specificando il nome
del DB?.
Grazie Anticipatamente!

 ha scritto nel messaggio
news:G_0L7.4751$BA4.1...@news1.tin.it...

Sul sito di MySQL ho trovato l'OLE DB e qualche esempio proprio per VB.
Mai provato.
Ciao


wrote:

Devi installare il driver per windows MyODBC
Ciao e buon lavoro!

 ha scritto nel messaggio
news:jI6L7.6488$BA4.2...@news1.tin.it...


 ha scritto nel messaggio
news:WqlL7.8521$BA4.3...@news1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Compilare applicazioni per vecchi pc

Ciao a tutti, sono nuovo del ng.
Ho un cliente (purtroppo) per il quale ho fatto un applicazione vb che gira
su un vecchissimo pentium 100 con Windows 95 come s.o.
Ogni volta che devo fare qualche modifica devo andare nella sede del
cliente, caricare l'ide di Visual Basic, i sorgenti e compilare tutto lė,
perchč se compilo sulla mia macchina poi il programma non gira da lui.
Quali sono le opzioni di compilazione (se ci sono) per far andare
applicazioni anche su macchine cosė vecchie?
Ciao.

 applicazioni anche su macchine così vecchie?
Non e' un problema di compilatore, ma piu' probabilmente di riferimenti a
librerie vecchie (tipo Common Controls, librerie di ccesso ai dati e via
dicendo)
Temo che la cosa piu' pratica sia quella di fare una nuova partizione o
procurarti un secondo HD anche scalcinato, insieme a un bel Boot Manager e
installare W95; oppure se hai un PC discretamente potente, provare un
programma tipo VMWare dove puoi creare n macchine virtuali e installare i
diversi S.O.
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 > applicazioni anche su macchine cosė vecchie?

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Problema con DATA CONTROL

Ho un database collegato al data control.
Se in un campo data di un record inserisco una data e poi tento di
modificare il campo stesso inserendo un NULL oppure un BLANK ottengo un
errore.
Esiste una soluzione oppure e' un baco del Data Control?
Angelo

...


"consenti lunghezza zero" ................per un campo DATA
non è impostabile.
Io ho risolto predisponendo un pulsante per annullare con questo codice:
nomecontrollodata.recordset.fields("nomeFieldData").value = null
Ciao!
Tommy  ^__^

Purtroppo non funziona.
Partendo dal database di Access ho costruito l'interfaccia mediante il
wizard (VB DATA FORM WIZARD).
Allego il codice associato alla pressione del tasto di aggiornamento
(update).
Private Sub cmdUpdate_Click()
  If (txtFields(2).Text = "") Then
     datPrimaryRS.Recordset.Fields("Data").Value = Null
  End If
  datPrimaryRS.UpdateRecord
  datPrimaryRS.Recordset.Bookmark = datPrimaryRS.Recordset.LastModified
End Sub
Se metto a blank un campo data già inserito e poi premo il pulsante di
Update si inchioda tutto.
Puoi darmi qualche dritta.
Grazie, Angelo
Tommaso Rossi ha scritto:


A me cosě funziona:
If IsDate(TxtData) = True Then
 Data = TxtData
  Database.Recordset.Fields("CampoData") = Data
Else
 Database.Recordset.Fields("CampoData") = Null
End If
database.recordset.update
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Install Shield o Wise(e qualcosa dopo)

Dove posso trovare uno dei due programmi x creare il setup dei miei
progetti? se in italiano sarebbe mejo!!! Datemi una mano... Il setup di VB6
fa cilecca...
fatemi sapere qualcosa... chi meglio di voi sa dove cercare!!!

Francesco wrote:

Sul sito dei produttori. Anzi, prova su ComponentSource...Per la cilecca di
VB6, controlla se non esegui il kit su un pc con SO di lingua diversa da quella
del pc su cui hai creato il Kit...nel SETUP.LST il Setup Wizard crea una linea
del tipo PIPPO = VERO / FALSO se hai VB in ITA, e PIPPO = TRUE / FALSE se hai
VB in ingl.
Bye by Massimo 8-]
Newsgroup: it.comp.lang.visual-basic
Titolo: ?3 Barra menu..domensionare!!


Se e' un menu normale (in VB6 ci sono anche quelli in stile Office97???)
non puoi ridimensionarlo.
Le dimensioni (altezza e font) di un menu sono parametri di sistema di
Windows, e sono modificabili tramite pannello di controllo (o tramite una
combinazione di registry e API, ma e' un'operazione sconsigliata).
--
Roal Zanazzi
z...@iol.it

 wrote in message 7he8lk$ond$5...@hermes.iol.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Data Widgets 3.0

Qualcuno ha avuto problemi con la Data Widgets 3.0 ?
Se si gradirei scambiare qualche esperienza.
A presto.

...

Newsgroup: it.comp.lang.visual-basic
Titolo: Creare frecce

Ciao a tutti,
esiste un controllo, o un modo per creare
delle linee (in grafico) e dargli una direzione??
es: ---  oppure  <---  oppure ---> o <--->
Nel caso non esistesse, ricorrendo alle API come
faccio a creare un triangolo che formi un angolo
di 90 gradi con la linee, presupponendo il caso
peggiore, cioè che la linea non sia orizzontale
o verticale?
Spero di avermi fatto capire...

 o verticale?
puoi usare o controlli Line, o tracciare lineee con i metodi Line di 
Form, Printer, PictureBox. Se ci fai caso, ti serve definire 5 punti:
* 3: il triangolo della freccia
* 2: le estremità del "gambo" freccia: una libera, un'altra a metà della 
base del triangolo.
Se le frecce sono inclinate a multipli di 90°, è banale. Altrimenti ti 
conviene usare un po' di trigonometria da due soldi(non la trigonometria 
in sè, i ragionamenti da utilizzare).
Appena tiri fuori un ragionamento da tutto ciò puoi fare la tua classe...
-- 
Emanuele Torrenti
http://torrenti.altervista.org
Please, don't send me Word or PowerPoint attachments. Look at:
http://www.gnu.org/philosophy/no-word-attachments.html

 o verticale?
Per la trigonometria cerca axvGraph sul sito comune.
Volendo puoi usare già le classi del progetto che servono proprio a fare dei
piccoli disegni vettoriali.
Puoi usare la axvPointRotated per calcolare i punti delle 3 linee che
compongono la freccia e ruotarli usando la punta della freccia come origine.
Così magari mi riempi il ramo del Case:
Case axvsARROW
  '???
:)
Ciao
--
Reporting tool: 
http://www.neodatatype.net

 piccoli disegni vettoriali.
Uhm...interessante!
Effettivamente con un'pò di formulette varie, si può fare da sè...ma 
visto che non me ne tiene (:-)), questa libreria potrebbe fare al caso mio!!
Grazie a tutti per i consigli.

 compongono la freccia e ruotarli usando la punta della freccia come origine.
Ok grazie...sono riuscito a disegnare 3 linee con un angolazione di 20 e 
-20 gradi, creando una specie di freccia;
però esiste qualche metodo che permette di ridimensionare la linea 
angolata???

 angolata???
Cosa vuol dire "ridimensionare la linea angolata"?
Gli allontani uno dei due estremi ed è "allungata" :)


 Gli allontani uno dei due estremi ed è "allungata" :)
No in realtà la devo dimininuire, e comunque è angolata!
come faccio a calcolare il punto esatto mantenendo la stessa
angolazione??

 angolazione??
La cosa è più semplice di quanto sembra: imposti le coordinate sulla freccia 
"dritta" e poi le giri tutte.
A questo punto la disegni.
Oppure, con un po' di geometria puoi calcolare il coefficiente angolare (a) 
di y = ax + b e spostare x o b.
Oppure chiedi al NG di matematica dove a suo tempo mi diedero molti buoi 
consigli per queste funzioncine.
E poi... fammi avere una copia della tua soluzione ;)
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: ADODataControl

Ho cominciato da poco a documentarmi su ADO.
Ho notato che l'AdoDataControl, non ha gli stessi metodi del classico
controllo data.
Ad esempio, quando nell'evento Reposition mi impostavo la caption come:
Data1.Caption = Data1.Recordset.AbsolutePosition
andava tutto bene.
Se provo a fare lo stesso con l'AdoDataControl, mi dà l'errore:
"Procedure declaration does not match description of event or procedure
having same name".
A cosa corrispondono nell'AdoDataControl, gli eventi Reposition e Validate
del
contollo data? E come mai non posso eseguire il codice sopra descritto?
In attesa di documentarmi meglio, rinrazio chi sarà così gentile da
rispondermi.

 contollo data? E come mai non posso eseguire il codice sopra
descritto?
mi pare che sia un bug risolto col SP5 (oppure installando MDAC 2.6, non
ricordo con precisione)
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: check list box???

Sto utilizzando il controllo ListBox con proprieta Style = 1.  (con
checkbox)
Problema:
in form load ho inserito un ciclo for next il quale aggiunge una decina di
righe al controllo, solo che tutti i checkbox sono impostati su false (NON
checkkati)...
Come posso impostarli a true visto che non c'e' nessuna proprieta'?
Grazie...
David
--
E-mail: 
d...@iol.it

...


checkkati)...
Ho provato a fare quello che hai fatto tu, ma non vedo o non capisco
dove sia il problema. Quando tu avvii il programma i quadrati non sono
"cekkati", ma tu li puoi segnare con la V cliccandoci sopra. Del resto
sono fatti apposta per essere schelti oppure scartati, no ?
Ma forse quello che tu vuoi e' che per defaul siano tutti segnati ?
Ciao.
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
 -----------Federico Emanuele Galli----------
 ----------Visual Basic's Programmer---------
 
 Sideralis Programs (Visual-Basic and Delphi)
 
http://www.geocities.com/colosseum/loge/2151
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
                 Trust no ONE.
Per rispondermi via E-Mail togli STOPSPAMMERS.

Aspetta !!!
Ho trovato.
Devi usare la proprieta' SELECTED che si usa cosi':
oggetto.Selected(indice) [= booleano]
Oggetto e' List1
Indice e' il numero indice della riga che vuoi cekkata
Booleano e' TRUE o FALSE. TRUE e' "selettato" e FALSE no.


Grazie Federico... era proprio quello che avevo bisogno.
Ciao e... a buon rendere..:-)
David - E-mail: 
d...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] File temporanei in memoria.

'ao a tutti :-)
Ricordo di aver letto tempo fa su questo NG della possibilità
di usare dei file temporanei in memoria, che potevano anche
non venire mai scritti su disco, utilizzando opportuni flags.
Una ricerca non mi ha portato a niente tranne le "named pipes",
che non corrispondono esattamente a quello che ricordavo,
veri e propri files che si potevano utilizzare per lettura,
scrittura, esecuzione e cancellazione.
Qualcuno ha una keyword sull'argomento, o magari può
dirmi se ricordo male e me lo sono sognato ? :-)
Pap.Brain.Empty = True.
--
Le risposte alle tue domande sono sul Sito Comune
di questo NewsGroup: 
http://it-lang-vb.net/
... e nell'help in linea !

 
Nell'help di Create file c'e' questo parametro:
FILE_ATTRIBUTE_TEMPORARY 
The file is being used for temporary storage. File systems attempt to 
keep all of the data in memory for quicker access rather than flushing 
the data back to mass storage. A temporary file should be deleted by the 
application as soon as it is no longer needed.
Non so se sia cio' che ricordi pero' ...
ciao
		maxx

 Non so se sia cio' che ricordi pero' ...
Penso proprio di sì , o almeno è quello che mi serve.
Non posso scrivere quello che penso di te, altrimenti passo per
omosessuale. Niente in contrario, per carità (de gustibus...), ma
se il post capitasse sotto gli occhi di mia moglie, spiegare non
sarebbe semplice... ;-)
Bye, G.

 sarebbe semplice... ;-)
puoi sempre sottolineare il "temporary", o, al limite,
l' "attribute".
j.

l' "attribute".
LOL! :)
-- 
Visita il sito comune del NG: 
http://www.it-lang-vb.net
Visit: 
http://www.hardwaretips.com

 
Caro, non dire niente!!
(alla mia fidanzata, soprattutto)
:-)
		maxx
Newsgroup: it.comp.lang.visual-basic
Titolo: List-box

Una volta immesso dei dati in due list-box, si possono eseguire delle
operazioni con gli stessi dati?
Mi spiego meglio, si puň eseguire una addizione tra i primi dati
corrispondenti delle liste?
Grazie.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 corrispondenti delle liste?
Sono stringhe.
Se contengono caratteri numerici, con le necessarie conversioni, si possono
trattare in operazioni aritmetiche...
Oppure la domanda voleva essere "come faccio a recuperare l'elemento "n" di
un ListBox"?

 Grazie.
per recuperare l'elemento dalla listbox, devi usare la proprietà List con
l'indice (con base 0).
La listbox ha un numero di elementi pari a ListCount, per cui puoi
recuperare il valore da 0 a ListCount-1. Per sommare gli elementi con indice
0 di due listbox diverse, puoi scrivere:
Dim totale as Long
totale = Me.List1.List(0) + Me.List2.List(0)
ovviamente, come ha detto Lupo, devi controllare che le listbox contengano
valori numerici, altrimenti potresti incappare in qualche errore di run-time
13.
good coding!!!
-- 
Alletun
Sorry, ask me if you want to get my e-mail!


--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ha scritto:

Grazie, ci sono riuscito.


Newsgroup: it.comp.lang.visual-basic
Titolo: Libro su Win32 Api e Vb6

Visto che c'e' stato qualche thread sull'argomento, vorrei segnalarvi un
libro del quale ho letto la pubblicita' su Computer Programming di
Luglio-Agosto: "Visual Basic 6 Win32 API Tutorial" di J. Block (il cognome
e' tutto un programma). L. 85.000 - 450 pagg. Livello:Beginner. WROX Press.
ISBN:1861002432
Sicuramente non tratta tutte le API, ma puo' essere un buon inizio. A naso,
mi sembra che comunque il libro di Appleman sia migliore.
Fabio Pagano

...

Newsgroup: it.comp.lang.visual-basic
Titolo: Generare tutte le parole possibili

Ciao a tutti!
Vorrei scrivere una funzione che mi generi tutte le possibili parole che
possono essere generate con le lettere che vanno dalla a alla z.
Le parole saranno composte da 1 a n caratteri.
Non ho proprio idea di come poter fare...qualcuno mi sa aiutare?
Questa potrebbe essere una funzione da integrare in un programma che
utilizza il brute-force.....
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Le parole saranno composte da 1 a n caratteri.
Cioè cercare nel vocabolario tutte le parole che contengono le lettere che 
hai indicato?
Ciao 

 lettere che hai indicato?
Penso che intenda la combinazione ;-).
aaaaaaa
aaaaaab
aaaaaac
...
zzzzzzx
zzzzzzy
zzzzzzz
Questo sembrerebbe un lavoretto facile. Ho detto "sembrerebbe"... ;-).
Con otto lettere, se non sbaglio, si hanno 26^8 combinazioni possibili
e si arriva a 208.827.064.576: duecentootto miliardi e rotti di parole
possibili.
Se si considera che si debbono prevedere maiuscole, minuscole
e numeri, in realtà si deve contare: (26+26+10)^8:
218.340.105.584.896 possibilità.
Senza contare altri caratteri: trattini, segni, parentesi... quelli
ammissibili che uso io[1] sono 24, quindi  (26+26+10+24)^8:
2.992.179.271.065.856, sono quasi tremila triliardi...
[1] 
http://groups.google.it/group/it.comp.lang.visual-basic/msg/69f4926712c81b2a
Un Paperino e l'esplosione combinatoria. 

 2.992.179.271.065.856, sono quasi tremila triliardi...
paperino, pensa in grande! paperone userebbe 'fantastiliardi' :)
ciao, a.


Tu pensi troppo :)
Le parole sono importanti!
L'op ha detto "parole" non "stringhe" e di parole io conosco solo quelle nei 
vocabolari ;)
Per le combinazioni basta cercare sul sito comune: ultimamente č una 
richiesta piuttosto frequente, ma cosě č troppo facile.
Ciao 

 paperino, pensa in grande!
Oh, ragazzi, mettetevi d'accordo :-)
Bye, G. 

"Paperino" <non...@lo.dico> ha scritto

non importa, non pensarci :)

 Oh, ragazzi, mettetevi d'accordo :-)
Pensi troppo in grande?
Ciao 

 Ciao
2.992.179.271.065.856
wow! saranno gli indirizzi IP del futuro? :)

 wow! saranno gli indirizzi IP del futuro? :)
Gugla per "IPv6". Anzi: 
http://it.wikipedia.org/wiki/IPv6
Bye, G.

Newsgroup: it.comp.lang.visual-basic
Titolo: Sistema Operativo

C'e' qualche funzione di Visual Basic che permette di sapere il S.O.?
Grazie 1.000


Mi pare che utilizzando il wizard di VB, tu possa fare creare
automaticamente un form About, in cui dovrebbero già esserci tutte le
API necessarie a reperire le informazioni sul SO.
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

 API necessarie a reperire le informazioni sul SO.
che poi basta una funzione ed una struttura, per la precisione
Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
LpVersionInformation As OSVERSIONINFO) 
Type OSVERSIONINFO
        dwOSVersionInfoSize As Long
        dwMajorVersion As Long
        dwMinorVersion As Long
        dwBuildNumber As Long
        dwPlatformId As Long
        szCSDVersion As String * 128
End Type
A seconda di dwplatformid trovi il tipo di so, con *version la versione.
Newsgroup: it.comp.lang.visual-basic
Titolo: SQL server

Salve
Ho sviluppato un'applicazione in vb con un db access. Come riferimento per
l'accesso al db ho utilizzato l'oggetto DAO.
Adesso vorrei passare ad SQL server, quindi mi chiedevo se sara' necessario
modificare anche il codice vb o se e' sufficiente usare un db access di
appoggio dove allegare le tabelle del db SQL Server.
Voi che ne dite
saluti
paolo

A parte un po' di overhead dovuto al fatto che le ti connetti con DAO
a Access per poi connetterti via ODBC a SQL Server, no, non c'e' alcun
problema.
Ovvio che la soluzione migliore e' quella di connettersi direttamente
a SQL Sqever, e se non hai impiegato queries parametriche (che vanno
sostituite con opportune stored procedures) non dovresti avere
particolari difficolta'.
Ciao!
Luca Menegotto.


Newsgroup: it.comp.lang.visual-basic
Titolo: eseguire un file

Come posso da VB aprire un file pdf
Grazie
        M.

 wrote in message 8al7os$8gg$1...@news.cineca.it...


 L'inconveniente č che  devi sapere dove si trova il programma Acrobat


API ShellExecute, command open.
Umberto Meroni
umb...@vbp.it
---
Sito Visual Basic: 
http://www.vbp.it
Sito Comune VB: 
http://www.murialdo.it/it_lang_vb
---

Newsgroup: it.comp.lang.visual-basic
Titolo: Re: Creazione tabella con campo contatore (access)

Se ho capito il problema ti basta prima di inserire un campo fare una select 
dove cerchi tutti i valori per cui il campo1 sia uguale al campo che vuoi 
inserire (ordinandolo magari in maniera decrescente rispetto al  campo2).
In questo modo nella prima posizione del recordset che ti ritorna troverai 
il valore massimo in quel momento e ti basterà aumentarlo di uno e fare la 
tua insert...(nel caso il rs fosse vuoto inserisci 1 )
Scusa se non sono stato chiarissimo ma stasera sono MOLTO stanco :-)
Ciao Giuseppe

Salve a tutti, 
ho questo problema
Ho una tabella creata con access con un certo numero di record dalla
quale devo
estrapolare solo alcuni valori di 2 o 3 campi e accodarli in una
seconda tabella.
Fino a qua tutto ok.
La seconda tabella che creo deve avere un campo creato da codice dove
il valore diventa un contatore che pero' riparte da uno quando il
valore nel campo 1 cambia
campo 1      campo  2
a		1
a		2
a		3
b		1
b		2
b		3
c		1
c		2
d		1
d		2
Come potrei farei?
Grazie 1000
Daniele



Ok ci sono per la prima parte, e anche concettualmente, inserisco un
campo che cerchi i valori del campo1 pero' poi nel mio campo 2 devo
inserire il valore 1, 2 o 3 in base al campo1 .
E' questo il passaggio che mi manca......

 E' questo il passaggio che mi manca......
credo che giuseppe intenda qualcosa del genere.
qui e' dao, se usi ado lo modifichi di conseguenza:
    dim rs as recordset, j as long
    set rs = tuodb.openrecordset("select max(campo2) where campo1='a'")
    if rs.bof and rs.eof then 'non hai campo1=a
        j=1
    else
        j=rs.fields(0)+1
    endif
    rs.close:set rs=nothing
j e' il valore che ti interessa.
-- 
hth, ciao, j.
http://www.sundaysw.com
Newsgroup: it.comp.lang.visual-basic
Titolo: Assurdo ordinamento date access

Salve a tutti, ho un problema con l'ordinamento delle date tra access e
vb6. Allora, ho una query in cui ho specificato l'order by su di un
campo data e fino a quando l'eseguo in access non ho nessun problema e
mi ritorna i record ordinati correttamente..quando uso la stessa query
con un rs da vb6 mi ritorna i dati sempre ordinati per il campo
data...ma come se fosse un campo testo!!!!Non ho assolutamente idea del
perchè questa cosa accada, uso un banalissimo rs forwardonly
readonly....
Qualcuno ha qualche idea?
Ciao e grazie

 Qualcuno ha qualche idea?
A parte dire che non mi pare mi sia mai successo, proporrei di postare il
testo della della query.
E magari anche la struttura della tabella.
-- 
Salutoni
Sergio
La vita è un lungo apprendistato per imparare ad essere giovani
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 E magari anche la struttura della tabella.
Le date ovviamente sono campi "data". Quello che mi viene in mente è
che magari ci sia qualcosa nel rs, qualche impostazione particolare che
mi sfugge (ho provato ovviamente a cambiare tipo di rs ma non cambia
nulla)
Ciao!

 ha scritto nel messaggio
news:1144664718....@i39g2000cwa.googlegroups.com...


     mm/dd/yyyy
Ehm...
Spero che Albe stia guardando altrove...
-- 
Salutoni
Sergio
La vita č un lungo apprendistato per imparare ad essere giovani


 Spero che Albe stia guardando altrove...
No...
Alberto
-- 
A questo punto hanno trovato un muro,
un muro duro, molto molto duro,
che siamo noi.

 il campo data...ma come se fosse un campo testo
Come sai che sono ordinate male?
Non e' che per caso il risultato lo visualizzi dentro ad un controllo (combobox, listview, ecc.) e 
che questo abbia la proprieta' Sorted = True?
hth,
Lokar 

 No...
LOL =)
Lokar 

 che questo abbia la proprieta' Sorted = True?
%&£%$£%&ççç°!|!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Hai ragione...
In pratica uso l'ordinamento del lv per tutti i campi che non sono
delle date e per cui mi riordinava i dati il lv....
Sapevo che doveva essere una cavolate di queste....
Ciao e grazie!
Edoardo

 Hai ragione...
Alla luce dei risultati conseguiti, Lokar viene insignito del premio
"Sfera di cristallo 2006"
:-)
-- 
Salutoni
Sergio
La vita è un lungo apprendistato per imparare ad essere giovani


 "Sfera di cristallo 2006"
Nessun merito, stamattina mi sono rasato col rasoio di Occam.
Lokar 

 "Sfera di cristallo 2006"
E sě, questa era davvero difficile da indovinare :)
Ciao

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

Ciao,
dovrei scaricare il Service Pack 3 per Visual Studio ma sono piu' di 100 Mb :-((
Sapete se posso trovarlo in qualche rivista con CD allegato?
Grazie.
-----------------------------------------------------------------
Get free personalized email from Lycos at 
http://it.lycosmail.com
--
Posted from 
rmx07.iname.net
 [165.251.8.75]
via Mailgate.ORG Server - 
http://www.mailgate.org

Lascia stare, a me sta dando solo problemi !


Mi sembra che ci sia nel cd di DEV di settembre
Roberto




Newsgroup: it.comp.lang.visual-basic
Titolo: DISPOSIZIONE NUMERI

Come posso fare a disporre 10 numeri (calcolati casualmente) in ordine
crescente o decrescente???
Grazie per le risposte!
ciao

...

Devi ordinarli con uno dei tanti algoritmi di sort.
Ti posto quello che uso io (č piuttosto veloce)
Ciao
Sub SortInt(ByRef aFrom() As Long)
'Dato l'array aFrom(Item) lo ordina
Dim NP As Integer
Dim nItems As Integer
Dim PS As Integer
Dim Low As Integer, High As Integer
Dim tmpLow As Integer
Dim i As Integer, j As Integer
Dim Temp1 As Long
nItems = UBound(aFrom)
Low = LBound(aFrom)
PS = (nItems + 1) \ 2
Do
  NP = ((nItems + 1) \ PS)
  tmpLow = Low
  For i = 0 To NP - 1
  High = tmpLow + PS - 1
  If High > nItems - PS Then
     High = nItems - PS
  End If
      For j = tmpLow To High
         If aFrom(j) > aFrom(j + PS) Then
           Temp1 = aFrom(j)
           aFrom(j) = aFrom(j + PS)
           aFrom(j + PS) = Temp1
        End If
      Next j
  tmpLow = tmpLow + PS
  Next i
  PS = PS - 1
Loop While PS > 0
End Sub



Ti mando il Quick...docono che è uno dei più veloci...in effetti è una
bomba...
Public Sub xQuickSort(avarIn() As Variant, ByVal intLowBound As Long, ByVal
intHighBound As Long)
Dim intX As Long
Dim intY As Long
Dim varMidBound As Variant
Dim varTmp As Variant
On Error GoTo PROC_ERR
If intHighBound > intLowBound Then
    varMidBound = avarIn((intLowBound + intHighBound) \ 2)
    intX = intLowBound
    intY = intHighBound
    Do While intX <= intY
        If avarIn(intX) >= varMidBound And avarIn(intY) <= varMidBound Then
            varTmp = avarIn(intX)
            avarIn(intX) = avarIn(intY)
            avarIn(intY) = varTmp
            intX = intX + 1
            intY = intY - 1
        Else
            If avarIn(intX) < varMidBound Then
                intX = intX + 1
            End If
            If avarIn(intY) > varMidBound Then
                intY = intY - 1
            End If
        End If
    Loop
    xQuickSort avarIn(), intLowBound, intY
    xQuickSort avarIn(), intX, intHighBound
End If
PROC_EXIT:
Exit Sub
PROC_ERR:
MsgBox "Error: " & Err.Number & ". " & Err.Description, , _
"QuickSortVariantArray"
Resume PROC_EXIT
End Sub
-------------
Ciao
Sabba

Newsgroup: it.comp.lang.visual-basic
Titolo: Testo con effetti

Ho un client winshock che mi invia del testo.
Vorrei far in modo che il testo quando mi arriva al posto che arrivarmi:
Es
CIAO
Mi arrivi
1sec
C
2secondo
CI
3secondo
CIA
4secondo
CIAO
Si può fare!?!
Se si come
Grazie in anticipo!!!


Dim strTesto As String
Dim i As Integer
strTesto = "CIAO"
For i = 1 To Len(strTesto)
    Text1.Text = Left$(strTesto, i)
    Sleep 1000
Next
Ciauz
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: ..Toc Toc.. chiedo un piccolo aiuto

Programmo con Visual Basic 3.0 e Access 1.1 e ho il problema del limite del
ComboBox di 64Kb, infatti ho sviluppato un programma gestionale che
comprende un campo descrizione lungo 255 caratteri, a questo campo ho messo
un combo che ha il suddetto limite. C'è qualcuno che si è già scontrato con
questo problema?? Vi ringrazio anticipatamente per l'attenzione.
CIAO

 un combo che ha il suddetto limite. C'č qualcuno che si č gią scontrato

Newsgroup: it.comp.lang.visual-basic
Titolo: Net Time?

Ringrazio tutti quelli che hanno risposto alla mia domanda su come leggere e
impostare l'orologio di un computer collegato in rete col mio.L'idea di
usare net time mi piace,ma non ce l'ho!Qualcuno dice che è gia integrato nel
os(io ho win98),ma io non sono stato in grado di trovarlo.Aiutatemi ancora
,please(se non l'avete capito sono un pivellino!)Grazie

 ha scritto nel messaggio
news:O_sW4.30882$EY1.3...@news.infostrada.it...


 wrote in message
WVtW4.31147$EY1.3...@news.infostrada.it...


 ha scritto nel messaggio
news:XjTW4.39167$EY1.4...@news.infostrada.it...


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

Sto svilupando un 'applicazione  formata da molti progetti, alcuni sono
dll.
Possibile che se modifico una dll, anche in forma lieve, devo per forza
ricompilare tutti i progetti? c'è qualcosa per evitarlo?.
Grazie enzo.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie enzo.
devi impostare la compatibilitą binaria nelle opzioni della dll (se non
ricordo male)
ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [ot] calendario 2003

su javalab.
a differenza di luisa corna, j e' _completamente_ nuda.
--
ciao, j.
www.sundaysw.com

a differenza di luisa corna, j e' _completamente_ nuda.
bellissimo!
Complimenti alla modella... mi sa che è l'unico calendario femminile che
mia morosa mi lascerebbe appendere in camera.
Non è che java potrebbe fare un calendario con la Bellucci? Visto che,
Doberman o no, anche lei recita da cani, almeno avrei l'attenuante...
:-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
---------------------------------------------------------------------------

a differenza di luisa corna, j e' _completamente_ nuda.
ed anche piu' tenera :-)
-- 
ciao, hal

 a differenza di luisa corna, j e' _completamente_ nuda.
Sarą, ma la corna si depila meglio. ;-)
Ciao
*Roby*

a differenza di luisa corna, j e' _completamente_ nuda.
Molto bello il calendario... davvero! :)
-- 
Visita il sito comune del NG: 
http://www.it-lang-vb.net
Visit: 
http://www.hardwaretips.com

 a differenza di luisa corna, j e' _completamente_ nuda.
azz, e' anche un po Spinto :
http://www.sundaysw.com/sjl/2003cal/j1202.jpg
http://www.sundaysw.com/sjl/2003cal/j0402.jpg
cmq falle i complimenti perche' e' proprio bella ^_^

Newsgroup: it.comp.lang.visual-basic
Titolo: chiusura automatica del prg

Salve a tutti
come posso fare per chiudere in automatico  il prg ( che è ridotto ad icona) 
se non viene riaperto dopo 1 ora.
grazie Roby 

'... Un po' di Codice:
Opion Explicit
'Nelle dichiarazioni della form dichiara questa variabile
'e inserisci un timer con interval = 10000 (10 Secondi)
dim CicliTimer as integer
Private Sub Form_Load()
    Timer1.Enabled = False
End Sub
Private Sub Form_Resize()
    If Me.WindowState = vbMinimized Then
        CicliTimer=0
        Timer1.Enabled=True
    Else
        Timer1.Enabled = False
    End If
End Sub
Private Sub Timer1_Timer()
    CicliTimer = CicliTimer + 1
    if CicliTimer = 360 Then '(360 * interval (=10000))= 1ora)
        'qua inserisci il codice per terminare l'applicazione
    end if
End Sub
'---------------------------------------------------------------
Spero che sia tutto corretto, visto che ho scritto al volo e sono anche un
po' brillo, comunque questo è il modo più rapido che mi viene in mente per
fare quello che chiedi.
Ciao!
Un buon Chianti la sera fa sempre bene :)

Newsgroup: it.comp.lang.visual-basic
Titolo: Porta parallela

Qualcuno sa dirmi come fare a scambiare dati con la porta parallela ??
Ho trovato un win95io.dll da qualche parte ma non so come usarlo.... vi
prego di non essere troppo concisi nella risposta perchè sono alle prime
armi. Qualche esempio mi aiuterebbe molto, un grazie anticipato.
Claudio

 ha scritto nel messaggio
news:9HxD4.20994$pn3.2...@news.infostrada.it...


 ha scritto nel messaggio
news:8bni2v$kpi$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: agenda telefonica

Ciao , sono alla prima esperienza con vb6.
Vorrei trovare  una rubrica telefonica creata con
vb con relativo codice per prendere degli spunti.
Sapete dove posso trovarla?
Grazie

> Emanuela:

Una dovrebbe essere proprio fra gli esempi di vb. Almeno fino
alla v. 4 c'era e si chiamava "phone.vbp".
--
Ciao.
Maurizio

 ha scritto nel messaggio
news:8k6s2u$mss$1...@nslave2.tin.it...


 wrote in message
8k727f$sjl$1...@news.flashnet.it...


 Grazie
se vuoi ti mando la mia, in vb5/dao/access97.
e' fra le prime cose che ho provato in vb, quindi non e' granche' evoluta,
ma ci puoi ragionare abbastanza: io lo sto usando tuttora.
sono 810k in zip perche' c'e' anche il db (non so bene quanto verificato,
l'avevo trovato come txt e un po' ripulito) dei comuni, che da solo e' 1.8
mb.
lunedi' dovrei staccare un paio di settimane, quindi se credi ti serva manda
un mail a
andrea....@tin.it
ciao, a.
Newsgroup: it.comp.lang.visual-basic
Titolo: R: DB Access

Fatemi sapere nel caso......
Detto fatto !!!
Ciao,'"2FB ®foolbrain®"'
Visual Basic Programmer
ICQ 88912631
--
Posted from 
tsing.ita.tip.net
 [194.20.0.21] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 a écrit dans le message news:
022801c02222$d239a700$5301...@netbox.it...


A parte tutto il marasma che avete fatto cerco di chiarire un pò le idee:
I database funzionano grazie ad un "motore" (insieme di funzioni) che
gestisce tutte le operazioni che voi volete fare su quei dati. Infatti non
ve ne frega niente (e nemmeno lo sapete) come vengono memorizzati i vostri
dati in un file mdb.
Nel caso specifico, Access (qualunque versione) usa il "Microsoft Jet
Engine" (ovviamente è stato aggiornato e migliorato)
Quindi se volete accedere ad un file .mdb dovete usare un qualche strumento
che vi interfacci con le API del "Jet Engine"
Guarda caso VB nasce già con diverse di queste possibilità:
Potete connettervi ad un .mdb con:
-ODBC,
-DAO
-ADO
Tutto questo indipendentemente dalla presenza di Access 2 - 95 - 97 - 2000 -
131 e 7,3
Non dovete installare proprio niente (e men che meno modificare
l'autoexec.bat, che comunque viene modificato anche se non vi dice
niente...:-)) )
Ovviamnte se devi creare ex-novo un db, Avere access che ti permette di
crearlo in modo visuale aiuta incredibilmente... MA NON E' NECESSARIO!!!!!!!
CIAO a TUTTI

 niente...:-)) )
io questa di access e dell'autoexec bisogna proprio che qualcuno me la
spieghi.
COSA VIENE MODIFICATO ?
CHE RIGA ?
l'ultimo db, diciamo cosi', che mi -- me sciente o, piu' spesso,
incosciente -- ha modificato (o meglio: fatto modificare) autoexec era
clipper, che voleva set clipper=fn, con n = (files di config - 5),
laondepercui bisognava restaurare anche config.sys, seno' l'exe si
pianta(va) con messaggi inverecondi.
:)

:)
NON VIENE MODIFICATO NIENTE !!!!!!!!!!!!!   :-)
NON VIENE MODIFICATO NIENTE !!!!!!!!!!!!!   :-)
NON VIENE MODIFICATO NIENTE !!!!!!!!!!!!!   :-)
NON VIENE MODIFICATO NIENTE !!!!!!!!!!!!!   :-)
NON VIENE MODIFICATO NIENTE !!!!!!!!!!!!!   :-)
NON VIENE MODIFICATO NIENTE !!!!!!!!!!!!!   :-)
NON VIENE MODIFICATO NIENTE !!!!!!!!!!!!!   :-)
NON VIENE MODIFICATO NIENTE !!!!!!!!!!!!!   :-)
NON VIENE MODIFICATO NIENTE !!!!!!!!!!!!!   :-)
NON VIENE MODIFICATO NIENTE !!!!!!!!!!!!!   :-)
NON VIENE MODIFICATO NIENTE !!!!!!!!!!!!!   :-)
NON VIENE MODIFICATO NIENTE !!!!!!!!!!!!!   :-)
NON VIENE MODIFICATO NIENTE !!!!!!!!!!!!!   :-)
NON VIENE MODIFICATO NIENTE !!!!!!!!!!!!!   :-)
L'Autoexec.bat e il config.sys servono solo per le impostazioni dei
programmi che devono lavorare in shell DOS!!!!!!







 NON VIENE MODIFICATO NIENTE !!!!!!!!!!!!!   :-)
13 righe per 4 messaggi.
saro' testone, ma insomma, credo d'aver capito...
:)
Newsgroup: it.comp.lang.visual-basic
Titolo: "Save as" in Word 97

Salve
Il problema che sto affrontando è quello di aprire il dialog box di "Save as" in Word 97, in modo che la directory di salvataggio
non sia quella del file a partire dal quale "salvo con nome".
In pratica, se il file "c:\prova.txt" è il file dal quale salvo con nome, e magari tutti i file salvati con nome devono essere in
c:\documenti, vorrei che la directory che mi si presenta nella dialog non sia c:\, ma c:\documenti.
E' possibile fare qualcosa del genere?
Pensavo di attivare la form del "save as" via VBA, e quindi impostare qualche sua proprietà...ma come fare per richiamarla? Qual'è
il suo nome?
Grazie
Alberto
--
Posted from 
netserver.unimc.it
 [193.205.112.2] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
00bb01bfb044$d9740fb0$3303...@unimc.it...


 qualche sua proprietà...ma come fare per richiamarla? Qual'è il suo nome?
Public Sub SalvaConNome( _
)
  With Application
    Call .ChangeFileOpenDirectory("C:\WINDOWS\Desktop\")
    With .Dialogs.Item(wdDialogFileSaveAs)
      Debug.Print _
          "Elenco degli argomenti della" & vbCrLf _
        & "finestra di dialogo predefinita" & vbCrLf _
        & """wdDialogFileSaveAs"":"
      Debug.Print _
        "Name"; Tab(20); .Name
      Debug.Print _
        "Format"; Tab(20); .Format
      Debug.Print _
        "LockAnnot"; Tab(20); .LockAnnot
      Debug.Print _
        "Password"; Tab(20); .Password
      Debug.Print _
        "AddToMru"; Tab(20); .AddToMru
      Debug.Print _
        "WritePassword"; Tab(20); .WritePassword
      Debug.Print _
        "RecommendReadOnly"; Tab(20); .RecommendReadOnly
      Debug.Print _
        "EmbedFonts"; Tab(20); .EmbedFonts
      Debug.Print _
        "NativePictureFormat"; Tab(20); .NativePictureFormat
      Debug.Print _
        "FormsData"; Tab(20); .FormsData
      Debug.Print _
        "SaveAsAOCELetter"; Tab(20); .SaveAsAOCELetter
      Debug.Print _
        "WriteVersion"; Tab(20); .WriteVersion
      Debug.Print _
        "VersionDesc"; Tab(20); .VersionDesc
      Select Case .Display
      Case -2
        ' Su questo dialogo non e` presente il pulsante.
        ' Call MsgBox("Pulsante 'Chiudi'.")
      Case -1   ' Pulsante 'Salva'.
        Call .Execute
        ' oppure:
        'Call ActiveDocument.SaveAs( _
        '    FileName:=.Name _
        '  , FileFormat:=.Format _
        '  , LockComments:=.LockAnnot _
        '  , Password:=.Password _
        '  , AddToRecentFiles:=.AddToMru _
        '  , WritePassword:=.WritePassword _
        '  , ReadOnlyRecommended:=.RecommendReadOnly _
        '  , EmbedTrueTypeFonts:=.EmbedFonts _
        '  , SaveNativePictureFormat:=.NativePictureFormat _
        '  , SaveFormsData:=.FormsData _
        '  , SaveAsAOCELetter:=.SaveAsAOCELetter)
      Case 0
        Call MsgBox("Pulsante 'Annulla'.")
      Case Else ' Un pulsante di comando:
                '   1 è il primo pulsante
                '   2 è il secondo pulsante e così via...
                ' ... ma su questo dialogo non sono presenti
                ' altri pulsati.
      End Select
    End With
  End With
End Sub
--
Ciao.
Maurizio
Newsgroup: it.comp.lang.visual-basic
Titolo: passare da un tabpag1 a un tabpag2

saluto tutto il news , volevo sapere , con il codice sottostante , 
volevo ottenere attraverso un button1 passare da un tabpag1 a un 
tabpag2, soprattutto non riesco a capire come mai l'istruzione :
Me.Hide()
TabPage2.Show()
non ha il suo effetto, ringranzio anticipatamente chi mi da una 
spegazione ,arrivederci
Public Class Form1
     Private Sub btnAvanti_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles btnAvanti.Click
         If txtCog.Text = "" Then
             MsgBox("ï¿œ necessario inserire il cognome!", 
MsgBoxStyle.Critical, "attenzione !!!")
             Exit Sub
         End If
         If txtNom.Text = "" Then
             MsgBox("ï¿œ necessario inserire il nome!", 
MsgBoxStyle.Critical, "attenzione !!!")
             Exit Sub
         End If
         If Not IsDate(TextBox2.Text) Then
             MsgBox("inserire una data corretta!", MsgBoxStyle.Critical, _
                    "attenzione all'errore")
             TextBox2.Focus()
             Exit Sub
         End If
         If Len(TextBox3.Text) <> 16 Then
             MsgBox("inserire il codice esatto", MsgBoxStyle.Critical)
             TextBox3.Focus()
         End If
         Me.Hide()
         TabPage2.Show()


mi sa che devi usare la curtab (esempio =0 o =1) se 
vb.net
la nomcontainer.tab = 0 .. =1 etc  se vb6
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Un suggerimento..poi provo io!!!!

Salve a tutti.
Espongo subito il mio problema:
Ho installata una telecamera su porta parallela, e vorrei visualizzare i
vari fotogrammi in una finestra del mio form.
Dove devo andare per accedere alla porta parallela ?
Spero di essermi spiegato.
Grazie anticipate a chi mi vorra' aiutare.

 Dove devo andare per accedere alla porta parallela ?
Hmmmm, ho dei seri dubbi che sia possibile leggere "a mano" i dati in
arrivo dalla parallela ed interpretarli come bitmap. Se, come credo, usi
una telecamera tipo quickcam dovrebbe essere possibile sfruttare dei
controlli o delle api che fanno tutto il lavoro al posto tuo. Sul sito
comune, ina particolare, c'e' un file, nella sezione sorgenti, chiamato
VidCap.zip che dovrebbe fare al caso tuo.
Ciao
Brando
-- 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Sito comune di it.lang.vb  :  
http://www.murialdo.it/it_lang_vb
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Newsgroup: it.comp.lang.visual-basic
Titolo: Lettura NewsGroup

...Vorrei scrivere un mio client per leggere i newsgroup... Così magari mi
faccio un bell'archivio compresso con tutti i messaggi...
Qualcuno può aiutarmi?
        Grazie...
            Allanon


La prima cosa e' leggere i rfc appropriati sul protocollo NNTP utilizzato
dai news servers.
Nei rfc trovi tutto quello che ti serve.
-- 
Sidewinder  
---------------------------------------------------------------------
REST:
P:      Linus Torvalds
S:      Buried alive in email
	-- from /usr/src/linux/MAINTAINERS
---------------------------------------------------------------------

scritta con il suo sangue con le seguenti tenebrose parole:
Come vedi scrivo sempre meno... il sangue sta finendo... :-))
Appassionato di Terry Brooks?
            Allanon

 Cos'é un RFC?
Requests For Comments
dai uno sguardo a: 
http://www.faqs.org/rfcs/
--
Fibia "Sakamoto" FBI
URL: 
www.geocities.com/fibiafbi
E-Mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Membro #25 delle BT Sez. Sud

Cos'é un RFC?
Requests for Comments
Cito da 
http://www.cis.ohio-state.edu/hypertext/information/rfc.html
:
"The Internet Request For Comments (or RFC) documents are the written definitions of the protocols
and policies of the Internet. This page provides entry points to get at the RFCs"
Se non erro la RFC che ti interessa è la 977.
La puoi trovare all'indirizzo: 
http://www.faqs.org/rfcs/
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

Appassionato di Terry Brooks?
E non solo, ma anche Discworld, Tolkien, MZB.... sono un fondamentalista unixiano e siccome nel mondo unix
i servizi che lavorano in background vengono chiamati Daemons...
-- 
Sidewinder  
---------------------------------------------------------------------
Actually, typing random strings in the Finder does the equivalent of
filename completion.
	-- Discussion on file completion vs. the Mac Finder
---------------------------------------------------------------------

             Allanon

Newsgroup: it.comp.lang.visual-basic
Titolo: Cancello il record ma rimane....

Applico il Recordset.Delete per togliere un record dal recordset.
Poi per avere di nuovo tutto il recordset, scrivo:
AdoProva.RecordSource = "Select * from Tabella"
AdoProva.Refresh
Nel DataGrid compare ugualmente il mio record, nonostante sia fisicamente
eliminato dalla tabella.....ho provato con un refresh del DataGrid ma non
funziona
Perchč ?
Grazie Giacomo.

 Perchè ?
Hai scritto Recordset.update dopo il delete vero?
---------------------------------------------------------
             ASSA
http://assatarram.yohoo.it
Bookmark download:
http://www.redangel.it/beta_zone/Click_p.asp?ID_P=19
Napster: Assatarram3
---------------------------------------------------------

 ha scritto nel messaggio
news:9d6igk$1c9$1...@serv1.albacom.net...

Newsgroup: it.comp.lang.visual-basic
Titolo: problema api Shell_NotifyIcon

Allora: seguendo l'articolo che c'è sul sito comune ho aggiunto una icona
nella tray con tanto di popupmenu.
Il problema è che quando sulla procedura del menu che ho creato
(menuesci_click) scrivo unload mainfrm mi va in crash vb. ("Questo programma
ha eseguito bla bla").
Come mai? Eppure se faccio click sulla X del form o se in un command1_click
metto unload mainfrm mi va tutto ok.
Ho provato anche ad aggiungere sull'esempio dell'articolo del sito unload
form1 in mnuexit ed il risultato è lo stesso.
Mi sapete dire perchè?
Grazie mille per le risposte
Ciao ciao,
Alex
--
------------------
email: el_co...@TOGLIQUESTOlibero.it
icq: 132581870
------------------

 Mi sapete dire perchè?
Così ad occhio direi che prima devi disattivare l'icona (funzione callback
con addressof) e poi fare l'unload.
Prova a leggere sul sito comune il Subclassing.
Ciao
--
Timothy Redaelli

 Mi sapete dire perchè?
Shell_NotifyIcon NIM_DELETE, nid
_PRIMA_ che il form principale sia scaricato.
ciao
ugo


L'avevo già meso prima e non funziona.
Ma la cosa strana è che se faccio click sulla "X" in alto a dx del form o se
sul form ci metto un command button per es e sull'evento click scrivo
"unload form1" va tutto bene!
Solo se scrivo unload form1 sull'eventi click del menu mi va in crach tutto.
Perchè?
Spero ancora in 1 vostra risposta.
Grazie mille in anticipo,
Alex

 Perchè?
Dovrebbe funzionare.
Sicuro di non avere altre "cosette" aperte, tipo connection ado e simili?
ciao
ugo


No, non ho niente. Nessun altro controllo o libreria aggiuntivi.
Ciao ciao,
Alex

Perchè?
Perche' non abbiamo la sfera di cristallo e non sappiamo cosa faccia il
tuo codice ;-)
Ho il sospetto che il crash avvenga perche' tenti la delete della 
notify_icon_data due volte: la prima volta e' ok, 
ma la seconda tenta di agire su un' area di memoria
che non e' piu' sua.
Prova a mettere una MsgBox prima della distruzione di nid e ricompila.
Se cosi' non fosse, occorrerebbe visionare il codice di Form_Unload,
del command che da' l' unload e del click della voce di menu che da'
l' unload.
BTW, c'e' qualche oggetto che ha una reference verso il form?
-- 
ciao, hal


anche questo, oltre ad altri oggetti che non vengono scaricati da questa
specifica routine di uscita (meglio che sia sempre _una_ la routine di
uscita...)
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: Ancora su test esistenza tabella

Scrivendo il seguente codice:
Set wrkjet = CreateWorkspace("", "admin", "", dbUseJet)
Set db = wrkjet.OpenDatabase(dbpath)
Set rs = db.OpenRecordset("select name from MSysObjects where name='duplicati'")
produce il seguente errore:
Impossibile leggere record. Autorizzazione a lettura dati non disponibile
Premetto che il database non ha nessun utente definito.
Altri metodi per testare l'esistenza di una tabella?

 Altri metodi per testare l'esistenza di una tabella?
In DAO (da dichiararsi fra i riferimenti del progetto):
    Dim db As DAO.Database
    Dim esiste As Boolean
    Set db = OpenDatabase("C:\cartella\pippo.mdb")
    esiste = 0
    For Each t In db.TableDefs
        If t.Name = "Nome_Tabella" Then
            esiste = 1
            Exit For
        End If
    Next t
    If esiste Then
        MsgBox "Tabella esistente"
    End If
    db.Close
    Set db=Nothing

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.NET] Form.Metodo ?

In 
VB.NET
 come si ottiene l'equivalente? Mi spiego...
Ho all'interno di ogni form una sub (ad es. Visualizza)
Public sub Visualizza()
....
...
End sub
All'interno di un modulo utilizzo un codice del tipo
Sub ModGen()
dim f as form
set f = screen.activeform
f.Visualizza
Ma in .net come si fa?
grazie 1000

 grazie 1000
Uguale, afaik, se il problema è accedere al metodo visualizza della tua form
L'unica cosa, al limite, è fare un cast della form, una cosa del tipo
dim f as TuaForm
f = directcast(screen.activeform, tuaform)
f.visualizza
naturalmente se esiste la proprietà activeform dell'oggetto screen in .net :-)
--
Salutoni
Sergio