mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: $$$GUADAGNI 100 MILIONI IN MODO FACILE E ONESTO$$$

Ci fai o ci sei ?

Secondo te i soldi che qualcuno guadagna da dove provengono ??? dal nulla
???
Lavora vala' invece di dire stronzate !!!! ciao.

...


L'unico investimento vostro e' di L. 15.000.
Vale cosi poco un sistema che fa quadagnare 100 milioni ?
Allora possiamo abolire tutte le lotterie.
Fabio, sei OT oltre che offendere la nostra inteliggenza
Antonio Tanzillo  
a...@pippo.netgroup.it
KillPippoforrepondez

file .frx solo perché binario?
  Non mi risulta che questo newsgroup sia moderato, bensi' che esista
un robot che cancella tutti i file binari che vengono postati in
newsgroup in cui questi non sono ammessi.
  Per inciso, esistendo it.binari.file, sono perfettamente d'accordo,
visto che ad esempio mi sto alquanto rompendo le scatole nel vedere
quanti file binari sono stati postati in comp.lang.basic.visual.misc
negli ultimi giorni.
  Per quanto riguarda invece i messaggi insulsi come quello che ha
dato origine al thread, quando il mittente piazza il suo indirizzo
e-mail vero, io gli invio la netiquette: con i provider seri, puo'
essere utile anche forwardare il messaggio al postmaster.
  Sono invece inutili le proteste e gli insulti nel newsgroup, che
aggiungono inutile all'inutile e determinano la necessita' di
precisazioni come questa mia.
  Ciao :-)
  Massimo
  Nell'indirizzo, sostituire DIESPAMMERS con MC1258
  In the address, replace DIESPAMMERS with MC1258

negli ultimi giorni.
No, esiste un moderatore, è un essere umano, non un robot (in questo momento
non ricordo il nome), e qualche volta ho visto che cancella (dopo qualche
giorno) i messaggi Off topic. Per quanto riguarda it.binari.file, ho provato
due volte a postare qualcosa, e questo qualcosa deve passare attraverso un
altro moderatore e in definitiva passano circa venti giorni prima che il
messaggio sia visibile. Quindi, secondo me, è totalmente inutile (e infatti
andate a vedere la quantità scarsissima di messaggi). Inoltre, questo è un
NG sul VB, e non è così raro che si debba postare qualche esempio (io per
esempio spesso non rispondo perché miverrebbe naturale postare un progetto
di esempio che però contiene un frx). Ora, anche ammettendo che uno si
adatti a non zippare i file che posta (però poi non lamentiamoci
dell'appesantimento del server e della lentezza del download), VB ha la
cattiva abitudine di salvare alcuni dati in un file .frx che è binario.
Risultato: il messaggio viene cancellato, e magari era una cosa utilissima a
molti. Se la 'ratio' del regolamento è quella di risparmiare spazio sul
server e accelerare il dowload, mi trovo d'accordo, ma si potrebbe piuttosto
fare appello al discernimento dei partecipanti. Capisco che spesso non serve
a niente, ma insomma è un male necessario.
Saluti,
Domenico Statuto
PS se decidiamo di proseguire la conversazione suggerirei di cambiare il
titolo al tema, altrimenti facciamo pubblicità a questo geniale strumento
finanziario.
PS s
Newsgroup: it.comp.lang.visual-basic
Titolo: Riconoscere vocali e consonanti e validare l'esistenza di un nome.

Salve.
Sto cercando di fare in modo che quando digito un nome in un campo di testo
e poi dopo premo un bottone, mi vengano riconosciute e distinte le vocali e
le consonanti.
Così posso riconoscere (approssimativamente) se un nome è esistente o no,
controllando che non ci siano, per esempio, 4 consonanti consecutive.
Cioè se il nome digitato è "agrcpo", alla pressione del tasto la stringa
viene controllata e mi viene chiesto di inserire un nome valido perchè è
impossibile che ci sia un nome che contenga 4 consonanti una di seguito
all'altra come grcp.
So che è un pò rozzo come sistema ma mi interessava capire come fare.
Mi sapete aiutare?
Grazie by Pictor


Dunque, io farei così.
Dim Nome(50) as Boolean 'non ho mai visto un nome più lungo
Sub Command1_Click
Dim lettera as integer
For lettera = 1 to Len(text1.text)
    If mid(text1.text, lettera, 1) = "A" or _
    mid(text1.text, lettera, 1) = "a" or _
    mid(text1.text, lettera, 1) = "E" or _
    mid(text1.text, lettera, 1) = "e" or _
    mid(text1.text, lettera, 1) = "I" or _
    mid(text1.text, lettera, 1) = "i" or _
    mid(text1.text, lettera, 1) = "O" or _
    mid(text1.text, lettera, 1) = "o" or _
    mid(text1.text, lettera, 1) = "U" or _
    mid(text1.text, lettera, 1) = "u" then
        Nome(lettera) = True
    Else
    Nome(lettera) = False
Next
A questo punto hai un array in base 1 (0 è vuoto, per comodità), dove True
vuol dire che in quella posizione c'è una vocale e false che c'è una
consonante
Ciao
Bald0z

 ha scritto nel messaggio
news:5wDy7.18306$YC3.5...@news1.tin.it...

Vediamo un po'... soluzione rozza a problema rozzo ;-)
Dim i           As Long
Dim intCount    As Integer
For i = 1 To Len(txtNome)
    Select Case UCase(Mid$(txtNome, i, 1))
    Case "A", "E", "I", "O", "U", " "
        'resettiamo il contatore
        'mettiamo lo spazio nel caso il campo debba includere
        'nome e cognome insieme
        intCount = 0
    Case Else
        'consonante, incrementiamo il contatore
        intCount = intCount + 1
    End Select
    If intCount = 4 Then Exit For
Next
'se il ciclo e' arrivato in fondo senza errori
'la variabile di controllo vale Len() + 1
If i > Len(txtNome) Then
    MsgBox "OK"
Else
    MsgBox "ERRORE"
End If
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown
Newsgroup: it.comp.lang.visual-basic
Titolo: Scelta tra DB Access 2000 e Fox Pro.

Salve, mi sto accingendo a scrivere un programma di magazzino e fatturazione
e mi ero posto il seguente dubbio: secondo voi visto e considerato che l'
archivio avrà una certa dimensione in considerazione del fatto che sarà
multi-magazzino, è più performante per il VB il Jet o i DBF del Fox Pro con
indici CDS ?
Grazie, saluti.
Alex.

 ha scritto nel messaggio
news:ZfO19.1595$L12.1...@news.edisontel.com...

Se ti può essere di aiuto questa domanda.... Ma esiste ancora Fox Pro?
Ciao.



Purtroppo esiste, non l'hanno incluso in 
VS.NET
 ma l'hanno venduto a
parte... Visual FoxPro 7... sembra che stiano lavorando alla 8
Io lo uso a lavoro, ma mi fa proprio c....e (cantare di gioia) ;-)))))
Ogni tanto ci sono delle cose che noi chiamiamo FOX-MIRACLES, ovvero
il Fox fa quello che vuole ogni tanto..........
Ciao
Aran

 Se ti puņ essere di aiuto questa domanda.... Ma esiste ancora Fox Pro?
