Discussion :

[Xsat1]

Bonjour à tous, ça fait 5 mois que j'apprends visual basic 6, c'est génial et j'aimerais votre aide à propos d'un petit prog que je développe chez moi (totalement useless mais ça me permettra d'en apprendre plus en dehors du cours).
Mes questions sont dont:

- Comment insérer un lien hypertext dans une msgbox? (l'idée est que quand un utilisateur clique sur le bouton, il y a du texte et un lien hypertexte qui envoie sur une page web que j'ai développé).

- Quand l'utilisateur entre son nom dans une textbox, que TOUT les caractères se mettent en minuscule, j'y arrive plus trop à m'en souvenir, j'ai déjà ça pour le moment:

ElseIf Text1 = LCase("alex") Then

et j'aimerais aussi que quand l'utilisateur entre alex, alexandre, Alexandre, ça soit intégré comme ceci

ElseIf Text1 = LCase("alex") OR Alexandre OR Alex Then

sauf que je ne sais plus ce qu'il faut mettre entre pour que ça soit valide ...


Merci de votre aide

[ProgElecT]

Bienvenue sur DVP

Pour le 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 64 And KeyAscii < 91 Then ' KeyAscii 65 à 90 = les MAJs
  'les transformes en minuscule en y ajoutant 32 puisque le decalage
  'MAJ ==> min et de 32
  KeyAscii = KeyAscii + 32
End If
End Sub

Pas compris le 2

[Xsat1]

Bienvenue sur DVP

Pour le 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 64 And KeyAscii < 91 Then ' KeyAscii 65 à 90 = les MAJs
  'les transformes en minuscule en y ajoutant 32 puisque le decalage
  'MAJ ==> min et de 32
  KeyAscii = KeyAscii + 32
End If
End Sub

Pas compris le 2

Merci !

au fait, pour la question 2 je m'exprime un peu mal ..

ElseIf Text1 = LCase("aless") Then
MsgBox ("***")

ElseIf Text1 = LCase("alessandro") Then
MsgBox ("***")

ElseIf Text1 = LCase("Aless") Then
MsgBox ("***")

je veux juste réunir toute les possibilités du prénom Alessandro en une seule ligne dans mon Elseif Text1 = ("nom + nom1 + nom2")

j'espère avoir été plus clair

[SfJ5Rpw8]

Tu n'utilises pas le "LCase" .. au bon endroit .. utilise le plutôt pour la partie variable de ton équation et non pas la fixe ...
cela diminuera le nombre de possibilités à tester

[Xsat1]

Tu n'utilise pas le "LCase" .. au bon endroit .. utilise le plutôt pour la partie variable de ton équation et non pas la fixe ...
cela diminuera le nombre de possibilités à tester

mais maintenant que j'y pense, comme j'ai utilisé la commande de progelect:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 64 And KeyAscii < 91 Then ' KeyAscii 65 à 90 = les MAJs
'les transformes en minuscule en y ajoutant 32 puisque le decalage
'MAJ ==> min et de 32
KeyAscii = KeyAscii + 32
End If
End Sub

je n'ai plus besoin des LCase dans mon code, juste à savoir comment mettre les 3 noms sur UNE seule ligne

[SfJ5Rpw8]

ben deux possibilités tu met les 3 noms :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if Text1="alex" or Text1="alexandre" or text1="alexandro" then

ou avec like

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if Text1 like "alex*"  then

[Xsat1]

ben deux possibilités tu met les 3 noms :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if Text1="alex" or Text1="alexandre" or text1="alexandro" then

ou avec like

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if Text1 like "alex*"  then

ha je ne connaissais pas du tout avec un LIKE, ça marche super
merci!

si j'ai une autre question, je dois refaire un autre topic ou je peux la poster ici? (en rapport avec un lien hypertext dans une msgbox ..)

[SfJ5Rpw8]

si j'ai une autre question, je dois refaire un autre topic ou je peux la poster ici? (en rapport avec un lien hypertext dans une msgbox ..)

nouveau topic .. nouveau titre ... puis clic sur le bouton ici en bas de cette discussion

[Xsat1]

no soucis, et merci !