Probleme visual basic if

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
Configuration: Windows XP
Firefox 3.5

3 réponses

  1. Contributeur
    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)
    0
    1. 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 :/
      0
      1. Contributeur
        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)
        0
    2. 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 ... ?
      0
      1. Contributeur
        On ne nomme pas les boutons en fonction d'un numéro, on les nommes en fonctions de leur action.
        Par exemple, si tu as un formulaire de logon, tu as 2 labels (lblUser,lblPass), 2 champs (txtUser,txtPass) et un bouton que tu nommeras naturellement cmdLogon.
        0