Bug affichage

Question

Bonjour
Lorsque je lance mon programme pour télécharger un fichier:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Dim Direct
Private Sub Command1_Click()
Dim errcode As Long
errcode = URLDownloadToFile(0, "ftp://ftp2.nec-computers.com/BOOT_CD/NEC_BOOT_CD.zip", Direct &amp; "\NEC_BOOT_CD.zip", 0, 0)
Label1.Caption = "Fini"
End Sub
Public Sub form_load()
 If Dir("C:\U65XS65C", vbDirectory) = vbNullString Then
  MkDir "C:\U65XS65C"
  Direct = "C:\U65XS65C"
Else
MsgBox "Supprimer l'ancien fichier Boot cd?", vbYesNo, "Dossier Existant déjà!"
 If vbYes Then
  Kill ("C:\U65XS65C\*.*")
  RmDir ("C:\U65XS65C")
  MkDir "C:\U65XS65C"
Else
 Form1.Show
 End If
  End If
End Sub

à chaque fois que  je veux faire quelquechose pendant ce temps le pc rame, il y a des bugs d'affichages...
Comment résoudre ce problème? 
Merci d'avance de vos réponses





<hr />

Si ce que tu vas dire n'est pas plus beau que le silence alors tais-toi.

victor110 · Answer

Les deux application se supperposent
aider moi s'il vous plait
Si ce que tu vas dire n'est pas plus beau que le silence alors tais-toi.

Bug affichage

1 réponse

Votre réponse

Discussions similaires