- 338 名前：デフォルトの名無しさん mailto:sage [2008/05/13(火) 04:27:56 ]
- 十字キーの↓でラベルを順に選択できるようにしたいのですが、
If GetAsyncKeyState(vbKeyDown) Then
If Label3.ForeColor = Magenta Then
Label4.ForeColor = Magenta
Label3.ForeColor = Yellow
End If
If Label4.ForeColor = Magenta Then
Label5.ForeColor = Magenta
Label4.ForeColor = Yellow
End If
If Label5.ForeColor = Magenta Then
Label6.ForeColor = Magenta
Label5.ForeColor = Yellow
End If
End If
と記述するよりもっと効率がいいやり方はないのでしょうか？
