VB.NET質問ｽﾚ (Part21)

VB.NET質問ｽﾚ (Part21) at TECH

283:デフォルトの名無しさん
07/05/20 22:52:59
>>280
そもそもVB.NETという概念からして良く解ってないんですが・・・
正直、まるで何一つ解ってません・・・

'　今のコード

Public　Class　km
　　　　Private　Sub　km_KeyDown(ByVal　sender　As　Object,　ByVal　e　As　System.Windows.Forms.KeyEventArgs)　Handles　Me.KeyDown
　　　　　　　　Select　Case　e.KeyCode
　　　　　　　　　　　　Case　Keys.Left
　　　　　　　　　　　　　　　　Timer1.Enabled　=　True
　　　　　　　　　　　　Case　Keys.Right
　　　　　　　　　　　　　　　　Timer2.Enabled　=　True
　　　　　　　　End　Select
　　　　End　Sub

　　　　Private　Sub　Timer1_Tick(ByVal　sender　As　Object,　ByVal　e　As　System.EventArgs)　Handles　Timer1.Tick
　　　　　　　　PictureBox1.Left　-=　6
　　　　End　Sub

　　　　Private　Sub　Timer2_Tick(ByVal　sender　As　Object,　ByVal　e　As　System.EventArgs)　Handles　Timer2.Tick
　　　　　　　　PictureBox1.Left　+=　6
　　　　End　Sub

End　Class

次ページ

続きを表示

1を表示