プログラムの組み方について (ID:126786)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 テキストボックスとコマンドボタンを配列にしておけば、 Private Sub Command1_Click(Index As Integer) Dim d() As String d = Split("Height,Speed,Interval", ",") If Val(Text1(Index).Text) < 5 Then MsgBox d(Index) & "エラー" End If End Sub これだけで済む気もするが。(Timerは省略)