title image


Smiley Einfach in die Registry eintragen... ;o)
und wieder aufrufen, z. B. so:



Option Explicit



Private Sub Form_Load()

On Error Resume Next

Text1.Text = GetSetting(App.Title, "Einstellungen", "Wert1")

Text2.Text = GetSetting(App.Title, "Einstellungen", "Wert2")

End Sub



Private Sub Text1_Change()

SaveSetting App.Title, "Einstellungen", "Wert1", Text1.Text

End Sub



Private Sub Text2_Change()

SaveSetting App.Title, "Einstellungen", "Wert2", Text2.Text

End Sub

Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: