A voir également:
- DEFI !!! : Evaluer le contenu d'une variable à l'exécution
- Defi : une vrai ancre en javascript ! ✓ - Forum Javascript / DHTML
- DEFI AUX PROGRAMEUR : Set..=nothing automatique - Forum Visual Basic
- Petit défi : trouver les valeurs propres d'une matrice 10X10 - Forum Visual Basic 6
- Défi => Qui saurait faire un lecteur tout simple de vidéos Bink (fichiers *.bik) - Forum Visual Basic
1 réponse
>> c'est tres simple
1-va dans projet, composant, ajoute le composant Microsoft script control
2-ajoute ce composant dans ta feuille
3- tu peux l'utiliser (exemple)
Private Sub Command1_Click()
Dim toto
Dim ret
toto = essai("he ben voila")
ret = ScriptControl1.Eval(toto)
End Sub
Function essai(charBien)
If MsgBox(charBien, vbExclamation & vbOKCancel) = vbCancel Then
'...
End If
End Function
1-va dans projet, composant, ajoute le composant Microsoft script control
2-ajoute ce composant dans ta feuille
3- tu peux l'utiliser (exemple)
Private Sub Command1_Click()
Dim toto
Dim ret
toto = essai("he ben voila")
ret = ScriptControl1.Eval(toto)
End Sub
Function essai(charBien)
If MsgBox(charBien, vbExclamation & vbOKCancel) = vbCancel Then
'...
End If
End Function
