vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Mails senden, abrufen und decodieren - ganz easy ;-)  
 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: Programm 3x starten 
Autor: ModeratorDieter (Moderator)
Datum: 03.11.02 15:47
Hi Rüdiger,

Du könntest Dir die Anzahl der bisherigen Starts in der Registry "merken". Das ganze sieht dann wie folgt aus: 

Option Explicit
Private nStarts As Integer
 
Private Sub Form_Load()
  ' bisherige Starts lesen
  nStarts = Val(GetSetting("AppName", "Form1", "Starts", "0"))
 
  ' Button für das Starten des Formulars ggf. deaktivieren
  Command1.Enabled = (nStarts < 3)
End Sub
Beim Klicken auf den Button erhöhst Du die Variable nStarts und speicherst sie in der Registry: 
Private Sub Command1_Click()
  nStarts = nStarts + 1
  SaveSetting "AppName", "Form1", "Starts", CStr(nStarts)
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Programm 3x starten473chacky03.11.02 15:29
Re: Programm 3x starten308ModeratorDieter03.11.02 15:47
Re: Programm 3x starten245chacky03.11.02 17:24

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