Picture1.AutoRedraw = True

為遷西等地區(qū)用戶(hù)提供了全套網(wǎng)頁(yè)設(shè)計(jì)制作服務(wù),及遷西網(wǎng)站建設(shè)行業(yè)解決方案。主營(yíng)業(yè)務(wù)為網(wǎng)站建設(shè)、做網(wǎng)站、遷西網(wǎng)站設(shè)計(jì),以傳統(tǒng)方式定制建設(shè)網(wǎng)站,并提供域名空間備案等一條龍服務(wù),秉承以專(zhuān)業(yè)、用心的態(tài)度為用戶(hù)提供真誠(chéng)的服務(wù)。我們深信只要達(dá)到每一位用戶(hù)的要求,就會(huì)得到認(rèn)可,從而選擇與我們長(zhǎng)期合作。這樣,我們也可以走得更遠(yuǎn)!
'必須設(shè)為 True ,這樣才能圖形和文本輸出到屏幕,并存儲(chǔ)在內(nèi)存的圖象中。然后可以使用 Image 屬性
SavePicture Picture1.Image, "C:\Pic1.BMP"
'此代碼保存的是 Picture1 里使用 Line 、 Circle 、PaintPicture 等繪圖方法畫(huà)出來(lái)的圖片,包括背景色以及 PICTURE 屬性指定的背景圖片
'Picture1.Image 就是調(diào)用了 Picture1 的 Image 屬性
'"C:\Pic1.BMP" 就是保存的文件名
'注意:Image 屬性輸出的圖片總是 BMP 格式的。如果要保存成 JPG/GIF 等格式,則必須轉(zhuǎn)換!
SavePicture Picture1.Picture, "C:\Pic1.BMP"
'此代碼保存的是 Picture1 里的 PICTURE 屬性里的圖片
'PICTURE 屬性輸出的圖片格式取決于 PICTURE 屬性里的圖片的格式。
'例如,如果使用 LoadPicture("C:\B1.GIF") 導(dǎo)入了一個(gè) GIF 圖片,則 PICTURE 屬性輸出的圖片的格式就是 GIF 格式的
Dim?xx?As?Double,?yy?As?Double
Private?Sub?Form_MouseMove(Button?As?Integer,?Shift?As?Integer,?X?As?Single,?Y?As?Single)
If?xx?=?0?And?yy?=?0?Then
xx?=?X:?yy?=?Y
Else
Form1.Line?(xx,?yy)-(X,?Y),?1
End?If
xx?=?X:?yy?=?Y
End?Sub
我調(diào)試成功的例子。
。net 不用api就行
縮放操作
Function 縮放(ByVal bitmap As Bitmap, ByVal 倍數(shù) As Single) As Bitmap
Dim w As Integer = bitmap.Width * 倍數(shù)
Dim h As Integer = bitmap.Height * 倍數(shù)
Dim tem As New Bitmap(w, h)
Dim g As Graphics = Graphics.FromImage(tem)
g.DrawImage(bitmap, New Rectangle(0, 0, w, h), New Rectangle(0, 0, bitmap.Width, bitmap.Height), GraphicsUnit.Pixel)
g.Dispose()
Return tem
End Function
鼠標(biāo)滾輪事件 MouseWheel
MouseEventArgs.Delta 值可以判斷滾動(dòng)方向
分享題目:vb.net鼠標(biāo)移動(dòng)繪圖,vbs模擬鼠標(biāo)移動(dòng)
本文來(lái)源:http://chinadenli.net/article49/dsedgeh.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供動(dòng)態(tài)網(wǎng)站、網(wǎng)站營(yíng)銷(xiāo)、網(wǎng)站建設(shè)、營(yíng)銷(xiāo)型網(wǎng)站建設(shè)、域名注冊(cè)、品牌網(wǎng)站制作
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話(huà):028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)