Avatar billede dta Nybegynder
17. juni 2002 - 16:50 Der er 8 kommentarer og
1 løsning

Hvilken knap har brugeren trykket på?

Jeg kalder en form med
form.show

Formen indeholder 2 knapper, hvorledes checker jeg i linierne efter form.show hvilken knap brugeren har trykket på?
Avatar billede sjh Nybegynder
17. juni 2002 - 16:59 #1
Private Sub Command1_Click()
  MsgBox "Command1"
End Sub

Private Sub Command2_Click()
  MsgBox "Command2"
End Sub
Avatar billede dta Nybegynder
17. juni 2002 - 17:02 #2
Dette giver mig knappen som der er trykket på i sub funktionerne af formen.
Det jeg ønsker er

Form.show
If knap1 er trykker then ....
If knap2 er tyekket then...
Avatar billede dta Nybegynder
17. juni 2002 - 17:04 #3
Noget alla msgbox
Response = MsgBox ("Besked"......
if Response = vbOK then...

Men bare med en designet form?
Avatar billede sjh Nybegynder
17. juni 2002 - 17:06 #4
Hvad skal det gørere?
Avatar billede sjh Nybegynder
17. juni 2002 - 17:07 #5
vil du lave din egen msgbox?
Avatar billede dta Nybegynder
17. juni 2002 - 17:13 #6
Ja det er nok den bedste måde at beskrive det på.
Avatar billede sjh Nybegynder
17. juni 2002 - 17:19 #7
'----------- Form1 -----------
Private Sub Command1_Click()
  Form2.Show 1, Me
If Form2.Command1.Tag = "1" Then Form2.Command1.Tag = "": MsgBox "Command1"
If Form2.Command2.Tag = "1" Then Form2.Command2.Tag = "": MsgBox "Command2"
End Sub
'----------- Form1 -----------


'----------- Form2 -----------
Private Sub Command1_Click()
  Command1.Tag = "1"
  Me.Hide
End Sub

Private Sub Command2_Click()
  Command2.Tag = "1"
  Me.Hide
End Sub
'----------- Form2 -----------
Avatar billede dta Nybegynder
17. juni 2002 - 17:22 #8
Mange tak!
Avatar billede sjh Nybegynder
17. juni 2002 - 17:25 #9
Det var nok beder sådan:

'----------- Form1 -----------
Private Sub Command1_Click()
  Form2.Show 1, Me
    If Form2.Tag = "1" Then MsgBox "Command1"
    If Form2.Tag = "2" Then MsgBox "Command2"
  Unload Form2
End Sub
'----------- Form1 -----------

'----------- Form2 -----------
Private Sub Command1_Click()
  Me.Tag = "1"
  Me.Hide
End Sub

Private Sub Command2_Click()
  Me.Tag = "2"
  Me.Hide
End Sub
'----------- Form2 -----------


tak for point :-)
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