Dim m_Module As MSScriptControlCtl.Module Private Sub Form_Load() ' Create a new module Set m_Module = ScriptControl1.Modules.Add("Module 1") ' Define some constant m_Module.AddCode "Const Base =100" ' Declare a Variable m_Module.AddCode "Private HRA" ' Set it's default value m_Module.ExecuteStatement "HRA=0" End Sub Private Sub Command1_Click() ' Execute the statemente for ex : HRA = Base *0.2 m_Module.ExecuteStatement Text1.Text ' Put the result in textbox 2 Text2.Text = m_Module.Eval("HRA") End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question