Tipp 0190 Mehrsprachige Anwendungen erstellen
Autor/Einsender:
Datum:
  Michael Werner
19.01.2002
Entwicklungsumgebung:   VB 6
Dieser Tipp zeigt, wie man eine Anwendung mit Hilfe eines Ressourcen-Dateien mehrsprachig gestalten kann. Beim Entwurf der Oberfläche wird für alle Controls und auch für die Forms, deren Beschriftung mehrsprachig sein soll, die Tag-Eigenschaft auf einen eindeutigen Wert festgelegt. Anhand dieses Wertes wird dann die Caption-Eigenschaft durch einen String aus der Ressourcen-Tabelle ersetzt.
Im Ressourcen-Editor wird eine String-Tabelle angelegt. Wichtig ist hier die Vergabe der Value-Eigenschaft für die einzelnen Einträge. Jede Sprache beginnt mit einem neuen Wert (z. B. Deutsch = 100, Englisch = 200). Die einzelnen Strings erhalten dann jeweils den Wert (Value), der in der Tag-Eigenschaft des jeweiligen Steuerelements festgelegt wurde (z. B. Command1 Tag-Eigenschaft = 1, entsprechender Wert in der String-Tabelle 101, "Beenden" bzw. 201, "Exit".
 
Option Explicit

Dim MsgboxText As String

Private Sub Form_Load()
  Sprich "deutsch"
  Picture1.Picture = LoadResPicture(301, vbResIcon)
  Me.Icon = Picture1.Picture
End Sub

Private Sub Sprich(Sprache As String)
  Dim f As Form
  Dim c As Control
  Dim s As Integer

  Select Case Sprache
    Case "deutsch"
      s = 100
    Case "englisch"
      s = 200
  End Select

  For Each f In Forms
    If f.Tag <> "" Then _
          f.Caption = LoadResString(CInt(f.Tag) + s)
    For Each c In f.Controls
      If c.Tag <> "" Then _
            c.Caption = LoadResString(CInt(c.Tag) + s)
    Next c
  Next f

  MsgboxText = LoadResString(8 + s)
End Sub

Private Sub Option1_Click(Index As Integer)
  Select Case Index
    Case 0
      Sprich "deutsch"
      Picture1.Picture = LoadResPicture(301, vbResIcon)
    Case 1
      Sprich "englisch"
      Picture1.Picture = LoadResPicture(302, vbResIcon)
  End Select
  Me.Icon = Picture1.Picture
End Sub

Private Sub Picture1_Click()
  MsgBox MsgboxText, vbInformation, "Copyright © VB-fun.de"
End Sub
 
Weitere Links zum Thema
Ressourcen-Datei entladen
Ressourcen-Dateien verwenden

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (3,6 kB) Downloads bisher: [ 2131 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Dienstag, 9. August 2011