---

Hejsa

Følgende program stumpen må kun køre 1 gang, efter programmet er startet og
koden skal ligge under Form_Activate().

--- KODE ---
If Check1.Value = 1 Then
frmMain.Show
End If
--- KODE SLUT ---

Er der en der kan hjælpe med det ?

Henrik

---

Hvorfor skal den det ? Sub_Main eller Form_Load perfekt til dette.

HTH. Beste hilsen Harald

"HA" <1absalon@it.dk> skrev i melding
news:adahej$1ktv$1@news.cybercity.dk...
> Hejsa
>
> Følgende program stumpen må kun køre 1 gang, efter programmet er startet
og
> koden skal ligge under Form_Activate().
>
> --- KODE ---
> If Check1.Value = 1 Then
> frmMain.Show
> End If
> --- KODE SLUT ---
>
> Er der en der kan hjælpe med det ?
>
> Henrik
>
>

---

Hejsa
Jeg har prøvet at ligge koden over i Form_load, men så forsætter min "hoved"
program med at loade, med det resultat at frmMain, kommer til at ligge i
baggrunden, og det må det ikke.
Jeg har prøvet at kalde det med frmMain.Show VBModal, men så får jeg en
underlig fejl frem ?

Henrik



"Harald Staff" <harald.staff@nrk.no> skrev i en meddelelse
news:adall6$hr2$1@oslo-nntp.eunet.no...
> Hvorfor skal den det ? Sub_Main eller Form_Load perfekt til dette.
>
> HTH. Beste hilsen Harald
>
> "HA" <1absalon@it.dk> skrev i melding
> news:adahej$1ktv$1@news.cybercity.dk...
> > Hejsa
> >
> > Følgende program stumpen må kun køre 1 gang, efter programmet er startet
> og
> > koden skal ligge under Form_Activate().
> >
> > --- KODE ---
> > If Check1.Value = 1 Then
> > frmMain.Show
> > End If
> > --- KODE SLUT ---
> >
> > Er der en der kan hjælpe med det ?
> >
> > Henrik
> >
> >
>
>

---

HA skrev:
> Hejsa
> Jeg har prøvet at ligge koden over i Form_load, men så forsætter min
"hoved"
> program med at loade, med det resultat at frmMain, kommer til at ligge i
> baggrunden, og det må det ikke.
> Jeg har prøvet at kalde det med frmMain.Show VBModal, men så får jeg en
> underlig fejl frem ?
>
> Henrik

Jeg ved ikke om følgende er den 'rigtige' måde at lave det på (der er
sikkert andre), men prøv dette:

Indsæt en Timer på din hovedform - gå ind i Timer1's (hvis den hedder det)
properties, ændr Enabled til False og sæt Interval til 1. Gå derefter ind i
editoren og skriv Timer1.Enabled = True som sidste linie i din Form_Load().
Dobbeltklik på Timer1 på formen og skriv følgende i Timer1_Timer():
Timer1.Enabled = False
frmMain.Show VbModeless ' vbModel burde egentlig også virke ...

Hvis du bruger vbModel, skal du blot vide at eksekveringen af din hovedform
stopper og først fortsætter når du lukker frmMain.

Håber det løser problemet.

Mvh. Bjarke

---

Hej
Brug Form_Resize i stedet for og sæt samtidigt formens størrelse til at være
fixed. Herved køres "resize" kun første gang formen vises. Herved burde
frmMain komme i forgrunden.

Mvh Carsten

"HA" <1absalon@it.dk> wrote in message
news:adanid$1rvq$1@news.cybercity.dk...
> Hejsa
> Jeg har prøvet at ligge koden over i Form_load, men så forsætter min
"hoved"
> program med at loade, med det resultat at frmMain, kommer til at ligge i
> baggrunden, og det må det ikke.
> Jeg har prøvet at kalde det med frmMain.Show VBModal, men så får jeg en
> underlig fejl frem ?
>
> Henrik
>
>
>
> "Harald Staff" <harald.staff@nrk.no> skrev i en meddelelse
> news:adall6$hr2$1@oslo-nntp.eunet.no...
> > Hvorfor skal den det ? Sub_Main eller Form_Load perfekt til dette.
> >
> > HTH. Beste hilsen Harald
> >
> > "HA" <1absalon@it.dk> skrev i melding
> > news:adahej$1ktv$1@news.cybercity.dk...
> > > Hejsa
> > >
> > > Følgende program stumpen må kun køre 1 gang, efter programmet er
startet
> > og
> > > koden skal ligge under Form_Activate().
> > >
> > > --- KODE ---
> > > If Check1.Value = 1 Then
> > > frmMain.Show
> > > End If
> > > --- KODE SLUT ---
> > >
> > > Er der en der kan hjælpe med det ?
> > >
> > > Henrik
> > >
> > >
> >
> >
>
>

---

Kan du ikke bruge frmMain.Setfocus eller .Zorder istedet for show?

Mvh. Rayman

---

Det kan godt være jeg ser problemet for simpelt, men hvad med:

Under form load

MustRun=True

Under form activate

if MustRun then
If Check1.Value = 1 Then
frmMain.Show
end if
MustRun=False
End If

mvh
Knud

---

Static blRunOnce As Boolean

If Not blRunOnce Then
blRunOnce = True
If Check1.Value = 1 Then
frmMain.Show
End If
End If