Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Eval & Vb

Eval & Vb

4 réponses
Avatar
Jeff
Salut Eval ça ne fonctionne pas sous VB ??
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ng
Salut,
Normal cette fonction n'est pas implantée dans VB...
Tu peux l'avoir en ajoutant le composant Microsoft Script Control, il te
suffit alors de mettre une instance de l'objet sur ta feuille et de faire
par exemple :
Debug.Print ScriptControl1.Eval("1+2*5+7")

Nicolas.
"Jeff" a écrit dans le message de news:
3fc93ab6$0$17108$
Salut Eval ça ne fonctionne pas sous VB ??




Avatar
Jeff
ok merci mais pourquoi ça ne fonctionne pas ??

j'ai bien le composant Script Control il s'appel Script

Private Sub Form_Load()
te = "test"
Script.Eval (te & "()")
End Sub

Function test()

MsgBox "ok"
End Function


"ng" a écrit dans le message de
news:
Salut,
Normal cette fonction n'est pas implantée dans VB...
Tu peux l'avoir en ajoutant le composant Microsoft Script Control, il te
suffit alors de mettre une instance de l'objet sur ta feuille et de faire
par exemple :
Debug.Print ScriptControl1.Eval("1+2*5+7")

Nicolas.
"Jeff" a écrit dans le message de news:
3fc93ab6$0$17108$
> Salut Eval ça ne fonctionne pas sous VB ??
>
>




Avatar
ng
Salut,

Cela peut se faire sans le script :

Private Sub Form_Load()
Debug.Print CallByName(Me, "Test", VbMethod, "ma chaine :-)")
End Sub

Public Function Test(sChaine As String) As String
Test = UCase$(sChaine)
End Function

Sinon avec le script :

Private Sub Form_Load()
Call SC.AddObject("MaForm", Me, True)
SC.AddCode "Msgbox MaForm.Test(""chaine"")"
End Sub
Public Function Test(sChaine As String) As String
Test = UCase$(sChaine)
End Function

Ou encore avec la fonction dans le script et non ds la form :

Private Sub Form_Load()
SC.AddCode "Public Function Test(sChaine)" & vbCrLf & _
"Test = UCase(sChaine)" & vbCrLf & _
"End Function" & vbCrLf

SC.AddCode "Msgbox Test(""chaine"")"
End Sub



Nicolas.

"Jeff" a écrit dans le message de news:
3fc9bf0e$0$26812$
ok merci mais pourquoi ça ne fonctionne pas ??

j'ai bien le composant Script Control il s'appel Script

Private Sub Form_Load()
te = "test"
Script.Eval (te & "()")
End Sub

Function test()

MsgBox "ok"
End Function


"ng" a écrit dans le message de
news:
> Salut,
> Normal cette fonction n'est pas implantée dans VB...
> Tu peux l'avoir en ajoutant le composant Microsoft Script Control, il te
> suffit alors de mettre une instance de l'objet sur ta feuille et de


faire
> par exemple :
> Debug.Print ScriptControl1.Eval("1+2*5+7")
>
> Nicolas.
> "Jeff" a écrit dans le message de news:
> 3fc93ab6$0$17108$
> > Salut Eval ça ne fonctionne pas sous VB ??
> >
> >
>
>




Avatar
Jeff
merci ces pilepoil ça.....


"ng" a écrit dans le message de
news:
Salut,

Cela peut se faire sans le script :

Private Sub Form_Load()
Debug.Print CallByName(Me, "Test", VbMethod, "ma chaine :-)")
End Sub

Public Function Test(sChaine As String) As String
Test = UCase$(sChaine)
End Function

Sinon avec le script :

Private Sub Form_Load()
Call SC.AddObject("MaForm", Me, True)
SC.AddCode "Msgbox MaForm.Test(""chaine"")"
End Sub
Public Function Test(sChaine As String) As String
Test = UCase$(sChaine)
End Function

Ou encore avec la fonction dans le script et non ds la form :

Private Sub Form_Load()
SC.AddCode "Public Function Test(sChaine)" & vbCrLf & _
"Test = UCase(sChaine)" & vbCrLf & _
"End Function" & vbCrLf

SC.AddCode "Msgbox Test(""chaine"")"
End Sub



Nicolas.

"Jeff" a écrit dans le message de news:
3fc9bf0e$0$26812$
> ok merci mais pourquoi ça ne fonctionne pas ??
>
> j'ai bien le composant Script Control il s'appel Script
>
> Private Sub Form_Load()
> te = "test"
> Script.Eval (te & "()")
> End Sub
>
> Function test()
>
> MsgBox "ok"
> End Function
>
>
> "ng" a écrit dans le message de
> news:
> > Salut,
> > Normal cette fonction n'est pas implantée dans VB...
> > Tu peux l'avoir en ajoutant le composant Microsoft Script Control, il


te
> > suffit alors de mettre une instance de l'objet sur ta feuille et de
faire
> > par exemple :
> > Debug.Print ScriptControl1.Eval("1+2*5+7")
> >
> > Nicolas.
> > "Jeff" a écrit dans le message de news:
> > 3fc93ab6$0$17108$
> > > Salut Eval ça ne fonctionne pas sous VB ??
> > >
> > >
> >
> >
>
>