日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

我們在學習一門編程語言的時候，需要通過不斷的實踐去積累經(jīng)驗，來加深我們對這門語言的理解程度。對于 VB.NET的學習同樣也是如此。在這里我們先通過一段VB.NET中心旋轉(zhuǎn)圖像的實現(xiàn)代碼來初步的了解一下這門語言的編寫方式和應用方法。

目前創(chuàng)新互聯(lián)已為上千的企業(yè)提供了網(wǎng)站建設、域名、虛擬空間、網(wǎng)站托管、服務器租用、企業(yè)網(wǎng)站設計、鹽城網(wǎng)站維護等服務，公司將堅持客戶導向、應用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

鼠標拖拽旋轉(zhuǎn)。實現(xiàn)任意角度的VB.NET中心旋轉(zhuǎn)圖像。

 
 
 

  
  
  
Public Class Form1  
  
  
  
Dim bmp As Bitmap  
  
  
  
Dim bmpsize As Single  
  
  
  
Dim gr As Graphics  
  
  
  
Dim pb As Point  
  
  
  
Dim po As PointF  
  
  
  
Private Sub Form1_Load(ByVal sender As 
System.Object, ByVal e As System.EventArgs)
 Handles MyBase.Load  
  
  
  
bmpsize = Math.Sqrt(Me.Icon.Width ^ 
2 + Me.Icon.Height ^ 2)  
  
  
  
bmp = New Bitmap(CInt(bmpsize), CInt(bmpsize))  
  
  
  
gr = Graphics.FromImage(bmp)  
  
  
  
po = New PointF((bmpsize - Me.Icon.Width) 
/ 2, (bmpsize - Me.Icon.Height) / 2)  
  
  
  
gr.DrawIcon(Me.Icon, po.X, po.Y)  
  
  
  
PictureBox1.Image = bmp 
  
  
  
End Sub  
  
  
  
Private Sub PictureBox1_MouseDown(ByVal 
sender As Object, ByVal e As System.Windows.
Forms.MouseEventArgs) Handles PictureBox1.MouseDown  
  
  
  
pb = e.Location  
  
  
  
End Sub  
  
  
  
Private Sub PictureBox1_MouseMove(ByVal 
sender As Object, ByVal e As System.Windows.
Forms.MouseEventArgs) Handles PictureBox1.MouseMove  
  
  
  
If Not pb = Point.Empty Then  
  
  
  
'O\-----------B  
  
  
  
' \   
  
  
  
' \  
  
  
  
' \  
  
  
  
' E  
  
  
  
Dim vOB, vOE As Windows.Vector  
  
  
  
vOB = New Windows.Vector(bmpsize / 2, 
bmpsize / 2) - New Windows.Vector(pb.X, pb.Y)  
  
  
  
vOE = New Windows.Vector(bmpsize / 2, bmpsize / 2)
 - New Windows.Vector(e.X, e.Y)  
  
  
  
'可以用叉乘求面積，正負號代表旋轉(zhuǎn)方向，而后正弦定理求角度，  
  
  
  
Dim O As Double = Windows.Vector.AngleBetween(vOB, vOE)  
  
  
  
'若角度為有效值  
  
  
  
gr.TranslateTransform(bmpsize / 2, bmpsize / 2) 
'移動坐標至圖像中心  
  
  
  
gr.RotateTransform(O) '按角度旋轉(zhuǎn)  
  
  
  
gr.TranslateTransform(-bmpsize / 2, -bmpsize / 2)
 '移回  
  
  
  
gr.Clear(Color.Transparent) '清除原有圖像  
  
  
  
gr.DrawIcon(Me.Icon, po.X, po.Y) '繪制新圖像  
  
  
  
PictureBox1.Image = bmp 
  
  
  
pb = e.Location  
  
  
  
End If  
  
  
  
End Sub  
  
  
  
Private Sub PictureBox1_MouseUp(ByVal sender As 
Object, ByVal e As System.Windows.Forms.MouseEventArgs) 
Handles PictureBox1.MouseUp  
  
  
  
pb = Point.Empty  
  
  
  
End Sub  
  
  
  
End Class 
 
 
 

VB.NET中心旋轉(zhuǎn)圖像的具體操作方法就為大家介紹到這里，希望對大家有所幫助。

當前標題：VB.NET中心旋轉(zhuǎn)圖像實現(xiàn)技巧分享
文章路徑：http://www.5511xx.com/article/ccohseh.html