Votre question

[vb6] problème : mon programme se plante :(

Tags :
  • Programme
Dernière réponse : dans Programmation
13 Mai 2013 23:43:39

salut à tous ,
mon programme se plante lorsque je choisi un fichier je sais pas pourquoi
voilà mon code :
  1. Private Sub Form_Load()
  2. Dim a As String
  3. Dim b As String
  4. With CommonDialog1
  5. .Filter = "*.exe | *.exe"
  6. .ShowOpen
  7. End With
  8. Open CommonDialog1.FileName For Binary As #1
  9. a = Space(LOF(1))
  10. Get #1, , a
  11. Close #1
  12. b = ""
  13. For i = 1 To Len(a)
  14. b = b & Mid(a, i, 1)
  15. Next i
  16. Open App.Path & "\n.exe" For Binary As #1
  17. Put #1, , b
  18. Close #1
  19.  
  20. End Sub


note: j'ai fai cette instruction juste pour savoir est ce que vb6 accepte de séparer les caractère ou non parce que aprés , j'en ai besoin pour les exploiter dans un tableau :
  1. b = ""
  2. For i = 1 To Len(a)
  3. b = b & Mid(a, i, 1)
  4. Next i


merci d'avance

Autres pages sur : vb6 probleme programme plante

14 Mai 2013 10:37:24

A quel endroit il plante ? Quelle erreur ?
14 Mai 2013 14:47:03

j'ai fait un debug avec des Breakpoint , j'ai trouvé le problème est dans cette ligne
  1. For i = 1 To Len(a)
  2. b = b & Mid(a, i, 1)
  3. Next i

note: j'ai déja déclarer la variable "Dim i as long" pour éviter les problème mais il se plante
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS