mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Salvare le e-mail in outlook expres

Tempo addietro lessi un articolo in qualche rivista che spiegava come
salvare
le e-mail e relativa struttura di outlook express che "giustamente" non ha
un cacchio di programma per esportare.
Qualcuno sa come si fa o ha letto sto articolo?
Ciao e grazie.
Andrea

 ha scritto nel messaggio
news:9afp2t$52vi6$1...@ID-61006.news.dfncis.de...


Io ti consiglio questa utility:
http://ajsystems.com/ea2kdnload.html
Si chiama OE quick tools e ti permette di fare praticamente
tutto ad eccezione delle regole dei messaggi.
Per salvare quelle devi andare su file di registro
e cercare la chiave:
[HKEY_CURRENT_USER\Identities\{6CD20F57-B937-416E-A091-148B435FE20B}\Softwar
e\Microsoft\Outlook Express\5.0\Rules\Mail]
salva tutte le regole esportando in un file .reg.
Infine non dimenticare che outlook mette i messaggi
 nella cartella
C:\WINDOWS\Dati
applicazioni\Identities\{6CD20F57-B937-416E-A091-148B435FE20B}\Microsoft\Out
look Express\
Ciao
G.

 e\Microsoft\Outlook Express\5.0\Rules\Mail]
Veramente la chiave {6CD20F57-B937-416E-A091-148B435FE20B}viene generata da
Outlook o IE in fase di installazione... quindi e' diversa da comp a comp.
Forse dipende dal nome dell'utente (Outlook Express puo' gestire piu' utenti
di per se')...

Newsgroup: it.comp.lang.visual-basic
Titolo: MIDI : gestione da VB

Ho di recente provato un demo di un programmino che gestiva grossolanamente
le tastiere MIDI .
Sto cercando di fare qualcosa del genere in VB ( ho la ver 4)
Credo che bisogna avere il controllo OCX adatto , si trova in rete ?
C'è nessuno che ha già affrontato il pbroblema ?
Grazie a tutti alessandro

non ne sono certo al 100% ma dovrebbe essere Microsoft Multimedia Controls
alessandro ha scritto nel messaggio ...


Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto, variare archivio di Crysal Report

Ciao,
qualcuno, per favore,  puo' aiutarmi ?
Quando si crea un Report con Crystal Report, si utilizza una tabella
presente in un  file .mdb. A questo punto dopo avere inserito un
controllo Crystal Report  , che utilizza il file .rpt creato, nel form
di progetto di VB,  il problema della stampa e' risolto (sembra
facile, ma se non mi avesse aiutato Moreno, sarei ancora in alto
mare).
 La cosa che non ho ancora capito e' come faccio se il mio programma
consente di aprire piu' file .mdb (ovviamente con la stessa
struttura). In questo caso infatti essendo stato il report creato
grazie ai dati di un file .mdb, compaiono a stampa solo quei dati,
indipendentemente dall'archivio caricato dal programma.
Spero di essere stato chiaro, anche se nutro qualche serio dubbio :-))
Sarei veramente contento  qualora qualcuno potesse aiutarmi.
Grazie, Angelo

indipendentemente dall'archivio caricato dal programma.
Se ho capito il tuo problema, la mia risposta a Victor Von Domm (Re: Crystal
Report e cambio Path DB Access) va bene anche per te
Ciao
Maurizio B.
mrzNOMMI...@tin.it
 (eraseNOMMISPAMMA)
Newsgroup: it.comp.lang.visual-basic
Titolo: Consigliatemi una bella GRID

Ciao, ho visto una dataGrid bella ma costosa.... ne esistono gratuite? Mi
date l'indirizzo dove poterle scaricare?
GRAZIE!

 date l'indirizzo dove poterle scaricare?
spero non sia una sheridan :)
Ciao


Per esempio
http://www.vbaccelerator.com/
controllo S-Grid, con sorgenti e tutto; lo trovi seguendo il link
"Code|Controls".
Non e' data bound, quindi va caricata via codice, ma questo personalmente lo
trovo un pregio.
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Grazie, era quello che cercavo!
"Luca Dormio" <lucaFaV...@tinFaVa.it> ha scritto nel messaggio
news:a3b542$paq$1...@fe2.cs.interbusiness.it...


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

Ciao a tutti,
come si fa a creare una tabella in un data base MDB esistente tramite ADO??
Dove trovare un po di codice su ADO??
Grazie Mille a tutti.
mlra...@tin.it

...


Attenzione!
Dal 1 Aprile, e' possibile con ADOX, contenuto in ADO 2.1 (MDAC
2.1.1.3711.11) , fare operazioni di DDL (Data Definition Language)
Esso e' scaricabile dal sito M$
http://www.microsoft.com/data/download2.htm
Consiglierei comunque di usare il DAO su MDB o DMO su SQL Server perche'
piu' collaudati.
ciao,
Alessandro Scardova
scar...@tin.it
http://space.tin.it/computer/ascardov/

Come ti ha detto Riccardo con gli ADO non è possibile (a differenza di
quanto accade con i DAO) in quanto non ci sono i metodi necessari.
La situazione cambierà quando si potrà utilizzare ADO 2.1 con i Database MDB
e cioè dopo l'uscita di Office 2000.
Però per creare una tabella è sufficiente utilizzare una QUERY SQL di
definizione dei dati (DDL).
Prova a cercare l'istruzione CREATE TABLE nel riferimento al lignuaggio SQL
di Access.
Per quanto riguarda qualche esempio sugli ADO, almeno come punto di
partenza, sul sito comune c'è un tutorial con allegato progetto in VB6. E'
nella sezione piccole perle.
http://www.murialdo.it/it_lang_vb
Ciao,
   <--< Nik >-->
Per rispondermi in E-Mail togliere "deleteme" dall'indirizzo.
To reply me by E-Mail remove "deleteme" from my address.



http://www.microsoft.com/data/download2.htm
L'utilizzo di ADO 2.1 con gli MDB mi risulta che sia sconsigliato dalla
stessa Microsoft almeno fino all'uscita di Office 2000.
Probabilmente ci sono problemi con il Jet 3.51 e bisogna attendere la
versione nuova del motore.





...

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6]Eliminazione record

Popolo una griglia in modalità (Unbound) con questa query. Il campo 
Utenti.IDUtente è la chiave primaria e i campi Computer e Nome esistono 
anche nella tabella "Utenti"
Uso questa query perchè devo poter aggiungere o modificare i record in 
entrambe le tabelle.
Il problema nasce quando elimino un record (dbgElenco.Delete), mi elimina 
solo il record della seconda tabella "UtentiIstanze" mentre il record di 
"Utenti" non lo elimina.
SELECT Utenti.*, UtentiIstanze.Computer, UtentiIstanze.Nome, 
UtentiIstanze.DataOraConnessione
FROM Utenti INNER JOIN UtentiIstanze ON Utenti.IDUtente = 
UtentiIstanze.IDUtente
WHERE (((UtentiIstanze.Computer)="pippo"));
Dove sbaglio?
Carmelo 

 Dove sbaglio?
Che una cancellazione di record automatica "bound" non si fa da una query
(vista) agganciata in automatico da una griglia, sempre se ho capito bene
il problema.

Andrea [Work] ha spiegato il 16/11/2010 :

Oltretutto ha scritto 'unbound', il che rasenta l'esoterico...
Alberto

"Andrea [Work]" <andrea.isw...@gmail.invalid> ha scritto nel 
messaggio news:14gathoed80e7.1...@40tude.net...

Non so cos'è una query (vista), comunque perchè non elimina il record della 
prima tabella?
Carmelo 

 prima tabella?
Io di norma i DELETE dei dati li faccio a mano.
Conn.Execute "DELETE FROM TABELLA1 WHERE ID=@ID"
Conn.Execute "DELETE FROM TABELLA2 WHERE ID=@ID"
Diciamo che uno voglia usare la cancellazione automatica, questa la puoi
usare con qualche sicurezza solo se la tua query è del tipo
select id, altricampi from TABELLA
E non se hai delle join con altre tabelle.
Nel tuo caso io staccherei la griglia dal DB, intercetterei l'evento di
richiesta cancellazione riga (la griglia dovrebbe avere l'evento giusto), e
farei il delete a mano.


Non sai cos'è una query e stai facendo un programma che gestisce dei 
dati? Andiamo bene!
Leggere un buon manuale non fa male prima di iniziare a scrivere codice.
Ciao, Vincenzo


So cos'è una query visto che ho scritto il codice, è il termine "query 
(VISTA) " che non ho mai sentito.
Carmelo 

 (VISTA) " che non ho mai sentito.
http://it.wikipedia.org/wiki/Vista_%28database%29
ciao
Mauro

 (VISTA) " che non ho mai sentito.
Ok, pensala come una query di sola lettura
-- 
Greg
Newsgroup: it.comp.lang.visual-basic
Titolo: Browse

Ragazzi ci riprovo, se avete solo un'idea, per favore scrivetemela.
Per l'interfaccia grafica di un mio programma excel vorrei avere uno
scroll(o un qualsiasi altro oggetto VB) che quando cliccato mi faccia
aprire una finestrella browse dove andare a selezionare un file sul
disco...
E' possibile?
Grazieeeeeeeeee
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 E' possibile?
Se dici "un qualsiasi altro oggetto VB", sì.
Vedi CommonDialog, Show<Open Save>
Newsgroup: it.comp.lang.visual-basic
Titolo: Drag&Drop

Come implementare il Drag&Drop in un TextBox???
Se non sbaglio bisogna mettere ma proprietą DragMode su automatico, giusto??
Poi??
grazie
--
===================================
Andrea Sistarelli
Per un sms: 
sis...@mail.omnitel.it
ICQ: 11598516
===================================

Poi??
in automatico appena fai click sul controllo parte il drag
questo va bene in certe situazioni ma in altre potresti essere in
difficolta' per es se devi effettuare delle selezioni prima di far partire
il drag&drop
usa il metodo drag  con gli opportuni parametri vbBeginDrag o vbEndDrag per
terminare
prova con il seguente codice di esempio metti in un form un textbox e un
listbox ma impostali in manuale
scrivi il seguente codice che ti permette di copiare un item del listbox nel
text box
(attento che l'ho scritto un po' di corsa)
Private Sub Form_Load()
' popolo la listbox
List1.AddItem "Pippo"
List1.AddItem "Pluto"
List1.AddItem "Topolino"
List1.AddItem "qui quo qua"
List1.AddItem "Paperino"
End Sub
Private Sub List1_dblClick()
' attiva il drag al double click questo mi permette di selezionare l'item
desiderato
List1.Drag vbBeginDrag
End Sub
Private Sub Text1_DragDrop(Source As Control, X As Single, Y As Single)
' incolla l'item selezionato nel text
Text1.Text = Text1.Text + Source.List(Source.ListIndex)
End Sub
con l'aggiunta di questo codice puoi fare il contrario selezionare un pezzo
di text e aggiungerlo al list
Private Sub List1_DragDrop(Source As Control, X As Single, Y As Single)
' aggiunge al list il text selezionato
List1.AddItem Source.SelText
End Sub
Private Sub Text1_Click()
' se selezionato del text attiva il drag
If Len(Text1.SelText) > 0 Then Text1.Drag vbBeginDrag
End Sub
Ciao stefano

Ok ho risolto in modo diverso ma probabilmente il risultato è lo stesso...
Ciao grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: tempi....da sommare

Come faccio a sommare dei tempi in formato "hh:mm:ss"" per ottenere "[h]:mm" oltre 23.59.59 in vb?
massimo
-- 
Posted from 
sympson.net-one.it
 [212.177.116.26] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Come faccio a sommare dei tempi in formato "hh:mm:ss"" per ottenere
"[h]:mm" oltre 23.59.59 in vb?
Anche cosi`:
  Debug.Print _
      Format$(DateValue(sumT) * 24 + Hour(sumT), "0") _
    ; "." _
    ; Format$(sumT, "nn.ss")
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

supponiamo che hai dei campi di resto per le ore minuti e secondi
'trasforma in secondi il primo tempo
secondi = CDbl(txtOre.Text) * 3600 + CDbl(txtMinuti.Text) * 60 +
CDbl(txtSecondi.Text)
'trasfprma in secondi il secondo tempo
secondi1 = CDbl(txtOre1.Text) * 3600 + CDbl(txtMinuti1.Text) * 60 +
CDbl(txtSecondi1.Text)
'sommali
tot =secondi +secondi1
if tot >86400 then tot = tot -86400
 i = tot
'Estrae le ore
Ore= i \ 3600
i = i Mod 3600
    'estrae i minuti
    Min = i \ 60
   i = i Mod 60
    'estrae i secondi
    Sec = i
 Label1.Caption = Ore & ":" & Min & ":" & Sec

     ; Format$(sumT, "nn.ss")
Per maggiore chiarezza:
  Dim t    As Date ' i tempi da sommare come Data/Ora
  Dim n    As Long ' i tempi da sommare espressi in minuti
  Dim sumT As Date ' la somma dei tempi
  ' Alcuni modi di aggiungere 8 ore a sumT
  '
  t = #8:00:00 AM#
  sumT = sumT + t
  t = "8.00"
  sumT = sumT + t
  t = TimeSerial(8, 0, 0)
  sumT = sumT + t
  t = TimeValue("26/10/2000 8.00.00")
  sumT = sumT + t
  n = 8 * 60
  sumT = DateAdd("n", n, sumT)
  ' Abbiamo sommato 5 volte 8 ore e l'output dovra`
  ' essere:
  '
  '   40.00.00
  '




'sommali





-- 
Posted from [216.163.184.10] 


supponiamo che hai dei campi di resto per le ore minuti e secondi
'trasforma in secondi il primo tempo
secondi = CDbl(txtOre.Text) * 3600 + CDbl(txtMinuti.Text) * 60 +
CDbl(txtSecondi.Text)
'trasforma in secondi il secondo tempo
secondi1 = CDbl(txtOre1.Text) * 3600 + CDbl(txtMinuti1.Text) * 60 +
CDbl(txtSecondi1.Text)
'sommali
tot =secondi +secondi1
if tot >86400 then tot = tot -86400
 i = tot
'Estrae le ore
Ore= i \ 3600
i = i Mod 3600
    'estrae i minuti
    Min = i \ 60
   i = i Mod 60
    'estrae i secondi
    Sec = i
 Label1.Caption = Ore & ":" & Min & ":" & Sec
-- 
Posted from [63.146.106.39] 

Newsgroup: it.comp.lang.visual-basic
Titolo: Notepad Replacement in the making

I am an extreme beginner in Visual Basic but I want to start off hard and
try writing a program for something I have needed for awhile.  I am trying
to write a replacement for Windows Notepad but I don't know how to write a
save as code.  I have the whole form set up, Menu Options and the whole MDI
interface I want to use.  I just need alittle help with the Save as , Save
and Open portions of the program.  Does anyone have a sample Save, Save as
and Open code I could take a look at?
Thanks for your time

It depends on what type of text do you wanna save: if it is RTF Text, you must use an RTF control and its SaveAs method;
If it is a plain text, instead, you might do as following:
'I suppose that you use a textbox called "Text1" and a CommonDialogControl called "Common1"
'Place this in the "Save As" menù command
CommonDialog1.ShowSave
If CommonDialog1.filename = "" Then
	Exit Sub		'if you don't specify the name, exit
End If
Open CommonDialog1.filename for Output as #1
	Print #1, Text1.text
Close #1
You can modify the CommonDialog Property as you want (just take a look to the guide...)
For the "Save" command, you can just do the same, perhaps whithout opening the Common Dialog....
'Place this in the "Open" menù command
CommonDialog1.ShowOpen
If CommonDialog1.filename = "" Then
	Exit Sub		'if you don't specify the name, exit
End If
aaa=""
Open CommonDialog1.filename for Input as #1
	Do
		Line Input #1, bbb	'Read a line
		aaa = aaa & bbb	'add the new line to the rest of the text
	Loop Until EOF(#1)
Close #1
Text1.Text = aaa
It could work.
Bye!
Ciao,
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

Newsgroup: it.comp.lang.visual-basic
Titolo: Apriti cartella!

Se voglio aprire una cartella, x es. C:\documenti, con l'oggetto CmdOpen e
attraverso l'evento click, come faccio??? Grazie

 attraverso l'evento click, come faccio??? Grazie
cos'č l'oggetto CmdOpen?
cmq, non fai prima a fare
Shell "explorer.exe c:\documenti", vbNormalFocus
?
Faber

 cos'č l'oggetto CmdOpen?
Private Sub cmdOpen_Click()
Shell "explorer.exe c:\documenti", vbNormalFocus
End Sub
:-))
Cosma

 End Sub
uh è vero eheh... devo decidermi ad andare a letto prima  :))
Faber

 ha scritto nel messaggio
news:9hicvc$e3dpl$1...@ID-66268.news.dfncis.de...

eheh, si lo stesso vale per me (guarda a che ora sto postando :-))
Cosma
Newsgroup: it.comp.lang.visual-basic
Titolo: Aprire una mail con campi pre-impostati

Come faccio a aprire un messaggio di mail con dei campi preimpostati?
Inoltre ho provato a utilizzare l'invio delle email con smtp, ma quando 
sono disconnesso mi da errore. E' possibile inviare una mail tramite 
delle api di outlook express in modo che le mail mi rimangano in coda 
fino al prossimo collegamento?
Tnx
-- 
Psoftp -- Eyes on Software --

 ha scritto:

Mi rispondo.
Ho risolto.
-- 
Psoftp -- Eyes on Software -- 
http://www.mynewsgate.net/mp.php?u=19242

 
E che risposta che ti sei dato? Magari il thread rimane meno inutile se la 
abbozzi a grandi linee.
Ciao

 ha scritto:

Sarebbe più utile che qualcuno risponda anche alle altre mie domande... cmq 
evito polemiche e recupero il mio progetto.
Public Class Form1
    Private Declare Function ShellExecute Lib "shell32.dll" 
Alias "ShellExecuteA" _
        (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile 
As String, _
        ByVal lpParameters As String, ByVal lpDirectory As String, _
        ByVal nShowCmd As Integer) As Integer
    Sub OpenEmailProgram(ByVal sDest As String, Optional ByVal sSubject As 
String = "", Optional ByVal sBody As String = "", Optional ByVal sCC As 
String = "", Optional ByVal sBCC As String = "")
        ShellExecute(0, vbNullString, "mailto:" & sDest & "?subject=" & 
sSubject & _
            "&body=" & sBody & "&CC=" & sCC & "&BCC=" & sBCC, 0&, 0&, 1)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1.Click
        OpenEmailProgram
("
pso...@libero.it
", "Oggetto", "Messaggio", "
C...@libero.it
", "
B...@libero.it
"
)
        OpenEmailProgram("
pso...@libero.it
")
    End Sub
End Class
Volendo si può sostituire la Sub con una Function.


Newsgroup: it.comp.lang.visual-basic
Titolo: .NET -Passaggio Parametri

Vorrei riuscire a creare una o piů procedure o funzioni con le quali
effettuare una connessione, l'apertura del   DataAdapter e la restituzione
del DataSet.
Il problema sta nel fatto che vogli creare questo DataSet in base ad una
query SQL con parametri.
Chi puň darmi una mano e qualche riga di suggerimento.
Grazie.
Anaconda

 query SQL con parametri.
Vedi se ti è di aiuto:
Guida in linea:
parametri, comandi dati 
ADO.NET
giuseppeD
Newsgroup: it.comp.lang.visual-basic
Titolo: Impara visual basic

Salve ho conoscenza già di vbscript asp javascript ecc
mi servirebbe un libro o un manuale o un pdf..che spieghi ..un pò
visualbasic
ma da reference no partendo da zero....
cosa mi consigliate?

 ha scritto nel messaggio
news:bd7p9e$fdh$1...@nntp.weblinea.it...

http://vbsimple.virtualave.net/index.htm?/glossary/i.htm
MIk

 ma da reference no partendo da zero....
E' proprio un requisito per la lettura ,secondo l'autore, che
si propone di analizzare quali siano i punti essenziali del linguaggio
mescolando a questo la sua esperienza di programmatore.
All'inizio l'avevo un pò sottovalutato ma poi ne sono rimasto affascinato.
-- 
Morfeus®
Free Joint
 :PII

 cosa mi consigliate?
Con  eMule  trovi,  facilmente,  l'ottimo libro di Balena "Programmare
Visual Basic 6" in formato pdf e in italiano  ;-)
CiauX  
-- 
    /|                   L i n o G e
  \'o.O'  "Io ho vissuto a lungo, migliaia di anni, ma
  =(___)= non sono un dio e nemmeno uno degli immortali."
     U                                          s. kinG

Newsgroup: it.comp.lang.visual-basic
Titolo: risorse di rete PC

salve...solito problema...
devo riuscire ad avere la lista dei pc presenti in "my Network Place"
qualche idea ?
vi ringrazio !!
ciao !

 ha scritto

www.mvps.org/vbnet
smanetta un po' col search.
j.vbnet <--- senza punto

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto per library

c'è qualcuno che ha librerie di controlli - led, strumentini, potenziometri,
slider, etc. per vb4
grazie
sil...@tin.it

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Script CGI

Sto facendo un programma per i banner ed ho un problema: come faccio a dire
a VB5 di restituire una stringa che identifichi un nome file immagine da
rinominare, in modo tale che il codice HTML chiami lo stesso file, che abbia
però una diversa immagine. A tal proposito, non riesco ad interfacciare lo
script con l'HTML.
Vi prego aiutatemi,
Ciao,
Thunder.

script con l'HTML.
TI consiglio di dare un'occhiata all'indirizzo
http://www.constell.net/visualcgi
ci troverai una mia libreria di classi shareware per scrivere CGI in
VB
una dimostrazione delle potenzialita' di questa libreria la trovi
nella mia chat, realizzata tutta in VB5 con l'utilizzo, appunto, della
mia libreria VisualCGI
l'indirizzo della chat e'
http://www.constell.net/chat
Fammi sapere
Ciao
Max
---------------------------------------------------
Dott. Massimo Canducci
Web Developer & WebMaster
e-mail mailto:
cand...@ipsnet.it
       mailto:
cand...@hotmail.com
 
http://www.constell.net
  - devi traslocare?
 
http://www.constell.net/chat
  - una grande chat sul web
 
http://www.constell.net/visualcgi
  - per realizzare CGI con semplicita'
---------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: [ ? ] Chiamare un form da un'altro form





Salve ragazzi,


 


come faccio a far visualizzare un altro form  cliccando 
su di un bottoneCommand ?


 


Voglio dire, quali sono i comandi da utilizzare ?


 


Grazie sempre in anticipo


 


 


 


            
                
                
                
    Ciao



 ha scritto nel messaggio
news:8cq9ta$du6$2...@pegasus.tiscalinet.it...

Nell'evento Click o DoubleClick del CommandButton devi scrivere:
NuovoForm.Show vbModal / vbModeLess (guarda l'help per una spiegazione)
Ovviamente NuovoForm lo sostituisci con il nome del tuo Form e il tuo Form
deve esistere.
Comunque, studiati bene l'help, c'è tutto (o quasi) quello che cerchi.
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!
P.S. Non postare in HTML sui NewsGroup!

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Unload di un form passato come oggetto: come?

ciao a tutti,
ho il seguente problema:
ho creato una dll ed al suo interno una sub sbScaricaForms che scarica tutti
i forms di un progetto...
ora...la funzione è dichiarata così;
public sub sbScaricaForms(Forms as object)
    dim i as integer
    for i=0 to forms.count-1
        unload forms(i)
    next
end sub
il problema è che mi da errore quando tenta di fare l'unload xchè lo fa
"giustamente" su un object e non su un form visto che nelle dll non posso
passare un oggetto di tipo form ma solo di tipo object.
Quindi: come faccio a far funzionare questa routine all'interno della dll?
Grazie.
CIAO

passare un oggetto di tipo form ma solo di tipo object.
Dovrebbe funzionare lo stesso, invece.
Il problema potrebbe essere da un' altra parte.
Qual e' il messaggio di errore ?
A proposito:
cosa succede se fra i form su cui viene applicato l' unload
c'e' anche quello che ha istanziato la dll ?
ciao, hal

le classi della dll vengono istanziaste in un modulo e comunque vengono
scaricate DOPO questa funzione.
l'errore è il 361 : "Impossibile caricare o scaricare l'oggetto"
precisamente il codice è questo:
'scarica tutte le forms dalla memoria tranne la
'form passata come parametro
Public Sub sbScaricaTuttiForm(ByRef Form As Object, ByRef Forms As Object)
   Dim i As Integer
   On Error GoTo Errore
   For i = 0 To Forms.Count - 1
        If Forms(i).Name <> Form.Name Then
            Unload Forms(i) 'non lo scarica xchè l'unload vuole solo Form o
controlli e non object !!!
            Set Forms(i) = Nothing
        End If
    Next i
    Exit Sub
Errore:
    MsgBox Err.Number & " " & Err.Description
End Sub



Io uso la stessa funzione in una DLL e funziona.
La differenza (ma credo che non sia questo il problema) è che uso un ciclo
For Each .. next
Saluti


Oh si' invece :)
Se cicli in questo modo su una collection devi farlo da n a 0 non da 0 a n,
altrimenti ti incasini :)
Cmq e' sempre meglio il for each.
Ciaotutti,
*

 Cmq e' sempre meglio il for each.
Esatto, molto più comodo.
Ciao
Bald0z

 ha scritto nel messaggio
news:9psbpt$f58$1...@serv1.albacom.net...

Newsgroup: it.comp.lang.visual-basic
Titolo: Quali librerie mi consigliereste ?

Devo realizzare un progetto con VB6 che gestisca immagini TIF
(Compressione FAX Group 4).
Ho bisogno anche di operazioni particolarmente pesanti, cioè OCR e
lettura barcode.
Sto provando ora le ImagXpress della Pegasus, ma volevo sapere quali
altre librerie conoscete (possibilmente freeware)
che possano fare al caso mio.
Grazie 1000 !

TeoK ha scritto:

*Freeware*?????????? :-(
MAGARI! :-)))
Un annetto fa sono impazzito su questo argomento. Alla fine ho ceduto ed
ho acquistato il più economico dei pacchetti, che, devo dire, non mi ha
soddisfatto per niente. Però rientrava nel budget... Si tratta di Image
Gear della Accusoft, oggi nella release 98. Se ti serrve anche l'OCR
credo abbiano dei moduli aggiuntivi, ma il tutto ti costerà sicuramente
oltre il milione.
Prova a dare un'occhiata a ImageLib, che mi sembra buono e non
carissimo. Beh, se vuoi spendere... Lead Tools, il meglio in assoluto.
Per lavori di OCR mi par di ricordare qualcosa che suona come 'Sequoia',
prova a cercare su AltaVista.
Ciao
Flavio Ronco
--
f.ronco@*NonMiServeNiente*
flashnet.it
http://www.metabrains.com
  [Under Construction]
