mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Intervalli timer

Problema:
    devo far avvenire un certo evento in maniera random(compresa         tra
1 e 5 minuti). Uso un timer ma.... sorpresa!! arriva solo fino a     1
minuto.
Cosa faccio? Creo altri timer cosi' da complicarmi la vita fino
all'inverosimile?
Per quale motivo i timer arrivano solo a 1 minuto?
CiaoZ

 wrote in message
Hs2B5.40916$3R6.8...@news.infostrada.it...

E' una questione di tipi di dato; la proprieta' Interval e' di tipo "unsigned
integer" e quindi arriva fino a 65.535, che in millisec. e' appunto poco piu' di
un minuto.
Una sistema abbastanza semplice, anche se alquanto "rustico", per fare quello
che ti serve con un solo timer e':
Private Sub Form_Load()
Timer1.Interval = 60000    'intervallo di un minuto
Timer1.Tag = "1"           'inizializziamo il nostro "contatore"
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Val(Timer1.Tag) = 5 Then
    MsgBox "5 minuti"
    Timer1.Tag = "1"    'resettiamo il "contatore"
Else
    Timer1.Tag = Val(Timer1.Tag) + 1
End If
End Sub
Ciao
--
Luca Dormio
luca....@tin.it
luca....@sig-la.com





prova cosi' dopo 
aver impostato il timer a 1000


 


Private Sub Timer1_Timer()
Dim Pausa, Ini
z
io


 


    Pausa = 
300
 
    Ini
z
io = Timer  
    Do 
While Timer < Ini
z
io + 
Pausa
        
DoEvents    
    
    
Loop
   


 


 


 


  



    Loop
Questo codice, nei dintorni di mezzanotte, si impasterą miseramente.
-vibino

Newsgroup: it.comp.lang.visual-basic
Titolo: Ricevere posta con allegati

Dovrei creare un mini client di posta elettronica che scrica dei messagi con
allegati dei file zippati. (1 file solo)
Qualcuno sa darmi una mano.
(possono andarebene anche dei controlli a pagamento se non hanno costi
spropositati)
Grazie
 Pigi

allegati dei file zippati. (1 file solo)
Sito Comune
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: campi di un file

non mi picchiate subito magari aspettate un attimo...
magari avrete gia risposto 1000 volte a questo quesito ma io non ho trovato
alcun msg a cui fare riferimento.
Ho bisogno, da applicazione, di inserire in un combo box il nome di tutte le
tabelle di un database SQL o ACCESS
(prevalentemente ACCESS)
e in un secondo combo box il nome dei campi della tabella selezionata nel
cmb box precedente.
Qualcuno puņ aiutarmi?
Grazie in anticipo
MArco G.

 ha scritto

qui sotto codice dao per un mdb.
vedi tu come ottimizzarlo e/o girarlo in ado.
con ado direi che devi cercare openschema nella guida.
ciao
Option Explicit
Dim mainDb As Database
Dim td As TableDef, fld As Field, idx As Index
Private Sub cboIdx_Click()
    Dim bk
    bk = Data1.Recordset.Bookmark
    Data1.Recordset.Index = cboIdx
    Data1.Recordset.Bookmark = bk
End Sub
Private Sub cboTd_Click()
    Set td = mainDb.TableDefs(cboTd)
    cboFld.Clear: cboIdx.Clear
    For Each fld In td.Fields
        cboFld.AddItem fld.Name
    Next
    cboFld = cboFld.List(0)
    For Each idx In td.Indexes
        cboIdx.AddItem idx.Name
    Next
    cboIdx = cboIdx.List(0)
    Data1.RecordsetType = 0
    Set Data1.Recordset = mainDb.OpenRecordset(cboTd)
    Data1.Recordset.Index = cboIdx
    Data1.Refresh
End Sub
Private Sub Form_Load()
    Set mainDb = OpenDatabase(App.Path & "\Mail.mdb")
    For Each td In mainDb.TableDefs
        If Left(td.Name, 4) <> "MSys" Then
            cboTd.AddItem td.Name
        End If
    Next
'    cboTd = cboTd.List(0)
End Sub

Newsgroup: it.comp.lang.visual-basic
Titolo: count controls in forms and display names

Hi
In vb6 form there are lot of controls i want to find number of controls
in form with there caption or  names anybody have idea for that please
send.

jack ha scritto:

Count property of Controls Collection...??????
CtlNumber=Controls.Count
To findout the Caption you need to enumerate each one of them.... but
remember that
not all contolType exposed Caption property...
Dim ctl as Control
For each ctl in Me.Controls
    ' Attention to the ControlType with no Caption Property.... you
will get Error
   Debug.Print ctl.Caption
Next
@Alex
Newsgroup: it.comp.lang.visual-basic
Titolo: how to format a fllopy ?

Hi Every one
Does anyone knows how to format a flopy disk with visual basic code ?
Thanks for any help

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Brush e preview

In 
vb.net
 per stampare uso la printdocument.
Quando inserisco un colore uso brush.colore.
Come posso sostituire brush.colore con un colore che ho già in
label1.forecolor?
Grazie in anticipo

 label1.forecolor?
dim b as brush
b = new solidbrush(label1.forecolor)
' usa il pennello per quello che ti serve
b.dispose()
credo
salutoni
sergio

Newsgroup: it.comp.lang.visual-basic
Titolo: Backup File su un Server

Ciao instancabili lavoratori.....
Come da oggetto, ho questo problema:
Ho fatto un programma che al lancio di quest'ultimo fa una copia di un file
esistente e lo archivia in un'altra directory del mio PC.
Però ora devo fare la copia di questo File su un Server come mi connetto
alla Directory "C:\TEMP" di un Server????
Ho provato questo: "\\server\temp" ma non funziona anzi mi crea una cartella
Server e poi dentro una cartella Temp sul mio Hard-Disk!!!
Ringrazio chiunque vorra aiutarmi
Death[iw]

 ha scritto nel messaggio
news:8mturq$83m$1...@pegasus.tiscalinet.it...


 Server e poi dentro una cartella Temp sul mio Hard-Disk!!!
la cartella temp e' condivisa, e con i permessi necessari ?
ho appena provato (vb5):
Private Sub Command1_Click()
    Dim s
    s = InputBox("Percorso")
    If s <> "" Then File1.Path = s
    File1.Refresh
End Sub
se nell'input do' un nome valido (\\server\cartella\cartella, come vedo le
cartelle in gestione risorse), nel filebox mi da' regolarmente i file
presenti sul server.
ciao, a.

 wrote in message 8mu3hq$bkg$1...@fe2.cs.interbusiness.it...


\\Server\DiscoDelServer\Temp
Ciao.
Alfredo.
Newsgroup: it.comp.lang.visual-basic
Titolo: [FLEXGRID] Ordinamento con click su riga bloccata

