A voir également:
- Probleme visual basic if
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
3 réponses
1) Time est une fonction du langage, qui renvoie l'heure. Nomme donc ton objet tmr, par exemple.
2) Faudrait que tu comprennes ce que tu codes ! Ce que tu nous présentes n'a aucun sens.
3) T'a convention de nommage (et tes noms) n'a aucun sens : cmd c'est pour les boutons, txt pour les textbox, ...
'Dans un module mod_Textbox
Option Explicit
Private Const ES_NUMBER = &H2000&
Private Const GWL_STYLE As Long = -16
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Sub RestrictTextboxToNumbers(txt As TextBox)
SetWindowLong txt.hwnd, GWL_STYLE, GetWindowLong(txt.hwnd, GWL_STYLE) Or ES_NUMBER
End Sub
'Dans Form_Load
RestrictTextboxToNumbers txtInterval
'Bouton ou tout ce que tu veux
tmr.Enabled = True
If Me.txtInterval.Text = "" Then tmr.Interval = 100 Else tmr.Interval = CInt(Me.txtInterval.Text)
2) Faudrait que tu comprennes ce que tu codes ! Ce que tu nous présentes n'a aucun sens.
3) T'a convention de nommage (et tes noms) n'a aucun sens : cmd c'est pour les boutons, txt pour les textbox, ...
'Dans un module mod_Textbox
Option Explicit
Private Const ES_NUMBER = &H2000&
Private Const GWL_STYLE As Long = -16
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Sub RestrictTextboxToNumbers(txt As TextBox)
SetWindowLong txt.hwnd, GWL_STYLE, GetWindowLong(txt.hwnd, GWL_STYLE) Or ES_NUMBER
End Sub
'Dans Form_Load
RestrictTextboxToNumbers txtInterval
'Bouton ou tout ce que tu veux
tmr.Enabled = True
If Me.txtInterval.Text = "" Then tmr.Interval = 100 Else tmr.Interval = CInt(Me.txtInterval.Text)
Dsl je débute vraiment merci beacoup
"'Dans Form_Load
RestrictTextboxToNumbers txtInterval "
Cela veut dire que la seule et unique chose dans la textbox poura etre de l'alpha c'est sa ?
'Dans un module mod_Textbox"
j'ai rien compris aux commandes, c'est une commande de base défini a la base ou c'est toi qui doit la rajouter ?
"'Bouton ou tout ce que tu veux
tmr.Enabled = True
If Me.txtInterval.Text = "" Then tmr.Interval = 100 Else tmr.Interval = CInt(Me.txtInterval.Text)"
Cela veut dire que le timer est activé et que
si interval.text n'a rien dedans, alors l'interval du temps = 100
Else tmr.Interval = CInt(Me.txtInterval.Text) sa je ne comprend pas
Dsl sa doit etre un peu pénible et simple pour toi mais la je débute et je me pose plein de question alors quand je ne trouve pas tout seul ou dans des cours je poste :/
"'Dans Form_Load
RestrictTextboxToNumbers txtInterval "
Cela veut dire que la seule et unique chose dans la textbox poura etre de l'alpha c'est sa ?
'Dans un module mod_Textbox"
j'ai rien compris aux commandes, c'est une commande de base défini a la base ou c'est toi qui doit la rajouter ?
"'Bouton ou tout ce que tu veux
tmr.Enabled = True
If Me.txtInterval.Text = "" Then tmr.Interval = 100 Else tmr.Interval = CInt(Me.txtInterval.Text)"
Cela veut dire que le timer est activé et que
si interval.text n'a rien dedans, alors l'interval du temps = 100
Else tmr.Interval = CInt(Me.txtInterval.Text) sa je ne comprend pas
Dsl sa doit etre un peu pénible et simple pour toi mais la je débute et je me pose plein de question alors quand je ne trouve pas tout seul ou dans des cours je poste :/
Quand je dis dans un module mod_Textbox, je veux dire que tu dois :
- Créer un nouveau module
- Changer son nom : mettre mod_Textbox
Le timer est toujours activé.
Si le textbox = "" => l'interval est mis à 100.
Sinon l'interval c'est la valeur du textbox (string) convertie en entier (Convert into Integer)
- Créer un nouveau module
- Changer son nom : mettre mod_Textbox
Le timer est toujours activé.
Si le textbox = "" => l'interval est mis à 100.
Sinon l'interval c'est la valeur du textbox (string) convertie en entier (Convert into Integer)
J'ai réussi merci beacoup
Tu peux me donner des conseils au niveau de l'appellation
Par exemple toi tu les appelle comment le bouton 1, le 2, le 3 ... ?
Tu peux me donner des conseils au niveau de l'appellation
Par exemple toi tu les appelle comment le bouton 1, le 2, le 3 ... ?
