Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Caricare file testo + immagini corispondenti
Forum - Visual Basic 6 - Caricare file testo + immagini corispondenti

Avatar
rex (Normal User)
Newbie


Messaggi: 3
Iscritto: 15/07/2009

Segnala al moderatore
Postato alle 9:13
Sabato, 22/08/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

  1. Dim i As Integer
  2. Dim Filename As String
  3. Dim bmpbestand As Integer
  4. Option Explicit
  5. Private Type MyFile
  6.  
  7.  
  8. Text1  As String
  9. Text2 As String
  10. Text3 As String
  11.  
  12.  
  13.  
  14. End Type
  15.  
  16. Sub OpenFile()
  17. For i = 0 To 2
  18. CommonDialog1.Filter = "Text Files (*.txt)|*.txt|All Files|*.*|"
  19. CommonDialog1.ShowOpen
  20. Filename(i) = CommonDialog1.Filename
  21. Next i
  22. i = -1
  23. Timer1.Enabled = True
  24. End Sub
  25.  
  26.  
  27. Private Sub Command1_Click()
  28. OpenFile ' Apro i percorsi
  29.  
  30. End Sub
  31.  
  32. Private Sub Timer1_Timer()
  33. i = i + 1
  34. LoadFile 'chiam la routine loadfile
  35. If i = 2 Then i = -1
  36. End Sub
  37.  
  38. Sub LoadFile()
  39. Dim File As Long
  40. Dim Bestand As MyFile
  41. On Error Resume Next
  42. File = FreeFile
  43. Open Filename(i) For Binary Access Read As #File
  44. Get #File, , Bestand
  45. Close #File
  46.  
  47. Text1.Text = Bestand.Text1
  48. Text2.Text = Bestand.Text2
  49. Text3.Text = Bestand.Text3
  50.  
  51. ' *************************************************************
  52. bmpbestand = Left(Filename(i), InstrRevVB5(Filename(i), "."))
  53. On Error Resume Next
  54.  For i = 0 To 3
  55.   Image1(i).Picture = LoadPicture(bmpbestand & Trim(Str(i)) & ".bmp")
  56. Next
  57. ' ************************************************************
  58. 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
PM Quote
Avatar
rex (Normal User)
Newbie


Messaggi: 3
Iscritto: 15/07/2009

Segnala al moderatore
Postato alle 11:18
Lunedì, 24/08/2009
Ho risolto !
cosi
Codice sorgente - presumibilmente VB.NET

  1. bmpbestand = Left(Percorsi(i), InstrRevVB5(Percorsi(i), "."))
  2. On Error Resume Next
  3.  For q = 0 To 3
  4.   Image1(q).Picture = LoadPicture(bmpbestand & Trim(Str(q)) & ".bmp")
  5. Next



grazie per l'attenzione
rex

PM Quote