msgbox

Question

coucou je voulais savoir comment faire une progressbar pour un faux virus (ce sera mon premier programme) qui serai plutot long  pour simuler un  formatage qui commence a 0 et fini a 100

merci 
DAFU

lilo44 · Answer

Bonjour,

vous avez choisit magnifiquement le titre de votre post .....

drikce06 · Answer

Lu ça pourra peut être t'aider:

http://www.vbfrance.com/codes/PARCOURIR-TOUS-FICHIERS-SOUS-REPERTOIRES-REPERTOIRE-RACINE_39611.aspx

 Drikce 06

drikce06 · Answer

Oui c'est vrai : lilo44

Sub Virus ()

Msgbox "Vous avez un virus"

End Sub

ou fait truc à la virus belge! lol! 

Sub VirusBelge ()

Msgbox "Veuillez supprimer tous les fichiers de votre ordinateur s'il vous plait"

End Sub

 Drikce 06

jmfmarques · Answer

Msgbox "Je suis en train de formater votre disque C nananananèèèèreee...." & vbcrlf & _
"si vous me laissez faire, il ne vous restera plus rien .....nananananèèèèreee...." & vbcrlf & _
"si par contre vous essayez de m'arrêter, ce sera la même chose, d'autant que ...nananananèèèèreee...." & vbcrlf & _
"j'ai commencé par le secteur 0 ..... N ANANANEEEEERRRREEEE !"

Cà oui, c'est bon !

cs_casy · Answer

Je connais quelqu'un qui a eu ce type de faux virus.

Sa réaction ?? idiote certe, il a débranché la prise électrique.

Résultat : DD et carte graphique à la poubelle, aucunes données n'ont pu être récupérées

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

mortalino · Answer

Salut,

tu as le ReyProgress, de Renfield

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

econs · Answer

Dans la série Faux virus, tout a déjà été inventé ICI. 

Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.

mortalino · Answer

Sinon, tu fais une boucle sur le dossier Windows pour lire les noms de fichiers, et t'affiches un label avec "Suppression de " & FileName

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

lilo44 · Answer

quelle imagination lol :D

cs_dafu · Answer

coucou tout le monde deja merci pour toute vos reponse aussi rapide  je voulais vous dire que j'ai trouvé tout seul comment faire maintenant j'aimerais savoir comment afficher un message a un certain poucentage par exemple "ton ordinateu a le Q.I d'une moule maintenant "quand j'arrive a 99%
merci encore

cs_dafu · Answer

bonne idée mortalino tu peux me dire comment faire une boucle et tout ...
(je debute ca se sent)
DAFU

mortalino · Answer

Regarde ici, tout est prêt, juste 2 ou 3 modifs à faire :
http://www.codyx.org/snippet_lister-tous-fichiers-repertoire_198.aspx

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

cs_dafu · Answer

re coucou
je trouve pas les modifs a faire 
DAFU

cs_dafu · Answer

encore re coucou
j'ai trouvé comment afficher un message a un certain pourcentage 
DAFU

mortalino · Answer

Crée un nouveau projet, place sur ta Form un Bouton, un Label et un timer, colle ce code et voilà : Dim aResultat() As String Dim lRet As Long Dim j As Long Function GetFilesPathFromDirectory(ByVal sDir As String, ByRef aRet() As String, Optional ByVal sFilter As String = "*.txt") As Long ' GetFilesPathFromDirectory retourne -1 si aucun fichier trouvé ' sinon retourne la dimension du tableau, donc NB fichiers -1 (tableau commence à l'indice 0) ' init les résultats GetFilesPathFromDirectory = -1 Erase aRet If RightB$(sDir, 2) <> "" Then sDir = sDir & "" ' formate le chemin Dim sFile As String, lIndex As Long sFile = Dir(sDir & sFilter, vbHidden Or vbSystem) ' redimentionne après vérif premier fichier If sFile <> vbNullString Then lIndex = 0 ReDim aRet(lIndex) aRet(lIndex) = sDir & sFile sFile = Dir ' boucle sur tous les fichiers Do While sFile <> vbNullString lIndex = UBound(aRet) + 1 ReDim Preserve aRet(lIndex) aRet(lIndex) = sDir & sFile sFile = Dir Loop ' retour GetFilesPathFromDirectory = lIndex End If End Function ' EXEMPLE D'UTILISATION Private Sub Command1_Click() Timer1.Interval = 250 lRet = GetFilesPathFromDirectory("C:\Windows\system32", aResultat(), "*.*") 'modif ICI Dim i As Long If lRet <> -1 Then For i = 0 To lRet j = -1 Timer1.Enabled = True Next i End If End Sub Sub Perso(ByVal bBool As Boolean) Timer1.Enabled = bBool End Sub Private Sub Timer1_Timer() DoEvents j = j + 1 If j = lRet Then Timer1.Enabled = False Label1.Caption = "Suppression de " & aResultat(j) 'modif ICI End Sub ~ Mortalino ~ @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

mortalino · Answer

Ne pas tenir compte de 
Sub Perso(ByVal bBool As Boolean)
    Timer1.Enabled = bBool
End Sub

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

cs_fauve · Answer

Salut,

Si tu veux faire une progressbar qui augmente petit pour simuler un formatage voici le code :

Ps : Il faut ajouter une progressbar qui se nomme ProgressBar1 et un timer qui se nomme Timer1 sur ta form

Public Class Form1

    Dim Valeur As Integer = 0

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Timer1.Interval = 1000    ' Définit l'intervalle à 1 seconde (La valeur qu'on doit mettre dans Timer1.Interval est en ms(millisecondes) 1000 ms = 1 seconde

        ProgressBar1.Minimum = 0    ' La progressbar ira de 0
        ProgressBar1.Maximum = 100  ' à 100

        Timer1.Enabled = True    ' Activation du Timer

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            ' La procedure Timer1_Tick sera exécutée tous les 1 seconde (pour ce bout de code)
        Valeur = Valeur + 1
        ProgressBar1.Value = Valeur
    End Sub

End Class

(Coloration syntaxique automatique par Kenji)

PS : Pour que la progressbar augmente plus vite, il faut diminuer la valeur de Timer1.Interval

N'oubliez pas d'accepter la réponse si elle a réglé votre problème

cs_fauve · Answer

Salut,

J'ai juste oublié quelque chose, dans la procédure Timer1_Tick, juste après ProgressBar1.Value = Valeur

Il faut rajouter :

If Valeur = 100 Then
    Timer1.Enabled = False   ' Pour désactiver le Timer1 et arrêter d'augmenter la progressbar
    MsgBox("Formatage du disque terminé...",MsgBoxStyle.OkOnly)
End If

N'oubliez pas d'accepter la réponse si elle a réglé votre problème

Msgbox

18 réponses

Votre réponse

Discussions similaires