mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] cos'è abuse@libero.it

deV<

L'indirizzo abuse@<nome_provider> serve a segnalare l'uso non corretto della
rete al gestore del servizio.
Ogni ISP ha un indirizzo cui segnalare gli 'abusi' della connessione che i suoi
utenti compiono.
Abusi significa ogni comportamento non aderente alle regole del rispetto altrui;
vorrei citare netiquette ma mi sa che poi mi prendono per il culo, visto
l'andazzo.
Di fatto si possono segnalare attività quali spamming, tentativi vari di
intrusioni, uso di puttanate varie quali BO, NetBUS o simili, diffusione di
backdoors, virus, trojan, worm e quant'altro non aderisca allo spirito
collaborativo che dovrebbe motivare gli utilizzatori della rete.
(NDGbC: se togliessimo tutta questa merda dalla rete avremmo il 2000% della
banda in più, ma tanto è... lasciamo che i bambini si divertano...)
L'ISP a fronte di una segnalazione controlla i suoi log, ed una volta
riscontrato l'uso non corretto della rete può intraprendere qualsiasi azione,
dal semplice termine del contratto di fornitura della connessione fino ad una
denuncia, nei confronti dell'idiota.
Questo perché l'ISP è il responsabile legale dei nodi di rete che gestisce ed è
in grado di risalire in qualsiasi momento alle attività di una sua qualsiasi
connessione, sia con IP dinamico che statico.
Questo dovrebbe far riflettere i rompicoglioni; purtroppo però l'ignoranza la fa
da padrone, e quindi accade che alle volte sia necessario rivolgersi ad un
censore che 'stronchi' i cretini.
A questo servono gli indirizzi abuse.
A puro titolo informativo, non ne ho mai fatto uso.
--
GbC
http://www.chiappori.net
--

thanks !!!

Newsgroup: it.comp.lang.visual-basic
Titolo: 2 quesiti

