Ændring af opstart form.

Når man har indtastet nummeret så kalder du bare form2.show så vil den starte op.

ja ja , men planen er at næste gang man starter programmet , skal den ikke spørge efter serienr.
men starte med form2 direkte.

Du kan fast få startet op med form2 i Project - options (mener jeg menupunktet hedder) men så vil den aldrig starte op med at spørge efter serienummeret så du er nok nødt til selv at kode dig ud af det. Du gemmer vel et eller andet sted at nummeret er indtastet, det kan du checke på og så lave en

if "serienummer indtastet" then
  form2.show
else
  form1.show
end if

Jeg har et modul til skrivning i Registrerings databasen, men det er lidt advanceret. Jeg kunne forstille mig at det ville være smart at gøre det at når brugeren har indtastet seriel nr. så bliver det skrevet ind i Reg og hver gang programmet starter op, vil det lige tjekke koden og se om den er rigtig nok, og hvis det er starte form2 istedet for form1....

Det bertie har skrevet er fint nok, men jeg tror du leder efter noget bedre...

Håber du har kaldt din forms noget bedre end de her eksempler forresten =)

Yep.


1. I form1's loadevent tjekker du om serienummer findes i reg. dabtabase, og det er korrekt, start form2 op, og luk form1 (altså inden den ses af brugeren)

2. Hvis ikke serienummer findes, så lad form1 loade, bed om serienummer, tjek det, og start form2 opnår det er rigtigt indtastet.

Du kunne også gemme serienummer i fx. en textfil hvor programmet er installeret.

Hvad er det præcist du skal have hjælp til?

nok noget i retning af stois
det ville være fint

Hvad er det præcist du skal have hjælp til?

At skrive til reg. databasen, at få vist din form, at lave en if-then-else sætning, hvad?

vil gerne have hjælp til at lave det sådan.
Programmet startes , den tjekker om serienr findes i regbasen (hvordan)
hvis den findes skal den fortsætte i / starte form1.
hvis ikke skal den komme med FormX(bruger bliver spurgt om serienr) ( den lagres i regbasen hvordan ?)

Så i bund og grund er det "kun" det med regbasen der skal hjælp til.

Takker på forhånd.

Reg database:

http://www.eksperten.dk/spm/Programmering/Visual-Basic/?sort=&order=DESC&status_1=on&status_2=on&status_3=on&spm_creator=&spm_part=&spm_answer=&find=reg+&engine=exp

Du skal bruge Getsetting og savesetting. Læs i ovenstående

Fx:


'Hent
Text1.Text = GetSetting("Appname", "Setup", "Text", "Text1")
'Gem
SaveSetting "Appname", "Setup", "Text", Text1.Text

Se det som en træstruktur
De 3 første niveauer kan du ikke ændre:
HKEY_CURRENT_USER\SOFTWARE\VB and Visual Basic program settings

...\appname (= Dit programnavn)
...\appname\sections (=brugerdef. underniveauer fx bruger1, bruger2 osv)
...\appname\sections\key (=navn der beskriver det der skan have værdi fx Option1Value)
...\appname\sections\key\Setting (= den værdi der skal angives fx true)