ciao
come si fa ad ordinare le colonne di una flexgrid cliccando sulla prima riga
se questa è fixata?
Perchè ho notato che se clicco sulla prima riga con attributo fixedrow attivo,
lui mi restituisce i parametri della riga successiva.
Mentre io volevo eseguire l'ordinamento solo cliccando sulla riga di intestazione.
Grassie in anticipo
--
SCIRIO - 100% COMMERCIALE - 
http://scirio.altervista.org

 Grassie in anticipo
Sull'evento click del grid controlli i valori delle proprietà mouserow e
mousecol del grid.
Se mouserow ad esempio è 0 vuol dire che il click è stato fatto sulla riga
fixed.
Poi col mousecol individui la colonna e ti ricrei la stringa sql con l'order
by su quella colonna e poi aggiorni il grid.
William.

 [...]
L'evento click funziona benissimo!
Le proprietà Row e col servono per conoscere la cella attiva cioè 
selezionata!
Se vuoi la posizione dei mouse devi usare MouseCol e MouseRow che ti dicono 
proprio su che cella si trova il mouse!

 coi valori
Nella MouseUp, le X e Y ti danno la posizione del mouse quando
hai cliccato. Combinando queste info con la larghezza e altezza
delle celle puoi sapere con certezza su che riga e colonna hai
cliccato anche se č fixed.
Spero di aver capito bene il problema.
Bye, G.


eh, ma è proprio l'evento click che non funziona bene se è attivato l'attributo
fixed rows
se io clicco sulla riga delle intestazioni che è diventata in grigetto, dovrei
avere come risultato 0, invece appare 1
lo stesso se clicco sulla riga successiva, dove iniziano i valori da spostare,
ho 1
se clicco sotto ancora la numerazione prosegue
è come se la riga intestata non la cagasse
questo mi crea problemi, xchè se proprio voglio ordinare col click devo mettere
1 come valore, solo che così me lo fa anche sulla prima riga della flexgrid
coi valori
--


 è come se la riga intestata non la cagasse
Secondo me non hai letto bene il post di William e continui a usare Col e 
Row invece di MouseRow e MouseCol.
Row e Col ti danno la cella attiva cioè selezionata, che quando clicchi su 
una riga di intestazione è la prima sotto cioè la 1. MouseRow e MouseCol ti 
dicono dove hai il mouse!
A me funziona benissimo e l'ho già usato altre volte.
PS: per ordinare non dovrebbe servire rifare l'SQL: se non sbaglio basta la 
proprietà sort!
Ciao,
    Diego 


Leggi a modo... Devi usare mouserow e mousecol.
William.


accidenti, hai proprio ragione :p
scusate, ho commesso un enorme errore di distrazionez :p
ora funziona :)
un'ultima domanda sulle flex...
le colonne si possono aggiungere solo in progettazione?
grassie 1000


 grassie 1000
No, anche a runtime.
Tramite la proprietą Cols (con la S finale e mi racomando non metterci la Z
:-) ) puoi indicare quante colonne sono presenti nel grid.
E tramite FixedCols quante sono le colonne fisse.
William.


grassie 1000 :)

Newsgroup: it.comp.lang.visual-basic
Titolo: [NET]: Datetime

Ciao,
problema apparentemente semplice (
VB.NET
 2005 Express sotto winXP):
Dim miaData As Date
miaData = CDate("12.05")
miaData = System.DateTime.Parse("12.05")
Restituisce in entrambi i casi:
"Index was outside the bounds of the array."
Source: "mscorlib"
Cosa sbaglio?
Ho letto parecchi thread su Google Gruppi (su NG inglesi) ma nessuno 
dava risposte concrete.
Grazie,
Marco / iw2nzm

 Cosa sbaglio?
Boh... qui funziona perfettamente.
Che impostazioni internazionali hai per le date?
Hai per caso modificato la CurrentCulture della tua app da qualche parte?
Ciao 

 Hai per caso modificato la CurrentCulture della tua app da qualche parte?
Negativo. Anche in un progetto vuoto, con solo quella riga di codice mi 
da lo stesso errore.
Marco / iw2nzm

Newsgroup: it.comp.lang.visual-basic
Titolo: Visualizzazione parte di un form a schermo intero.

Ho la neccessità di implementare alla pressione di un tasto funzione
la visualizzazione a schermo intero di una parte di un form,
un'immagine che serve al data entry. Vorrei che alla pressione del
tasto si vedesse a schermo intero l'immagine (possibilmente senza
passare per programmi esterni) ed al rilascio il form ritornasse come
prima della pressione.
Esiste un sistema più o meno semplice per farlo senza dover lanciare
un'applicazione esterna?

 un'applicazione esterna?
Fare una form che parte maximized con una picture/image box?
Quando clicchi carichi la form passando la tua immagine, al click sulla
picture ad esempio la richiudi.
-- 
DBMS Firebird
VB6 + Ado

Newsgroup: it.comp.lang.visual-basic
Titolo: on error resume next e ritorno alla normalità

Ciao a tutti,
	ho necessità di usare il "on error resume next" per bypassare un 
eventuale errore su una funzione. Poi però devo necessariamente tornare 
alla normalità xche lo stratagemma orribile non si deve ripetere. Come 
torno alla gestione errori classica? cioè che il software si blocca dove 
va in errore? Come quando di slito accade quando non si gestisce in 
alcun modo la possibilità di errore. Va bene usare "On error go to 0"?
Grazie!

 Va bene usare "On error go to 0"?
Perchè non dovrebbe?
Lo dice anche la guida :)
-- 
Freccia@Bulldozer63 :D

 Lo dice anche la guida :)
eheheh non si sa mai... meglio chiedere che trovarsi a usare una cosa 
inesatta.
Grazie!
Newsgroup: it.comp.lang.visual-basic
Titolo: MySQL non riesco a connettermi

Ciao a tutti!
Ho installato MySQL sul mio PC e da prompt stesso 
(c:\mysql\bin\mysql.exe) riesco a vedere le tabelle che ho creato. 
Riesco ad aggiungere dati etc.
Riesco anche a fare le query da PHP.
Da VB6 però non riesco a collegarmi:
Dim Conn As New ADODB.Connection
     Conn.Provider = "MySQLProv"
     Conn.Properties("Data Source") = 
"SERVER=127.0.0.1;DB=films;UID=administrator;PWD=miapassword;PORT=3306"
     Conn.Properties("Prompt") = adPromptAlways
     Conn.Open
ma al Conn.Open mi dà l'errore:
Errore di run-time '3706';
Impossibile trovare il provider. E' possibile che non sia installato 
correttamente.
Ora, da qualche parte ho letto che devo andare nel pannello Origine dati 
(ODBC) ed aggiungere MySql agli User DSN ma non compare se faccio 
aggiungi. Che devo fare?
Thx in anticipo!
-- 
Nella vita una sola cosa è certa: se la storia ci ha insegnato qualcosa, 
è che si può uccidere chiunque.
(Michael Corleone)

