ボタンに張り付いた画像を切り替えるには？ (ID:124953)

名前

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

本文 開発環境は、VB6です。実際は、配列を使用していて Dim start, stop As String start = CurDir & "\start.gif" stop = CurDir & "\stop.gif" If Command1(i).Picture = LoadPicture(stop) Then Command1(i).Picture = LoadPicture(start) Else Command1(i).Picture = LoadPicture(stop) End if という感じです。合わせる為に、以下のようにFlgも配列にしようと試みましたが、書き方が悪いらしくエラーになってしまいます。ご存知でしたら教えてください。 Dim flg as Valiant ←subの外に設定(boolenやStringやIntegerなどいろいろ指定してみましたが・・・うまくいきません。) Private sub XXX Dim start, stop As String start = CurDir & "\start.gif" stop = CurDir & "\stop.gif" If flg(i) = True Then ←ここで型エラー Command1(i).Picture = LoadPicture(start) flg(i) = false Else Command1(i).Picture = LoadPicture(stop) flg(i) = true End if end sub