Ciao a tutti,
vorrei sapere come posso far aprire da visual basic un file di testo che io
passo come parametro con notepad (se è possibile evitando di utilizzare la
funzione shell).
Inoltre come posso ricavare il percorso della directory di windows, dato che
varia a seconda del sistema operativo?
Grazie
Andrea

 passo come parametro con notepad (se č possibile evitando di utilizzare la


varia a seconda del sistema operativo?
Dai un'occhiata sul mio sito.
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
---------------------------------------------------------------------------

Secondo me la shell execute sarebbe meglio... ti apre il file con il
programma assegnato (metti che uno non usa note pad...) e non hai problemi a
cercare l'eseguibile.
La trovi sul SitoComune (vedi la mia firma).
CiaoZ (c)(r)
SebaMix
--
------------------ - -  -   -    -     -      -
Sito Comune del newsgroup it.comp.lang.visual-basic
http://www.murialdo.it/it_lang_vb
------------------ - -  -   -    -     -      -
Rimuovete NOSPAM dall'indirizzo per scrivermi...
Remove NOSPAM from address to write me...
------------------ - -  -   -    -     -      -
Newsgroup: it.comp.lang.visual-basic
Titolo: Creare un MDB

E' possibile da Vb6 creare direttamente un file MDB?
Grazie a tutti.
Skysurfer

 E' possibile da Vb6 creare direttamente un file MDB?
Utilizza il metodo CreateDatabase dell'oggetto DBEngine:
DBEngine.CreateDatabase
HTH,
--
Lorenzo Benaglia
24 Ore Personal Finance S.p.A.
Milano
Italy

 > E' possibile da Vb6 creare direttamente un file MDB?


 Esiste un comando equivalente in ADO?
Certo che esiste!!
Come prima cosa devi aggiungere una reference alla type library del
componente  "Microsoft ADO Ext. 2.5 for DDL and Security" (msadox.dll).
A questo punto avrai a disposizione un'estensione di ADO dedicata alla
gestione dei catalogs e della sicurezza.
Per creare un nuovo catalogo (file mdb nel tuo caso), utilizza il seguente
codice:
Private Sub CreateDatabase()
   Dim cat As ADOX.Catalog
   Set cat = New ADOX.Catalog
   cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"
End Sub


 Grazie a tutti.
utilizzando DAO guarda prop e metodi dell' oggetto database
Cmq
Set Db = CreateDatabase("nomemdb",DbLangGeneral)
similarmente puoi inserire tabelle e query nonche fields nelle tabelle ecc.
Ciao stefano

 E' possibile da Vb6 creare direttamente un file MDB?
si'. dovrebbe esserci nell'help. sul manuale di vb4 erano un bel po' di
pagine, si fa lunga.
sul sito comune c'e' mdb2bas. il codice ti dovrebbe essere utile.
ciao, a.
Newsgroup: it.comp.lang.visual-basic
Titolo: Lettura di file ASCII

Salve a tutti, torno a scocciarvi con i miei problemi ma non saprei a chi
altro rivolgermi
Devo leggere un file ASCII e inserire il contenuto di ogni singola riga
all'interno di un record.
Ora il problema e' che ogni riga (len 2047) ha gli ultimi due caratteri
corrispondenti a CR(0x0D) e LF(0x0A) e poi (l'ho verificato con un comune
editor di testo) la nuova riga si trova a capo.
il codice che ho scritto è il seguente:
    Open "C:\Test.txt" For Input As #1
    While Not EOF(1)
        Line Input #1, strRiga
        .....................
        .....................
    Wend
    Close #1
Il problema e' che ogni volta mi legge 2045 caratteri, trova il CR e, al
ciclo successivo, inserisce in strRiga solo l'LF, poi riprende da capo...
E' possibile ovviare a questo inconveniente in qualche modo e inserire nella
variabile tutti i 2047 caratteri?
Vi ringrazio fin d'ora e scusatemi per la rottura di scatole.
Fiorenzo
-- 
Posted from 
HA-server-a.cs.interbusiness.it
 [151.99.250.31] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG



 ha scritto nel messaggio
news:000801c09bf1$6f4cc660$6674...@interbusiness.it...


variabile tutti i 2047 caratteri?
Non c'e' motivo che ti serva, perche' ti serve questo?
Se ti trovi il LF dentro la stringa vuol dire che nel tuo file c'e' un LF
non preceduto da CR.
Per caso il tuo file proviene da sistemi unix?
Salve
            Dbg

Aprendo il mio file con Wordpad ho notato che ogni riga termina con due
caratteri, una specie di rettangolo che suppongo essere il CR e poi il
carattere "Õ" che immagino essere LF, dopodichè inizia a capo un altra riga
che termina con gli stessi due caratteri.
Non so se il file proviene da un sistema unix, il discorso è che in questo
modo il line input mi inserisce alternativamente all'interno della variabile
stringa 2045 caratteri e poi il solo "Õ".
Grazie


 ha scritto nel messaggio
news:000201c09bf1$64013c00$6674...@interbusiness.it...


Aprendo il mio file con Wordpad ho notato che ogni riga termina con due
]zac[

prova cosi':
Dim spiazz As Long
spiazz = 1
Open "c:\Test.txt" For Binary As #1
riga$ = Space$(2047)
While Not EOF(1)
    Get #1, spiazz, riga$
    '
    ' qui' fai quello che vuoi.........
    '
    spiazz = spiazz + Len(riga$)
Wend
Close #1
CIAO!
Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 e MySQL

Ho il seguente problema:
ho sviluppato un programma di gestione aziendale, che gestisce varie cose
tra cui fatturazione, magazzino, ecc..
Vorrei evitare di dover installare i driver ODBC su ogni client.
Qualcuno mi sa dire come connettere gli oggetti ADO al server MySQL senza
l'utilizzo di ODBC?
Ringrazio!
--------------------------------
Inviato via 
http://usenet.libero.it

 senza l'utilizzo di ODBC?
Con i provider OleDb.
Sembra una battuta, ma invece è proprio la soluzione.
Te li scarichi dal solito sito MySql e sei a posto.
Cioè, che vadano distribuiti è fuori di dubbio, ma almeno non dovrai fare un
DSN su ciascun client (che, comunque, puoi fare anche a runtime quando ti
connetti, quindi non è che cambi molto, salvo forse le performance...).
Ciao
Alberto

 Alberto


 Sto diventando scemo!
con un qualsiasi linguaggio di programmazione, per connetteri ad un
database hai bisogno delle librerie client di quel DMBS, che siano
librerie linkate nell'eseguibile o DLL esterne devono essere presenti sul
PC client.
Per SQL Server o Access, queste librerie (che siano ODBC o OLEDB) sono già
presenti sul PC  ( dal sistema operativo o dopo aver installato MDAC), per
tutti gli altri DMBS te li devi installare, quindi che tu da VB voglia
accedere a MySQL o ti installi i driver ODBC o il driver OLEDB lo devi
installare ! oppure scrivi a Guglielmo Cancelli e chiedi se nella prossima
release di MDAC, tipo la 2.8 ti include i driver ODBC e OLEDB di MySQL,
FireBird, SAPDB e tutti i DB che ti vengono in mente.
ciauz
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Sto diventando scemo!
Se programmi in C (o C++, non ricordo) dovrebbero esserci delle funzioni 
native.
Controlla su 
www.mysql.com
.
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiutatemi ho bisogno di aiuto sui database

Proteste spedirmi qualche esempio di programmini in vb4 sulla gestione dei
database ?
ad esempio rubriche telefoniche o altro ?
Grazie 
Gian...@hotmail.com

 scritto nell'articolo
<01bcd0e8$51ba86a0$010000c1@giusarno>...


Newsgroup: it.comp.lang.visual-basic
Titolo: [W2K] servizio automatico

deV<

 ha scritto

supponendo naturalmente che sia connesso come admin
1. se fai login, ti basta un .cmd in esecuzione automatica, direi.
2. se vuoi che lo faccia anche senza login
2.1. escluderei allo spegnimento. se un utente ha messo un file di 15
gb, ti salta il timing dello spegnimento o si interrompe la copia
2.2. all'accensione, avevo lo stesso problema, crei un servizio nt. se
cerchi sotto autore = jimi (o pal) e sogg = servizi(o) nt / nt
service(s), dovresti trovare un po' di post. seno', se e' questo che ti
interessa, ti posso cercare qualcosa io. se credi ti mando anche il mini
vbp di test che mi ero fatto.
ciao, a.

 > viene acceso o spento (ma penso sia piů facile all'accensione) faccia


 instsrv.exe pippo c:\winnt\system32\srvany.exe
4. devi dunque modificare il registry. vai alla chiave:
hkey_local_machine\system\currentcontrolset\services\pippo
aggiungi una nuova chiave "parameters".
aggiungi una stringa a "parameters" che nomini "application" e
assegni come valore il percorso completo della directory di
installazione del servizio, (dovrebbe comunque essere \winnt\system32).
4.1. per fare un modo che il servizio sia invisibile (non rintracciabile
nella lista dei task), aggiungi alla chiave "parameters" la
stringa "appparameters" e assegni come valore "/hidden".

 > mň magari !!!  sotcha !!!!


 grazie..........
lo so. sto a modena :)

Newsgroup: it.comp.lang.visual-basic
Titolo: Visual-Basic Italia

Ho visitato oggi per la prima volta il sito di Visual-Basic Italia, ed
avendolo trovato interessantissimo ho scaricato un piccolo add-on
per i miei sw che rende possibile la personalizzazione dei menu a tendina.
Il mio probl. è che quando ne faccio uso, nel mio prog tutti gli oggetti con
la proprietà .FontName = "Verdana" vengono sconvolti e visualizzati
col font "System".
Spero che ci sia tra di voi qualcuno che mi possa aiutare.
Grazie!

Leggi Visual-Basic Tips & Tricks (
http://visual-basic.it
)

:

Si ma qual'è il nome dell'add-on ? 
Ciao.

MenuOwdr25.zip č il nome del file, si trova nella sezione Download, marcato
con il simbolo new
Scusate per la mancanza...
Newsgroup: it.comp.lang.visual-basic
Titolo: PROBLEMA CON DBGRID

Ho fatto un programma dove utilizzo DBGRID associato ad un  controllo data ,
in fase di
compilazione funziona perfettamente , quando pero vado ad installare il
pacchetto
mi da errore  dicendo  IMPOSSIBILE TROVARE ISAM INSTALLABILE (ERRORE DI RUN
TIME
3170)   . Avete suggerimenti ?   Grazie ciao.


Il datacontrol associato alla dbgrid, a quale tipo di db è associato? Ti
faccio questa domanda perchè probabilmente non hai installato correttamente
i driver di gestione dello specifico engine DB che stai utilizzando.
Fammi sapere.

 wrote in message
aa10m6$bkk$1...@pegasus.tiscalinet.it...


 e  non va bene?
Access2000 ==> DAO 3.6
Ciao
 Valter

Newsgroup: it.comp.lang.visual-basic
Titolo: Incapacità (mia) chiusura file

Innanzitutto mi scuso se ho crosspostato questo messaggio su
free-it.visual-basic, ma non conoscevo di questo ng. Abbiate pazienza ora ho
un punto di riferimento.
Ho fatto il mio primo prg in visual (in realtà è un ammassamento di macro e
non un vero e proprio prg) e ho un problema per voi banale.
Quando una subroutine deve chiudere un file e se io non voglio salvare le
modifiche (infatti si tratta di un file condiviso del quale prendo solo
alcuni dati e li elaboro) come posso fare perchè non compaia il messaggio
"vuoi salvare le modifiche ?". La persona che lo utilizza è imbranata e mi
ha chiesto di non far comparire il messaggio ma io sono peggio di lei... e
non so toglierlo.
Se mi potete aiutare vi ringrazio in anticipo.
Ciao
G.Gullone
PS.: dove trovo un manuale per imparare da quasi zero a programmare in vero
VB con maschere e files e non solo con macro come faccio x ora ? Grazie

VB con maschere e files e non solo con macro come faccio x ora ? Grazie
Usi VB o VBA?
-- 
ciao, hal

 per dire se si vuole salvare con o senza prompt oppure non salvare del
Close riferito a Excel

Close riferito a Excel
Bene, poni il cursore sopra l'istruzione Close e premi il tasto F1:
la guida in linea si aprira' automaticamente sulla descrizione di tale
comando.
Li' sono spiegati i parametri attesi da tale metodo, fra cui
anche la possibilita' di _non_ salvare le modifiche.
-- 
ciao, hal

 cui anche la possibilita' di _non_ salvare le modifiche.
In aggiunta a quanto detto da hal, dovrebbe esistere anche
una proprieta' Silent o qualcosa del genere che _non_ mostra
le messagebox.
hth,
Lokar
--
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
UGIdotNET - 
http://www.ugidotnet.org
Newsgroup: it.comp.lang.visual-basic
Titolo: Non funziona il comdlg32.ocx

Improssimamente non riesco più ad usare,con VB 5 professional, il controllo 
di dialogo comdlg32.ocx in quanto
quando cerco d'inserirlo in un form appare una finestra che mi dice che non 
ho la licenza di usare tale controllo.
Preciso cho è già qualche anno che lo uso ed il programma è regolarmente 
acquistato e registrato.
--
Posted from 
mta01-acc.tin.it
 [212.216.176.32]
via Mailgate.ORG Server - 
http://www.mailgate.org

 wrote in message
4.2.0.58.2000030...@box.tin.it...


 ho la licenza di usare tale controllo.
E' probabile che tu debba correggere la registrazione
dei tuoi componenti ActiveX.
E' disponibile per questo scopo un programmino (Microsoft)
che, come è già stato detto più volte in questo NG, corregge
il problema. Il Prg. si chiama Vb5cmpfix.exe e lo trovi
nel sito Microsoft.
Dovrebbe trovarsi in 
http://www.microsoft.com/vstudio/sp
Non ne sono però sicuro. Usa il search engine.

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

Vorrei sapere se è vero che il controllo MSCOMM ha problemi nel rilasciare
memoria.
Grazie

Cito direttamente da MSDN Library:
If you are using Visual Basic 6.0, the version that ships on the CD is
6.00.8169. If you are using Visual Basic 5.0, there are two versions
of the MSComm control that you can use. Microsoft recommends that you
use the version updated by Service Pack 2 for Visual Basic 5.0. This
version is 5.01.4319 dated 7/19/97. The other version, which shipped
on the Visual Basic 5.0 CD, is 5.00.3714 dated 1/14/97. The major fix
in the Service Pack 2 version is documented in Microsoft Knowledge
Base article Q171472, and it fixes a memory leak that was occurring
when the port was repeatedly toggled open and closed. 


------------
Francesco Beccari
frankb@I_HATE_SPAM_interplanet.it

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

Esiste da qualke parte un manuale di SQL per Vb???
Io avrei bisogno di krearmi stringhe SQL per poter kambiare un mio report
(fatto kon datareport) e magari riuscire a tenermi il raggruppamento
impostato in fase di crezione, qualkuno sa se si può fare o dove trovare il
manuale ke spieghi qualkosa sull'SQL per VB??
Grazie 1000.
Kris.

Esiste da qualke parte un manuale di SQL per Vb???
L'help di Vb5 è facile e completo ... sempre che si parta dagli esempi
più facili, passando man mano a quelli più complessi
ErreBi
Newsgroup: it.comp.lang.visual-basic
Titolo: connettersi ad una cartella ad internet

Su uno spazio web vorrei mettere in una cartella 3 listini.xls e vorrei che
da vb6 sia possibile eseguire i seguenti passi:
    1. Attivare una connessione ad internet
    2. Inserire User e Password e dopo la convalida
        collegarsi attraverso ftp o altro modo alla cartella in internet
        per scaricare il listino dei 3 disponibili.
Qualcuno fra voi ha quanche idea?
Grazie a tutti.

 Qualcuno fra voi ha quanche idea?
Si se ti interessa il programma te lo faccio io, ti mando le coordinate
bancarie? ;)
Newsgroup: it.comp.lang.visual-basic
Titolo: domanda inusuale