Qui trovi tutte le stringhe che vuoi:
http://www.able-consulting.com/ADO_Conn.htm
Ciao, Vincenzo

 Da VB6 però non riesco a collegarmi:
Io questa la uso per connettermi ad un server MySQL sotto Linux
str_con_mysql = "DSN=<dsn>;DESC=MySQL ODBC 3.51 Driver
DSN;DATABASE=<database>;SERVER=<server>;UID=<username>;PASSWORD=<password>;P
ORT=3306;OPTION=3;STMT=;"
chiaramente tutti i parametri compresi tra  < e > li devi sostituire con i
tui dati (eliminando < e >).
Ti confermo che devi creare nei DSN di sistema una entry dove metti tutti
dati che conosci
server, database, username, password, porta e in cima alle opzioni come Data
Source Name
metti MySQL che poi sarà quello che specifichi al posto di <dsn> e vedrai
che funziona.
Ciao a presto
Stephen

Da VB6 però non riesco a collegarmi:
Io uso un procedimento DSN-less:
Dim cn as New ADODB.connection
strconnect = "Driver={MySQL ODBC 3.51 Driver};" & _
                    "Server=host.dominio;" & _
                    "Port=3306;" & _
                    "Option=131072;" & _
                    "Stmt=;" & _
                    "Database=dbase;" & _
                    "Uid=user;" & _
                    "Pwd=password"
Poi apro la connessione con un
 
cn.open strconnect
Prova e facci sapere! 
Ciao
			Cristian
Newsgroup: it.comp.lang.visual-basic
Titolo: Due messaggi su tin.it.computer.visbas

Poiché molti di voi frequentano anche tin.it.computer.visbas vi segnalo due
thread intitolati "Proprietà RecordCount" e "Immagini in VB5", autore "a".
Ho avuto la sfortuna di trovarmici anch'io dentro: vedendo una sequela di
scorrettezze e di ingiurie l'ho richiamato al rispetto delle regole di
convivenza civile e ne ho ricevuto come risposta che io sarei 'amichetto' di
Alessio (l'altro che aveva tentato un suggerimento di natura tecnica).
Propongo che nessuno risponda più a suoi messaggi. Se ritenete, fategli
sentire anche la vostra voce.
Ciao a tutti,
Domenico

A titolo informativo, č capitata una cosa simile anche su un altro NG (non
ti dico quale.. senno qualche altro ci riprova!)
Ponendo un poco di attenzione ai msgs inviati ci siamo accorti che il tipo,
pur servendosi di diversi pseudonimi, utilizzava sempre il server di IOL ed
inviava il msg originale sempre da un provider -diverso da IOL- ben
identificabile. Siamo risaliti all'Email del provider dello sciocco (usiamo
questo termine) e abbiamo mandato (per "abbiamo" intendo dire che
praticamente tutti i frequentatori del NG lo hanno fatto!) un msg di
richiesta al responsabile generale di intervenire ed interrompere la serie
di msg "scurrili ed inutili".
Sembra che abbiamo avuto successo e in un paio di giorni il tipo č
effettivamente sparito....
-- 
Ciao da MioMao!
-----------------------------------------------------------
Visita la mia CasaPagina!
http://www.digibank.it/miomao
-----------------------------------------------------------
If vorresbi reply me privatamente,
dovesbi remove la parola FINTO dallo
mio indirizzo Email - Chiaro, no?!?

Newsgroup: it.comp.lang.visual-basic
Titolo: VB è morto, W VB

 Non so come mettere il link quindi vi posto un messaggio trovato su 
it.comp.www.hosting che parla di un soft che dovrebbero usare che ditte che 
vendono domini it per registrarli al NIC in tempo reale, quindi non una cosa 
da poco.
Il programma client, liberaramente sacricabile � fatto in VB classic e usa 
un db access.
----------------
Buongiorno,
desidero segnalare lo sviluppo di un client EPP da installare su macchine 
windows (sviluppato in visual basic) che nelle nostre intenzioni dovrebbe 
risolvere il problema delle connessioni al server EPP del it NIC in modo 
semplice e rapido.
il Software � in fase di rapido sviluppo e a breve saranno presenti tutte le 
funzionalit� per il superamento dell'esame di accreditamento
Per maggiori info 
http://epp.wow.it
Saluti
---------------
-- 
Greg 


Finche' non ci sono i sorgenti, direi che la cosa non ci tange
E non ci sono
Ciao
RobertoA
Newsgroup: it.comp.lang.visual-basic
Titolo: help sull ' help....

Scusate il gioco di parole, ma ho bisogno di aiuto ...sull'aiuto....
Da ieri, quando premo il mio bel F1, mi compare la schermatina msdn come al
solito, ma in alto c'e' un puntino al posto delle immagini e se clicco sul
link mi da' errore....(proprietą o metodo non supportato dall'oggetto).
Cu fu?
Qualche impostazione html da qualche parte?
Umbe

[UZ = 
circa...@tin.it
 in cbh0o8$4jb$
1...@balena.cs.interbusiness.it
] ha
scritto:


 Scusate il gioco di parole, ma ho bisogno di aiuto ...sull'aiuto....

Prova con questo
http://support.microsoft.com/?kbid=822989

 
http://support.microsoft.com/?kbid=822989
Lupo, come al solito sei un mito......grazie a te ho risolto....
Mitico!
Umbe

Newsgroup: it.comp.lang.visual-basic
Titolo: newbie come usare la stessa form per più scopi

Salve a tutti, scusate la semplicità della domanda. Ho una form con 3 
textbox che scelgono 3 percorsi di file tramite un'altra form comune alle 
3 textbox che va a scegliere dei dati dal filesystem.
Come faccio a dire alla form comune su quale delle 3 textbox andare a 
scrivere ?
Grazie.


Ribalta la logica:
Aggiungi una property pubblica 'SelectedPath' (o quello che credi) alla form
comune, dove memorizzerai, subito prima di chiudere, il percorso
selezionato.
A questo punto sara' la finestra chiamante, non appena rientra del metodo
.Show della finestra comune (che immagino sia viasualizzata come modal), ad
aggiornare il controllo corretto leggendo la property specificata.
Due righe di codice, giusto per capire:
'Nella sezione generale della finestra comune
Private mSelectedPath As String
Public Property Get SelectedPath() As String
    SelectedPath=mSelectedPath
End Property
'in un ipotetico bottone OK sempre della form comune
Private Sub cmdOK_Click()
    mSelectedPath = <il percorso selezionato>
    Unload Me 'oppure Hide, lasciando al chiamante il compito di fare Unload
End Sub
'Nella finestra chiamante
FormComune.Show vbModal
If Len(FormComune.SelectedPath)>0 Then MsgBox "Percorso: " &
FormComune.SelectedPath
Nota che, in assoluto, questo e' il miglior sistema di passare dati tra
finestre, in quanto rende la form comune del tutto "neutra" rispetto al
resto del programma, e ti permette di riutilizzarla in uno o piu' punti, in
una o piu' applicazioni, senza dover toccare il codice.
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown
Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Reports 8.5 e ADO

