Private Sub Command1_Click()
'Ett exempel bara. Med det här så blir
'Command1 inte tillgänglig, så långt är det rätt
'men när man startar programet igen så är Command1
'tillgängligt. Går det med ett "lätt sätt" att den
'blir inte tillgänglig. Det ska bara fungera en gång
'och sen ska det bara raderas, det skulle vara när man
'vill att någon ska prova om det fungerar.
Form2.Show (1) ' Visar ett annat formulär modalt.
Command1.Enabled = 0 ' Command1 blir inte klickbar.
' Sen ska det inte hända mer. programet ska bli värdelöst.
'Går det ? VB 5
'S J

End Sub

Hej
Inte riktigt säker på att jag svarar rätt Men !
Dim Beenhere As Boolean
If Beenhere = True Then

Dvs känn av Beenhere status

mvh
Sven

Med SaveSetting och GetSetting kan du lagra värdet som anger om den ska vara död. Men värdet lagras under användaren i registret.

Testa detta


Private Sub Command1_Click()
SaveSetting App.Title, "Knapp", "En gång", "1"
Form2.Show (1)
Command1.Enabled = False


End Sub

Private Sub Form_Load()
If GetSetting(App.Title, "Knapp", "En gång") = "1" Then
Command1.Enabled = False
End If
End Sub


/Wolf

Tackar för alla svar. Det fungerar precis, är impad.
S J

Fråga:

Är det den här funktionen man använder i stället för INI filer alltså ?

Jag kikade i registret och ser att det hamnar på ett ställe speciellt för VB och VBA. Har alla utvecklingsverktyg sin egen "area" för inställningar i registret ?


Mvh/Olof

Hej
I princip ja

VB SaveSetting hamnar alltid här på gott och ont.

mvh
Sven