做一个计划,写如下代码
Dim frm = Windows.Forms.Form.ActiveFormIf frm IsNot Nothing Then If frm.Name = "hb" Then frm.controls("Button1").Text = "OK" frm.controls("Button2").Text = "Cancel" End IfEnd If
http://www.foxtable.com/help/topics/0657.htm