Salve
sto tentando di far lavorare un report scritto con CR8 via ADO, collegato a
un Data Link File (.udl).
In design mode di Crystal Reports funziona, ma non riesco a usarlo da VB a
runtime. Qualcuno ha idea di come usare una connessione ADO/OLEDB per un
report (*.rpt), possibilmente via .udl?
Grazie molte
*C*

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

 ha scritto nel messaggio
news:9bm6ai$ptq$1...@sun250.unimi.it...


 con udl intendo un file di Data Link. Cioč un file che descrive il tipo di


 se non ti è d'aiuto cerca di spiegarmi meglio....io il collegamento lo


Newsgroup: it.comp.lang.visual-basic
Titolo: Progress bar.

Hi
    How do i add a progress bar? i have the code buti  do not have the tool
button on my toolbox.
thanks
steve

 wrote in message
news:_Cg67.1803$V5....@news1.sunsh1.vic.optushome.com.au...


Thanks kindly for the assistance
regards
steve

Newsgroup: it.comp.lang.visual-basic
Titolo: Chiudi Sessione

Mi interessa sapere come posso far spegnere il computer (PC) da
un'applicazione sviluppata con VB 4 o 5
Grazie in anticipo
Nicolò
Write at 
dot...@iname.com

Avrò postato questo msg una ventina di volte....
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Dim r As Long
r = ExitWindowsEx(*, 0&)
dove per asterisco di intende una delle costanti sopra.
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

...


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

Salve a tutti,
qualcuno sa perche' l' API GetPixel mi ritorna sempre il valore 0 (long
type)
Dim MyBmp As Picture
Dim Colori As Long
Dim X As Long
Dim Y As Long
Set MyBmp = LoadPicture("C:\test.bmp")
Colori = GetPixel(CLng(MyBmp.Handle), CLng(X), CLng(Y))
        ..
        ..
Form1.BackColor = Colori
Grazie a tutti, KarloPro

type)
Perchč gli passi l'handle alla Picture non al suo DC!
Prova cosģ:
'Devi procurarti un oggetto che abbia una proprietą hDc.
'Per non ricorrere ad altre api ti consiglio di
'Inserire una PictureBox (picture1) con Autoredraw a True.
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As
Long, ByVal y As Long) As Long
Private Sub Form_Load()
Dim MyBmp As Picture
Dim Colori As Long
Dim x As Long
Dim y As Long
Picture1.Picture = LoadPicture("C:\windows\desktop\sfondo.jpg")
Colori = GetPixel(CLng(Picture1.hdc), CLng(x), CLng(y))
Form1.BackColor = Colori
End Sub
Saluti,
    Alfredo

 Grazie a tutti, KarloPro
Domanda:
Questo "CLng(MyBmp.Handle)" lo hai scritto nel messaggio e basta o anche ne
programma ???
... così a NASO proverei a scrivere MyBmp.Hdc
... o al limite :
Dim HPic as Long
HPic=MyBmp.Hdc
Colori = GetPixel(HPic, X, Y)
Inoltre io eviterei di inserire nella chiamata CLng tanto le variabili le
hai già dichiarate di tipo Long
Ciao,Ettore

 Dim Colori As Long

Newsgroup: it.comp.lang.visual-basic
Titolo: Scusate l'ignoranza che cosa sono Thread

Buongiorno a tutti, continuo a leggere sui forum di questi Thread ma che
cosa sono in realta, dove si usano che cosa fanno. Perfavore datemi una mano
a capire.Grazie.Andrea

 wrote in message
news:9j97g5$nof$1...@lacerta.tiscalinet.it...

Vuoi il significato usenet o il significato informatico?
--
--
                         ~~ ICQ#: 8761263 ~~
           E-Mail Addy: DElyMyth [at] delymyth [dot] net
GnuPG Fingerprint: E2F5 275D A50C FF24 34C0  9A0B 956B B1E6 0FD2 917B

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

 Usa quello più semplice.Grazie
Ehm...
sono due contesti assolutamente diversi con significati assolutamente
diversi...
Comunque quello piu' semplice e' il thread delle news.
Comincia con un messaggio e prosegue con tutti i messaggi in risposta a quel
messaggio.
Rappresentato sul tuo client da una struttura ad albero...
Pero' e' un po' OT...


 ha scritto nel messaggio
news:9j97g5$nof$1...@lacerta.tiscalinet.it...

un thread in pratica è del codice che gira in contemporanea ad un altro
--
-------
sito: 
www.dadev.it
ultime: Ocx per irc testi
-------

Newsgroup: it.comp.lang.visual-basic
Titolo: Immagini trasparenti

 
Ma le immagini dentro il picturebox ... possono essere trasparenti??? O meglio pure se hanno uno sfondo... si puň fare che lo sfondo non si veda cosě che si "amalghino" con il colore della form?
Ciao Andrea
--
TiscaliNet, libero accesso ad Internet.
http://www.tiscalinet.it
-- 
Posted from 
mail-1.tiscalinet.it
 [195.130.225.147] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
news:3A40FBE4...@mail.tiscalinet.it...


> Ma le immagini dentro il picturebox ... possono essere trasparenti??? O
meglio pure se hanno uno sfondo... si puň fare che lo sfondo non si veda
cosě che si "amalghino" con il colore della form?
Una soluzione che ho trovato ora e' quella di usare un controllo image (col
picturebox non funziona) con dentro file .ICO (che come formato gestisce
anche le trasparenze)
ciao

anche con i GIF trasparenti funziona bene
---
GbC
http://gbc.homeip.net
---
Newsgroup: it.comp.lang.visual-basic
Titolo: ricerca file

Ciao.
Avrei bisogno di sapere come posso trovare tutti i file, ad esempio con
estensione.txt, all'interno di C (quindi comprese le sotto cartelle).
Api ??
Qualche funzione di VB??
Grazie a tutti

estensione.txt, all'interno di C (quindi comprese le sotto cartelle).
Se non ricordo male, ci sono degli esempi sul sito comune
(
http://www.it-lang-vb.net/
)
-- 
hth, hal

 estensione.txt, all'interno di C (quindi comprese le sotto cartelle).
Crea un progetto nuovo e incolla questo codice (occhio agli eventuali acapo
non voluti).
Siccome l'esempio si passa tutto il disco C alla ricerca di files "*.bas"
probabilmente ci metterà parecchio tempo quando lo mandi in esecuzione.
----
Option Explicit
Public Function RitornaStringaElencoFilesDaPathRicorsiva _
   (sPathdiPartenza As String, Optional sFiltro As String = "*.*") As String
   Dim sElencoDirs As String
   Dim sElencoFiles As String
   Dim aElencoDirs
   Dim sPath As String
   sPath = NormalizzaPath(sPathdiPartenza)
   Dim sNomeFile As String
   sNomeFile = Dir(NormalizzaPath(sPath) & "*.*", vbDirectory)
   Do While sNomeFile <> ""
      If sNomeFile <> "." And sNomeFile <> ".." Then
         If (GetAttr(sPath & sNomeFile) And vbDirectory) = vbDirectory Then
            If sElencoDirs <> "" Then sElencoDirs = sElencoDirs & "*"
            sElencoDirs = sElencoDirs & sNomeFile
         Else
            If UCase$(sNomeFile) Like UCase$(sFiltro) Then
               If sElencoFiles <> "" Then sElencoFiles = sElencoFiles & "*"
               sElencoFiles = sElencoFiles & sPath & sNomeFile
            End If
         End If
      End If
      sNomeFile = Dir
   Loop
   If sElencoDirs <> "" Then
      aElencoDirs = Split(sElencoDirs, "*")
      Dim x As Long
      For x = LBound(aElencoDirs) To UBound(aElencoDirs)
         If sElencoFiles <> "" Then sElencoFiles = sElencoFiles & "*"
         sElencoFiles = sElencoFiles & _
             RitornaStringaElencoFilesDaPathRicorsiva( _
                sPath & CStr(aElencoDirs(x)), sFiltro)
         sElencoFiles = Replace(sElencoFiles, "**", "*")
      Next x
   End If
   RitornaStringaElencoFilesDaPathRicorsiva = sElencoFiles
End Function
Public Function RitornaArrayElencoFilesDaPathRicorsiva( _
                sPathdiPartenza As String, _
                Optional sFiltro As String = "*.*") As String()
   Dim sElencoFiles As String
   Dim aElencoFiles
   sElencoFiles = RitornaStringaElencoFilesDaPathRicorsiva( _
             sPathdiPartenza, sFiltro)
   If sElencoFiles <> "" Then
      aElencoFiles = Split(sElencoFiles, "*")
      RitornaArrayElencoFilesDaPathRicorsiva = aElencoFiles
   End If
