最も効率の良い For 〜 Next のコーディング技法 (ID:88089)

名前

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

本文 基本的な問題として、Indexの番号でボタンのグループ分けをして そのままコードを書くと、コードを見ただけで、どのボタンをアクチベート したのか一目で分らず、コードの見通しが悪くなります。 色々な方法がありますが、とりあえず、 ボタン３〜４のTagプロパティを"GroupA" ボタン11〜１２のTagプロパティを"GroupB"とし、 その他のボタンのTagを"GroupC"とします。 Const MaxCommandButton = 11 Dim tag As String For n = 0 To MaxCommandButton tag = Command1(n).tag If tag = "GroupA" Or tag = "GroupB" Then Call SetProperty(PROPERTY_BUTTON, a_intCnt) End If Next もしこの様な方法が取れない場合は、一つ一つのボタンのCaptionで 選択した方が良いでしょう。