VB.NET質問ｽﾚ (Part21)

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

285:デフォルトの名無しさん
07/05/20 23:08:36
>>284
こんな感じでしょうか？

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
　　　　　　　　　　　　　　　　If　PictureBox1.Left　>　0　Then
　　　　　　　　　　　　　　　　　　　　PictureBox1.Left　-=　6
　　　　　　　　　　　　　　　　End　If
　　　　　　　　　　　　Case　Keys.Right
　　　　　　　　　　　　　　　　If　PictureBox1.Left　+　PictureBox1.Width　<　Me.ClientSize.Width　Then
　　　　　　　　　　　　　　　　　　　　PictureBox1.Left　+=　6
　　　　　　　　　　　　　　　　End　If
　　　　　　　　End　Select
　　　　End　Sub

End　Class

次ページ

続きを表示

1を表示