End Function
Function NormalizzaPath(ByVal NomeFile As String) As String
    NomeFile = Trim(NomeFile & "")
    NormalizzaPath = NomeFile & IIf(Right(NomeFile, 1) = "\", "", "\")
End Function
Private Sub Form_Load()
   Dim a As Variant
   Dim r As Long
   a = RitornaArrayElencoFilesDaPathRicorsiva("C:\", "*.bas")
   If UBound(a) > -1 Then
      MsgBox "Numfile= " & UBound(a) + 1
      For r = 0 To UBound(a)
         MsgBox a(r)
      Next
   End If
End Sub
----
Ciao
*Roby*
Newsgroup: it.comp.lang.visual-basic
Titolo: Espressione SQL su campo misto Testo e Numeri?

Ciao a tutti
utilizzo VB6 e dovrei preparare un'espressione SQL in grado di ordinarmi i 
record per il campo "REVISIONE".
Tale campo di solito contiene numeri da 0,1,2, a infinito.... ma potrebbe 
contenere anche la sigla "BZ" e per questo motivo il campo è di tipo Testo.
Vorrei che i record emessi iniziassero con i "BZ" e poi con i numeri 
0,1,2,....
Ho scritto:
Select * From ElencoDocumentiPerCliente WHERE NumPratica = " & NumPratica & 
" ORDER BY Sigla ASC, Rev ASC, Data ASC
ma ovviamente non funziona
E' possibile risolvere il problema?
P.S. Il database è un MDB.
Grazie in anticipo. 

LupoNero ha scritto:

Se hai solo "BZ" come valore non numerico puoi provare con
"ORDER BY VAL(REVISIONE)".
Ho fatto una prova veloce e sembra funzioni (ma verifica bene).
Ciao.
Nedi

Nedi
Funziona benissimo! grazie non ci avevo pensato...
scusa se ti faccio un'altro domanda, ma è l'ultimo questito in quanto ho
finito il lavoro
Ho scritto la seguente espressione SQL, che funziona bene ma....:
Select Distinct Sigla,NumPratica,TitoloDoc,Note From
ElencoDocumentiPerCliente WHERE NumPratica = '553'
Il problema sta nel fatto che anche qui "Sigla" contiene un campo composto
da testi e numeri ovvero i valori potrebbero essere:
S/1
S/2
S/3
...
...
S/10
S/11
Il problema sta nel fatto che li vorrei in ordine numerico corretto invece
viene emesso S/1, S/10, S/11..., S/2, S/3...
Esiste il modo di risolvere anche questo problema?
Grazie ancora
Ciao

LupoNero ha scritto:

Prova questo:
ORDER BY VAL(MID(Sigla,3,10))
supposto che la parte numerica del campo Sigla inizi SEMPRE al terzo
carattere.
Sostituisci al valore 10 la lunghezza massima dei dati che sono
presenti nel campo Sigla dopo la /.
Ciao

LupoNero ha scritto:

Funziona anche così:
ORDER BY VAL(MID(Sigla,3))
senza preoccuparti di specificare il terzo parametro nella funzione
MID.
Ri-ciao.
Nedi

Ho provato ma mi dice che ORDER BY VAL(MID(Sigla,3)) va in conflitto con 
DISTINCT..
Però la tua soluzione mi ha dato lo spunto corretto per correggere 
l'espressione SQL nel seguente:
Select Distinct Val(Mid(Sigla,3)),Sigla,NumPratica,TitoloDoc,Note From 
ElencoDocumentiPerCliente WHERE NumPratica = '553'
Grazie ancora!!!!
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: connettersi con una fonte ODBC client access 400

Devo connettermi con un database su AS400 da visual basic
qualcuno può indicarmi il metodo migliore (ADO,ODBCDirect,ecc..) e farmi un
esempio di stringa di connessione
Grazie a tutti
Ciao Andrea

 ha scritto nel messaggio
news:phCS5.13451$FV2.3...@news.infostrada.it...

Sbaglio o Client Access ha un DB Provider 'suo' ?
Penso che quello sia il metodo migliore ....
Se vuoi vedere la stringa di connessione con ODBC, crea un nuovo data link,
seleziona 'Microsoft OLE DB Provider For ODBC Drivers' poi il tab
Connessione, 'Usa stringa di connessione' --> Genera ...
Io di solito uso questo sistema (non ho buona memoria ...)
Ciao
Franco L.


Il sistema più veloce è fare un collegamento ad una tabella esterna
con ODBC  di CA, oppure qualsiasi altro, al file mebro su AS400. Poi
puoi fare i lavori che vuoi da codice.
(Attenzione che alcune istruzioni SQL sono velocissime, altre di una
lentezza terribile: prova a lanciare DELETE * FROM PROVA, dove PROVA
sia un file AS400 di 100.000 record!)
Se vuoi scrivere codice, ecco un esempio di connessione DAO:
Set WkODBC = DBEngine.CreateWorkspace("WkODBC", "admin", "",dbUseODBC)
sConnANCL200F = "ODBC;DNS=as400;UID=" & UserAs400 & ";PWD=" & PwdAs400
&  ";DATABASE=" & LibANCL200F
Set dbAs400 = WkODBC.OpenDatabase("as400", dbDriverCompleteRequired,
True, sConnANCL200F)
Set rsAs400 = dbAs400.OpenRecordset("ancl200f", dbOpenDynaset)
dove as400 è un DNS creato con l'ODBC manager
ErreBi

Newsgroup: it.comp.lang.visual-basic
Titolo: leggere/scrivere file mdb in RAM

Salve raga, c'e' nessuno che sà dirmi come si può fare per creare un file
MDB in RAM (non su hard disk) e quindi poterlo aprire e lavorarci tramite le
istruzioni classiche opendatabase ecc...
PS. Senza l'ausilio di DEVICE vari nel config.sys naturalmente, magari un
API sarebbe l'ideale.
Grazie mille.
ciao.

 wrote in message
news:b9l5ov$jq88i$1...@ID-168328.news.dfncis.de...


 ha scritto nel messaggio
news:YVqva.145058$K35.3...@news2.tin.it...




> Solo con .NET ?  .....non è possibile con VB6 ?
prova a vedere se intendi questo:
http://www.visual-basic.it/uploads/articoli/tecnici/ReiDBMSLess.htm
ciao,
Marco

 > Solo con .NET ?  .....non č possibile con VB6 ?


Newsgroup: it.comp.lang.visual-basic
Titolo: Data modifica file dei files del FilesListbox

E' possibile ottenere informazioni sulla data modifca dei files contenuti in
una FileListbox?
Grazie

 una FileListbox?
Non direttamente. Puoi ottenere il nome dei file e andare con quello a 
chiedere le informazioni con funzioni specifiche (FileDateTime) completando 
il nome con il path.
Stefano

Newsgroup: it.comp.lang.visual-basic
Titolo: TasckBar Come aggiungere un'ICONA?

Ciao sono Gianluca ....
Il mio problema in VB5 o VB6 è come aggiungere un'icona nella tasckbar di
windows usando codice Basic o anche le api...
Ho già provato con le api "Shell_..." ma non riesco...
Viene inserito uno spazione nella tasckbar ma non si visualizza l'icona...
Ho urgente bisogno di sapere come fare...
GRAZIE.

...

Newsgroup: it.comp.lang.visual-basic
Titolo: VBNET riempimento griglia....tempo esagerato

questo il codice utilizzato
Private Sub ScriveGriglia(ByVal table As DataTable, ByVal worker As 
BackgroundWorker, _
ByVal e As DoWorkEventArgs)
Dim i As Integer
Me.Grid.Delete(0, Grid.RowCount)
Me.Grid.SetDataBinding()
'Me.Grid.AddRows(table.Rows.Count)
For Each row As DataRow In table.Rows
Me.Grid.AddRows(1)
Me.Grid(i, "IDX") = row.Item("IDX")
Me.Grid(i, "Call") = row.Item("Call")
Me.Grid(i, "Manager") = row.Item("Manager")
Me.Grid(i, "Anno") = row.Item("Anno")
Me.Grid(i, "Indirizzo") = row.Item("Indirizzo")
i += 1
worker.ReportProgress(i)
Next
la routine utilizza il componente workerbackground, la griglia non è quella 
di microsoft ma quella dell'apex quindi differisce per quanto riguarda il 
codice ma mi sembra che circa 10 minuti per riempire 66.000 record sia un 
tempo esagerato. Da un'altra parte riempio una griglia con molti piu campi 
circa il triplo in circa 7 secondi con 3000 record. Sto sbagliando qualche 
cosa nel codice o cosa???? Il problema che il codice utilizzato è sempre lo 
stesso. Ho una progress bar per visualizzare lo stato e mentre scrivo da 
circa 10 minuti è arrivata appena a 3/4. Assurdo.


Avevo anche io un problema simile (ma con un datagridview) e Wodka40
mi disse che il mio errore era iterare (ricordo queste parole
benissimo... grazie Wodka ;D)
Non so se può essere utilizzata anche con la tua griglia, comunque io
ho risolto leggendo questi posts:
http://groups.google.it/group/it.comp.lang.visual-basic/browse_thread/thread/8d45b314a5866ceb/62b2cab939d38dc2?hl=it&lnk=st&q=Recupero+dati+con+un+datareader#62b2cab939d38dc2
ciao

 ha scritto nel messaggio 
news:48f2e363$0$1090$4faf...@reader1.news.tin.it...


 Gracias (Grazie)
Questo vuol dire che se invece di 66k record 'pescassi' a paginate la tua 
visualizzazione sarebbe istantanea
Altro che 3 secondi
Ciao
RobertoA

 
per curiostia', chi e' lo sfigato operatore che si deve visualizzare 'sta 
griglia di 66k record?
solo per sfogliarla fino in fondo, arriva alla pensione...
-- 
Paolo opg
BE AWARE that this post uses a fake reply-to address
to contact me write to:
janickg ( at ) hotmail ( dot ) com
--

 ha scritto nel messaggio 
news:Xns9B36A892...@194.177.96.78...


 ha scritto nel messaggio 
news:XB1Jk.31347$Uo5....@tornado.fastwebnet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Probabilmente qualcuno lo ha già chiesto...

...ma un aiuto sarebbe ben accetto.
E' possibile stabilire QUALI files REALMENTE servano ad una
applicazione ? Ovvero, è possibile che generando una
autocomposizione-installazione anche per un programma "piccolo", venga
sempre fuori una "bestia" da 4/5 Mb ?
Aiuto...
Wolf
L8Max(r) ...il massimo per il Lotto !
http://www.dreamlink.net/L8max
wol...@dreamlink.net
[Attenzione: indirizzo e-mail alterato per evitare spammings.
Togliere '007' per contattarmi.]
-------------------------------
Wolf è contro la TUT (Tariffa Urbana a Tempo)
Visitate e supportate 
http://notut.ml.org
 

Aiuto...
E' possibile e, per lo piů, dipende da ocx o riferimenti che sono impostati
nel progetto e magari non usati.
Una lista "ufficiosa" dei file minimi per una applicazione VB la ottieni
aprendo con un editor di testo il file "setup.lst" generato
dall'autocomposizione installazione (per un programma qualsiasi) e prendendo
nota dei file nella sezione [BootStrap] esclusi "setup1.exe" e
"VB5StKit.dll".
Ho qualche dubbio su "Ctl3d32.dll" (non credo sia indispensabile) e
"ComCat.dll" (questa invece dovresti sempre trovarla installata) ma penso
che degli altri non si possa fare a meno.
Ciao.
--
Luca Dormio
l...@ifminfomaster.com
ldo...@tin.it


Se non ti serve l'accesso ai database puoi cominciare con il togliere le
referenze a DAO,ADO, EDO, ABC, CCD, e BOT, cioè a tutto ciò che si riferisce
ai DB nel menu Referenze.
Questo ti dovrebbe risparmiare 1/1.5 MB di installazione.
Newsgroup: it.comp.lang.visual-basic
Titolo: tipo dinamico

buongiorno
in VB.Net, devo creare una funzione che, dato un oggetto in input 
(appartenente ad una qualunque classe), mandi in output un nuovo 
oggetto della stessa classe di quello di input.
Possibile?
del tipo:
Public Function OggettoStessaClasse(byref ObjInput as Object) as Object
    Dim OjbOutput as [?????????]
    [???????]
    Return ObjOutput
End Function
grazie!
Giovanni

 ha scritto nel messaggio 
news:200708021...@mynewsgate.net...

un buon sistema sono i nuovi Generics
Se devi creare una classe dato il tipo
    ' As New serve per indicare che può essere instanziata
    Public Function OggettoStessaClasse(Of T As New)() As T
        Dim ObjOutput As New T()
        Return ObjOutput
    End Function
    ' ma questa non ha molto senso perchè equivale a x = New T()
    Dim f As Form = OggettoStessaClasse(Of Form)()
Se devi elaborare la tua classe che passi
    Public Function OggettoStessaClasse(Of T As New)(ByVal originale As T) 
As T
        Dim ObjOutput As New T()
        ' ... elaborazione dall'originale
        Return ObjOutput
    End Function
    ' ma questa non ha molto senso dato che non sai che cosa vai a passare
    Dim f As Form = OggettoStessaClasse(Of Form)(Form1)
Visto che entrambe non hanno senso... a che ti serve? :)
Ciao 

 End Function
Molto probabilmente dico una str****ta, ma tu non farci troppo caso ;-)
Dim ObjType As Type = ObjInput.GetType()
Dim OjbOutput As Object = Activator.CreateInstance(ObjType)
-- 
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Saluti, VITRIOL

 
direi che invece è quello che cercavo. devo un attimo documentarmi su 
questo costrutto con l' "of" che non conosco. Grazie!!!

