掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
複数の Do While をうごかすには？ (ID：115199)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
フォームをわければ難しくないかも 'Form1側 Private Sub Command1_Click() Form2.Visible = False Form2.Text1.Text = "Start" Dim aaaa As Integer aaaa = 0 Do While aaaa < 5 Label1.Caption = Label1.Caption & "なんじゃら " aaaa = aaaa + 1 Loop End Sub 'Form2側 'ボタンの代わりにテキストボックス使用 Private Sub Text1_Change() If Text1.Text = "Start" Then Dim aaaa As Integer aaaa = 0 Do While aaaa < 5 Form1.Label2.Caption = Form1.Label1.Caption & "かんじゃら " aaaa = aaaa + 1 Loop Text1.Text = "" End If End Sub
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.