-------------------------------------------------------------
"Che pubblico in gamba! Se ci dite dove lavorate,
domani mattina se abbiamo tempo vi veniamo a vedere"
[Paolo Rossi]

,

Sent via Deja.com 
http://www.deja.com/
Share what you know. Learn what you don't.

Newsgroup: it.comp.lang.visual-basic
Titolo: LEGGIMI.FA' LA TUA OPERA BUONA

S.O.S.  
Vorrei sapere dove posso trovare materiale on line, tipo appunti o dispense
universitarie, che sia una accessibile introduzione agli algoritmi e al
linguaggio Pascal.
Non sono uno studente di ingegneria ne' di informatica quindi vorrei
trovare qualcosa che sia scritta in modo semplice e che non presupponga
grandi conoscenze matematiche.
Aiutatemi. Ho un imminentissimo esame che mi aspetta e non so come fare!!!
Potete rispondermi attraverso questo newsgroup o, meglio,con una e - mail
all'indirizzo    
a.ge...@mclink.it
Grazie in anticipo.


Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTOOO datagrid e update URGENTE

ciao,
    io ho questo codice qui:
Private Sub DataGrid1_Click()
    Y = DataGrid1.Row
    DataGrid1.Col = 0
    DataGrid1.Columns(0).Value = "1"
    DataGrid1.SelBookmarks.Add DataGrid1.RowBookmark(Y)
End Sub
quello che voglio fare e' questo: l'utente clicka su una riga della griglia
e io scrivo il valore "1" su una determinata colonna di quella riga. Se lo
fa con una sola riga e poi chiude il form, l'aggiornamento sul database
avviene con successo, se invece lo fa su di 2 righe, nella griglia mi
compaiono entrambi gli 1 ma nel database viene scritto solo il secondo che
e' stato clikkato.
ho messo allora la riga bookmark che dovrebbe fare al caso mio giusto? ma
purtroppo non ci sono miglioramenti :(
voi come fate? deve essere per forza l'utente a scrivere l' "1" sulla
griglia? non posso farlo io da codice visto che gli altri campi non devono
essere toccati?
P.s. la griglia e' impostata su allowupdate
VI PREGO AIUTATEMI SONO DISPERATO CON 'STE GRIGLIE :°°°(
VI

 quello che voglio fare e' questo: l'utente clicka su una riga della
griglia
In primis...
Update de recordset
in secundis...
assegna il valore al campo sottostante invece che alla griglia...
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: Visualizzare un'immagine casuale...

Salve a tutti,
avrei bisogno di far apparire un'immagine casuale su un controllo immagine
scegliendola tra 4 immagini predefinite. Mi spiego meglio: voglio che in un
controllo immagine sia visualizzata
un'immagine casuale scelta tra 4 disponibili (Image1, Image2, Image3,
Image4).
Questo deve avvenire alla pressione di un bottone.
Grazie a tutti coloro che vorranno rispondermi.
                                                                Andre@

...


Ciao,
puoi tenere nella form 4 controlli Image invisibili, ognuno con una immagine
caricata, organizzati in un array (devi dar loro lo stesso nome ed impostare la
proprietą index per ognuno). Chiamiamo l'array ImageList() e Image il
controllo che contiene l'immagine scelta a caso.  In Command1_click() scrivi:
Image.Picture = ImageList(Int(Rnd * 4)).Picture
Ciao.


Newsgroup: it.comp.lang.visual-basic
Titolo: MouseEnter e MouseExit
Newsgroup: it.comp.lang.visual-basic
Titolo: Terminare processo di nome noto

E' possibile da codice VB eseguire le operazioni di chiusura di un processo, 
allo stesso modo di quello che fa Task Manager quando si piazza la barra su 
un processo attivo e poi si preme Termina ???
La terminazione deve essere irrevocabile, non deve chiedere o aspettare 
niente dal processo attivo, deve buttarlo giu e basta.
Ciao e grazie
RobertoA

 Ciao e grazie
Dai un'occhiata alla api  TerminateProcess di kernel32.dll
-- 
There are two ways to write error-free programs; only the third one works.
News 2002 [v 2.07] / StopDialer / PopDuster - 
http://www.socket2000.com
Akapulce portal: 
http://www.akapulce.net


E' abbastanza semplice (con .net 2.0) :
'Termina immediatamente blocco note
Dim process As Process() = _
System.Diagnostics.Process.GetProcessesByName("notepad")
process(0).Kill()
Bye,
-- 
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
Webmaster di The Total Site 4 : 
http://www.thetotalsite.it
My Blog: 
http://blog.thetotalsite.it
MariokartDS Codice Amico: 532639027909 - CarmineC in MarioKartDS
"Un problema non è un problema se può essere risolto"
XML: Il futuro dell' informatica 


Denkio very grazie
RobertoA

Newsgroup: it.comp.lang.visual-basic
Titolo: come è stato spento il pc?

c'è un modo per sapere come è stato arrestato il sistema?
mi spiego meglio:
ammettiamo che il sistema sia andato in crash e si debba per forza
resettare.
Al riavvio del sistema dovrebbe intervenire l'applicazione fornendomi se il
sistema è stato arrestato forzatamente, se è stato resettato o spento
normalmente.
Grazie a tutti quelli che risponderanno

 ha scritto

per prova mi ero fatto un mini exe che all'avvio di win scrive l'ora su
un mdb, se ne sta li' tranquillo, poi alla chiusura (volendo puoi
controllare se l'unload glielo fa fare win o no) scrive l'ora in un
altro campo dello stesso record. se il secondo campo non e' compilato,
c'e' stato un crash. lo uso tuttora, con un lnk in esecuzione
automatica. puoi lanciarlo anche tramite le chiavi run del registro.
puoi anche usare un ini, o un savesetting, e non ti trascini dietro il
dbms.
ciao, a.


Questa e' bella...  La GetSystemMetrics ti dice solo se lo shutdown e' stato
pulito o sporco...
Dato che lo shutdown force non chiama l'unload ma e' considerato pulito, una
combinazione dei due gestisce tutti i casi.
Ciaotutti,
*

