- 最後登錄
- 2024-4-6
- 在線時間
- 110 小時
- 註冊時間
- 2009-11-27
- 閱讀權限
- 20
- 精華
- 0
- UID
- 7287364
- 帖子
- 341
- 積分
- 874 點
- 潛水值
- 33252 米
| 分享使你變得更實在,可以使其他人感到快樂,分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。 謝謝darkjack
因為目前剛學到繪圖,所以沒用得太複雜,也沒設定Mousedown/mouseMove/mouseUp事件
也沒設定Me.Invalidate()重繪,不曉得那個地方有問題
我把整個form1程式碼都列出來- Public Class Form1
- Dim G, GG, IMG
- Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
- Try
- G = e.Graphics
- IMG = Image.FromFil-e("D:\SOFTWARE\IMG_01761.jpg")
- G.DRAWIMAGE(IMG, 0, 0, Me.ClientSize.Width, Me.ClientSize.Height)
- Catch ex As Exception 'IO.FileNotFoundException
- MsgBox("找不到檔案" & ex.Message)
- End Try
- End Sub
- End Class
複製代碼 ...
|
|