VB 5 question
Résolu
Cpcdos
Messages postés
425
Date d'inscription
Statut
Membre
Dernière intervention
-
Cpcdos Messages postés 425 Date d'inscription Statut Membre Dernière intervention -
Cpcdos Messages postés 425 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- VB 5 question
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Glary utilities 5 - Télécharger - Nettoyage
- Tableau de combinaison loto 5/90 - Forum Logiciels
- Wifi livebox 5 mauvais - Forum Fibre Optique
9 réponses
https://codes-sources.commentcamarche.net/#2
avec la commande
If Instr(text1.text,"mot à chercher")>0 then ........
ou
If text1.text like "*mot à chercher*" then ........
pour chercher le mot dans un textebox en vb
avec la commande
If Instr(text1.text,"mot à chercher")>0 then ........
ou
If text1.text like "*mot à chercher*" then ........
pour chercher le mot dans un textebox en vb
Split(taTextbox," ") te renverra dans un tableau les mots un par un.
Perso je vois pas l'utilité de réinventer DOS en moins bien car il est encore trouvable sur le net et en émulation (DOSBox principalement et ensuite VirtualBox, plus généraliste). Un truc qui serait plus malin à faire c'est essayer de comprendre comment il fonctionne. Faut bien te dire qu'il n'y a pas que les commandes que l'utilisateur tape, y'a aussi ce qui se passe derrière (gestion de fichiers, de mémoire, etc.)
VB.NET is good ... VB6 is better !
Perso je vois pas l'utilité de réinventer DOS en moins bien car il est encore trouvable sur le net et en émulation (DOSBox principalement et ensuite VirtualBox, plus généraliste). Un truc qui serait plus malin à faire c'est essayer de comprendre comment il fonctionne. Faut bien te dire qu'il n'y a pas que les commandes que l'utilisateur tape, y'a aussi ce qui se passe derrière (gestion de fichiers, de mémoire, etc.)
VB.NET is good ... VB6 is better !
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Par exemple c'est de crée un spell checker SANS l'aide d'un autre programme (word / office..etc...)
exemple du genre :
[ps : text1 est un textebox.]
If text1.text = * *"bonjourr" * * then
msgbox "Il y a une erreur d'orthographe!"
else
msgbox "Pas d'erreurs"
end if
enfin du genre comme ça la condition pour trouver dans un textebox OU dans une variable un mot , une lettre ou des chiffres.
exemple du genre :
[ps : text1 est un textebox.]
If text1.text = * *"bonjourr" * * then
msgbox "Il y a une erreur d'orthographe!"
else
msgbox "Pas d'erreurs"
end if
enfin du genre comme ça la condition pour trouver dans un textebox OU dans une variable un mot , une lettre ou des chiffres.
C'est bon j'ai trouvé un moyen
Private Sub Form_Load()
Dim mystring, chercher, MyPos,mot
mystring = "je m'applle Favier Sébastien 01"
chercher = "Favier"
MyPos = InStr(4, mystring, chercher, 1)
MsgBox MyPos
MOT = Mid(mystring, MyPos, 6)
MsgBox MOT
End Sub
Parcontre avec
MOT = Mid(mystring, MyPos, 6)
MsgBox MOT
le msgbox m'affichera " Favier " en 6 lettres mais si je met
chercher = "Sébastien"
en haut
le msgbox m'affichera que " Sébast " car j'ai mis la valeur ' 6 ' dans
MOT = Mid(mystring, MyPos, 6)
y il a t-il un moyen pour qu'il prenne le mot entier sans mettre une valeur ?
( qu'il cherche le mot entré dans la variable chercher )
Private Sub Form_Load()
Dim mystring, chercher, MyPos,mot
mystring = "je m'applle Favier Sébastien 01"
chercher = "Favier"
MyPos = InStr(4, mystring, chercher, 1)
MsgBox MyPos
MOT = Mid(mystring, MyPos, 6)
MsgBox MOT
End Sub
Parcontre avec
MOT = Mid(mystring, MyPos, 6)
MsgBox MOT
le msgbox m'affichera " Favier " en 6 lettres mais si je met
chercher = "Sébastien"
en haut
le msgbox m'affichera que " Sébast " car j'ai mis la valeur ' 6 ' dans
MOT = Mid(mystring, MyPos, 6)
y il a t-il un moyen pour qu'il prenne le mot entier sans mettre une valeur ?
( qu'il cherche le mot entré dans la variable chercher )
En codant correctement c'est mieux :
Que veux-tu dire par sans mettre une valeur ?
Private Sub Form_Load() Dim mystring As String, chercher As String Dim myPos As Integer, mot As String mystring = "je m'applle Favier Sébastien 01" chercher = "Favier" mypos = InStr(4, mystring, chercher, 1) mot = Mid(mystring, mypos, Len(chercher)) MsgBox "Mot trouvé à la position " & mypos & vbcrlf & mot, vbInformation End Sub
Que veux-tu dire par sans mettre une valeur ?