Как к готовому проекту подключить *.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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.923 из 5
Похожие ответы