主题：[求助]关于修改界面语言

做一个计划，写如下代码

Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    If frm.Name = "hb" Then
        frm.controls("Button1").Text = "OK"
        frm.controls("Button2").Text = "Cancel"
    End If
End If

http://www.foxtable.com/help/topics/0657.htm

增加行的

Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    'output.show(frm.name)
    If frm.Name = "hb" Then
        frm.controls("Button1").Text = "OK"
        frm.controls("Button2").Text = "Cancel"
    End If
    If frm.name = "frmInputInteger" Then
        frm.controls("Button1").Text = "OK"
        frm.controls("Button2").Text = "Cancel"
    End If
    'For Each o As object In frm.controls
    'output.show(o.name)
    'Next
End If

至于那些msgbox的提示，你把区域改成英文即可。

http://jingyan.baidu.com/article/4b52d70273a0dafc5c774bbc.html