"Registrere program"

OBS. nummer 1-2-3 har jeg selv fundet ud af

Dim LicensNummer As String
  Dim FilNummer as Integer
  Filnummer = FreeFile
  Open app.path & "\licens.txt" For Input As #Filnummer
  Line Input #Filnummer, LicensNummer 'Putter 1. linie i filen ind i LicensNummer
  Close #Filnummer
  if LicensNummer = "290834u092134" then
    cmdHemmeligKnap.visible = true
  end if
Spørg videre, hvis det ikke er svar nok

Hej Tekniker.

Shhh, men du har allerede fået svar på det i 283454.

Dim linie as string

If Len(Dir(App.Path & "\hej_verden.txt")) > 0 Then
Open app.path & "\hej_verden.txt" for Input as #1
  Line Input #1, linie
close #1
If linie = "hej med dig" Then Command1.enabled = True
End if

M.v.h.  Jørn

martin_moth > Men hvis filen ikke findes så kommer den med en fejl-meddelse...

Jeg opretter en fil med noget andet indhold men med det samme navn i app.path... Men.. Når jeg har "købt" licensen skriver den "Object Required"! Hvad skal jeg gøre ved det?

martin_moth > har du ICQ? Hvis ja, hvad er dit ICQ-nummer? mit er 134617823 ...

Og jørn... Har du ICQ? Mit icq-nr. er 134617823

Hmmm Nu har jeg fundet ud af det :) Men tak! Jeg deler pointene

Ja har fundet ud af det... Det skulle være et svar

>>martin

Jeg mener at hvis man blot tester på dir(sti & filnavn) > "" så får man fejl når filen ikke findes, men ved at søge på længden af dir fortsættes uden fejlmedd.

Ellers må man jo sætte en error-handling foran.

Sub form Load

  On error goto fejl1
  If Len(Dir(App.Path & "\hej_verden.txt")) > 0 Then
    Open app.path & "\hej_verden.txt" for Input as #1
      Line Input #1, linie
    close #1
    If linie = "hej med dig" Then Command1.enabled = True
  End if
  exit sub
fejl1:
  x = MsgBox("Der er ikke en licens-fil",48,"Medd. fra licens-test.")
  exit sub
  resume next

End Sub

M.v.h.  Jørn

Ok, men nu gør den det her:

login = form1
Menu = form2
FAQ = form3

1) Jeg logger ind i programmet
2) Jeg kommer ind i menu'en
3) Jeg trykker på knappen til FAQ...
4) Jeg kommer ind i formen men et par sekunder efter går den ind i menu'en igen! hvorfor?

Hej.

Jeg er ikke med!  Sætter du variable lig med forme?

form2.Visible = True
form2.Zorder 0

Vil bringe form2 i front.

M.v.h.  Jørn

hmmm.... Jeg gør dette:

I login er scriptet:

<hemmeligt>
form2.show
unload me
<hemmeligt>

nej... Det er ikke variabler