vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Ordnung halten 
Autor: Dr.Evil
Datum: 16.04.04 23:52
Also ich hab hier folgenden Code: 
    'Namen Auslesen
    person1.Caption = ReadSetting("Person1", "Name", App.Path & "\Liste.ini", _
      iString)
    g1_ps1.Caption = ReadSetting("Getränke", "Getränk1", App.Path & _
    "\Liste.ini", iString)
    g2_ps1.Caption = ReadSetting("Getränke", "Getränk2", App.Path & _
    "\Liste.ini", iString)
    g3_ps1.Caption = ReadSetting("Getränke", "Getränk3", App.Path & _
    "\Liste.ini", iString)
    g4_ps1.Caption = ReadSetting("Getränke", "Getränk4", App.Path & _
    "\Liste.ini", iString)
    g5_ps1.Caption = ReadSetting("Getränke", "Getränk5", App.Path & _
    "\Liste.ini", iString)
 
    person2.Caption = ReadSetting("Person2", "Name", App.Path & "\Liste.ini", _
      iString)
    g1_ps2.Caption = ReadSetting("Getränke", "Getränk1", App.Path & _
    "\Liste.ini", iString)
    g2_ps2.Caption = ReadSetting("Getränke", "Getränk2", App.Path & _
    "\Liste.ini", iString)
    g3_ps2.Caption = ReadSetting("Getränke", "Getränk3", App.Path & _
    "\Liste.ini", iString)
    g4_ps2.Caption = ReadSetting("Getränke", "Getränk4", App.Path & _
    "\Liste.ini", iString)
    g5_ps2.Caption = ReadSetting("Getränke", "Getränk5", App.Path & _
    "\Liste.ini", iString)
    'Text Dateien auslesen
    g1_t_ps1.Text = ReadSetting("Person1", "g1", App.Path & "\Liste.ini", _
      iString)
    g2_t_ps1.Text = ReadSetting("Person1", "g2", App.Path & "\Liste.ini", _
    iString)
    g3_t_ps1.Text = ReadSetting("Person1", "g3", App.Path & "\Liste.ini", _
    iString)
    g4_t_ps1.Text = ReadSetting("Person1", "g4", App.Path & "\Liste.ini", _
    iString)
    g5_t_ps1.Text = ReadSetting("Person1", "g5", App.Path & "\Liste.ini", _
    iString)
 
    g1_t_ps2.Text = ReadSetting("Person2", "g1", App.Path & "\Liste.ini", _
      iString)
    g2_t_ps2.Text = ReadSetting("Person2", "g2", App.Path & "\Liste.ini", _
    iString)
    g3_t_ps2.Text = ReadSetting("Person2", "g3", App.Path & "\Liste.ini", _
    iString)
    g4_t_ps2.Text = ReadSetting("Person2", "g4", App.Path & "\Liste.ini", _
    iString)
    g5_t_ps2.Text = ReadSetting("Person2", "g5", App.Path & "\Liste.ini", _
    iString)
Wie kann ich ihn vereinfachen, da noch mehr Personen hinzukommen sollen?

mfg. Dr.Evil
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Ordnung halten588Dr.Evil16.04.04 23:52
Re: Ordnung halten335Cabcom17.04.04 19:23
Re: Ordnung halten321Dr.Evil19.04.04 18:12

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel