0

私は迷路ゲームを作ろうとしていますが、これは私がうまくいかないように見える唯一のコードです。ピクチャーボックス（プレーヤー）を矢印キーの方向に動かしたい。私はこのコードを試しました：

Private Sub BLevel1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    If e.KeyCode = 37 Then
        PictureBoxPlayer.Left = PictureBoxPlayer.Left - 10
    ElseIf e.KeyCode = 38 Then
        PictureBoxPlayer.Top = PictureBoxPlayer.Top - 10
    ElseIf e.KeyCode = 39 Then
        PictureBoxPlayer.Left = PictureBoxPlayer.Left + 10
    ElseIf e.KeyCode = 40 Then
        PictureBoxPlayer.Top = PictureBoxPlayer.Top + 10
    End If
End Sub

ロケーション コードも試しましたが、矢印キーで画像ボックスが動かないようです。これは私が遭遇している唯一の問題です。これを解決する方法についてのアイデアはありますか?

4

2 に答える 2

0

Listbox1 を使ってみて、画像配列を作って listbox1 が見えないように戻してから、画像フォルダのフォルダパスから listbox1 を追加範囲指定すると、シンプルな画像ビューアのように見えます。

これを試すことができます

クリックメソッドでボタンまたは何かを使用する

    Dim myimg As Array
Private Sub img_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles img.Click
    If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
        myimg = IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath)
        ListBox1.Items.AddRange(myimg)
        ListBox1.SelectedIndex = 0
    End If
End Sub

次に、リストボックスでタブインデックスを1に設定し、listbox1を2回クリックしてこれを挿入します

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    Me.Refresh()
    Me.BackgroundImage = Nothing
    Me.BackgroundImage = Image.FromFile(ListBox1.SelectedItem.ToString)
End Sub

矢印キーを使用すると、画像が自動的に変わります。Me を Picturebox に変更できます。それが役に立てば幸い

于 2013-10-07T04:07:45.477 に答える