come faccio a ad inserire un filmato flash in un form? Esiste l'oggetto
shockwave ma l'immagine rimane fissa sul primo frame.
Grazie

 Grazie
Il post potrebbe essere interessante, ma il subject fa pieta'.
Oggi, che mi sento buono e ho tempo da perdere, ho aperto anche questo post
che altrimenti avrei saltato a pie' pari.
Come me, probabilmente, fa cosi' anche chi potrebbe aiutarti.
Mi sono percio' permesso di sostituire il subject.
Ciao
Aldo

 wrote in message
92krjl$7f6r2$1...@ID-56381.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: Due domande...

Salve a tutti...passavo da qui e colgo l'occasione per fare 
un paio di domande.
1) Come posso attivare una procedura VB nel momento in cui
   cambia il contenuto in una cella di Excel ?
2) Posso proteggere (nascondere) il codice VB in un file XLS ?
Grazie anticipatamente...
;-))
CiaO,
Massimo

 2) Posso proteggere (nascondere) il codice VB in un file XLS ?
        Strumenti > Proprieta' di <progetto>
        Protezione
************************************************************
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

 ************************************************************
.
.
.No, non funge. Possiedo Office 97...dipende da cio'..?
Dopo la protezione del foglio:
[Strumenti] [Protezione] [Proteggi foglio]
premendo ALT F11 si riesce sempre a vedere il codice VB.
Grazie, CiaO
;-)
Massimo

 premendo ALT F11 si riesce sempre a vedere il codice VB.
