Select Case Asc(Title)

Signaler
Messages postés
2
Date d'inscription
samedi 12 juillet 2008
Statut
Membre
Dernière intervention
12 juillet 2008
-
Messages postés
2
Date d'inscription
samedi 12 juillet 2008
Statut
Membre
Dernière intervention
12 juillet 2008
-
Voila j'ai un script et j'obtient une exeption ...

je veux juste savoir quel est l'équivalent de "   Select Case Asc(Title)   "

dans VB 2008 express .. ??

merci

2 réponses

Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
26
Dim LeUnicode As Short = Convert.ToInt16 ("D"c) ===>> 68Dim LeCar As Char Convert.ToChar (68)>> "D"

Maintenant : j'espère que ta variable Title est UN caractère (vrai tant sous VB6 que sous VB.Net)
Si plusieurs : la décomposer d'abord puis traiter un caractère à la sois
Messages postés
2
Date d'inscription
samedi 12 juillet 2008
Statut
Membre
Dernière intervention
12 juillet 2008

Ca ne marche pas ... je vais te donner le bout du script ... :

||||||||||||||||||||||||||||   

Dim x, x2, i
As
Integer

Dim win
As
Long

Dim t
As
String

Dim LeUnicode
As
Short = Convert.ToInt16(
"D"c)

Dim LeCar
AsChar Convert.ToChar(68)win GetForegroundWindow()

If (win = hForegroundWnd)
Then

GoTo Key

ElsehForegroundWnd = GetForegroundWindow()

t =

""GetWindowText(hForegroundWnd, t, 1000)

Select
Case Asc(t)

Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95TextBox1.Text = TextBox1.Text & vbCrLf & vbCrLf &

"[ " & tTextBox1.Text = TextBox1.Text &

" ]" & vbCrLf

End
Select

End
If

Exit
Sub

|||||||||||||||||||||||||||||||||||||||||

Maintenant je le test et il me dit :
|||||||||||||
L'exception ArgumentException n'a pas été gérée

La longueur de l'argument 'String' doit être supérieure à zéro.

|||||||||||||

Aucune solution n'est proposée ...

Qu'est-ce que je dois faire !!??!!

ps: je suis un peu débutant ...