rex (Normal User)
Newbie
Messaggi: 3
Iscritto: 15/07/2009
|
Buongiorno
Qualche settimana fa avevo un problema di apertura in successione di textfiles diversi.
Avevo chiesto a destra e sinistra un aiuto (anche qui). Finalmente
ultimamente, impegnandomi al massimo, sono riuscito a risolvere il problema iniziale.
Per poi rendere piu interessante il tutto ho deciso di aggiungere una parte nuova..
Cioé, ho aggiunto ad ogni file testo tre immagini.
Quindi io salvo prima un file testo comprendente 3 textbox+3 immagini.
per caricare quindi in successione il tutto.
i vari filetesto e contemporaneamente le corrispondenti immagini,
Diciamo che ci sono quasi riuscito. C'é uno sbaglio di impostazione variabili che non riesco a
trovare nella sezione di caricamento immagini.
Non chiedo quindi nesun codice completo , in quanto quello che ho funziona quasi del tutto a meeraviglia.
L'unico neo é la parte di caricamento immagini contemporaneamente ai textbox
Puo qualcuno aiutarmi a trovare dove sbaglio ?E suggerirmi naturalmente la giusta impostazione.
Il punto incriminato eé racchiuso tra stelline
Ecco tutto il codice, ripeto,(quasi) funzionante;
Codice sorgente - presumibilmente VB.NET |
Dim i As Integer Dim Filename As String Dim bmpbestand As Integer Option Explicit Private Type MyFile Text1 As String Text2 As String Text3 As String End Type Sub OpenFile() For i = 0 To 2 CommonDialog1.Filter = "Text Files (*.txt)|*.txt|All Files|*.*|" CommonDialog1.ShowOpen Filename(i) = CommonDialog1.Filename Next i i = -1 Timer1.Enabled = True End Sub Private Sub Command1_Click() OpenFile ' Apro i percorsi End Sub Private Sub Timer1_Timer() i = i + 1 LoadFile 'chiam la routine loadfile If i = 2 Then i = -1 End Sub Sub LoadFile() Dim Bestand As MyFile On Error Resume Next Open Filename(i) For Binary Access Read As #File Get #File, , Bestand Close #File Text1.Text = Bestand.Text1 Text2.Text = Bestand.Text2 Text3.Text = Bestand.Text3 ' ************************************************************* bmpbestand = Left(Filename(i), InstrRevVB5(Filename(i), ".")) On Error Resume Next For i = 0 To 3 Image1(i).Picture = LoadPicture(bmpbestand & Trim(Str(i)) & ".bmp") Next ' ************************************************************ End Sub
|
nb.
nel codice si fa riferimento ad una funzione che ho omesso per non mettere troppo codice.
grazie
rex
Ultima modifica effettuata da rex il 22/08/2009 alle 9:14 |