GOTO文の行ラベルを使用するには?

解決


manabu  2003-12-23 22:35:07  No: 110908  IP: [192.*.*.*]

goto文で使用する行ラベル、行番号がよくわかりません。ヘルプではgoto  行番号  で相手先の行頭に行番号を記述しなければなりませんとあるんですが、どのように記述してあげればいいのか教えてください。
例えば

if a=1 then
goto _←この下線部分の行ラベルまたは行番号の扱いがわかりません。
Else 
goto _
end if
text1.text="てすと"
text1.text="test"

の場合a=1であればtext1に「てすと」、a=2であればtext1に「test」とgotoと行番号または行ラベルを使って表示させたい場合を教えてください。

編集 削除
いな  2003-12-23 23:14:46  No: 110909  IP: [192.*.*.*]

Private Sub Form_Load()
    Dim a As Integer
    a = 2
    If a = 1 Then
        GoTo Patern1
    Else
        GoTo Patern2
    End If
Patern1:
    Text1.Text = "てすと"
    Exit Sub
Patern2:
    Text1.Text = "test"
End Sub

でどうでしょ?

編集 削除
いな  2003-12-23 23:16:28  No: 110910  IP: [192.*.*.*]

あ、、、、ひとつ補足
3行目の値、aの値は1にすると"てすと"とでます。

編集 削除
manabu  2003-12-24 00:01:15  No: 110911  IP: [192.*.*.*]

ありがとうございます。使い方がわかりました。簡単なことなんですが、調べてもわからなくて一人で悩んでました。やっぱ人に聞くのが早いですね。
本当にありがとうございました。

編集 削除