Avatar billede kjeld_klit Nybegynder
18. august 2002 - 11:34 Der er 2 kommentarer og
1 løsning

Form_Activate / Form_Resize

Hvordan sikrer jeg at Form_Resize kører på min Form1, OG AT Form_Resize har set at jeg har sat Form1.WindowState = 2, inde i Sub Main proceduren?

Jeg ville gerne have form og kontroller til at indstille sig under starup og har gjort følgende:
Private Sub Main()
  frmSplash.Show
  Call Form1.Form_Load
  Call Form1.Form_Resize
End Sub

Men ligegyldig hvad jeg gør virker Form_Resize kun rigtigt hvis den afvikles under Form_Activate, og det sker jo først når formen vises på skærmen og så har jeg ikke opnået noget alligevel. Desuden afvikles koden så også hvergang formen aktiveres hvilket ikke er nødvendigt.

Med andre ord, hvordan fortæller jeg Form_Resize hvor stor Form1 er (Form1.WindowState = 2) inden den aktiveres?
Avatar billede sjh Nybegynder
19. august 2002 - 14:48 #1
Private Sub Form_Resize()
  If Me.WindowState = 2 Then
    MsgBox "??"
  End If
End Sub
Avatar billede kjeld_klit Nybegynder
19. august 2002 - 17:23 #2
Hej sjh
Jeg kan ikke lige få øje på hvad du mener?
Det jeg ønsker er at Form1.Form_Resize afvikles medens en splashscreen vises.
Problemet er hvordan fortæller jeg at Form1 bliver maximeret (og dermed størrelsesforhold/plaseringer mellem de forskellige kontroller) på dette tidspunkt før formen vises på skærmen. WindowState = 2 ta'r ikke effekt før ved aktivering. Din lille If..sætning kan ganskevist stoppe gentagelser af Resize men udnytter ikke i sig selv "spild tiden" under splachscreenen. Håber du kan følge mig :-)
Avatar billede kjeld_klit Nybegynder
24. august 2002 - 12:44 #3
Lukker
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Cyberdivisionen søger leder til Lokal IT Servicecenter i Holstebro

Riskpoint A/S (Riskpoint Solutions Limited)

IT Business Analyst