Non solo esiste, ma č anche incluso in Visual Studio (non .Net).
Parecchio tempo fa ho fatto prove comparative di performance fra le stesse
query, sulle stesse tabelle, con DB Access 2000, FoxPro, Sql7.0.
Le differenze a favore di FoxPro erano spaventose. Del resto,
l'ottimizzatore di execution plan di Access č stato ricavato dalla
tecnologia FoxPro, che prima di essere mangiato da MS era veramente una
spanna sopra tutti.
Adesso hanno smesso di svilupparlo, il Visual FoxPro lascia alquanto a
desiderare, ma la tecnologia nel motore rimane eccezionale.
Ovviamente adesso io uso MSDE o Sql-Server, ma se devo usare un DB su file,
e il cliente non vuole espressamente Access, mi sento proprio di consigliare
FoxPro.
Oltretutto, i .Prg di FoxPro sono molto simili sintatticamente alle S.P. di
Sql-Server, per cui le realizzazioni in FoxPro sono anche discretamente
riutilizzabili in futuro.
Ciao
Alberto

Sicurezza, affidabilità, stabilità, velocità, scalabilità...
Devi considerare quanto ti interessano tutti questi ed altri fattori per
poter scegliere.
Se vuoi un consiglio:
dBase (il fox è un sistema per utilizzarlo) è vecchio come il mondo, non ha
nessun sistema di sicurezza di accesso, ha gli indici esterni alle tabelle o
meglio ai datafiles, non supporta nessuna funzione server.
MS Access fa c...e allo stesso modo ma almeno è infinitamente più facile da
gestire, ti permette di criptare tutto il db e proteggerlo, puoi gestire gli
accessi e definire gli utenti e altre piccole cosine. In più supporta alcune
delle funzioni dei database relazionali, cosa inesistente in dBase.
L'unica cosa che si può dire a favore di dBase (sì lo ammetto: lo odio anche
perché in parte sono costretto a lavorarci) e che in certe circostanze è
molto più veloce di tutti! Ma se ci sai fare con gli indici non troverai
difficoltà e avrai prestazioni a livello.
In sostanza è meglio usare server seri ma se hai bisogno di una soluzione
economica punta su access che almeno è facile da gestire sia da programma
che tramite office.
Saluti.

Grazie per le risposte; pareri diversi in merito, ma ho capito che la scelta
dipende anche dall' utilizzo che se ne deve fare.
Saluti.
Alex.
Newsgroup: it.comp.lang.visual-basic
Titolo: Programmi ed Interfaccia

Ciao a tutti!!!!
Qualcuno sa dirmi dove posso trovare delle librerie di icone facilmente
scaricabili per creare toolbar ?
Ciao e grazie.

Newsgroup: it.comp.lang.visual-basic
Titolo: chiudere un programma access

Ho questo problema:
    Dim acc As New Access.Application
    acc.OpenCurrentDatabase "g:\ARCHIVIO\magazzino\Gestione\report.mdb"
    acc.Visible = False
    acc.DoCmd.OpenReport "RepDDT", acViewNormal, , "fatid=" & Str(nIdMovCur)
    acc.CloseCurrentDatabase
Quando provo a chiudere il database questo mi rimane aperto, probabilmente
perché non ha ancora finito di elaborare il comando precendente.
Così facendo con per chiudere il programma devo con CTRL-ALT-CANC chiuderli
manualmente.
Come posso chiudere il database solamente dopo aver elaborato la stampa del
report? Ho pensato di mettere un temporizzatore, ma ho paura che se il
programma rallenta per qualche motivo non mi dà la sicurezza della chiusura.
Grazie.

> Spiderrunners:

From: "Maurizio Borrelli"
Newsgroups: it.comp.lang.visual-basic
Subject: Re: V.Basic 5 & Report Access
Date: Sun, 7 Jan 2001 21:14:55 +0100
[...]
' Report
Option Compare Database
Option Explicit
Private Declare Sub Sleep _
  Lib "kernel32" ( _
    ByVal dwMilliseconds As Long _
  )
Private Sub Report_Open( _
  ByRef Cancel As Integer _
)
  Sleep 2000&
  CommandBars.ActiveMenuBar.Enabled = False
End Sub
' VB
'
Option Explicit
Public Sub Main( _
)
  Const acCmdAppMaximize = 10
  Const acViewPreview = 2
  Dim strFile   As String
  Dim strReport As String
  strFile = "C:\windows\desktop\db1.mdb"
  strReport = "Libri"
  With GetObject(strFile)
    With .Application
      .Visible = True
      .RunCommand acCmdAppMaximize
      With .DoCmd
        .OpenReport strReport, acViewPreview
        .Maximize
      End With
    End With
  End With
