VB高手请入内,答对还有分!!

来源：百度知道 编辑：UC知道 时间：2024/05/22 23:44:44
在VB中,建立一个text入框,再建一个command控件,如何使text框中输入的now()函数,在label控件中显示出函数返回的日期格式,而不是文本"now()"
在点击command控件后,使label的caption显示时间.

两种方法:

一. 在command1点击事件中加入语句: if text1.text="now()" then label1.caption=now()

二. 在VB里点"工程"->"部件", 在"控件"选项卡里选取"Microsoft Script Control 1.0", 然后确定. 在工具箱找到ScriptControl控件, 添加到窗体中, 再添加一个TextBox, 一个Command, 一个Label. 然后加入如下代码:

Private Sub Command1_Click()
Dim s As String
s = "function RunThis()" & vbCrLf & "RunThis=" & Text1.Text & vbCrLf & "end function"
ScriptControl1.AddCode s
Label1.Caption = ScriptControl1.Run("RunThis")
End Sub

此后你可以在text1中输入任何表达式, 包括 now, time, date, 5+4-1, msgbox "Hello!", 执行结果都会在label1显示出来.

在点command控件时判断他是不是输入的是now()啊,如果是那么把label控件给他现在的时间不就行了?

路过看看