> GetSystemMetrics o giu' di li'.
Ecche l'é questa qui?
N'API?????
Ci mandi un esempio?
                Grazie
                            Allanon

 wrote in message
news:9ktlgb$6h3co$1...@ID-67444.news.dfncis.de...

Sai che non l'ho piu' trovata?
Non la API in se', solo il flag che chiedeva come era stato fermato il
sistema... Ho trovato il modo di avvio ma non l'ultimo modo di arresto.
Boh...
Ciaotutti,
*
Newsgroup: it.comp.lang.visual-basic
Titolo: [4? ADO] Problemi del neofita

Volevo confrontarmi con voi su una serie di problemi che ho incontrato,
come neofita, utilizando ADO 2.1 in VB6 sp 3 con Access 97, magari
qualcuno mi da' qualche dritta ...
- Utilizzando DbList e DbCombo correttamente (mi sembra) boundate, se in
un form modifico un valore contenuto in questi oggetti il metodo update
non propaga al db le variazioni; devo forzare via codice una "finta"
variazione su un altro campo del recordset ...
- In caso di presentazione di campi di un recordset per la modifica,
sempre con le tipologie di oggetto sopra menzionate, devo via codice
settare la proprietà BoundText con il valore del relativo campo del
recordset per avere una corretta visualizzazione...
- Boundando un oggetto check box non ottengo risultati ... devo gestire
il tutto via codice; in più l'evento validate non scatto quando metto il
segno di spunta sull'oggetto, ma scatta ogni due iterazioni ...
- Su di un form, dopo aver modificato alcuni valori per rinunciare alla
propagazione delle modifiche uso il metodo CancelUpdate, ma alcune volte
incorro nella seguente segnalazione  :
        Errore di run-time -
2147217842
        Modifica annullata durante la modifica.Nessuna colonna
modificata.
dalla certosina ricerca su MSDN mi sembra che sia una sorta di Bug ...
qualcuno mi da' conferma ?
Grazie in anticipo.

Dopo i primi problemi con i controlli databound tipo DBCombo, DBList,
DBGrid, ecc... ed i primi clienti non soddisfatti, ho deciso di non
utilizzare più il databound, meno ancora il DataControl.
Il databound lo utilizzo quando sono in sola lettura.
Per le modifiche apro una finestra ad hoc la dove ho il controllo sui dati.
Quello che dico non è un riferimento ad un comportamento che può essere
errato, ma un confronto che potrebbe farti risparmiare molto tempo.
Ciao
--
    Giuseppe Saffioti
-------------------------------------
pino.s...@tiscalinet.it
pino.s...@asl1.to.it

Pino Saffioti wrote:

Purtroppo sono già in fase avanzata del progetto ...
Non c'è nessuno che usa ADO e VB6 e gli oggetti "Boundabili"  .... AIUTO !!
Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] Colonne template Datagrid web

Ciao a tutti.
Ho creato un controllo web personalizzato che eredita dalla Datagrid ed
espone un DataSource fortemente tipizzato (il tipo è una classe collection
che ho creato io, chiamamola ContainerClass e ciascun oggetto contenuto
ContainedObject).
Vorrei personalizzare la visualizzazione dati, ad es. una checkbox per una
proprietà booleana del ContainedObject, oppure inserire una nota quando una
data è da considerarsi nulla (es. 01/01/0001 --> "(data non impostata)"),
ecc.
Ho creato una classe da assegnare poi alla proprietà ItemTemplate delle
TemplateColumns, es:
Public Class MyTemplate
    Inherits ITemplate
    Private WithEvents Panel as Panel, Label as Label, Check as CheckBox
    Public Sub InstantiateIn(ByVal container As System.Web.UI.Control)
Implements System.Web.UI.ITemplate.InstantiateIn
      Panel = New System.Web.UI.WebControls.Panel
      container.Controls.Add(Panel)
    End Sub
    Private Sub Panel_DataBinding(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Panel.DataBinding
        '...?
    End Sub
... il problema è che al momento del DataBinding  non riesco + a ricavare
quale proprietà sto analizzando per inserire il controllo appropriato (label
o check) e quindi neanche il valore di tale proprietà.
Potete aiutarmi?
Grazie a tutti.
                        Ciao
                                    Zephiross

       Panel = New System.Web.UI.WebControls.Panel
Stai parlando di 
ASP.NET
?

> Stai parlando di 
ASP.NET
?
Sě

Ho risolto, grazie comunque!
                         Ciao
                                     Zephiross
Newsgroup: it.comp.lang.visual-basic
Titolo: Disegno & Layer

Leggo un file dxf creato con autocad e lo disegno in una picture box.
Avrei bisogno di poter implementare una gestione dei layer sul modello
dell'autocad (ossia possibilitą di congelare/scongelare i vari livelli).
L'idea di base era quella di far disegnare le entitą di ogni layer del
dxf su diverse picturebox da attivare/disattivare, ma c'č il problema
della non trasparenza delle picture.
Qualcuno ha qualche dritta?.
Grazie in anticipo.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 dxf su diverse picturebox da attivare/disattivare, ma c'è il problema


Grazie Pusky,
in realtà mi ero espresso in modo poco chiaro.
Il mio problema era di caricare piu' di un dxf (indipendentemente poi 
dai singoli layer di ogni dxf) sulla stessa picturebox ed avere 
successivamente la possibilità di congelare/scongelare i due (o più)
dxf.
Comunque per info ho risolto il problema nel seguente modo:
a) carico il primo dxf in una picture invisibile con sfondo bianco.
b) carico il secondo dxf in un'altra picture invisibile con sfondo
bianco.
c) con due checkbox attivo/disattivo le viste dei singoli dxf in una
terza picture (il piano di visualizzazione) per mezzo dell'api
transparentblt
filtrando il colore bianco.
Funziona perfettamente.


 ha scritto nel messaggio
news:70401fb9e0597ab477b...@mygate.mailgate.org...


 wrote in message
news:a4jfhe$2aqn$1...@phobos.ibnetwork.net...


 Saluti.
<CUT>

 wrote in message
news:a4qm2s$2neo$1...@phobos.ibnetwork.net...



 ha scritto nel messaggio
news:e6e8df3983e27131b0d...@mygate.mailgate.org...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Passare ad una Sub (o function) un numero indefinito di parametri

Mettiamo che io ho una Sub chiamata AddRow
Quando la chiamo faccio cosě:
AddRow Posizione,"Valore 1","Valore 2","Valore 3"
Perň successive chiamate potrebbero essere
AddRow Posizione,"Valore 1","Valore 2","Valore 3","Valore 4","Valore 5"
o
AddRow Posizione,"Valore 1","Valore 2","Valore 3","Valore 4","Valore
5","Valore 6"
Insomma: non conosco il numero esatto dei parametri dopo Posizione.
So solo che sono tutti di tipo stringa.
Ho provato passando una stringa e poi facendo uno split ma č scomodo.
Qualcuno saprebbe propormi qualche soluzione?
Grazie!