--


 > >         Protezione
.
.
.Grande.....Scusa ancora, ma e' la prima volta che mi capita di
dover proteggere il codice VB...
;-))
CiaO,
Massimo
Newsgroup: it.comp.lang.visual-basic
Titolo: [REQ] Routine Matematiche

Mi servirebbero delle routine di calcolo matematico (quali inversione di
matrici e cose simili).
Prima di mettermi a scriverle vorrei sapere se qualcuno conosce librerie,
siti o componenti per VB6 che hanno queste caratteristiche. E dove posso
rimediarle.
Grazie mille.
        Massimo
--
___________________________________________
            ,     \    /      ,
           / \    )\__/(     / \
          /   \  (_\  /_)   /   \
_________/_____\__\@  @/___/_____\_________
|                 |\../|                  |
|                  \VV/                   |
|             Massimo Bonanni             |
|       Via O. Damasiano 15, 00148 Roma   |
|       E-Mail : 
opo...@freemail.it
      |
|                
bon...@help.it
          |
|       ICQ : 15868766                    |
|       Tel. : 0338-7510911 (cell.)       |
|              06-41733359 (uff.)         |
|_________________________________________|
     |    /\ /      \\       \ /\    |
     |  /   V        ))       V   \  |
     |/     `       //        '     \|
     `              V

 matrici e cose simili).
Io avevo fatto qualcosa di simile un po' di tempo fa, ma non ricordo
piu' dove ho messo i sorgenti...Questo weekend quando torno a casa
controllo, e ci sentiamo la settimana prossima.
Mi raccomando, non aspettarti niente di che...Semplicemente, quel poco
che devono fare, lo fanno.
Ciao
Brando


