---

Hej NG.
Er der nogle der kender en function som "Eval" fra JS...?

Hilsen Mathias

---

> Er der nogle der kender en function som "Eval" fra JS...?

hmm... dynamisk eksekvering af kode
til VBScript eller VB?. det skulle da lige være RegExp eller Eval hvis det
er til VBScript.
ellers kan jeg ikke komme på noget.

hvad skal du bruge det til?

- patrick

---

"Patrick Hayes" <patrick@NotAValidAddress.dk> wrote in
news:2p0fb.498$Kv.5813@news000.worldonline.dk:

>> Er der nogle der kender en function som "Eval" fra JS...?
> RegExp eller Eval
Virker ikke...

> hvad skal du bruge det til?
F.eks. åbning af MDIForm childs:

--- Code Start ---
Sub OpenChild(FormToLoad As Form)
Eval "Dim frmD" & FormToLoad & " As " & FormToLoad
Eval "Set frmD" & FormToLoad & " = New " & FormToLoad
Eval "frmD" & FormToLoad & ".Show"
End Sub
--- Code End -----

Istedetfor

--- Code Start ---
Public Sub LoadForm(FormToLoad As String)
Select Case FormToLoad
Case "fTime"
Dim frmDfTime As fTime
Set frmDfTime = New fTime
frmDfTime.Show
Case "fDate"
Dim frmDfDate As fDate
Set frmDfDate = New fDate
frmDfDate.Show
Case Else
MsgBox "Woops jeg ved ikke hvad jeg skal gøre nu..."
End Select
End Sub
--- Code End -----

Hilsen Mathias

---

"Mathias" <mathias@nonne.tld> skrev i en meddelelse
news:Xns9409AC72A7F935q738hgq@212.54.64.134...
> "Patrick Hayes" <patrick@NotAValidAddress.dk> wrote in
> news:2p0fb.498$Kv.5813@news000.worldonline.dk:
>
> >> Er der nogle der kender en function som "Eval" fra JS...?
> > RegExp eller Eval
> Virker ikke...
>
> > hvad skal du bruge det til?
> F.eks. åbning af MDIForm childs:
>
> --- Code Start ---
> Sub OpenChild(FormToLoad As Form)
> Eval "Dim frmD" & FormToLoad & " As " & FormToLoad
> Eval "Set frmD" & FormToLoad & " = New " & FormToLoad
> Eval "frmD" & FormToLoad & ".Show"
> End Sub
> --- Code End -----

Noget ligende kan gøres ved at bruge Reflection f.eks. i Java eller
VB.NET/C#. Glem alt om at gøre det med "gammeldags" VB.

ON/Fjern sneglen fra min svaradresse

---

> --- Code Start ---
> Sub OpenChild(FormToLoad As Form)
> Eval "Dim frmD" & FormToLoad & " As " & FormToLoad
> Eval "Set frmD" & FormToLoad & " = New " & FormToLoad
> Eval "frmD" & FormToLoad & ".Show"
> End Sub
> --- Code End -----

i det ovenstående får du også brug for noget lignende :

> Case Else
> MsgBox "Woops jeg ved ikke hvad jeg skal gøre nu..."
> End Select
>

ellers får du en runtime error.

og så kan du lige så godt bruge det andet eksempel.

- patrick