以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于修改界面语言  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80219)

--  作者:xinqingok
--  发布时间:2016/1/18 20:15:00
--  [求助]关于修改界面语言
如图,请问这里的确定与取消能改成英文么

图片点击可在新窗口打开查看此主题相关图片如下:1234.jpg
图片点击可在新窗口打开查看
望解签,感谢

--  作者:大红袍
--  发布时间:2016/1/18 20:29:00
--  

做一个计划,写如下代码

 

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

 


--  作者:xinqingok
--  发布时间:2016/1/18 20:56:00
--  可以
感谢
--  作者:xinqingok
--  发布时间:2016/1/18 22:00:00
--  再次求助
现在需要修改系统自带“添加多行”“确认删除”对话框中按钮与文字为英文,按您之前教我的
If frm.Name = "hb" Then
中hb应改为多少?

图片点击可在新窗口打开查看此主题相关图片如下:23.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:45.jpg
图片点击可在新窗口打开查看

谢谢

--  作者:大红袍
--  发布时间:2016/1/18 22:41:00
--  

增加行的

 

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


--  作者:大红袍
--  发布时间:2016/1/18 22:43:00
--  

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

 

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