Di librerie di funzioni di calcolo matriciale, statistico e altro ne
esistono parecchie.
Purtroppo (per te) sono quasi tutte in Fortran o C.
Esistono anche librerie di classi in C++ per le matrici (ne avevo scritta
una anch'io tempo fa... poi ho fatto un pasticcio con Linux e mi sono perso
80MB di sorgenti vari in 7 secondi netti :-(
Se fai una ricerca su internet dovresti trovarli.
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: lancio comando dos

Devo lanciare questo comando:
dir /s /b /o:g c:\pippo\a*.xls > testo.txt
uso shell("dir /s /b /o:g c:\pippo\a*.xls > testo.txt"
ma da errore in run-time, file non trovato, ho provato a cambiare
ricerca anche un semplice "dir" ma nn funziona dove sbaglio?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 
l'errore e' che DIR e' un comando *interno* della shell DOS
e non un eseguibile.
prova con:
shell("cmd.exe /c dir /s /b /o:g c:\pippo\a*.xls > testo.txt") nt, win2k e xp
o
shell("
command.com
 /c dir /s /b /o:g c:\pippo\a*.xls > testo.txt") win9x,me
bye
r
ps: io scriverei > c:\xxx\testo.txt altrimenti non hai la certezza assoluta
di ritrovare il file ;-)
Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda stupida: Contare caratteri da destra

Salve a tutti.
Scusate la domanda stupida ma ho un totale blank :-o.
Ho un percorso di un file qualunque, e devo ottenere una stringa contenente
tutto il percorso tranne il nome del file.
So che devo contare la prima occorrenza di "\" da destra.....ma non mi viene
in mente come fare!! Una mano? Grazie a tutti

 ha scritto nel messaggio
news:AL8zb.142640$hV.51...@news2.tin.it...


 ha scritto

instrrev
Restituisce la posizione di un'occorrenza di una stringa inclusa in un'altra
a partire dalla fine della stringa
ciao, j.

 ha scritto nel messaggio
se apri il file con una commondialog, hai provato a leggere la lunghezza del
nome del file, e poi a tagliare la stringa completa di un tot di caratteri a
partire da sinistra?
Ciao

Che bello poter utilizzare la stessa funzione (anche se modificata) per due
post nello stesso giorno....
Modifica questa funzione ed otterrai ciň che ti serve
Public Function NumeroCaratteri(Percorso As String) As Integer
Dim i, somma As Integer
Dim Char As String
somma = 0
    'Si sposta nella riga di comando un carattere alla volta.
    i = Len(Percorso) + 1
    While i <> 0
        i = i - 1
        Char = Mid(Percorso, i, 1)
        If (Char = "\") Then 'Controlla se vi č il carattere \.
           i = 0
        Else
            somma = somma + 1
        End If
    Wend
       NumeroCaratteri = somma
End Function

Giuseppe Marini wrote:

path=left(stringa,instrrev(stringa,"\"))
-- 
Ciao,
        Fabrizio
<=- 
http://www.negusweb.it
 -=>
Newsgroup: it.comp.lang.visual-basic
Titolo: ASP e CGI

Cerco sito su ASP e/o CGI.
Grazie


www.developer.com
bie ....... Max

Newsgroup: it.comp.lang.visual-basic
Titolo: Manula MSDE

Vorrei fare qualche esperimento di prova su MSDE tanto per imparare a
muovermi nel mondo di SQL, ho già installato il pacchetto e scaricato dal
sito comune un bel programmino di esempio che mostra praticamente tutto per
gestire MSDE tramite SQLDMO.dll ma i commenti alle procedure sono
praticamente assenti e vorrei trovare un manuale che spieghi i vari
comandi... ce n'è qualcuno on-line? ...materiale in proposito?
Grazie
    Roby

"IL ROBY" <car...@TOGLIadriacom.it> ha scritto nel messaggio
news:JJaA9.1057$Yw.3...@news2.tin.it...


Mi puoi questo esempio in cosa č fatto e come scaricarlo?
Come faccio a creare un db su msde?
Ciao, Mario

"IL ROBY" <car...@TOGLIadriacom.it> ha scritto nel messaggio
news:JJaA9.1057$Yw.3...@news2.tin.it...

salve,
se cerchi materiale/documentazione relativamente a SqlDmo, putroppo in rete
non c'e molto.. o almeno io ne ho trovato pochissimo, ed e' proprio stato
questo il motivo che mi ha convito a rilasciare DbaMgr anche in formato
sorgente.... qualche libro invece lo trovi, ad esempio
http://www.apress.com/book/bookDisplay.html?bID=118
 pero' non l'ho letto...
ce n'e' un altro edito Wrox 
http://www.wrox.com/books/1861002807.htm
 ma sono
stati i soldi peggio spesi in libri della mia vita....
trovi invece qualche articolo sia su Visual Studio Magazine
 
http://www.fawcette.com/search/results.asp?find=dmo&lib=vsm
che su Sql Server Magazine
http://63.88.172.128/sql/query.html?qt=dmo&qp=keywords:%22sql%20server%20and
%20database%22
qualche cosina presso Bill Vaughn
http://www.betav.com/Files/Content/samples.htm
ed ancora sul sito di Gert E.R. Drapers
http://www.sqldev.net/
che e'/e' stato un product manager Microsoft proprio per la parte Sql-Dmo e
Sql-Ns (o cosi' almeno ho capio) ed e' anche molto cortese e disponibile..
se il pacchetto scaricato dal sito comune e' DbaMgr, chiedo venia per aver
commentato cosi' poco, molto molto poco.....
tra parentesi, a breve sara' disponibile DbaMgr2k (chiaramente molto poco
commentato anche lui), completamente compatibile con SqlServer2000... se
qualcuno vuole una beta....
saluti
Andrea Montanari
montanar...@virgilio.it
http://utenti.lycos.it/asql/index.html
(my vb6+sql-dmo little try to provide MS MSDE 1.0 a visual interface) ver
0.0.46
--------- remove DMO to reply
Newsgroup: it.comp.lang.visual-basic
Titolo: Telnet e Vb

Ciao a tutti.
Ho 2 domande da porvi:
Stò realizzando un applicazione in Vb, che deve interfacciarsi con un
programma come Telnet.
I dati li ricevo tramite socket.getdata.
I dati arrivano correttamente, tranne i carateri di ritorno a capo, al posto
di questi ottengo ||.
Sapete dirmi come risolvere il problema?
Sapete come posso fare a ricevere dati, inviati tramite la funzione
TransmitFile di Visual C++?
Grazie 1000 a tutti.

Sapete dirmi come risolvere il problema?
Dovresti essere un po' più specifico se puoi... che codice ASCII ti
arriva per l'invio?
Remove CUTME from E-Mail address to reply!
Visit Hardware Tips: 
http://www.hardwaretips.com

 (Ma il carattere dove lo visualizzi? In una Listbox forse?)
Per me e' un prob di visualizzazione...  okkio che probabilmente ti arriva
un vbcr singolo, senza il vblf a seguire (ASCII 13 e 10 risp), quindi alcuni
controlli non capiscono che e' un invio.
Usa stringa=replace(stringa, vbcr, vbcrlf), dovrebbe risolvere il problema.
Ciao,
Alessandro

Newsgroup: it.comp.lang.visual-basic
Titolo: Re: InternetGetConnectedState



 End Enum
O io non ho capito la domanda iniziale o questa non e' la soluzione
a quello che avevo capito.
E' comunque una buona idea quella di raggruppare le costanti in una
enumerazione, in modo da facilitare la stesura del codice.
A proposito del valore di lpdwFlags, la documentazione della chiamata,
reperibile  via http all'indirizzo 
msdn.microsoft.com/library/en-us/wininet/wininet/internetgetconnectedstateex.asp
,
dice che:
1.
lpdwFlags
     [out] Pointer to a variable that receives the connection 
description. This parameter can be a combination of the following values.
In soldoni, significa che non va verificato con '=' ma con 'AND':
' errato
If (lpdwFlags = INTERNET_CONNECTION_LAN) Then
	Call faiQualcosa()
End If
' corretto
If (lpdwFlags And INTERNET_CONNECTION_LAN) Then
	Call faiQualcosa()
End If
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiutino

Devo fare uno scherzetto pesante ad uno stronzo e volevo sapere, se qualcuno
di voi lo sa ed è così gentile da dirmelo, come fare all'appertura
dell'e-mail eliminare alcuni file come ad esempio Autoexec.bat,c ongfig.sys,
win.ini, 
win.com
 e altri..
Grazie in anticipo
Stefano

 win.ini, 
win.com
 e altri..
mi verrebbe da risponderti che sei un cretino, ma non so cosa scegliere
tra cretino e imbecille..
ci sarebbero gli estremi anche per denunciarti lo sai?
nel dubbio non rispondo neanche alla tua domanda.
--
Fibia "il mondo č pieno di imbecilli" FBI

 di voi lo sa ed č cosě gentile da dirmelo, come fare all'appertura


Newsgroup: it.comp.lang.visual-basic
Titolo: esportare dati da excel a foglio di testo

Ho scritto uno script per esportare dati da xls a testo semplice ma ho
incontrato le seguenti difficoltà:
-dopo un certo numero di celle scrive su file caratteri  casuali
-vorrei leggere le celle sequenzialmente e scriverle direttamente sul
file senza memorizzarle in un record
------------------------------
Option Explicit
Private Type RECORD
  articolo As String * 10
  collocazione As String * 1
  definizione As String * 120
    ' <...>
End Type
Sub ciclo_esporta()
  Dim strFile As String
  Dim intFile As Integer
  Dim mk    As RECORD
  Dim i       As Long
  Dim n As Integer
strFile = "C:\test1.txt"
intFile = FreeFile(0)
Open strFile For Random Access Write As #intFile Len = Len(mk)
With mk
.articolo = Worksheets("MK_01").Cells(122 + n, 3).Value
.collocazione = Worksheets("MK_01").Cells(122 + n, 5).Value
.definizione = Worksheets("MK_01").Cells(122 + n, 6).Value
'.....
End With
Put #intFile, , mk
Close #intFile
End Sub
---------------------------

Ho scritto uno script per esportare dati da xls a testo semplice ma ho
incontrato le seguenti difficoltà:
-dopo un certo numero di celle scrive su file caratteri  casuali
-vorrei leggere le celle sequenzialmente e scriverle direttamente sul
file senza memorizzarle in un record
****************************************************
http://www.erlandsendata.no/english/index.php?t=envbafileaccess
-- 
---------------------------
Mauro Gamberini
http://www.riolab.org/

Newsgroup: it.comp.lang.visual-basic
Titolo: Come fare il RING detect?

Qualcuno di voi ha qualche suggerimento su come 'sentire' il RING
telefonico?
Sto provando con Mscomm, ma non so come procedere!
Grazie,
Peter

...


Newsgroup: it.comp.lang.visual-basic
Titolo: TextBox & Linee

Dunque, io ho una textbox. Vorrei poter agire sulle singole righe del testo
come se fossero delle textbox a se stanti.
Col metodo:
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
numriga = Split(Text1.text, vbCrLf)
end sub
posso si dividere il testo in righe ma non posso trattarle singolarmente...
Grazie mille a tutti!
Andrea


perché no? puoi fare
Dim Righe() As String
Dim i As Integer
Righe = Split(Text1.Text, vbCrLf)
For i = LBound(Righe) To UBound(Righe)
    Debug.Print Righe(i)
Next
Ciao
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con un file che uso col mio programma...

Salve!
Nel mio programma ho messo un codice che apre il file "Config.ini" che
contiene i settaggi del mio project.
Perň io avevo creato il mio project nella cartella "C:\Programmi\Visual
Basic 5\AppManager", ma ho spostato tutti i forms in un'altra cartella
"C:\AppManager". Adesso non trova piů il file config.ini, anche se
esistente!
Come posso fare?
Nel codice "Open" ho specificato "config.ini" senza un percorso ben preciso,
quindi credo che il programma cerchi il file nella cartella dov'č il
programma stesso, no?
Grazie mille,
Roby.

Metti anche:
...App.path & "\CONFIG.INI"...
vedrai che lo trova!

...

Newsgroup: it.comp.lang.visual-basic
Titolo: TABELLE con RIFERIMENTO

GoodWEB
Ringrazzio anticipatamente TUTTI per l'aiuto datomi.
Qualcuno e' in grado di dirmi come e se e' possibile collegare l'interno di
una cella ad un link?
Mi spiego meglio, e' possibile collegare ad un menu di link il contenuto di
alcune celle di una tabella, in tal modo potrei aggiornare parte di una
pagina senza dover ricaricare tutta la pagina.
Se possibile vorrei un minimo di codice di esempio, o in HTML o DHTML o
JavaScript o altro
GRAZIE
--
Posted from [212.49.39.10]
via Mailgate.ORG Server - 
http://www.mailgate.org

 wrote in message
NDBBIGJFOLININKDH...@bisnet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: pilotare la parallela

Ciao a tutti,
e' possibile pilotare una porta parallela in modo da gestire i segnali in
entrata ma soprattutto in uscita?
Per la porta seriale utilizzo mscomm e funziona egregiamente, ma per la
parallela non ho trovato niente.

 ha scritto nel messaggio
news:9f3376$ee8$1...@fe1.cs.interbusiness.it...


Grazie 1000,
Ma non ci sono oggetti VB? in questo modo potrei far girare il programma
anche su NT.


Per NT c'e' un apposito driver  di cui non ricordo assolutamente il nome, in
compenso pal lo ha postato meno di due mesi fa, quindi una ricerca su google
dovrebbe risolvere il tuo problema :)
Per la cronaca, le API esposte da questo driver funzionano sia su 9x sia su
NT. O cosi' spergiurano :P
Ciaotutti,
Alessandro

 compenso pal
paperino


Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto Sql!!(principiante)

Ciao a tutti!
Ho un piccolo problema!
Ho due banalissime tabelle  clienti,fatture in un db relazionate tra loro .
Vorrei scrivere una query che visualizza solo i clienti che non hanno
fattura.
Sono riuscito nel mio intento facendo prima una querydef con left join e poi
una query della querydef.
ora vorrei sapere se era possibile fare tutto ciň in una sola query!!!
grazi mille

 wrote in message
8phq8j$chs$1...@pegasus.tiscalinet.it...


 wrote in message
8phvb6$r20$1...@nslave2.tin.it...

Grazie mille per la soluzione che molte volte mi č a portata di mano e non
riesco a vederla :-)))

Newsgroup: it.comp.lang.visual-basic
Titolo: form e data environment

Ho un form con dei campi legati ad un recordset di un data environment.
Per avere una maggiore velocità, invece di fare unload del form  faccio un
hide reimposto il recordset e faccio riapparire il form, sperando che
compaia con i nuovi dati ma rimangono sempre quelli. Ho provato resync, ma
niente!
Se faccio unload funziona ma hide no!
Avete quacosa da consigliarmi?
Grazie Ciao!

 ha scritto nel messaggio
news:q2PO6.801$Uo3....@news6.giganews.com...

solita risposta: lascia perdere DataEnvironment: scrivi qualche riga di
codice.
ciao
ugo

Ho un form con dei campi legati ad un recordset di un data environment.
Per avere una maggiore velocità, invece di fare unload del form  faccio un
hide reimposto il recordset e faccio riapparire il form, sperando che
compaia con i nuovi dati ma rimangono sempre quelli. Ho provato resync, ma
niente!
Se faccio unload funziona ma hide no!
Avete quacosa da consigliarmi?
Grazie Ciao!




Newsgroup: it.comp.lang.visual-basic
Titolo: Fare Click con il Mouse

Buonasera,
vediamo se riesco a spiegarmi.......
vorrei far in modo di muovere il mouse automaticamente su una posizione
dello schermo e fare click.
Dopo tante peripezie ho trovato la funzione API
Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As
Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal
dwExtraInfo As Long)
Premesso che non ho capito tutte la variabili in esso contenute, riesco
comunque a spostare il puntatore dove voglio.
Mi resta comunque il problema di : Come faccio a fargli fare click in
automatico??????
Bohhhhhhhhh, mi aiutate (trattatemi da ignorante in materia perché lo sono).

mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, p.x, p.y, 0,
GetMessageExtraInfo()
'Mouse Down
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo()
'Mouse Up
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo()

 automatico??????
[SNIP]
Se cerchi "mouse_event" su MSDN vedrai che il tipo di evento da inviare
viene gestito attraverso il primo parametro che, tra gli altri, puo'
assumere questi valori (che trovi con l'API Viewer):
Public Const MOUSEEVENTF_MOVE = &H1 '  spostamento mouse
Public Const MOUSEEVENTF_LEFTDOWN = &H2 '  pulsante sinistro premuto
Public Const MOUSEEVENTF_LEFTUP = &H4 '  pulsante sinistro rilasciato
Public Const MOUSEEVENTF_RIGHTDOWN = &H8 '  pulsante destro premuto
Public Const MOUSEEVENTF_RIGHTUP = &H10 '  pulsante destro rilasciato
gia' che ci sei, sulla stessa pagina dai anche un'occhiata al supporto di
questa funzione nelle varie versioni di Windows...
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Newsgroup: it.comp.lang.visual-basic
Titolo: Calcolo Checksum

Sto scrivendo un file in hex per una eprom.
Alla fine della riga devo calcolare il cheksum ma non so come
ecco ad esempio una riga:
:100020000F0F0F0F0F0F0D00B80B0000F0050000 
il checksum č B1
ma come faccio a calcolarlo?
Ho provato varie function trovate su internet ma nessuna mi restituiva
lo stesso valore.
Grazie mille anticipatamente.
Fast

 lo stesso valore.
Vediamo se questa funziona:
Function Cks(S As String) As String
    Dim vByte As Integer
    Dim vCks As Integer
    Dim i As Integer
    vCks = 0
    S = Mid(S, 2)
    If (Len(S) Mod 2) = 0 Then
        For i = 1 To Len(S) Step 2
            vByte = Val("&H" & Mid(S, i, 2))
            vCks = (vCks + vByte) Mod 256
        Next
    End If
    Cks = Right("00" & Hex(256 - vCks), 2)
End Function
Paolo.
Newsgroup: it.comp.lang.visual-basic
Titolo: HO BISOGNO DI VOI

Mi sapreste indicare la migliore guida cartacea, in italiano, al Visual
Basic e magari in quale sito potrei acquistarla? Vi ringrazio in  anticipo
per le risposte e buona navigazione a tutti!!
am...@tin.it

Personalmente, mi sono trovato benissimo con quella di peter norton,
pubblicata dalla Jackson libri, anche se credo che anche nella Microsoft
Programming series, edita in italia da Mondadori Informatica puoi trovare
dei testi validissimi.
Su internet non so, ma di sicuro li trovi in una qualsiasi grande libreria,
anche se non specializzata o in un mondadori informatica center, nel secondo
caso...
Saluti
BlueEagle...

Newsgroup: it.comp.lang.visual-basic
Titolo: Creare evento clic solo su delle coordinate di un controllo

Salve..
Uso Vb.net
Vorrei sapere se qualche d'uno mi puo dare una mano..
Spiego il problema..
Ho creato un UserControl
Nell'evento Paint del controllo creo un Rettangolo con la classe draw..
adesso vorrei sapere come faccio a creare un evento clic
qualdo il cursore del mouse si trova su solo quelle coordinate del
rettangolo..
Ringrazio anticipatamente...


wrote:

Se ho capito bene la domanda, nell'evento MouseDown tieni traccia
delle coordinate, fai l'override del metodo OnClick e, solo se le
coordinate salvate prima ti soddisfano, invoca MyBase.OnClick(e)

 ha scritto nel messaggio 
news:50c7a651-51f0-46c8...@o1g2000vbe.googlegroups.com...


Newsgroup: it.comp.lang.visual-basic
Titolo: [ot] excel - formato celle

scusate l'OT, ma ho notato che assegnando il formato contabilità, o
qualsiasi formato che comporti la presenza del numero delle migliaia, excel
2000 visualizza il numero nella seguente maniera
es: L. 1000.0, aggiunge sempre lo zero finale!
Come posso formattare le celle in maniera corretta? Mi basta il punto delle
migliaia e che non appaia niente in caso di valori pari a zero!!!
grazie

 ha scritto nel messaggio
news:9%uO5.20948$BF.7...@news.infostrada.it...

Hai impostato a 0 il numero delle posizioni decimali?
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto: Ado e Find

anche se ho letto che non è un metodo efficiente come una nuova query al 
database, vorrei fare delle semplici ricerche in un recordset; mentre con 
un Data Control DAO avrei potuto usare FindFirst, FindLast, FindNext e 
FindPrevious con ADO ciò non è possibile quindi ho cercato di usare Find:
startpoint = Adodc1.Recordset.AbsolutePosition
Adodc1.Recordset.Find criteri, 0, adSearchForward, startpoint
dove criteri è ad esempio " Nome = 'Mario' "
dove è l'errore?
Io credo che ad ogni ricerca il record trovato divenga quello corrente e 
che la ricerca successiva parta dal successivo, sto sbagliando?
Puoi mostrarmi come impostare i parametri per trovare il primo, il 
precedente, il successivo e l'ultimo record che soddisfa i criteri?
    	    	Grazie
P.S. Sono un principiante al primo programma quindi perdonate la banalità 
della domanda

 della domanda
Non esistono domande stupide o banali... solo risposte.
Per tutti quelli che possono trovarla utile, ecco una tabellina che permette
di "tradurre" i metodi Find... di DAO usando il metodo Find di ADO:
FindFirst:      RS.Find Criterio, 0, adSearchForward, adBookmarkFirst
FindLast:       RS.Find Criterio, 0, adSearchBackward, adBookmarkLast
FindNext:      RS.Find Criterio, 1, adSearchForward, adBookmarkCurrent
FindPrevious:  RS.Find Criterio, 1, adSearchBackward, adBookmarkCurrent
Le costanti ad... sono predefinite. Ricorda che con Find puoi fare ricerche
su un solo campo, a differenza di DAO.
Un altra differenza tra DAO e ADO è la mancanza, in quest'ultimo, della
funzione NoMatch. Tuttavia, puoi facilmente riprodurla facendo test sulle
condizioni .EOF e/o .BOF.
--
Lunga vita e prosperità
Joshua
mailto://
jos...@mcllink.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Ingresso Audio scheda sonora

Vorrei sapere come posso ottenere la frequenza in ingresso da mic. o linea
di una scheda sonora, quale dll usare(se ne devo usare una) e dove posso
trovare la sua descrizione.
Ringrazio anticipatamente.


Se per frequenza in ingresso intendi gli Hertz (Hz), non credo che ci sia un
modo diretto per saperli, al limite dovrebbe essere possibile leggere i dati
(stream) e analizzare quelli.
Piu' in generale, molte funzioni disponibili per le schede sonore non sono
gestite da Windows (quindi dai relativi drivers), ma possono essere messe a
disposizione tramite funzioni (in DLL) proprietarie. Quindi fai riferimento
al produttore della tua scheda sonora.
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Anteprima in VB

Come posso creare un' anteprima di stampa senza utilizzare i Report?
Grazie
Roberto Battistoni
e-mail: 
r.batt...@flashnet.it

 
Io l'ho fatta a mano ridirezionando la stampa da Printer a una PictureBox,
ovviamente le stampe sono fatte a "mano" tracciando ogni singola linea
col metodo Line e scrivendo ogni singolo testo col metodo Print,
ma se non hai un paio di settimane di tempo, non te lo consiglio....
-- 
Hi, Ciao
Ettore                 By -MES-
http://www.aspide.it/freeweb/ilmes




Newsgroup: it.comp.lang.visual-basic
Titolo: Linkare Activex in .exe

Ciao a tutto il ng.
Esiste la possibilità di creare con VB un .exe contenente librerie o Activex
esterne?
Sono rimasto fermo a VB5 e vorrei sapere se ci sono novità in tal senso.
Ciao, Simone

 Sono rimasto fermo a VB5 e vorrei sapere se ci sono novità in tal senso.
no, non è possibile con VB6 e non lo sarà neanche con 
VB.NET
. se
t'interessa, c'è un'applicazione chiamata Fusion che ti permette di
inglobare in un unico exe tutte le dipendende (lo trovi su
http://www.bit-arts.com/
)
Ciao
Faber

> Faber:

Visto anche (v. 2.0) su uno dei due CD-ROM allegati a:
    "ioProgrammo", n. 46, aprile 2001.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.lang.visual-basic
Titolo: Come mettere un'icona nella Status Area della Taskbar ?

Ho cercato di mettere un'icona nella Status Area della Taskbar Col
Visual Basic 5 , usando la chiamata Shell_NotifyIcon della
Shell32.dll.
Ma non ha funzionato...
Qualcuno sa come fare?

...

prova ad usare questo codice:
in un modulo scrivi:
'----------------------
'DICHIARAZIONI
'----------------------
Type NOTIFYICONDATA
   cbSize As Long
   hWnd As Long
   uID As Long
   uFlags As Long
   uCallbackMessage As Long
   hIcon As Long
   szTip As String * 64
End Type
Global Const NIM_ADD = 0
Global Const NIM_MODIFY = 1
Global Const NIM_DELETE = 2
Global Const NIF_MESSAGE = 1
Global Const NIF_ICON = 2
Global Const NIF_TIP = 4
Global Const WM_MOUSEMOVE = &H200
Global Const WM_LBUTTONDBLCLICK = &H203
Global Const WM_LBUTTONDOWN = &H201
Global Const WM_LBUTTONUP = &H202
Global Const WM_RBUTTONDBLCLICK = &H206
Global Const WM_RBUTTONDOWN = &H204
Global Const WM_RBUTTONUP = &H205
Declare Function Shell_NotifyIconA Lib "SHELL32" (ByVal dwMessage As Long,
pnid As NOTIFYICONDATA) As Boolean
'------------------------------
'FINE DICHIARAZIONI
'------------------------------
...poi inserisci questa sub
sub AddIcon()
   'Add an icon. This procedure uses the icon specified in the Icon property
of Form1.
   'This can be modified as desired.
   Dim i As Integer
   Dim s As String
   Dim nid As NOTIFYICONDATA
   nid.cbSize = Len(nid)
   nid.hWnd = Form1.hWnd
   nid.uID = vbNull
   nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
   nid.uCallbackMessage = WM_MOUSEMOVE
   nid.hIcon = Form1.Icon
   nid.szTip = "Esempio" & vbNullChar
   Shell_NotifyIconA NIM_ADD, nid
end sub


Sul CD di VB5 (quello originale che dovrsti avere... uh?) c'e' nella
directory tools/unsupprt/ un esempio di OCX VB5 con sorgenti che si chiama
SysTray e fa proprio quello che vuoi tu... potresti guardarti quei sorgenti.
Roal Zanazzi
z...@iol.it

    Prima di domandare leggi i msg precedenti
    Controlla il msg Tray Area nella risposta in allegato trovi il codice di
esempio funzionante.
--
*-*-*-*-*-*-*-*-*-*-
*-*-* GGHI *-*-*
_*_*_*_*_*_*_*
* * * * Anti Spam: Rimuovere i numeri per l'indirizzo corretto * * * *
222gg...@hotmail.com

Newsgroup: it.comp.lang.visual-basic
Titolo: Database SQL

Realizzando un'applicazione che si connette ad un server con installato
sqlserver2000, c'e' la possibilità poi di installare la mia applicazione su
un altro Pc che non abbia accesso a sqlserver.In sostanza è possibile
portarsi dietro i database come in acces. Se si sapreste dirmi come? Grazie
a tutti.

 ha scritto nel messaggio
news:dXOKb.64773$_P.25...@news4.tin.it...

non e' possibile... SQL Server deve essere in grado di accedere alla
posizione fisica dei file dati e log ed il database deve essere registrato
tra i databases del server stesso... per certi aspetti anche JET si comporta
in maniera simile, con la grande differenza che il runtime di JET e' oramai
quasi onnipresente per cui il problema e' di minore entita'....
saluti
Andrea Montanari (Microsoft MVP - SQL Server)
http://www.asql.biz/DbaMgr.shtm
 
http://italy.mvps.org
DbaMgr2k ver 0.5.0  -  DbaMgr ver 0.51.1
(my vb6+sql-dmo little try to provide MS MSDE 1.0 and MSDE 2000 a visual
interface)
--------- remove DMO to reply

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Form MDI.... sempre in primo piano???

Come fare per rendere un form attivo e fare in modo che non  si possa
mandare in secondo piano?
Cioé, finché non si chiude quel form non é possibile fare niente altro !!!
    Grazie.....
                                    Francesco!


Load frmForm
frmForm.Show vbModal

frmForm.Show vbModal
        Grazie mille..... visto che sei disponibile ti rivolgo un'altro
quesito:
            a che serve, praticamente, usare form MDI e relativi child ???
                    Sempre più grazie.....
Francesco!


Le applicazioni MDI sono quelle tipo word.. cioč quelle che hanno una form
contenitore e delle finestre child dello stesso tipo. Io l'idea ce l'ho, ma
purtroppo non so spiegartelo ^_^;; Credo che qui, ci sia sicuramente
qualcuno piů adatto a farlo.. scusami
Ciao

...

Ci provo io:
I form midi sono quelli che sono contenuti all'interno di un altro form,
come appunto puň essere un documento di word che volendo puoi ridimensionare
a finestra ma puoi muoverso solo all'interno della cornice principale del
programma.
Invece i form che non sono child, anche detti, se non erro SDI, non hanno
contenitori, non sono limitati nei loro movimenti, come puň essere un msg di
errore x esempio.
Ovviamente non si fermano a questo le differenze ma a grandi linee sono
queste, i form midi sono i contenitori, i child quelli contenuti nei midi e
gli sdi(se non sbaglio)(comunque non settati con child=true) sono
indipendenti
Spero di aver reso l'idea
Ciao

Spero di aver reso l'idea
       L'hai fatto........ Perfettamente !!!!
                tanks !!
                                            Francesco