Goto Commandoen ?

Du skal gøre sådan:

Private Sub cmd_Click()
  cmd1_Click
End Sub

Private Sub cmd1_Click()
Start:
End
End Sub 

Goto bruges kun internt i en procedure...
(Og i så lidt omfang som muligt !!!)

Hej Vbbegynder

Du behøver ikke Goto

Du laver den kode som din Label ville have indholdt som en selvstædig procedure

Private sub start()
end sub

så kalder du den bare

private sub cmd_click()
  start
end sub

/Wilco

proaccess > forstår ik helt hvad du mener..

Wilco > jeg prøver 2 sek.

nå jo jeg kan ik bruge wilco måde :( da jeg prøver at lave et lille program (hvem vil være nørd :)).

Dim Nummer As String
Dim Spg As String
Dim Min As Long
Dim Max As Long
Dim Svar As String
Dim Valg As String
Private Sub A1_Click()
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\' 1. Spørgsmål \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
If A1.Caption = \" A. ASP\" Then
Valg = MsgBox(\"Er du sikker\", vbYesNo)
    If Valg = vbNo Then
    GoTo Start
    ElseIf Valg = vbOK Then
    MsgBox \"Forkert, ASP står ik for ASP !\"
    Valg = MsgBox(\"Vil du prøve igen\", vbYesNo)
        If Valg = vbYes Then
        GoTo Start
        Else
        GoTo Luk
        End
        End If
    End
    GoTo Start
    End If

\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\' 2. Spørgsmål \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
ElseIf A1.Caption = \" A. Hyper Text Markup Language\" Then
    MsgBox \"Forkert, ASP står ik for ASP !\"
    End
    GoTo Start
    End If
Luk
End
End Sub

Private Sub Form_Load()
Start:

Max = 3
Min = 1
Randomize
Nummer = Int(Rnd * (Max - Min)) + Min

If Nummer = \"1\" Then

    Spg = \" Hvad står \"\"ASP\"\" for ?\"
    A1.Caption = \" A. ASP\"
    B1.Caption = \" B. ActiveSP\"
    C1.Caption = \" C. Active Server Pages\"
    D1.Caption = \" D. Asp\"
    En.BackColor = RGB(255, 0, 0)
    Spm.Caption = Spg
   
      ElseIf Nummer = \"2\" Then
     
      Spg = \"Hvad står \"\"HTML\"\" for ?\"
      A1.Caption = \" A. Hyper Text Markup Language\"
      B1.Caption = \" B. HyperTM\"
      C1.Caption = \" C. Hjemmeside til formål\"
      D1.Caption = \" D. Html\"
      En.BackColor = RGB(255, 0, 0)
      Spm.Caption = Spg
     
      ElseIf Nummer = \"3\" Then
     
        A1.Caption = \" A. ASP\"
        B1.Caption = \" B. ActiveSP\"
        C1.Caption = \" C. Active Server Pages\"
        D1.Caption = \" D. Asp\"
        En.BackColor = RGB(255, 0, 0)
        Spg = \"Hvad står \"\"VB\"\" for ?\"
        Spm.Caption = Spg
       
        End If

End Sub

kan du oversku programmer, det jeg vil ha..

Hvis brugeren trykker \"JA\" til at prøve igen...så springer den over if commandoen og tager hen til denne 2 linje og starter igen med et nyt spm.

---------------------
Private Sub Form_Load()
Start:
---------------------

som du kan se
    Valg = MsgBox(\"Vil du prøve igen\", vbYesNo)
        If Valg = vbYes Then
        GoTo Start
        Else
        GoTo Luk
        End
        End If
    End
    GoTo Start
    End If

programmer = programmeret !

Hver gang du skriver \"Goto Start\" skal du skrive \"Form_Load\", så kører du den procedure...

\"Goto Luk\" skal ligeledes erstattes med \"End\"

proaccess < http://www.eksperten.dk/spm/147869 og jeg prøver lige :)

proaccess < den går ud af programmet selvom jeg trykker på ja ??

    Valg = MsgBox(\"Vil du prøve igen\", vbYesNo)
        If Valg = vbYes Then
        Form_Load
        ElseIf Valg = vbNo Then
        End
        End If
    End If

!

http://www.eksperten.dk/spm/148068 Slutter