End Sub
Piu` tue eventuali variazioni sul tema e migliorie... che se hai piacere
potresti comunicarci, grazie.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Newsgroup: it.comp.lang.visual-basic
Titolo: il libro di Balena su Vb.Net e' uscito??

salve a tutti,
come da oggetto, specialmente in italiano (se possibile), visto che vorrei
cercare di capirlo bene subito...
grazie
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.34
--------- remove NOSPAM to reply

 Andrea Montanari
onestamento non lo so, cmq è da un pezzo che è in giro "Coding Techniques
for Microsoft Visual Basic.NET" di John Connell e (da voci di corridoio)
pare sia un buon libro... naturalmente in inglese ;))
ciao

 ha scritto nel
messaggio news:mYcA8.39755$8D3.1...@news1.tin.it...


grazie a tutti
Newsgroup: it.comp.lang.visual-basic
Titolo: DLL da vbscript

Salve a tutti!
Ho sviluppato una Active X DLL tramite VB6 che interagisce con una
base di dati
posta su SQL Server 7. Il compito di questa DLL è di restituire dei
dati in un particolare formato
in base a dei parametri passati in ingresso.
La DLL viene memorizzata sui client di una LAN e i suoi metodi vengono
richiamati all'interno di pagine ASP
che girano su un sottosito di una Intranet.
In particolare all'interno di una pagina ASP si è inserito una
risposta ad un evento OnClick su una lista di valori. In risposta a
questo evento
viene chiamata una funzione di una dll la quale in base a dei
parametri passati ritorna un valore di uscita.
Dato che progressivamente i PC che hanno bisogno di questa DLL
crescono in continuazione per semplificare il tutto
anche in relazione agli aggiornamenti e alla manutenzione, si è
pensato di registrare la DLL sul Server nella directory
WinNT/System32.
Tuttavia in questo modo al momento della chiamata è come se la DLL non
venisse vista, e non si ha alcuna
risposta. Si è provato anche a registrarla su la cartella del sito, ed
anche su c:\winnt\system32\inetsrv\asp\cmpnts
ma in tutti i casi niente
Il codice nella versione DLL su Server è di questo tipo
<script language="VBScript" RUNAT="server">
Sub lstEsame_OnClick( )
	Set objDesc=Server.CreateObject ("RecSotEsa.clsRecSotESa")
	sDesc=objDesc.RecuperoSottoEsame(".....","....")
	----------------------------------------------------------
	----------------------------------------------------------
	Set objDesc=Nothing
End Sub
</script>
Ho cercato su libri,  Internet e su riviste, ma a meno che non mi sia
sfuggito qualcosa non sono
riuscito a trovare una soluzione a questo problema.
Esiste una soluzione a questo problema oppure mi devo rassegnare alla
DLL sui client?
Grazie in anticipo per qualsiasi suggerimento.

 ha scritto nel messaggio
news:2aaff04f.02090...@posting.google.com...


 %> invece viene vista.
Ferma tutto!!!!
Se vuoi dirmi che nella pagina asp hai un codice di questo genere:
<script language="vbscript" RUNAT="server">
    set MyObj= createobject("NomeDll.NomeClasse")
</script>
Allora ti credo che non funziona!!!! Questa cosa gira lato client non credo
che RUNAT="server" faccia girare lo script lato sever.
Quindi si spiega perchè se scrivi invece
<%
    set MyObj= server.createobject("NomeDll.NomeClasse")
 %>
Perche tutto il codice ASP viene interpretato lato server e quindi vede la
libreria che hai registrato nel server, il codice prima andava a cercare la
dll nel client!!

 dll nel client!!
Ho capito, ora ho chiara la questione,
ma quindi qual'č la soluzione per far vedere la dll tenendola sul server con la
versione di codice iniziale?
Grazie cmq.
Stefano.
Newsgroup: it.comp.lang.visual-basic
Titolo: Resource Editor

Vorrei sapere se esiste un programm freeware o shareware per editare
file .res per visual Basic.
Grazie  per le ventuali risposte
Pasquale

Nella sezione owner del sito Microsoft. Spiacente, non ricordo l'URL
esatto.
-- 
Check the Common Control Replacement Project controls at:
http://www.zeode-sd.com/ccrp
Domenico Statuto
popper <pop...@INT0828.it> wrote in article
<348540FD...@INT0828.it>...


Newsgroup: it.comp.lang.visual-basic
Titolo: ReadOnly del Controllo dati

E' possibile impostare in qualche maniera la proprietą ReadOnly del
controllo dati via codice?
Se lo metto nel codice di caricamento di un form funziona, in un pulsante
no.
Come posso fare perchč mi funzioni anche sul pulsante?

 ha scritto nel messaggio
news:sqXod.48968$Es2.1...@twister2.libero.it...

Su MSDN parlando del ReadOnly del Data Control:
For a Data control, this property is used only the first time a database is
opened by your application. If your application subsequently opens other
instances of the database, the property is ignored. For a change in this
property to take effect, you must close all instances of the database and
then use the Refresh method.
Quindi per far si che la proprieta' ReadOnly = True abbia effetto devi
chiudere tutte le istanze del database e fare il Refresh.
Spero sia questo il tuo problema .
Ciao

Si, in sonstanza il problema è questo.
Grazie, proverò in questa maniera


Newsgroup: it.comp.lang.visual-basic
Titolo: HELP URGENTE!! secondo annuncio!

Ho installato Cristal Report 8.5 e ho provato a compilare un progetto,
scritto in VB 6.0
Arrivato in fondo al wizard di creazione pacchetti mi visualizza il seg.
errore
"Si è verificato l'errore imprevisto 80010108: Errore di automazione.
L'oggetto invocato si è disconnesso dai client corrispondenti"
Il mio è un piccolo progetto di stampa, composto da 1 exe, 1 mdb e 1 .rpt
Cosa vuol dire?
Prima non avevo mai avuto di questi problemi.
--
Ciao,
Antony
NOSPAM: Rimuovere i trattini dallo username!

 Il mio è un piccolo progetto di stampa, composto da 1 exe, 1 mdb e 1 .rpt
Prova:
http://support.crystaldecisions.com/forums/default.asp
Ave
giuseppeD
Newsgroup: it.comp.lang.visual-basic
Titolo: Eliminazione Directory

Come posso eliminare una directory nel caso in cui contenga + files e
subdirectory dentro di sè?
Grazie Ste

 subdirectory dentro di sè?
Prova questa Sub.
es:
Cancellare Documenti e tutto il suo contenuto:
call CancellaDir ("c:\documenti")
---------------------
Public Sub CancellaDir(Directory As String)
Dim pstrDirectory() As String, pstrAgg As String
Dim pstrPercorso As String, pstrNome As String
Dim plngNumDir As Long, plngCont As Long
'Sistema le eventuali imperfezione nei percorsi
If Right(Directory, 1) <> "\" Then Directory = Directory & "\"
'Inizializza le variabili
pstrPercorso = Directory
ReDim pstrDirectory(0)
pstrDirectory(0) = ""
'Corpo della routine
Scannerizza:
If Right(pstrPercorso, 1) <> "\" Then pstrPercorso = pstrPercorso & "\"
pstrNome = Dir(pstrPercorso, vbDirectory)
Do While pstrNome <> ""
     If pstrNome <> "." And pstrNome <> ".." Then
        If (GetAttr(pstrPercorso & pstrNome) And vbDirectory) = vbDirectory
Then
         plngNumDir = plngNumDir + 1
         ReDim Preserve pstrDirectory(plngNumDir)
         pstrDirectory(plngNumDir) = pstrAgg & pstrNome
        Else
         'Kill Directory & pstrAgg & pstrNome
         msgbox "Kill" & Directory & pstrAgg & pstrNome
        End If
   End If
   pstrNome = Dir
Loop
'Esamina le sotto-directory
If plngCont < plngNumDir Then
    plngCont = plngCont + 1
    pstrPercorso = Directory & pstrDirectory(plngCont)
    pstrAgg = pstrDirectory(plngCont) & "\"
    GoTo Scannerizza
End If
'Cancella la struttura delle direcory
For plngNumDir = UBound(pstrDirectory) To 0 Step -1
    pstrNome = Directory & pstrDirectory(plngNumDir)
    msgbox "RmDir" & pstrNome
    'RmDir pstrNome
Next plngNumDir
End Sub
Ciao
Daniele
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        Le risposte alle tue domande le puoi trovare su:
 
http://www.murialdo.it/it_lang_vb
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Newsgroup: it.comp.lang.visual-basic
Titolo: VB Drive Corrente

Qualcuno sa indicarmi come posso fare a sapere da che drive (c:, d:
e:, ecc.) viene lanciata l'applicazione che ho creato ?
Mi spiego meglio, sto creando con VB5 un programma per l'installazione
di un CDROM, questo programma viene lanciato a mano oppure con
AUTORUN.INF, questo programma permette di creare uno shortcut sul
desktop , il piccolo problema è che punta ad un file presente sul CD,
per fare questo, mi serve sapere ce unità logica è il cd (d:, e:, f:).
Questo mi serve anche per poter lanciare con il comando shell(path,
opz.)  l'installazione di Internet Explorer.
Esiste qualche atro modo per lanciare un file oltre al comando shell ?
E' possibile con qualche API verificare su un disco la presenza di un
file (esempio l'eseguibile di Internet Explorer).
Grazie per l'aiuto, non so proprio come fare.
Saluti

...


Grazie per l'aiuto i documenti che mi hai mandato mi sono serviti, ora
ho capito un po' meglio come funzionano le API, sai non ho molta
dimistichezza con loro.
Il problema, non l'ho ancora risolto, mi potresti chiarire meglio il
funzionamento di GetLogicalDriveStrings e GetDriveType, magari con
qualche esempietto che hai in giro. Grazie
Sai ho riscritto midificandolo in alcuni punti l'esempio 
"Determine the Type of Drive Using Win32" di Microsoft che mi hai
mandato, ma per ottenere la lista dei drive devo perforza passare da
un  DriveListBox, come faccio ad ottenere la lista dei drive e come
faccio a scoprire poi la lettera a cui appartiene il CDROM.
Grazie per l'aiuto, non so proprio da che parte girarmi.
Saluti
TEO

Newsgroup: it.comp.lang.visual-basic
Titolo: + o - [OT] ! XML ha un futuro?

Salve a tutti!
Chiedo subito scusa per l'off topic a chi non è interessato a leggere questo
messaggio.
Ora ciò che volevo dire è questo: si sente parlare molto e un po'
dappertutto di xml, sulle riviste,nei libri e così via...
Ma di applicazioni pratiche io non ne ho ancora viste molte; mi spiego
meglio:
è vero che XML è 1 ottimo strumento per lo scambio e la  conversione dei
dati da un formato all'altro ma chi è che ha veramente la necessità di fare
questo genere di lavori se non una azienda di grandi dimensioni?(spa
multinazionali ecc...)
Vista l'attuale realtà lavorativa in cui mi trovo dove il mio target di
clienti sono per lo più piccole medie aziende, mi chiedo se avrò mai
l'esigenza di sviluppare applicazioni a console o per il web che utilizzino
XML... e soprattutto: nel caso mi trovassi di fronte ad un problema che può
essere risolto sia utilizzando "XML+database" e sia "SOLO DATABASE"  , cosa
è meglio? e perchè?
Spero di non avervi annoiato e di non aver scritto troppe fesserie... è un
dubbio che ho già da un po' di tempo xchè lo sviluppo d XML l'ho seguito
parecchio e a volte credo che le sue possibili applicazioni siano soltanto
possibili in aziende di grandi dimensioni.... Chissà?
Saluti a tutto il newsgroup...
Ancora scusa per l' [OT]
Marco
Newsgroup: it.comp.lang.visual-basic
Titolo: Errore di compilazione...cosa faccio?

Salve a tutti,
volevo chiedervi perchč nel nuovo progetto di vb che sto
realizzando mi si verifica un errore di compilazione che dice: Tipo
definito dall'utente non definito, e poi si posiziona nel codice
"segnandomi" la parola Database, quando dichiaro inizialmente questa
variabile!Diciamo che non la riconosce e non capisco cosa devo fare.
Non
so se mi sono spiegata, ma essendo una principiante non riesco nemmeno a
spiegarlo in un altro modo!
Ah, ho dovuto convertire il db associato a
questo mi progetto nella versione 97 di Access.
Grazie di cuore,
Bea.
--------------------------------
Inviato via 
http://usenet.iol.it

 ha scritto nel messaggio
news:213Z82Z52Z179Y...@usenet.iol.it...


Andrea
--------------------------------
Inviato via 
http://usenet.iol.it
 

ricordo.
Basta capire di che si parla:
DAO = Data Access Object
E' la libreria spesso itentificata col nome Jet di M$ (Microsoft) che serve
per accedere a DB Access.
Per accedere a DB diversi (o anche allo stesso Access) occorre invece usare
la ADO 2.1 o superiore, che però va installata a parte.
ADO = ActiveX Data Object.
Se installata la trovi sotto Riferimenti->Microsoft ActiveX Data Object 2.x
Library
Per cui, per usare un DB ti serve un motore (meglio Diesel, che costa meno)
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] funzione per sostituzione variabile

Ho questo problema:
(ad esempio)
==========================
Dim pippo as integer
Dim var1 as string
pippo=50
var1="pippo"
debug.print pippo                            'Restituisce 50
debug.print var1                              'Restituisce pippo
dubug.print QUALCOSA(var1)      'Per restituire 50
==========================
esiste una funzione in VB che permette una cosa del genere?

 wrote in message
8utttf$ko0$1...@pinco.nettuno.it...


 > dubug.print QUALCOSA(var1)      'Per restituire 50

Newsgroup: it.comp.lang.visual-basic
Titolo: Password

Come posso, in un form di imput password a mascherare la stringa che viene
digitata
con asterischi ?
Grazie
Rob
--------------------------------
Inviato via 
http://usenet.libero.it

 Rob
imposta la proprietą PASSWORDCHAR sul carattere che vuoi (se usi un
controllo TextBox)
--
byZ, doGmaI
ICQ#170836495

 digitata con asterischi ?
Guarda sull'help la proprietą PasswordChar della TextBox.
Bye, G.

 con asterischi ?
Nelle proprietà della textbox ne trovi una che si chiama "passwordchar".
Bene, lì specifichi il carattere di mascheramento, asterisco, pallino,
quello che ti pare.
Ciao

 quello che ti pare.
Scusate ma OE mi scarica i messaggi quando vuole lui, e nn ho visto le
risposte di voialtri.
Ciao

 risposte di voialtri.
Capita a tutti, no problem. Dipende da quando i vari newsserver
si scambiano il feed l'uno con l'altro. Per forzare l'aggiornamento
dal _tuo_ reader al _tuo_ server c'č sempre il tasto F5, ma se
il server non ha ancora ricevuto i post non puň farteli vedere...
Bye, G.

"rob" <sc...@iol.iy> ha scritto nel messaggio
news:151Z24Z19Z137Y1...@usenet.libero.it...

Ciao
Su le proprietą della TextBox
metti l' asterisco (*) su PasswordChar
opppure puoi anche selezionare la Form
"Finestra Accesso " del VB
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Più in Colonne in DbCombo

Ho usato spesso il VBA di access.
IN quel caso era molto semplice realizzare delle Combo che prelevavano dati
tramite query e che presentavano in maschera ad esempio ID,Descrizione,Area;
quindi si aveva visibile tutto i lrecord per fare la selezione più
opportuna.
Ora, sto provando a lavorare con VB6.
Sto usando il controllo equivalente DataCombo. Ebbene....il massimo che
riesco ad ottenere è un elenco di una sola colonna, solo quella connessa al
campo destinazione DB.
Sicuramente questo è dovuto ad un mio errore...Qualcuno può darmi una
dritta??
Grazie
Dinho

 Dinho
no, non è un tuo errore. la dbcombo di visual basic ha una sola colonna
visibile. Se ti basta l'accoppiata numero-descrizione, allora puoi usare una
normale combobox, usando la proprietà ItemData di ogni elemento per
memorizzare il suo corrispondente long.
altrimenti mi sa che devi cercare altri controlli di terze parti.
good coding!!!
-- 
Alletun
"Io lo so che accadrà. La voce sussurra nei miei pensieri di Jair, Rone,
Allanon e soprattutto nelle Mortombre.
Sussurra segreti che mi sono tenuti nascosti, nella grigia oppressione
di questo giorno e nell'oscurità caliginosa di quello che mi aspetta.
Saremo distrutti. Tutti."
Brin Ohmsford - La Canzone di Shannara - T. Brooks
Newsgroup: it.comp.lang.visual-basic
Titolo: URGENTE CERCO WINSOCK.OCX

Cerco urgentemente il file Winsock.Ocx.
So che non è un gruppo binario, quindi mandatemelo in mail per favore. Ve ne
sarò grato a vita.
Ciao!

...


>Copiare Il controllo non č pirateria, copiare la licenza invece sě!
Mi sembra ina interpretazione un pň strana,se copi il controllo e non hai la
licenza sei comunqure furi legge, č illegale pure copiare il controllo,se
non sei autorizzato a farlo,altrimenti addio copyright
Carlo



Dunque: la distribuzione degli OCX e' libera da vincoli di licenza
solo se il modulo e' destinato ad essere utilizzato a run-time... in
questo caso, i tentativi di utilizzo a design-time verrebbero
vanificati.
Si ha quindi violazione della licenza d'uso dei controlli legalmente
acquistati solo se si distribuisce *anche* il file .LIC
Jojo

>licenza sei comunqure furi legge, è illegale pure copiare il controllo,se


Newsgroup: it.comp.lang.visual-basic
Titolo: Vbasic.net 2003 va bene per i pocket PC?

Vorrei acquistare visual 
basic.net
 2003 professional, ma ho
timore di buttar soldi, per questo chiedo consigli
Si legge che Visual 
basic.net
 2003 permette di sviluppare applicazioni
per i palmari, qualcuno ha avuto un esperienza diretta?
Se si:
L'oggetto Winsock funziona bene o č un infamante colabrodo 
come in Vb embedded?
Quali vesioni permettono di sviluppare programmi per pocketPC?
Domando questo perchč, una volta acquistato occorre acquistare anche
qualche altra cosa.
Ha un emulatore per il pocketPC?
Il framework per il pocket PC si paga a parte?
Spero di aver posto domande utili anche ad altri.
Ciao
Stefano

 Il framework per il pocket PC si paga a parte?
E' gratis...
                    Ciao
                                                Allanon
--
- SPAMKILLER
 L'indirizzo delle risposte é 
itlangv...@michele.sytes.net
 LASCIATE il NOSPAM fa parte dell'indirizzo :-)
  Per superare le impostazioni di protezione antispam scrivete
  nel testo del messaggio la scritta "SPAMKILLER"
Scusate il disturbo, ma non posso più di pubblicità

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Lanciare comandi ad un'applicazione lasciandola in sottofondo

Salve a tutti,
                   attualmente uso le funzoni AppActivate e SendKeys, ma
questa combinazione mi obbliga a tenere l'applicazione destinataria in primo
piano sullo schermo. Potete consigliarmi un modo per comandare
l'applicazione dal mio programma senza pero' doverla attivare in primo
piano?
Grazie a presto

Prova ad usare il DDE...č un pochino complicato, ma alla funzia bene...una
volta ci avevo anche provato, ma ora (siccome la mia memoria č molto RAM)
non ricordo in quali meandri l'ho messa....se lo trovo te lo invio....
Un altro metodo č quello di usare Eventi personalizzati (quelli di
win)...oppure i mutex o i semafori...ma non chiedermi come, perchč non lo
so....
------------
Ciao
Sabba
Newsgroup: it.comp.lang.visual-basic
Titolo: Griglia editabile

Mi servirebbe una griglia che mi permetta di modificare/impostare il
contenuto delle celle.
Qualche consiglio?


s-grid di vbaccelerator....
www.vbaccelerator.com

 Qualche consiglio?
http://groups.google.it/groups?hl=it&lr=&th=615160f7c7600933&rnum=1
http://groups.google.it/groups?hl=it&lr=&q=griglia+editabile&meta=group%3Dit.comp.lang.visual-basic
Ave
giuseppeD
---
http://www.infomicroprogetti.it/

Newsgroup: it.comp.lang.visual-basic
Titolo: Interfaccia GPS

su layers diversi. sapete se esiste e dove lo posso trovare?
Prova al sito della ESRI (e' un'azienda che produce GIS), dovrebbero
essercidei controlli cartografici molto potenti....
... fammmi sapere, la cosa interessa anche me.
Ciao, Fabio
Il sito e' 
www.esri.com
********  ************** *****************
Attention: 
Unsolicited Email "spam" sent to this email address will result in your
system being subscribed to 10,775 Majordomo list servers.
Be forewarned that you will recieve roughly 1 gig of mail per day, or
15,000 messages per hour.
This Email address not for your advertising. You have been warned.
Think before you post!


Prova sulla rivista "Io Programmo" di questo mese, nel cd allegato c'e Map-Kit!
che dovrebbe fare al caso tuo .
Ciao, Niki.
--
Posted from 
ro...@dns.floating.net
 [212.210.121.64]
via Mailgate.ORG Server - 
http://www.mailgate.org

Newsgroup: it.comp.lang.visual-basic
Titolo: [ot] [attn. BAZ] 'tanaeva.

Bazzo.. sono stracarico di impegni, non ti sto' perculando, stasera
se non capita la 3a guerra mondiale (di rutti, peti e madonne volanti) 
bonifico.
mannajamajalamadonna (cit.)


ROTFL!!!
arrivato lungo con il mouse eh???!!!


cazzo.. anche sul NG sbagliato.. sorry.

Newsgroup: it.comp.lang.visual-basic
Titolo: Sapete aiutarmi?

Sono uno studente, interessato ad apprendere i primi rudimenti di Visual
Basic e di SQL.
Sono alla ricerca di un qualche tipo di corso (gratuito!!), un manuale,
degli appunti, un sito, un qualche cosa che mi possa essere utile allo
scopo.
C'è qualcuno disposto ad aiutarmi?
Vi ringrazio anticipatamente!
Rispondetemi a questo indirizzo 
buona...@grisnet.it

C'è qualcuno disposto ad aiutarmi?
Non te lo meriti assolutamente (in quanto del tutto OT), pero' puoi
iniziare con questo:
http://www.zuzzurello.com/computer/ferrux/

Newsgroup: it.comp.lang.visual-basic
Titolo: Gestione penna ottica con Visual Basic



Ho un problema.Qualcuno di voi sa come poter gestire una penna ottica per
la lettura dei codici a barre con Visual Basic ??

Per favore, rispondetemi vie-email , all'indirizzo 
eff...@hotmail.com



...


...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Registrazione DLL ?

Scusate ragazzi ma ai tempi di VB3 tutto cio' non c'era.
Dovendo distribuire il software ho scoperto che bisogna "registrare" delle
dll o ocx !!!
Macche' vol di ? come diavolo faccio a farlo fare in automatico sul
pacchetto di installazione ?
e poi perchè alcune si e alcune no ?
Vi ringrazio per la pazienza che avrete (se l'avrete) di spiegarmelo o dove
posso andare a leggere come.
roberto
ham...@hotmail.com


Per distribuire programmi VB devi usare "creazione guidata pacchetti di
installazione" e includere (a mano)
tutt e le DLL e/o OCX che andranno usate. Di solito il programma le vede e
le include da solo, ma
alle volte bisogna farlo a mano. Se le DLL hanno delle voci nel registro di
Window, quando queste
verranno installate, iul programma di installazione crerà queste voci
registrando quindi le tue DLL e/o OCX.
Ciao
Sergio

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] VB Access chiave primaria

In una tabella MSAccess ho due campi A e B che assieme formano la chiave
primaria di nome ID.
E' possibile accedere da VB (ADO 2.5) direttamente a tale indice oppure devo
per forza puntare ad un record fornendo il valore dei due campi A e B?
Grazie Hubert

 ha scritto nel messaggio
news:9k43t9$o0b$1...@lacerta.tiscalinet.it...

non ne sono sicurissomo ma penso la seconda che hai detto
CIAO

 ha scritto nel messaggio
news:9k43t9$o0b$1...@lacerta.tiscalinet.it...

p.es
"SELECT * FROM TABELLA WHERE A+B='001abcd'"
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: SQL Server e trigger a tempo?

Salve a tutti!
Devo realizzare per un applicazione una parte di controllo ed analisi dati e
mi piacerebbe realizzarla utilizzando i trigger.
Mentre buona parte delle problematiche riesco ad affrontarle
tranquillamente, non ho ben chiare due cose:
1) I trigger esistono anche su altri DBMS maggiori? (Oracle, mySQL)
2) Si possono creare trigger "temporizzati"? Cioe', trigger che partono ad
intervalli di tempo predefiniti invece che in seguito ad eventi di INSERT et
similia?
Oppure e' necessario l'uso del comando AT per eseguire delle stored
procedure? Nel caso, come diavolo si crea un comando AT da ADO? :-)
Eventualmente, grazie!
--------------------------------
Inviato via 
http://usenet.libero.it

similia?
Spesso i database hanno anche degli agenti che gestiscono l'esecuzione
di operazioni pianificate. Nel tuo specifico caso puoi usare l'agente
di sql server (gli farai lanciare una stored procedure, perche' in
questo caso non e' corretto parlare di trigger, ma il succo e' lo
stesso).
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: ?2 Da DAO35 a DAO36

Riposto la stessa domanda,
Dovrei aggiornare a dei clienti, un programma che usa DAO 3.5 alla ver 3.6
Ma non vorrei rifare l'installazione completa.
Volevo sapere se basta solo copiare le librerie di DAO 3.6 o devo anche
registrarle.
Alcuni di questi clienti hanno ACCESS 2000 già installato sul loro PC, altri
ACCESS 97.
Mi hanno risposto di usare copy e regsvr32, ma questo lo sapevo già.
Avrei bisognp di sapere di più.
Se devo anche registrarle, c'è un modo per copiarle e registrarle
contemporaneamente, tipo mettere tutto nella creazione guidata applicazioni
e modificare in qualche modo il setup list.
Carmelo

 ha scritto


Newsgroup: it.comp.lang.visual-basic
Titolo: Distribuzione prg

salve, volevo sapere se esiste un modo per vedere quali sono tutti i file
necessari per installare il mio prg su un altro pc.
Se eseguo il wizard dell'installazione mi ci voglio un sacco di dischetti
...
A me interesserebbe sapere quali sono i singoli file necessari al
funzionamento ...
C'e' un modo per saperlo ? Spero di essere stato abbastanza chiaro.
Grazie

 ha scritto nel messaggio news:FGfC7.7945$Qj6.6...@news.infostrada.it...


 salve, volevo sapere se esiste un modo per vedere quali sono tutti i

http://www.faberbox.com/fabertoys.asp
Faber

: 

http://www.dependencywalker.com/
Newsgroup: it.comp.lang.visual-basic
Titolo: XCHE' IL CAR. "\" DA ERRORE IN MYSQL ??

salve,
perchè un insert, update mi danno errore se inserisco o modifico campi
mettendo il carattere "\" il tipo campo e varchar dento il database
esempio se faccio un insert di questo testo "c:\appo\prova.txt" da errore
se invece faccio "c:appo prova.txt" no ???? che stranezze questo MYSQL!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 se invece faccio "c:appo prova.txt" no ???? che stranezze questo MYSQL!
RETTIFICO cosi' funziona "c:\pippo\appoprova.txt" e cosě no
"c:\appoprovapippo\" 


 "c:\appoprovapippo\" 
Prova a raddoppiare il carattere '\'.
Mi pare che MySQL il backslash indica un certo carattere speciale, se 
seguito da qualcosa.
Ad esempio \t significa tabulazione, \n significa nuova linea, e così via.
Se metti un '\' senza tenere conto di questa cosa, ovviamente MySQL 
tenterà di associare il '\' al carattere che lo segue, e non trovando 
alcun significato corretto, ti dà errore.
In genere, nei linguaggi di questo genere, il '\' viene indicato come 
'\\', quindi prova in questo modo.
Non so se sono stato abbastanza chiaro, credo proprio di no. Comunque, 
ripeto, prova a raddoppiare i backslash.
-- 
Quando noi ignoranti eravamo di più,
tutto era più bello...
(A. Celentano)

 ripeto, prova a raddoppiare i backslash.
OK GRAZIE, ora funziona raddopiandoli, solo che ho un'altro problema, non
mi funziona il LIKE nella SELECT, rompe proprio questo MYSQL!!


, rompe proprio questo MYSQL!!
No, non è MySQL ...

se invece faccio "c:appo prova.txt" no ???? che stranezze questo MYSQL!
devi metterlo doppio, perché lo vede come un carattere di escape, se
non ricordo male.
Non c'è nulla di strano, basta leggere un attimo la guida :D
Aran Banjo
-- 
web: 
www.ponchio.it
 (non aspettatevi molto)
Replay to: *[[banjo]]spamdim..@**
ponchio.it
**
"Il cul è per la gente dotta, per il villan c'è la potta"
Newsgroup: it.comp.lang.visual-basic
Titolo: Collegamento di backup telefonico

Ciao a tutti,
volevo alcune informazioni su una applicazione "di rete"...
Ho due computer collegati via wireless che distano circa 10km (con
ripetitori nel mezzo :) ), l'impianto si trova in montagna e la neve è
insidiosa.
La mia applicazione dovrebbe in caso di guasto della comunicazione
wireless, aprire un collegamento telefonico tra i due computer per
mantenere attiva la rete.
Volevo sapere se è possibile e se il cambio della via di comunicazione
è automatico o se devo cambiare route ecc...
Grazie e scusate per il cross-post
P.S. l'applicazione è in VB6.
Mauro

 è automatico o se devo cambiare route ecc...
Per quanto ne so io l'importante è che entrambi i pc siano programmati per
l'evento di caduta della connessione.
Ad esempio se cade la connessione e non viene ripristinata entro un tot di
tempo, allora:
il pc1 "chiama" il pc2 che automaticamente deve rispondere.
Ti resta solo da gestire l'eventuale cambio di ip.
Il casino semmai è fare il contrario, cioè vedere quando è nuovamente
disponibile la connessione wireless e quindi chiudere la telefonata (anche
se credo che potresti fare un semplice polling sullo stile ping/pong).
Bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Girerà su MAC......???

Buona giornata a tutti.
Desidererei sapere se un'applicazione Visual basic 4.0 (16 bit) + Access 2.0
puň girare su sistema powerbook 1400 c/133 Apple. E' possibile cioč creare
una versione per mac?
Grazie a chi vorrŕ rispondermi in privato all'e-mail: 
al...@comune.re.it


No, VB 4.0 16bit crea programmi solo per Windows 3.1 o 3.11 (a 16 bit).
Al massimo puoi farli girare in Windows 95 (32bit)
Per cui... o il MAC ha un emulatore di Windows o e' impossibile...
--
Roal Zanazzi
z...@iol.it

una versione per mac?
Ah Ah Ah Ah Ah Ah Ah Ah Ah! (risata amara)
Scusa, non ho resistito. E' solo che io ho dovuto rincunciare all'idea
di far girare un OCX da me creato in VB5 dentro IE3 per mac quindi
dubito che ci sia un modo per far girare tutta una applicazione. Forse
con un emulatore...
Ciao 
shrike

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] invalidare WM_PAINT

Ciao a tutti,
So che esiste il modo, ma non ricordo più qual è, di impedire che win
ridisegni una finestra ad ogni aggiornamento.
Esempio classico è quello di inpedire che una listbox venga continuamente
ridisegnata ad ogni additem per evitare spreco di tempo e rinfrescarla solo
alla fine.
Chi si ricorda come si fa?
Grazie

 Esempio classico č quello di inpedire che una listbox venga continuamente


ciao
Perfetto, era proprio questo.
Grazie, ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.NET] Problemi con Array

Ho creato una matrice "dim matrice(1000) as string" ho provato ad aggiungere
e a togliere e funziona perfettamente.
Avendo la necessità di caricare dei file ho editato questa riga, matrice =
Split(LoadTerzoArray(0), "¦") , mi aggiunge tutto alla perfezzione.
Il problema che l'array all'avvio del programma è di 1000 caselle dopo uno
split è caselle salvate + 1
Come posso portare il mio array a valore 1000, dopo aver splittato il tutto?
(Senza salvare 1000 caselle)
Grazie in anticipo.

 ha scritto nel messaggio
news:nY2P9.55835$Ou4.1...@twister2.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Passaggio immagini da funzione

Grazie a timothi ieri ho capito come usare una ActiveX Dll in una
applicazione, ma non riesco ancora a fare quello che mi seve.
Nel progetto ActiveX Dll dichiaro una funzione fatta cosě
Public Function PassaPic(Indice As Integer, Tipo As Integer) As Image
    Select Case Tipo
        Case 0           ' Fomr MDI
            PassaPic = Form1.Image1(Indice).Picture
    End Select
End Function
ma quando cerco di compilare mi dice che non posso dichiararla pubblica.
Insomma io sto cercando di creare una dll da dove estrarre le immagini e le
icone del mio programma e non so come dichiarare la funzione e che cosa
passare.
Grazie a tutti.
Ciao, Claudio.

 passare.
Io ho risolto facendo cosě:
Nella Dll ActiveX uso una variabile pubblica a livello di classe:
   Public BmpImage
Senza dimensionarla altrimenti non funge...
Nella mia routine che dovrebbe restiruire l'immagine faccio:
Public Sub GetImage(Indice as integer)
 BmpImage = Form1.Image1(Indice).Picture
End Sub
Quindi il programma princiaple esegue le varie chiamate:
Oggetto.GetImage n
Immagine_restituita = Oggetto.BmpImage
Non č proprio bellissima come soluzione, ma stai sicuro che funziona.
Emiliano Fiorenza.
GA2 Virtua Life Simulator 1.2
http://digilander.iol.it/galife/

Grazie mille !!
Adesso vado subito a provare...
Ciao, Claudio.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] dao, ado, access, sqlserver e clustered server

 were using older version of MDAC ?
Don't install 2.6 or higher on a clustered server machine,
il ng e' comp.lang.basic.visual.database
la risposta e' piuttosto secca. cosa combina mdac ultimo su macchine
in cluster ?
e' meglio che riveda subito la mia pianificazione ?
--
grazie in anticipo, j.

 e' meglio che riveda subito la mia pianificazione ?
http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q254321&
e un link interno che cita la frase che hai riportato:
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q239473

 [CUT]
Ciao.
Forse il problema a cui ti riferisci è quello noto come 'opportunistic
locking bug' e che è stato sollevato da Gufis alcuni mesi fa. Se è di questo
che si tratta, puoi comunque avvalerti di alcuni suggerimenti su come
aggirare il problema nel seguente documento (versione Access 2000,
all'interno trovi i link per Access 97 e 2002):
HOW TO: Keep a Jet 4.0 Database in Top Working Condition
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q300216
hth,
Stefano Sartori

 ha scritto

Newsgroup: it.comp.lang.visual-basic
Titolo: problemi con il codice!!!

Salve a tutti  e grazie a Zanna, GiuseppeD,Ottomano Nicola e Giachi che sono
stati cosě gentili a rispondermi
chiedo ancora una piccola delucidazione dal momento che ho problemi con il
codice e vorrei poterlo copiare
da un altro programma e poi trasferirlo sul mio(ad esempio copiare il codice
del comando "Apri" di un qualsiasi
programma e incollarlo sul mio pulsante "Apri" sperando vivamente che
funzioni).Questa procedura,devo ammettere
non molto corretta č possibile o no????

 non molto corretta è possibile o no????
E' possibile se hai il codice dell'altro programma :)
Per copiarlo puoi andare su un qualsiasi sito dove hanno anche il codice VB
dei programmi pubblicati e copiare la sub.
Prova ad es. sul sito comune di questo NG, di sicuro c'è qualcosa.
Ciao

 Nicola e Giachi che sono stati cosě gentili a rispondermi
Non so se te ne sei reso conto, ma ti hanno "gentilmente"
mandato a quel paese ;-)
Andrea

Newsgroup: it.comp.lang.visual-basic
Titolo: Criptare una stringa

Ciao ragazzi,
mi potreste indicare un metodo abbastanza veloce e sicuro per poter criptare 
e decriptare una stringa (password) ???
Grazie 1000 ;-) 

 criptare e decriptare una stringa (password) ???
La cosa più banale, potrebbe essere l'utilizzo della libreria CAPICOM
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/seccrypto/security/capicom_reference.asp
ed in particolare dell'oggetto EncryptedData
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/seccrypto/security/encrypteddata.asp
Altre risorse, le trovi a partire da questo link
http://www.vbi.org/Folders/index.asp?id=572
Ciao
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca
 

 criptare e decriptare una stringa (password) ???
Qualcosa di veloce, usa chiave a 64bit: 
http://www.dotnethell.it/articles/DESAlgorithm.aspx
Qualcosa di ben piů sicuro: 
http://www.dotnethell.it/articles/RijndaelAlgorithm.aspx
Bye,
P.s.: Per la memorizzazione delle password dai un occhiata anche al tipo 
SecureString.
-- 
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
Webmaster di The Total Site 4 : 
http://www.thetotalsite.it
MariokartDS Codice Amico: 532639027909 - CarmineC in MarioKartDS
"Un problema non č un problema se puň essere risolto"
Newsgroup: it.comp.lang.visual-basic
Titolo: [VBA] - Evitare la chiusura di una UserForm

Ho preparato una cartella Excel che fa partire una UserForm con l'evento 
WorkBook_Open.
Mentre in VB6 posso decidere se far apparire o meno nella barra del titolo 
la "X" di chiusura della finestra oppure posso intercettare la richiesta 
utente di chiusura con l'evento QueryUnload, in VBA sembra che manchi questa 
possibilità.
SI può evitare in qualche modo la chiusura da parte dell'utente?
-- 
Ettore Massimo Albani 

 SI può evitare in qualche modo la chiusura da parte dell'utente?
http://msdn.microsoft.com/en-us/library/aa445535(VS.60).aspx
-- 
S.


Due soluzioni.
Nella prima intercetti *chi* sta chiudendo
la UserForm. Se *la X* setti a True
il cancel. Devi(dovresti) comunque consentire
la chiusura della UserForm o da un pulsante
o da altro.
Private Sub CommandButton1_Click()
    Unload Me
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Cancel = True
    End If
End Sub
Nella seconda gli nascondi *la X*.
Da copia incollare all'inizio del modulo della UserForm,
subito sotto a Option Explicit:
Private Declare Function SetWindowLong _
    Lib "user32" _
        Alias "SetWindowLongA" ( _
        ByVal hwnd As Long, _
        ByVal nIndex As Long, _
        ByVal dwNewLong As Long) _
        As Long
Private Declare Function FindWindow _
    Lib "user32" _
        Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) _
        As Long
Private Sub UserForm_Initialize()
    SetWindowLong FindWindow( _
        vbNullString, Me.Caption), _
        -16, -
2067791744
End Sub
Anche qui un pulsante o un codice per
la chiusura, es:
Private Sub CommandButton1_Click()
    Unload Me
End Sub
-- 
---------------------------
Mauro Gamberini
http://www.riolab.org/
 

Grazie, anche se la tua risposta mi conferma che l'età sta avanzando: non mi 
ero accorto dell'esistenza dell'evento QueryClose!
-- 
Ettore Massimo Albani
"Mauro Gamberini" <maurogsc...@RIMUOVEREaliceposta.it> ha scritto nel 
messaggio news:490769f2$0$1080$4faf...@reader1.news.tin.it...