Newsgroup: it.comp.lang.visual-basic
Titolo: Stringa di connessione invisibile!

In una rete aziendale ho la necessita di nascondere agli sviluppatori per
motivi di privacy la stringa di connessione al db. Ovvero in qualche modo
l'eseguibile (fatto in qualsiasi linguaggio) dovrà in qualche modo ricevere
la stringa di connessione al Db senza che questa sia visibile al
programmatore o all'utente, solo l'amministratore di rete potrà conoscerla.
Qualcuno sa aiutarmi?

 programmatore o all'utente, solo l'amministratore di rete potrà
conoscerla.
una dll che restituisce una connection aperta?
(non che uno "sviluppatore" degno al 10% di tale nome non sia in grado di
leggerne la connectionstring...)
ciao
ugo

 ha scritto nel messaggio
news:bkut18$13kc$1...@stargate1.inet.it...
: In una rete aziendale ho la necessita di nascondere agli sviluppatori per

Sei molto vago.
Ad ogni modo è sufficiente criptare la stringa di connessione prima di
inviarla e, successivamente, de-criptarla all'interno della tua
applicazione.
Ciao, Luca.

 leggerne la connectionstring...)
nell'immediata:
? cn.connectionstring
:-))))
-- 
MasterDavidex
23 - 118 - RA
Bmw 4Ever
Newsgroup: it.comp.lang.visual-basic
Titolo: Urgente - Licenza Winsock

>>>
     <<<<<<<<<<<0>>>>>>>>>>>

Mi è capitata una volta una cosa simile; ho usato un metodo poco
ortodosso, e non so se raccomandarlo: ho cercato nel registro di
configurazione la stringa col nome dell' OCX, cancellandola tutte le
volte che ricorreva; poi ho reinstallato da capo il componente, e ha
funzionato.
ErreBi

Newsgroup: it.comp.lang.visual-basic
Titolo: gestire un suono

Ciao a tutti.
Espongo subito il problema.
Dovrei, in VB6, far "suonare"/"creare" un suono, con la possibilità di
modificare il volume, la frequenza, e la scelta dell'altoparlante
(left o right) da dove deve uscire il suono.
In pratica vorrei cercare di fare, in ambito casalingo, quello che si
fa quando si viene sottoposto ad un esame audiometrico.
Il medico agisce sui parametri che abbiamo visto prima per produrre
tanti suoni diversi che il paziente deve udire.
ciao e grazie
sam--


Bene: Comprati un bel libro e studia....

 tanti suoni diversi che il paziente deve udire.
Tempo fa ho affrontato la problematica dei suoni.
In fondo troverai del codice.
Per il Beep del PC devi installare WINBEEP.DLL
che potrai trovare in rete.
Con questo potrai regolare frequenza e durata ma
non l'intensit�.
Quindi secondo me ti occorrono una serie di files
Wav che riproducono dei suoni memorizati in
precedenza.
Per quanto riguarda l'altoparlante dx/sx non so
niente.
Saluti, Sauro
Declare Sub WinBeep Lib "WINBEEP.DLL" (ByVal Frequenza&, ByVal Durata&)
Declare Sub PlaySoundA Lib "winmm.dll" (ByVal Name As String, ByVal Module 
As Long, ByVal Flags As Long)
Public Sub SuonoBuono()
If Se_Esiste(App.Path & "\BUONO.WAV") Then
    PlaySoundA App.Path & "\BUONO.WAV", 0, 3
    Exit Sub
End If
'WinBeep Freq, Durata  'Freq in Hz e Durata in millisecondi
If Not Se_Esiste(Environ$("windir") & "\SYSTEM\WINBEEP.DLL") Then Exit Sub
WinBeep 950, 150
WinBeep 650, 150
WinBeep 800, 150
End Sub
Public Sub SuonoCattivo()
If Se_Esiste(App.Path & "\CATTIVO.WAV") Then
    PlaySoundA App.Path & "\CATTIVO.WAV", 0, 3
    Exit Sub
End If
'WinBeep Freq, Durata  'Freq in Hz e Durata in millisecondi
If Not Se_Esiste(Environ$("windir") & "\SYSTEM\WINBEEP.DLL") Then Exit Sub
WinBeep 900, 50
WinBeep 880, 50
WinBeep 860, 50
WinBeep 840, 50
WinBeep 820, 50
WinBeep 800, 50
WinBeep 780, 50
End Sub

 sam--



bene:
qualche titolo????
evita 'sti post che non servono a niente. :-)
sam--

non l'intensità.

Ti ringrazio per la risposta.
La WINBEEP.DLL la conosco e la uso per altri scopi, ma come
giustamente fai notare tu, manca il settaggio del volume.
Per non parlare della direzionalità del suono.
grazie comunque
sam--


qui dove????


 qui dove????
scusa, e' la seconda volta che dimentico di mettere il link in una 
risposta, evidentemente sto diventando vecchio e rin......ito
il link questo era:
http://www.flanguasco.org/VisualBasic/VisualBasic.html



