Création d'une barre de progression dans Visual Basic dans la barre de titre

FONTE ZOOM:
La barre de titre se traduit souvent par un parent pauvre. Pour une barre de progression qui apparaît uniquement lorsque cela est nécessaire, et que ce serait un endroit utile. Seulement Visual Basic est réticent à admettre quoi que ce soit, sauf texte. Vous apprenez une astuce comment vous pouvez toujours créer une sorte de bar. Une barre de progression d'un genre particulier

Pour afficher une barre, nous utilisons simplement un art ASCII, qui est, nous montons un faisceau de lettres et de caractères spéciaux. Sur le clavier, nous trouvons la clé pour le personnage et le caractère |. Ce signe est disponible en appuyant sur la touche Alt Gr et la touche <. Cette ligne verticale que nous utilisons comme un élément graphique.

Voici le code pour un programme d'exemple:

Private Sub Form_Load

Dim i As Integer

J Dim As Long

Me.Visible = True

DoEvents

Pour i = 0 à 200

Me.Caption = "exemple de programme:" & Format & cordes

Pour j = 0 To 200000

DoEvents

Suivant j

Ensuite, je ai

Me.Caption = "OK"

End Sub

Et voici une brève explication du programme:

Private Sub Form_Load

En charge de la forme que nous lançons le programme, donc nous ne avons pas besoin d'un bouton.

Dim i As Integer

Ce est le compteur de boucle pour la barre.

J Dim As Long

Ce est le compteur de boucle pour l'attente, de sorte que vous pouvez regarder la barre seul.

Me.Visible = True

Depuis nous lançons le programme dans la partie de charge, nous devons passer la fenêtre manuellement.

DoEvents

Attendre l'apparition de la fenêtre.

Pour i = 0 à 200

Le bar sera composé de 201 éléments. Cela nous donne suffisamment de temps pour observer la poutre.

Me.Caption = "exemple de programme:" & Format & cordes

Me.Caption indique le texte souhaité dans la barre de titre.

"Exemple de programme" est seulement un texte explicatif pour l'utilisateur. Ici, le "Load" ou "Enregistrer" ou "pourraient calculer courir" ou sont par ailleurs quelque chose d'intelligent.

Format affiche la valeur du compteur de boucle en tant que nombre à trois chiffres.

Chaîne construit la barre réelle. Cette commande est la fois i | caractère dans une rangée. I a la valeur 5 comme le résultat devrait ressembler à ceci: |||||.

Pour j = 0 To 200000

DoEvents

Suivant j

Ces trois lignes consomment juste le temps pour que la barre est visible.

Ensuite, je ai

Suivant poutres se il vous plaît

Me.Caption = "OK"

Ne oubliez pas, la barre ne est plus nécessaire et peut être supprimé. Juste un texte plus ou moins significative est sortie. Si ce programme est utilisé extraits universelle, fait sens pour mettre en cache le contenu de Me.Caption puis écrire de nouveau. Quelque chose comme ceci:

Dim tw as String

ZW = Me.Caption

...

Me.Caption = ZW

End Sub

C'est tout. Un petit programme d'économie des ressources.

VOIR AUSSI:
  1.  
  2.  
  3.  
Sans commentaires

Laisser un commentaire

Code De Sécurité