|
目的
クリックイベントで表示された画像を、別のクリックイベントで次々に表示させた終わったら最初の画像を表示と繰り返して処理をしたいと思っています。
case1が処理される時、トグルボタンが押されていたら画像表示
Private Sub CommandButton1_Click()
p_name = ComboBox1
pic_name = 1
Select Case p_name
Case "ma"
TextBox2 = Range("B2")
TextBox3 = Range("C2")
TextBox4 = Range("D2")
If ToggleButton1 = True Then
Image1.picture = LoadPicture("D:\VBA\test" & pic_name & ".bmp")
End If
Case "mb"
TextBox2 = Range("B3")
TextBox3 = Range("C3")
TextBox4 = Range("D3")
End Select
End
2.test1の画像が表示されてる時にtest2→test3と表示させたい
Private Sub CommandButton2_Click()
pic_name = 1
Select Case pic_name
Case 1
pic_name = pic_name + 1
Image1.picture = LoadPicture("D:\VBA\test" & pic_name & ".bmp")
Case 2
pic_name = pic_name + 1
Image1.picture = LoadPicture("D:\VBA\test" & pic_name & ".bmp")
Case 3
pic_name = pic_name + 1
Image1.picture = LoadPicture("D:\VBA\test" & pic_name & ".bmp")
end
3.グローバル変数で共通にカウントする様にしてる
Public pic_name As Integer
現在は上記状態で色々やってる所ですが、case2の所で処理が終わってしまい
case3の処理が行われません・・・・・
何かカウンターみたいな加算処理(++1みたいなinc)で一回ずつ動かせばいいかな・・・ってやってみたんですが出来ませんでした。
何かアドバイスをお願いします。
|
|