VB.NET picturebox 內繪圖完圖形放大縮小移動 鼠標控制 。比較笨看了VB的代碼不明白 求解

。net 不用api就行

成都創新互聯專注于普安網站建設服務及定制，我們擁有豐富的企業做網站經驗。 熱誠為您提供普安營銷型網站建設，普安網站制作、普安網頁設計、普安網站官網定制、重慶小程序開發服務，打造普安網絡公司原創品牌,更為您提供普安網站排名全網營銷落地服務。

縮放操作

Function 縮放(ByVal bitmap As Bitmap, ByVal 倍數 As Single) As Bitmap

Dim w As Integer = bitmap.Width * 倍數

Dim h As Integer = bitmap.Height * 倍數

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

鼠標滾輪事件 MouseWheel

MouseEventArgs.Delta 值可以判斷滾動方向

vb.net控件位置跟隨圖片框大小變化

以下代碼測試成功，圖片大小和位置改變后，標簽控件依然在這個點上。

Dim?px,?py,?lx,?ly?As?Integer

Private?Sub?PictureBox1_Resize(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?PictureBox1.Resize

If?px??0?And?py??0?Then

Label1.Location?=?New?Point(PictureBox1.Size.Width?/?px?*?lx,?PictureBox1.Size.Height?/?py?*?ly)

End?If

End?Sub

Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load

px?=?PictureBox1.Size.Width

py?=?PictureBox1.Size.Height

lx?=?Label1.Location.X

ly?=?Label1.Location.Y

End?Sub

vb.net 平面按鈕

本來有個屬性FlatStyle設置為Popup基本上能實現這個情況，怎奈有個線框怎么也弄不掉。FlatAppearance.BorderSize設置為0不起作用，只對Flat有用，所以用代碼在Flat和Popup兩種風格之間切換。

'在鼠標進入時設置為浮雕風格

Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter

Button1.FlatStyle = FlatStyle.Popup

End Sub

'離開時設置為平面風格，這樣像標簽一樣只剩下文字，當然要FlatAppearance.BorderSize設置為0

Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave

Button1.FlatStyle = FlatStyle.Flat

End Sub

'另外把UseVisualStyleBackColor 設置為 False也會好看一點。

當前名稱：vb.net按鈕圖形大小 vb按鈕圖片配合按鈕大小
本文網址：http://www.yijiale78.com/article30/dohisso.html

成都網站建設公司_創新互聯，為您提供用戶體驗、品牌網站制作、微信小程序、網站制作、搜索引擎優化、品牌網站設計

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