wrote:

grazie
Newsgroup: it.comp.lang.visual-basic
Titolo: memorizzare password

Ciao a tutti,
nel mio programma vorrei proteggere una serie di funzioni con una password.
Come faccio a memorizzare la password in modo che l'utente possa 
cambiarla a suo piacimento?
Al momento la password è memorizzata nel codice ... ovviamente dovrei 
scriverla su un qualche file, ma non deve essere leggibile dagli utenti 
del pc.
Come si procede in questi casi?
grazie, ciao
Mauro
p.s.
La stessa cosa mi serve per memorizzare fuori dal mio programma i dati 
per l'accesso al db che l'utente "normale" non deve poter vedere ovviamente.

 Ciao a tutti,
zac
si memorizza non la password ma l'hash della password scelta dal tuo
utente!
...casomai pure "salata" (cè addirittura chi la "sala" 2
volte...esagerato!)
mai visto un forum sul web che non ti rispedisce la password ma te la
fà cambiare se la dimentichi?...è perchè non memorizza la password ma
l'hash!
Dall'hash non si risale alla password....quindi il tuo utente è al
sicuro!

 del pc.
 > Come si procede in questi casi?
Il problema non è non farla leggerla agli utenti del pc, bensì renderla 
non intelligibile.
Questo lo si ottiene criptando la stringa originale, quindi 
modificandola, per far ciò si possono utilizzare svariati metodi, da 
quelli "casalinghi" come sostituire una lettera con un'altra secondo un 
algoritmo che conosci "solo" tu, a quelli più sofisticati, cerca per 
esempio CryptoAPI su google.
ciao
stefano

Ciao Innuendo,

protected storage, usi il sistema di credentials vault del sistema 
operativo e naturalmente ci metti l'hash.
.m
-- 
Mauro Servienti
{C67C0157-5D98-4733-A75E-93CAEE4BADC8}
Microsoft MVP - Visual C# / MCTS
http://mvp.support.microsoft.com
blog @ 
http://milestone.topics.it
whynot [ at ] topics [ dot ] it

Ringrazio tutti per gli interventi, andrò a documentarmi meglio sui 
metodi che mi avete suggerito.
grazie, ciao
Mauro

 operativo e naturalmente ci metti l'hash.
ROTFL!!!
Se ti legge un principiante crede di leggere un antico testo
sumero !!!
dai traduciglielo almeno in italiano....
eh eh eh (scherzo eh!) ....

 sumero !!!
in effetti è piuttosto criptico .... ma conto molto su google & c :-)

 in effetti č piuttosto criptico .... ma conto molto su google & c :-)
Scusa ... cosa pretendi da un post dove si parla di CRIPTARE password?
un post criptico no? ;-)
ciao
stefano

 un post criptico no? ;-)
fef5a85627a288cd5290ea9ff9fb32f7  !!!
ciao
Mauro


p.s.
Se sono stato troppo criptico:
http://md5.rednoize.com/


:D

Newsgroup: it.comp.lang.visual-basic
Titolo: Sfondo Frame

Salve vorrei rendere il frame trasparente o mettergli come sfondo quello
che c'è nella form sapreste dirmi come si fa?Specifico che è
un'immagine.
Ho provato a settare la proprietà backcolor del frame a "sfondo
finestra" ma così facendo il  frame è diventato bianco.
Grazie 1000 a chi volesse rispondermi.
Claudio
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Claudio
http://groups.google.com/groups?as_q=frame%20trasparente&as_ugroup=it.comp.l
ang.visual-basic&lr=&num=50&hl=it
hth, j.
Newsgroup: it.comp.lang.visual-basic
Titolo: Comunicazioni in remoto

Ho necessità di far comunicare due computer con un programma gestionale da
me creato. si dovrebbero in sostanza passare una stringa.
Premetto che i due computer sono in due città differenti e che non è
possibile effettuare connessione telefonica (però è possibile utilizzare
internet). inoltre i due computer non hanno un ip statico, quindi non posso
neanche connettermi con l'ip. pero' ho a disposizione uno spazio web
accessibile in scrittura e lettura tramite ftp ma opterei per una soluzione
che non lo utilizzi.
entrambi i pc dovrebbero inoltre essere sempre in ascolto in caso vi sia una
chamata dall'altro programma (ad esempio il pc1 chiede al pc2 un dato di
magazzino e il pc2 risponde in automatico)
So che il problema che pongo e'  molto complicato, ma chiedo un aiuto
perche' non so proprio che pesci prendere.
Nicola "Light" Ottomano
PS ma un raduno a milano mai? :)

 magazzino e il pc2 risponde in automatico)
beh, questo con winsocket non è difficile


 ha scritto nel messaggio
news:bnbg2r$uom89$1...@ID-77234.news.uni-berlin.de...


 utilizzarlo.
non hai cambiato di molto il problema: allora tanto vale usare lo spazio web
direttamente per comunicare, tanto IN OGNI CASO dovresti andare prima là a
verificare l'indirizzo...
a meno di farlo solo se l'indirizzo non risponde.... (però magari stai
"attaccando" un altro utente che si è beccato il tuo ex-indirizzo)

 ha scritto nel messaggio
news:bnbhcu$vp1s1$1...@ID-77234.news.uni-berlin.de...


 grazie
beh... F1 (e ci sono esempi) o vai sul sito comune e cerchi winsock....

 ha scritto nel messaggio
news:bnbic0$vdh19$1...@ID-77234.news.uni-berlin.de...


 ha scritto nel messaggio
news:Dobmb.2610$gA...@tornado.fastwebnet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Come cercare record in file txt

Sto provando ad estrarre da un file txt dei campi ma sto inciampando in
complicate routine.
esiste un comando che mi permette di leggere all'interno di un file i record
che mi inressano e basta?
es.
AAA*12345*5432*0*123
BBB*3456*11212*23*0
Posso individuare il record con il nome e passare i dati a un vettore?
Quale comando mi serve per far capire che "*" divide i campi
un grazie anticipato a tutti
Paolo


wrote:

Dim aCampo() as String
Line Input #1,strRecord
aCampo=Split(strRecord,"*")
in pratica cosi otterrai che:
aCampo(0)="AAA"
aCampo(0)="12345"
aCampo(0)="5432"
aCampo(0)="0"
aCampo(0)="123"
aCampo(0)="BBB"
aCampo(0)="11212"
aCampo(0)="23"
aCampo(0)="0"
Ciao

Sto provando ad estrarre da un file txt dei campi ma sto inciampando in

Ops Errore di Cut & Paste
l'indice dell'array non e' sempre zero ovviamente :-))))
Ciao e buon lavoro!

Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda interessante

Sapete dirmi perche' quando vogliamo conoscere Recordset.recordcount
dobbiamo prima mettere necessariamente le seguenti due istruzioni:
Recordset.MoveLast
Recordset.moveFirst

 wrote in message
8ki7di$7cb$1...@news.planet.it...
