10/09/06 17:30
psycho85
Ho provato vari metodi per caricare e salvare immagini in una database access...sono partito da questa teoria:
Se per aprire un file di testo in una textbox uso il commondialog in questo modo
----------Code---------
Dim strTesto as String
CommonDialog1.ShowOpen
Open CommoDialog1.FileName For Input As #1
strTesto = Input(LOF(1), 1)
Close 1
txtTesto.Text = strTesto
-----------Code---------
Utilizzando questo code apro file di testo e li visualizzo in una text box OK!
Se invece:
----------Code---------
Dim varImmagine as Image
CommonDialog1.ShowOpen
Open CommoDialog1.FileName For Input As #1
varImmagine = Input(LOF(1), 1)
Close 1
imgImmagine.Picture = LoadPicture(varImmagine)
-----------Code---------
Precisando che: INPUT(LOF(1),1) non va sicuramente bene per le immagini ma non so che utilizzare...
Questo code può essere utilizzato se opportunamente corretto?
Se per aprire un file di testo in una textbox uso il commondialog in questo modo
----------Code---------
Dim strTesto as String
CommonDialog1.ShowOpen
Open CommoDialog1.FileName For Input As #1
strTesto = Input(LOF(1), 1)
Close 1
txtTesto.Text = strTesto
-----------Code---------
Utilizzando questo code apro file di testo e li visualizzo in una text box OK!
Se invece:
----------Code---------
Dim varImmagine as Image
CommonDialog1.ShowOpen
Open CommoDialog1.FileName For Input As #1
varImmagine = Input(LOF(1), 1)
Close 1
imgImmagine.Picture = LoadPicture(varImmagine)
-----------Code---------
Precisando che: INPUT(LOF(1),1) non va sicuramente bene per le immagini ma non so che utilizzare...
Questo code può essere utilizzato se opportunamente corretto?
aaa