Probleme visual basic if Fermé

Question

Bonjour,

J'ai un petit probleme sur
Je voudrais mettre
time activé (sa c'est ok)
aller chercher la valeur interval dans "cmdvaleur".text (sa c'est ok)

 time.Enabled = True
        time.Interval = cmdvaleur.Text

La est la partie ou je bloque
Je voudrais mettre
Si il n'y a rien dans "cmdvaleur".text alors mettre automatiquement l'interval 100

        If time.Interval <> cmdvaleur.Text Then
            Val(100)

Si vous pouvez m'aider merci

ghuysmans99 · Answer

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)

napster94700 · Answer

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 :/

napster94700 · Answer

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 ... ?

Probleme visual basic if

3 réponses

Discussions similaires