- 最後登錄
- 2023-4-24
- 在線時間
- 1 小時
- 註冊時間
- 2008-2-21
- 閱讀權限
- 20
- 精華
- 2
- UID
- 3564573
- 帖子
- 489
- 積分
- 45 點
- 潛水值
- 14311 米
| 若新密碼無法使用,可能是數據未更新。請使用舊密碼看看。 本帖最後由 littlescott 於 2013-4-12 10:10 AM 編輯
- Public Class Form1
- Dim X As Integer, Y As Integer
- Dim pen As Pen = New Pen(Color.Black, 1)
- Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles Me.Paint
- Dim g As Graphics = e.Graphics
- g.Clear(Color.Blue)
- End Sub
- Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseDown
- X = e.X
- Y = e.Y
- Label1.Text = "X = " & X & " Y = " & Y
- End Sub
- Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseMove
- PictureBox1.Invalidate()
- If e.Button = Windows.Forms.MouseButtons.Left Then
- Dim g As Graphics = Me.CreateGraphics
- g.DrawRectangle(pen, X, Y, e.X - X, e.Y - Y)
- End If
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim Picture = New Bitmap("C:\1.bmp")
- PictureBox1.Image = Picture
- End Sub
- End Class
複製代碼 不好意思.....哪裡有做錯嗎...
|
|