Ciao, sinceramente non credo si possa passare un numero non definito di
parametri, perň potresti passargli una matrice di stringhe, la cui
dimensione non č appunto prefissata.
Bye
--
Tango
www.af.mil
ICQ: 35463931


--
DoS
Email reply to ::
#minicuccio#@#
cheerful.com#
- delete # from the address -


Sub|Function MiaFunc(ByVal|Byref ParamArray Parametri() As Variant)
L'unico svantaggio è che devono per forza essere Variant.
Però (compito a casa) potevi verificarlo subito con F1 e "Sub"|"Function".
Già che ci sei cerca anche "Optional" che potrebbe venirti buono.
Ciao

 ha scritto nel
messaggio news:91lkjr$1ek8$1...@stargate1.inet.it...

Prova a utilizzare ParamArray, allego es. liberamente tratto dal manuale
diVB5:
Option Explicit
Function Somma(ParamArray intNums())
    Dim x As Variant
    Dim y As Integer
    For Each x In intNums
        y = y + x
    Next x
    Somma = y
End Function
Private Sub Command1_Click()
    Text1 = Somma(1, 2, 3, 4, 5)
End Sub
Questa funzione restituisce la somma di qualsiasi serie di numeri (int) gli
passi.
Se invece hai stabilito un numero massimo di parametri, ma perň non sempre
li passi tutti puoi usare Optional.
Ciao VB
(Per Borrelli neppure a me piacciono i Variant, ma in questo caso credo non
ci siano alternative)

 (Per Borrelli neppure a me piacciono i Variant, ma in questo caso credo
non ci siano alternative)
Non devi preoccuparti per me... Ho un buon rapporto coi Variant. :-)
Onore al merito: ci sono altre persone nel ng, molto piu` profonde di me e
che da piu` tempo di me lo frequentano, che potrebbero scriverti in
proposito qualche parolina vergata con la fiamma ossidrica.
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

E' quel variant che mi aveva tratto in dubbio...
Comunque se è l'unico modo...
GrazieTutti!
Newsgroup: it.comp.lang.visual-basic
Titolo: Access in remoto

Ho un db access in pc remoto collegato tramite linea telefonica a 64 k.
Ok è lento ma mi sembra stranamente troppo lento.
Qualcuno ha avuto esperienze del genere?
Grazie!

Io ho fatto un'applicazione che legge dati da un database remoto su una
linea ISDN a 64 KB.
Confermo che non è assolutamente veloce.
La spiegazione è che Access non è come un RDBMS tipo SQL-Server , Oracle od
altro, i quali processano sul server l'interrogazione al database per
restituirti il solo recordset risultante. Access ( o meglio Jet ) genera un
sacco di traffico di rete.
Qualcosa cambia se ti scrivi un componente server e lo utilizzi con DCOM,
non è difficile e ti da buoni risultati. Hai comunque problemi nella
multiutenza in quanto il motore Jet con è multithread e quindi il tuo
componente server non può aprirlo due volte, io per questo, anche se i
problemi di velocità erano risolti, non ho potuto utilizzarlo e quindi, a
scapito della velocità, ho il programma remoto che lui stesso apre il
database Access sul server.
Morale della favola, sto migrando l'applicazione su Oracle.
Ciao e buon lavoro.
--
      Pino Saffioti
-------------------------------------
pino.s...@asl1.to.it

Newsgroup: it.comp.lang.visual-basic
Titolo: listview e scroll

salve a tutti ...
Ho un problema dopo aver riempito un listview ... esiste il modo di sapere
in quale posizione della listview lisibile si trova il selectitem, perchè se
il selectitem è l'ultimo visibile sarebbe intessante abbassare la listview,
in modo che il selectitem risulti sempre nel centro.
Secondo .. via codice come è possibile far in modo che la listview scrolli
verso il basso ?? .. ho provato con il sendkey ("down"), crea un orredo
effeto in quanto si vede il selectitem che scorre verso il basso e poi
risale ...
grazie !!!!!
mmazzo
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 basso e poi risale ...
Vedi EnsureVisible

Grazie ... ma :
Set Found = ListView.FindItem(Nome, lvwSubItem, , lvwPartial)
Found.EnsureVisible
Found.Selected = True
ListView.SetFocus
cosi mi seleleziona e rende visibile ... ma non mi dice se quello che ho
selezionato e reso visibile è l'ultimo dei visibili, oppure non mi
resituisce la sua posizione all'interno della listview (intendo sempre in
quella visibile!).
Perchè se quello selezionato è l'ultimo dei visibili, mi piacerebbe dagli un
comando di scroll down, in modo che il select item selezionato si trovi
sempre in mezzo alla listvire ..
grazie ancora
mmazzo

--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 selezionato si trovi sempre in mezzo alla listvire ..
Ok, ora ho capito, temo non si possa (nemmeno con un eventuale TopIndex che
non so se la LV ce l'ha). Potresti aggiungere delle righe vuote in coda, ma
è bruttissimo.

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

 ha scritto:

--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Ditemi un Grid Figo

Ciao
sono sconfortato dai grid "standard",
qualcuno sa consigliarmi un grid "tosto"
che lavori in unbound con array (tipo lo
torage/xArray di TrueDBGrid ) e dove si
possano usare combo a piu' colonne
(intellisense like) e check box nelle
celle ? Magari e' anche veloce ?
grazZie
ciao
--

 wrote in message
7ima0j$pkv$1...@fe2.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Disabilitare tasto destro???

Salve a tutti,
ho questo problema: ho bisogno di disabilitare il tasto destro del mouse
nella mia applicazione; immagino ci sia un'API che faccia questo, ma
purtroppo non la conosco e non la so usare.
Mi spiego meglio: ho creato un'applicazione che usa un oggetto
InternetExplorer; sul quale oggeto però è attivo un menu popup, cioè è
attivo di default un menu che compare col tasto destro. Io però non vorrei
che venisse visualizzato questo menu...
Grazie a tutti quelli che vorranno rispondermi
Lele

Prova ad associare all'oggetto che hai creato un menu PopUp definito da
te.
Guarda nell'help l'utilizzo del metodo PopUpMenu
Dovrebbe funzionare,
ciao, Roberto

 Guarda nell'help l'utilizzo del metodo PopUpMenu
Ti ringrazio per la risposta, ma purtroppo non posso fare come tu mi hai
detto perché l'oggetto InternetExplorer in questione non ha il metodo
PopUpMenu. Io penso che il problema si riconduca a disabilitare il tasto
destro del mouse...
Ciao
Lele

Newsgroup: it.comp.lang.visual-basic
Titolo: API,vespe,motocarri ecc... :))

