vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Zippen wie die Profis!  
 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
Re: eigene form für anderung von passwörtern 
Autor: ModeratorDieter (Moderator)
Datum: 14.01.02 13:06
Hi Boris,

dann nimm den Code von mir aus dem Form_Unload Event und setze ihn ins saveexit_cick event:

Komplett sieht es dann so aus: 
<code><font color=#000099>Private</font> <font color=#000099>Sub</font> _
  Form_Load()
  <font color=green>' Kennwörter aus Datei laden</font>
  <font color=#000099>Dim</font> F <font color=#000099>As</font> <font _
    color=#000099>Integer</font>
  <font color=#000099>Dim</font> sText <font color=#000099>As</font> <font _
  color=#000099>String</font>
 
  <font color=#000099>If</font> Dir$(App.Path & "Admin.dat") <> "" <font _
    color=#000099>Then</font>
    F = FreeFile
    <font color=#000099>Open</font> App.Path & "Admin.dat" <font _
      color=#000099>For</font> <font color=#000099>Input</font> <font _
      color=#000099>As</font> #F
    <font color=#000099>Line</font> <font color=#000099>Input</font> #F, sText: _
    Text1.Text = sText
    <font color=#000099>Line</font> <font color=#000099>Input</font> #F, sText: _
    Text2.Text = sText
    <font color=#000099>Line</font> <font color=#000099>Input</font> #F, sText: _
    Text3.Text = sText
    <font color=#000099>Line</font> <font color=#000099>Input</font> #F, sText: _
    Text4.Text = sText
    <font color=#000099>Close</font> #F
  <font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> savexit_click( _
  )
  <font color=green>' Kennwörter in Datei speichern</font>
  <font color=#000099>Dim</font> F <font color=#000099>As</font> <font _
    color=#000099>Integer</font>
 
  F = FreeFile
  <font color=#000099>Open</font> App.Path & "Admin.dat" <font _
    color=#000099>For</font> <font color=#000099>Output</font> <font _
    color=#000099>As</font> #F
  <font color=#000099>Print</font> #F, Text1.Text
  <font color=#000099>Print</font> #F, Text2.Text
  <font color=#000099>Print</font> #F, Text3.Text
  <font color=#000099>Print</font> #F, Text4.Text
  <font color=#000099>Close</font> #F
<font color=#000099>End</font> <font color=#000099>Sub</font></code>
Cu
Dieter
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
eigene form für anderung von passwörtern62Boris Huemer14.01.02 09:55
Re: eigene form für anderung von passwörtern261ModeratorDieter14.01.02 10:16
Re: eigene form für anderung von passwörtern44Boris Huemer14.01.02 11:30
Re: eigene form für anderung von passwörtern277ModeratorDieter14.01.02 11:42
Re: eigene form für anderung von passwörtern39Boris Huemer14.01.02 11:45
Re: eigene form für anderung von passwörtern37Boris Huemer14.01.02 12:02
Re: eigene form für anderung von passwörtern233ModeratorDieter14.01.02 13:06
Re: eigene form für anderung von passwörtern35Boris Huemer14.01.02 13:59
Re: eigene form für anderung von passwörtern37Boris Huemer14.01.02 14:15
Re: eigene form für anderung von passwörtern225ModeratorDieter14.01.02 14:46

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