Deux procédures pour un seul bouton & un seul testBox

Bonjour
Le code suivant permet de rentrée que du numérique dans mon textbox et
ressortir un String.
Mais comment faire pour pouvoir en plus aussi rentrée un String et
ressortir un string, tout en utilisant le même bouton ?(c'est à dire avoir
les deux options disponibles).
Merci de toute bonne volonté.Ci- dessous le code open source de microsoft
VB2005betaExpress.

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim players() As String = {"Dan", "Kevin", "Bart", "Charles", _
"Scott", "Juan", "Tim", "Marcus", "Dick"}
Dim i As Integer = CInt(TextBox1.Text)
MsgBox("N°" & i & ": " & players(i) & " is on first base.")
End Sub
End Class

--
Quand les programmes auront une intuition les hommes cesseront de
programmer.C'est l'air des machines ?
éviter de leur donner des pieds et encore moins des ailes.

Salut -*+=-,-...............

Je t'ai écrit ce bout de code :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim ok As Boolean = False
Dim i As Integer
Dim players() As String = {"Dan", "Kevin", "Bart", "Charles", _
"Scott", "Juan", "Tim", "Marcus", "Dick"}

If IsNumeric(TextBox1.Text) Then
i = CInt(TextBox1.Text)
If i >= 0 And i < players.Length Then ok = True
Else
For j As Integer = 0 To players.Length - 1
If players(j).Equals(TextBox1.Text) Then
ok = True
i = j
Exit For
End If
Next
End If

If ok Then
MsgBox("N°" & i & ": " & players(i) & " is on first base.")
Else
MsgBox("Erreur !!!")
End If
End Sub

Tiens moi au courant si ca n'a rien à voir avec ce que tu demandais.

a+

--
fmillox


"-*+=-,-*-=+*+=+,-++=-ou+||" a écrit :

> Bonjour
> Le code suivant permet de rentrée que du numérique dans mon textbox et
> ressortir un String.
> Mais comment faire pour pouvoir en plus aussi rentrée un String et
> ressortir un string, tout en utilisant le même bouton ?(c'est à dire avoir
> les deux options disponibles).
> Merci de toute bonne volonté.Ci- dessous le code open source de microsoft
> VB2005betaExpress.
>
> Public Class Form1
>
> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles Button1.Click
> Dim players() As String = {"Dan", "Kevin", "Bart", "Charles", _
> "Scott", "Juan", "Tim", "Marcus", "Dick"}
> Dim i As Integer = CInt(TextBox1.Text)
> MsgBox("N°" & i & ": " & players(i) & " is on first base.")
> End Sub
> End Class
>
> --
> Quand les programmes auront une intuition les hommes cesseront de
> programmer.C'est l'air des machines ?
> éviter de leur donner des pieds et encore moins des ailes.