[ TUVGM ] - Caractère +1 / -1

Bonjour,

Effectivement, un super "select case", c'est plutôt mauvais comme
solution.

Allez, j'ai codé un rapide algorithme ultra complexe :) :

Tout tiens dans la fonction suivante :

'*****************************
Public Function ShiftCar(Caractere As String, nbCar As Integer) As String
ShiftCar = Chr(Asc(Caractere) + nbCar)
End Function
'*****************************

Et voici un exemple d'utilisation :

'*****************************
Private Sub Command1_Click()
Dim car As String

'On décale de 3 caractères vers la droite
car = ShiftCar("A", 3)

MsgBox car

'On décale de 1 caractère vers la gauche
car = ShiftCar("D", -1)

MsgBox car
End Sub
'*****************************

Bye,

--
David Rousset
Microsoft France
--------------------
Merci de bien vouloir répondre à ce message dans le newsgroup où il a été
posté. Je le consulte régulièrement.


"The Ultimate Video Game Museum" <tuvgm@online.fr> wrote in message
news:3f38afe3$0$281$626a54ce@news.free.fr...

Est-ce que quelqu'un a la connaissance d'une fonction permettant d'ajouter
+1 ou -1 à un caractère. C'est pas évident à exprimer alors voici un code
totalement imaginaire pour illustrer :

Char = C
Char + 1 = D
Char - 1 = B

Je veux en fait changer un caractère en le remplaçant par le précédent ou

le

suivant selon la touche d'un contrôleur pressé. J'ai déjà un code existant
mais il est digne d'un débutant puisque c'est un "select case" avec une
bonne 40aine de "case".

Topper

Webmastering, webdesign des sites :
The Ultimate Video Game Museum : http://www.TUVGM.com/
TUVGM Live Playing ! : http://www.TUVGM.com/liveplaying/
FreeDO France : http://www.TUVGM.com/freedo/