Ciao a tutti,
ho la necessità di scollegare le sessioni di rete del mio PC (ovvero gli
utente connessi al mio disco condiviso) tramite un programmino VB, ho
spulciato le NetAPI ed ho provato ad utilizzare la NetSessionDel passandole
3 valori nulli, non ottengo pero' risulatati, se qualcuno sa come fare per
cortesia me lo comunichi:))
Ciao e Grazie
<Luigi> 
omc...@msoft.it

...

------------
Ciao!
Ti riporto quello che dice la Win32 Programmer's Reference a proposito di
questa API, sperando che possa esserti di qualche aiuto.
The NetSessionDel function ends a session between a server and a
workstation.
Security Requirements
Only members of the Administrators or Account Operators local group can
successfully execute NetSessionDel.
NET_API_STATUS NetSessionDel(
    LPTSTR servername,
    LPTSTR UncClientName,
    LPTSTR username,
   );
Parameters
servername
Pointer to a Unicode string containing the name of the remote server on
which the function is to execute. A NULL pointer or string specifies the
local computer.
UncClientName
Pointer to a Unicode string containing the computer name of the client to
disconnect. If UncClientName is NULL, then all the sessions of the user in
username will be deleted on the server specified.
username
Pointer to a Unicode string containing the name of the user whose session is
to be terminated. A NULL pointer indicates that all users' sessions from the
client name specified are to be terminated.
Alla prossima
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco
Newsgroup: it.comp.lang.visual-basic
Titolo: ricerca stringa

Ciao a tutti.
Una domanda piuttosto niubba :
Ho il seguente file di testo c:\dati.txt :
Mario Rossi 1980 Roma
Luigi Bianchi 1970 Firenze
Per ora so come leggere il file nella sua interezza. Quello che non so fare,
e per cui chiedo aiuto a voi, è : come faccio a isolare i singoli nomi,
cognomi, anni e città ?
Più specificamente, come faccio a leggere solo la stringa "Rossi", piuttosto
che "Bianchi" ?
Grazie,
iKryo.

mandami il tuo indirizzo amail che ti posto un progetto di esempio.
(oppure aspetta 2 settimane che lo pubblicano sul sito comune).
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 piuttosto che "Bianchi" ?
Leggilo riga per riga ed usa il comando "split" sulla singola riga
Io mi preccuprei di eventuali persone che hanno il secondo/terzo/quarto
nome.
In tal caso... buon parsing
termoPilucco.

 In tal caso... buon parsing
:-) Una cosa alla volta ragazzi eh!
iKryo.

 (oppure aspetta 2 settimane che lo pubblicano sul sito comune).
Guarda che cosě si passa dalla parte del torto...

 Guarda che cosě si passa dalla parte del torto...
era una battuta. cattivella, ma pur sempre battuta.


 era una battuta. cattivella, ma pur sempre battuta.
e cmq č vero che l'ho mandato al WM.


"iKryo"
Prendi quello che ti serve :
basta aggiunggerci Or InStr(UCase(sLine),"Quellochevuoi")
per es
If InStr(UCase(sLine),"MARIO") Or InStr(UCase(sLine),"ROMA")  Then
'*.vbs
'Il target sono i *.eml ( si puo' modificare)
'copia ogni linea con "from:" & "to:" nel log file.
sDirectory = "C:\Documenti\email"
sLogFile = "C:\E-Mail.Log"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oLogFile = oFSO.OpenTextFile(sLogFile, 8, True, 0)
Set oFolder = oFSO.GetFolder(sDirectory)
For Each oFile In oFolder.Files
  If InStr(UCase(oFile.Name), ".EML") Then
    Set oStream = oFSO.OpenTextFile(oFile.Path, 1)
    Do Until oStream.AtEndOfStream
      sLine = oStream.ReadLine
''''   If InStr(UCase(sLine),"ROSSI:") Then
      If InStr(UCase(sLine),"FROM:") Or InStr(UCase(sLine),"TO:")  Then
        oLogFile.WriteLine sLine
         ' oLogFile.WriteLine ""
'Msgbox sLine
      End If
    Loop
  End If
Next
oLogFile.Close
--
Fosco
Newsgroup: it.comp.lang.visual-basic
Titolo: Beep alla pressione di INVIO

In un mio programma ho fatto in modo che il focus passi di campo in campo
(textbox) alla pressione di INVIO. Tutto funziona regolarmente, tranne che
per il fatto che viene emesso un fastidioso BEEP.
Come fare per eliminarlo?
Grazie in anticipo, sebastiano.pallaro
http://sebamix.supereva.it

 wrote in message
8shmv8$49dg$1...@stargate1.inet.it...


 ha scritto nel messaggio
news:8shmu4$6j9$1...@fe1.cs.interbusiness.it...


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys ("{tab}")
    KeyAscii = 0
End If
End Sub
Enry
E' questo il codice che hai usato?
Se è questo allora è impossibile che faccia
beeeeeeeeeeeeeeeeeeeeeepppppppppp ;0)
Enry.



Grazie !   Anch'io avevo questo fastidioso problema...
Avevo risolto in un altro modo pero'.
avevo spento gli altoparlanti, ma non era un granche'
;-)
--
Frogman
indirizzo e-mail corretto: 
be...@reboot.to
--------------------------------------------------------
Non fate i bambini in provetta.
Fateli nella zuppiera che ce ne stanno di piu'.
--------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: Cod. Fiscale e nati all'estero

Salve, volevo sapere se per i nati all'estero l'algoritmo del cod.
fiscale prevede dei codici particolari per gli Stati di nascita. Ho
prelevato dal sito del NG un archivio con tutti i  codici degli Stati
Esteri, credo che devo utilizzarli come utilizzo quelli dei Comuni. Mi
confermate il tutto ?
NB. Se un individuo č nato in uno Stato che non esiste pių...ad esempio
Ex Jugoslavia?
Grazie

Ciao Ronin, tutto quello che sò è che io sono nato negli stati uniti e il
mio codice è Z404, e penso che i codici che hai trovato in giro vadano usati
come tutti gli altri...
--
Franco A. Politano -- Luvme2times
"Love me two times babe | I'm going awayyyy"
J.M.D.

 Ex Jugoslavia?
Devi vedere gli aggiornamenti del DB dei comuni... (a proposito: se sai dove
trovarlo, mi manderesti il link? grazie!)
Cmq non credo che vengano cancellati i riferimenti agli stati che non
esistono piu'...

esempio Ex Jugoslavia?
si decide caso per caso. I programmi di codice fiscale servono 
esclusivamente a *verificare* codici, non a generarli, dato che casi 
particolari ricevono trattamenti particolari

Grazie del DB Ronin... :)