vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 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 14:46
Hi Boris,

hier der vollständige Code für Deine Form Admin.frm: 
<code><font color=#000099>Private</font> <font color=#000099>Sub</font> _
  btn_save_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, adminqs.Text
  <font color=#000099>Print</font> #F, adminkaschierung.Text
  <font color=#000099>Print</font> #F, adminao.Text
  <font color=#000099>Print</font> #F, adminprod.Text
  <font color=#000099>Close</font> #F
 
  admin.Visible = <font color=#000099>False</font>
  anmeldung.Visible = <font color=#000099>True</font>
  anmeldung.Form_Load
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
<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>If</font> LOF(F) > 0 <font color=#000099>Then</font>
      <font color=#000099>Line</font> <font color=#000099>Input</font> #F, _
        sText: adminqs.Text = sText
      <font color=#000099>Line</font> <font color=#000099>Input</font> #F, _
      sText: adminkaschierung.Text = sText
      <font color=#000099>Line</font> <font color=#000099>Input</font> #F, _
      sText: adminao.Text = sText
      <font color=#000099>Line</font> <font color=#000099>Input</font> #F, _
      sText: adminprod.Text = sText
    <font color=#000099>End</font> <font color=#000099>If</font>
    <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></code>
Cu
Dieter
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
eigene form für anderung von passwörtern63Boris Huemer14.01.02 09:55
Re: eigene form für anderung von passwörtern262ModeratorDieter14.01.02 10:16
Re: eigene form für anderung von passwörtern45Boris Huemer14.01.02 11:30
Re: eigene form für anderung von passwörtern278ModeratorDieter14.01.02 11:42
Re: eigene form für anderung von passwörtern40Boris Huemer14.01.02 11:45
Re: eigene form für anderung von passwörtern38Boris 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örtern38Boris Huemer14.01.02 14:15
Re: eigene form für anderung von passwörtern226ModeratorDieter14.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