現在VB6.0で簡単なアニメーションの作成を行おうと思っています。
あまりプログラミングが得意ではないので、分かる人教えてください。
一応自分なりに以下の様なプログラムを書いてみました。
やりたいことは、４枚の画像を使って、その画像をパラパラ漫画の様に
アニメーションにしたいです。
処理方法としては、コマンドをクリックすると、タイマーが動きだして
画像がパラパラと変化するような感じにしたくて、以下の様にしました。
このプログラムだと、はじめの画像の次に最後の画像(anime3)が出てきてしまいます。
はじめの画像の次にanime0→anime1→anime2…と画面に表示されるようにするためにはどのようにしたらいいですか？
分かる人がいたら教えて頂きたいです。
よろしくお願い致します。
●プログラムソース
Private Nekos(3) As IPictureDisp
Private Sub Command1_Click()
Timer1 = True
End Sub
Private Sub Form_Load()
Timer1 = False
End Sub
Private Sub Timer1_Timer()
Dim anime As Long
anime = 0
For anime = 0 To 3
Set Nekos(anime) = LoadPicture("F:\yobi_0406\glad\neko" & anime & ".bmp")
Image1.Picture = Nekos(anime)
anime = (anime + 1)
If anime > 3 Then
anime = 0
End If
Next anime
End Sub
現在VB6.0で簡単なアニメーションの作成を行おうと思っています。
あまりプログラミングが得意ではないので、分かる人教えてください。
一応自分なりに以下の様なプログラムを書いてみました。
やりたいことは、４枚の画像を使って、その画像をパラパラ漫画の様に
アニメーションにしたいです。
処理方法としては、コマンドをクリックすると、タイマーが動きだして
画像がパラパラと変化するような感じにしたくて、以下の様にしました。
このプログラムだと、はじめの画像の次に最後の画像(anime3)が出てきてしまいます。
はじめの画像の次にanime0→anime1→anime2…と画面に表示されるようにするためにはどのようにしたらいいですか？
分かる人がいたら教えて頂きたいです。
よろしくお願い致します。
●プログラムソース
Private Nekos(3) As IPictureDisp
Private Sub Command1_Click()
Timer1 = True
End Sub
Private Sub Form_Load()
Timer1 = False
End Sub
Private Sub Timer1_Timer()
Dim anime As Long
anime = 0
For anime = 0 To 3
Set Nekos(anime) = LoadPicture("F:\yobi_0406\glad\neko" & anime & ".bmp")
Image1.Picture = Nekos(anime)
anime = (anime + 1)
If anime > 3 Then
anime = 0
End If
Next anime
End Sub
こんばんわ。
コンボボックスで、
指定の値をマウス操作でクリックしたときと、
キーボードの上下で、移動後returnを押したときだけ、
MsgBox "処理実行"
を実行したいです。
keystateを使ってみたのですが、前の情報が残っているのかうまくいきません。keystateの情報をクリアさせるか、シンプルに上記を動作させる何かよい方法はありますでしょうか。
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Dim flg1 As Boolean
Private Sub form_load()
Combo1.AddItem (11)
Combo1.AddItem (22)
Combo1.AddItem (33)
Combo1.AddItem (44)
End Sub
Private Sub Combo1_Keyup(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then 'return
flg1 = True
Call Combo1_click
End If
End Sub
Private Sub Combo1_click()
If (GetKeyState(&H26) <> 0) Or (GetKeyState(&H28) <> 0) Then ' ↑↓
If flg1 = False Then
Exit Sub
End If
End If
MsgBox "処理実行"
flg1 = False
End Sub
こんばんわ。
コンボボックスで、
指定の値をマウス操作でクリックしたときと、
キーボードの上下で、移動後returnを押したときだけ、
MsgBox "処理実行"
を実行したいです。
keystateを使ってみたのですが、前の情報が残っているのかうまくいきません。keystateの情報をクリアさせるか、シンプルに上記を動作させる何かよい方法はありますでしょうか。
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Dim flg1 As Boolean
Private Sub form_load()
Combo1.AddItem (11)
Combo1.AddItem (22)
Combo1.AddItem (33)
Combo1.AddItem (44)
End Sub
Private Sub Combo1_Keyup(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then 'return
flg1 = True
Call Combo1_click
End If
End Sub
Private Sub Combo1_click()
If (GetKeyState(&H26) <> 0) Or (GetKeyState(&H28) <> 0) Then ' ↑↓
If flg1 = False Then
Exit Sub
End If
End If
MsgBox "処理実行"
flg1 = False
End Sub
