返回首页

我有一个类似的问题,并想出了如何添加一个位图到形式。现在我需要找出如何添加位图后,我已经旋转面板。

在此图形的东西初学者所以请帮助我。

这位图加载到窗体

Public Class Form1

    Private angle As Integer

    Dim imagetwo As Bitmap

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

        imagetwo = New Bitmap("C:\Documents and Settings\wiswalld\My Documents\DEP Police Patch.bmp")

        imagetwo.MakeTransparent(Color.Black)

    End Sub

 

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

        e.Graphics.TranslateTransform(60, 60)

        e.Graphics.RotateTransform(angle)

        e.Graphics.DrawImage(imagetwo, -50, -50, 100, 100)

        e.Graphics.ResetTransform()

    End Sub

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.angle += 5

        Me.Refresh()

    End Sub

End Class

回答

评论会员: 时间:2
S