在每个需要切换的窗体都定义个ShowFormPublic Sub ShowForm() MenuName.Caption = LoadResString(CurrentLanguage + 295) end public 执行 Dim frm As Form For Each frm In Forms frm.ShowForm Next
在每个需要切换的窗体都定义个ShowForm Public Sub ShowForm() MenuName.Caption = LoadResString(CurrentLanguage + 295) end public 执行 Dim frm As Form For Each frm In Forms frm.ShowForm Next
MenuName.Caption = LoadResString(CurrentLanguage + 295)
end public
执行
Dim frm As Form
For Each frm In Forms
frm.ShowForm
Next
MenuName.Caption = LoadResString(CurrentLanguage + 295)
end public
执行
Dim frm As Form
For Each frm In Forms
frm.ShowForm
Next
end public 有错误?