우연히 ScriptControl 이란 넘을 알게되서 테스트해봤는데 쓸만하네요...
자바스크립트에는 있는 eval() 함수가 없어 불편할 때가 간혹 있었는데,
스크립트 컨트롤을 이용하면 어느정도 eval() 함수의 효과를 볼 수 있습니다.
아래는 간단히 맛배기로 만들어본 샘플 입니다.
[실행화면]
[소스]
Private Sub Command2_Click()
On Error Resume Next
Err.Clear
ScriptControl1.Reset
ScriptControl1.AddObject "frm", Me
MsgBox ScriptControl1.Eval("frm." & Combo1.Text)
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub
Private Sub Command3_Click()
On Error Resume Next
Err.Clear
MsgBox ScriptControl1.Eval(Text3.Text)
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub