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
以上有"十"的地方請改為"+"因為這好像不能顯示
參考資料： 學校....