PP 發問時間: 電腦與網際網路程式設計 · 1 0 年前

VB.NET 急.....20點

第一、在不使用textbox下,做一個簡易文字輸入

條件 : 利用keypress 事件讀取使用者輸入的資料

利用label 控制元件顯示使用者輸入的資料

可以輸入中文字

按下backspace 鍵時 清除label 所顯示的資料

按下ctrl + enter 鍵時 文字跳一行

按下enter 鍵時 使用msgbox 顯示資料,然後結束程式

第二、可以移動圖片

除了上下左右鍵移動圖片外

當按 home 鍵時 可將圖片移到左上角

按end 鍵時 可將圖片移到左下角

按pageup 鍵時 可將圖片移到右上角

按pagedown 鍵時 可將圖片移到右下角

謝謝回答~^^

已更新項目:

不好意思可以用vb 2005的方式寫嗎~謝謝~~

2 個解答

評分
  • 1 0 年前
    最佳解答

    1.

    Public Class Form1

    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress

    Label1.Text &= e.KeyChar

    End Sub

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

    If e.KeyData = Keys.Back Then Label1.Text = ""

    If e.KeyData = Keys.Return Then

    MsgBox(Label1.Text)

    Close()

    End If

    If e.Control Then

    If e.KeyData = Keys.Return Then

    Label1.Text &= vbCrLf

    End If

    End If

    End Sub

    End Class

    2.

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

    Dim x = PictureBox1.Location.X

    Dim y = PictureBox1.Location.Y

    Dim z = 5

    If e.KeyCode = Keys.Left And x - z >= 0 Then

    x -= z

    ElseIf e.KeyCode = Keys.Up And y - z >= 0 Then

    y -= z

    ElseIf e.KeyCode = Keys.Down And y 十 z 十 PictureBox1.Height <= Me.ClientSize.Height Then

    y 十= z

    ElseIf e.KeyCode = Keys.Right And x 十 PictureBox1.Width 十 z <= Me.ClientSize.Width Then

    x 十= z

    ElseIf e.KeyCode = Keys.Home Then

    x = 0 : y = 0

    ElseIf e.KeyCode = Keys.End Then

    x = 0 : y = Me.ClientSize.Height - PictureBox1.Height

    ElseIf e.KeyCode = Keys.PageUp Then

    x = Me.ClientSize.Width - PictureBox1.Width : y = 0

    ElseIf e.KeyCode = Keys.PageDown Then

    x = Me.ClientSize.Width - PictureBox1.Width

    y = Me.ClientSize.Height - PictureBox1.Height

    End If

    PictureBox1.Location = New Point(x, y)

    End Sub

    以上有"十"的地方請改為"+"因為這好像不能顯示

    參考資料: 學校....
  • 1 0 年前
    參考資料: 阿國仔
還有問題?馬上發問,尋求解答。