?? vb中如何平鋪顯示圖片.txt
字號(hào):
你 可 以 Form上 放 置 一 個(gè) PictureBox, 將 Visible屬 性 設(shè) 為 False, AutoSize屬 性 設(shè) 為 True。 將 PictureBox的 Picture屬 性 設(shè) 置 為 你 需 要 的 圖 片 。 然 后 在 Form_Paint事 件 中 輸 入 如 下 代 碼 :
Private Sub Form_Paint()
Dim wid As Single
Dim hgt As Single
Dim x As Single
Dim y As Single
wid = Picture1.ScaleWidth
hgt = Picture1.ScaleHeight
y = 0
Do While y < ScaleHeight
x = 0
Do While x < ScaleWidth
PaintPicture Picture1.Picture, _
x, y, wid, hgt
x = x + wid
Loop
y = y + hgt
Loop
End Sub
<END>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -