1 自己写程序,直接进入菜单栏的属性窗口改成英文就可以了。2 如果你说的是清空一张数据库表的所有记录,用下面的 SQL 命令:Select 编号 Into 临时表 From 你的表 Delete From 你的表 Insert Into 你的表 Select 编号 From 临时表 Drop Table 临时表
1 自己写程序,直接进入菜单栏的属性窗口改成英文就可以了。 2 如果你说的是清空一张数据库表的所有记录,用下面的 SQL 命令: Select 编号 Into 临时表 From 你的表 Delete From 你的表 Insert Into 你的表 Select 编号 From 临时表 Drop Table 临时表
如果只有两种文字,就不需要资源文件。假如你的菜单项的名称是 mnuHelp 和 mnuExit,写一段代码:Private Sub Command1_Click() mnuHelp.Caption = "Help" mnuExit.Caption = "Exit" End Sub
菜单本身也是一个控件,直接改Caption就行了.
Private Sub language_Click() If language.Caption = "语言" Then files.Caption = "File" language.Caption = "Language" Else files.Caption = "文件" language.Caption = "语言" End If End Sub '向窗体加入两个菜单项language和files,files和languaeg对象的标题中英文切换通过代码实现。
自己写程序,直接进入菜单栏的属性窗口改成英文就可以了。2
如果你说的是清空一张数据库表的所有记录,用下面的 SQL 命令:Select 编号 Into 临时表 From 你的表
Delete From 你的表
Insert Into 你的表 Select 编号 From 临时表
Drop Table 临时表
自己写程序,直接进入菜单栏的属性窗口改成英文就可以了。 2
如果你说的是清空一张数据库表的所有记录,用下面的 SQL 命令: Select 编号 Into 临时表 From 你的表
Delete From 你的表
Insert Into 你的表 Select 编号 From 临时表
Drop Table 临时表
如果只有两种文字,就不需要资源文件。假如你的菜单项的名称是 mnuHelp 和 mnuExit,写一段代码:Private Sub Command1_Click()
mnuHelp.Caption = "Help"
mnuExit.Caption = "Exit"
End Sub
If language.Caption = "语言" Then
files.Caption = "File"
language.Caption = "Language"
Else
files.Caption = "文件"
language.Caption = "语言"
End If
End Sub
'向窗体加入两个菜单项language和files,files和languaeg对象的标题中英文切换通过代码实现。