You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
77 lines
2.0 KiB
77 lines
2.0 KiB
Attribute VB_Name = "modLoadRes"
|
|
' 这个过程将加载与控件相关的资源字符串到窗体
|
|
' 这个窗体基于存储在控件Tag 属性中的资源ID 。
|
|
|
|
' 正如下面，资源字符串将被加入到控件的属性中：
|
|
' Object Property
|
|
' Form Caption
|
|
' Menu Caption
|
|
' TabStrip Caption, ToolTipText
|
|
' Toolbar ToolTipText
|
|
' ListView ColumnHeader.Text
|
|
|
|
Sub LoadResStrings(frm As Form)
|
|
On Error Resume Next
|
|
|
|
Dim ctl As Control
|
|
Dim obj As Object
|
|
|
|
'设置窗体的标题
|
|
If IsNumeric(frm.Tag) Then
|
|
frm.Caption = LoadResString(CInt(frm.Tag))
|
|
End If
|
|
|
|
'设置控件的标题,对于菜单项使用 caption
|
|
'属性对于其他控件使用 Tag 属性
|
|
For Each ctl In frm.Controls
|
|
Err.Clear
|
|
If TypeName(ctl) = "Menu" Then
|
|
If IsNumeric(ctl.Caption) Then
|
|
If Err = 0 Then
|
|
ctl.Caption = LoadResString(CInt(ctl.Caption))
|
|
End If
|
|
End If
|
|
ElseIf TypeName(ctl) = "TabStrip" Then
|
|
For Each obj In ctl.Tabs
|
|
Err.Clear
|
|
If IsNumeric(obj.Tag) Then
|
|
obj.Caption = LoadResString(CInt(obj.Tag))
|
|
End If
|
|
'选中提示
|
|
If IsNumeric(obj.ToolTipText) Then
|
|
If Err = 0 Then
|
|
obj.ToolTipText = LoadResString(CInt(obj.ToolTipText))
|
|
End If
|
|
End If
|
|
Next
|
|
ElseIf TypeName(ctl) = "Toolbar" Then
|
|
For Each obj In ctl.Buttons
|
|
Err.Clear
|
|
If IsNumeric(obj.Tag) Then
|
|
obj.ToolTipText = LoadResString(CInt(obj.Tag))
|
|
End If
|
|
Next
|
|
ElseIf TypeName(ctl) = "ListView" Then
|
|
For Each obj In ctl.ColumnHeaders
|
|
Err.Clear
|
|
If IsNumeric(obj.Tag) Then
|
|
obj.Text = LoadResString(CInt(obj.Tag))
|
|
End If
|
|
Next
|
|
Else
|
|
If IsNumeric(ctl.Tag) Then
|
|
If Err = 0 Then
|
|
ctl.Caption = LoadResString(CInt(ctl.Tag))
|
|
End If
|
|
End If
|
|
'选中提示
|
|
If IsNumeric(ctl.ToolTipText) Then
|
|
If Err = 0 Then
|
|
ctl.ToolTipText = LoadResString(CInt(ctl.ToolTipText))
|
|
End If
|
|
End If
|
|
End If
|
|
Next
|
|
|
|
End Sub
|