Attribute VB_Name = "MainMod" Global Const LISTVIEW_MODE0 = "大きいアイコン" Global Const LISTVIEW_MODE1 = "小さいアイコン" Global Const LISTVIEW_MODE2 = "一覧" Global Const LISTVIEW_MODE3 = "詳細" Public fMainForm As frmMain Sub Main() Set fMainForm = New frmMain fMainForm.Show End Sub Sub LoadResStrings(frm As Form) On Error Resume Next Dim ctl As Control Dim obj As Object Dim fnt As Object Dim sCtlType As String Dim nVal As Integer 'フォームのキャプションを設定します。 frm.Caption = LoadResString(CInt(frm.Tag)) 'フォントを設定します。 Set fnt = frm.Font fnt.Name = LoadResString(20) fnt.Size = CInt(LoadResString(21)) 'メニュー項目では Caption プロパティを、その他の 'すべてのコントロールでは Tag プロパティを使用して 'コントロールのキャプションを設定します。 For Each ctl In frm.Controls Set ctl.Font = fnt sCtlType = TypeName(ctl) If sCtlType = "Label" Then ctl.Caption = LoadResString(CInt(ctl.Tag)) ElseIf sCtlType = "Menu" Then ctl.Caption = LoadResString(CInt(ctl.Caption)) ElseIf sCtlType = "TabStrip" Then For Each obj In ctl.Tabs obj.Caption = LoadResString(CInt(obj.Tag)) obj.ToolTipText = LoadResString(CInt(obj.ToolTipText)) Next ElseIf sCtlType = "Toolbar" Then For Each obj In ctl.Buttons obj.ToolTipText = LoadResString(CInt(obj.ToolTipText)) Next ElseIf sCtlType = "ListView" Then For Each obj In ctl.ColumnHeaders obj.Text = LoadResString(CInt(obj.Tag)) Next Else nVal = 0 nVal = Val(ctl.Tag) If nVal > 0 Then ctl.Caption = LoadResString(nVal) nVal = 0 nVal = Val(ctl.ToolTipText) If nVal > 0 Then ctl.ToolTipText = LoadResString(nVal) End If Next End Sub