title image


Smiley Ich würds so lösen !
Hi !Du brauchst in jeder Form eine SubPrivate Sub TextInitialize()In dieser Sub wird die jeweilige Sprache in alle Captions, Messagebocen usw geladen.In dieser FormPrivate Sub TextInitialize()Label1.Caption = ModulLanguage.GetText ("strAusgewählteSprache", "Label1Caption")Label2.Caption = ModulLanguage.GetText("strAusgewählteSprache", "Label2Caption)...End SubJetzt brauchst du natürlich noch die Sub GetText im Modul ModulLanguagePublic Function GetText(Language as string, Textbaustein as string)Select Case Language Case "deutsch" select case Textbastein case "Label1Caption" GetText = "Beenden" case "Label2Caption" GetText = "Starten" end select Case "englisch" select case Textbastein case "Label1Caption" GetText = "end" case "Label2Caption" GetText = "start" end select End SelctEnd FunctionDieses Modul kannst du entweder schreiben (viel Aufwand, ist aber gut wenn sich später nicht allzuviel ändert, und wenn du nicht 10000 Formen hast), oder generieren. Dabei musst du dir alle Sprachen und deren Texte in eine DB schreiben, und dann mit einem VB Programm automatisch ein ein .bas file mit den ganzen cases ... schreiben. (Schau dir mal ein .bas in einem Texteditor an, ist ganz simpel !!)Wennst noch Fragen hast, dann meld dich einfach nochmal !MfG Viagrababy

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: