Как к готовому проекту подключить *.res файл? - VB
Формулировка задачи:
Привет всем. Кто может подсказать, что надо что бы к готовому проекту подключить *.res файл? Я его сделал, добавил в проект, менюхи обозвал соответственно (ID номер строки в *.res файле), а он не хочет понимать
Решение задачи: «Как к готовому проекту подключить *.res файл?»
textual
Листинг программы
Sub LoadResourceStrings(frm As Form) Dim ctl As Control, obj As Object, nVal As Integer On Error Resume Next nVal = Val(frm.Caption) If nVal > 0 Then frm.Caption = LoadResString(nVal) End If For Each ctl In frm.Controls Set ctl.Font = frm.Font nVal = 0 Select Case TypeName(ctl) Case 'ComboBox' nVal = Val(ctl.ToolTipText) If nVal > 0 Then ctl.ToolTipText = LoadResString(nVal) End If Case 'Menu' nVal = Val(ctl.Caption) If nVal > 0 Then ctl.Caption = LoadResString(nVal) End If Case 'TabStrip' For Each obj In ctl.Tabs nVal = 0 nVal = Val(obj.Caption) If nVal > 0 Then obj.Caption = LoadResString(nVal) End If nVal = 0 nVal = Val(obj.ToolTipText) If nVal > 0 Then obj.ToolTipText = LoadResString(nVal) End If Next Case 'Toolbar' For Each obj In ctl.Buttons nVal = 0 nVal = Val(obj.Caption) If nVal > 0 Then obj.Caption = LoadResString(nVal) End If nVal = 0 nVal = Val(obj.ToolTipText) If nVal > 0 Then obj.ToolTipText = LoadResString(nVal) End If Next Case 'ListView' nVal = 0 nVal = Val(ctl.ToolTipText) If nVal > 0 Then ctl.ToolTipText = LoadResString(nVal) End If For Each obj In ctl.ColumnHeaders nVal = 0 nVal = Val(obj.Text) If nVal > 0 Then obj.Text = LoadResString(nVal) End If Next Case Else nVal = Val(ctl.Caption) If nVal > 0 Then ctl.Caption = LoadResString(nVal) End If nVal = 0 nVal = Val(ctl.ToolTipText) If nVal > 0 Then ctl.ToolTipText = LoadResString(nVal) End If End Select Next ctl Err.Clear End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д