重慶分公司,新征程啟航
為企業提供網站建設、域名注冊、服務器等服務
為企業提供網站建設、域名注冊、服務器等服務
這個問題不是小問題。如果只是90度轉,vb.net的picture控件有RotateFlip方法。
創新互聯建站自2013年創立以來,先為英山等服務建站,英山等地企業,進行企業商務咨詢服務。為英山企業網站制作PC+手機+微官網三網同步一站式服務解決您的所有建站問題。
任意角度,可以參考這個
;cs-lang=csharp
圖片的變換涉及坐標處理,要自己算。
還有可以用Windows Presentation Foundation (WPF) 編程,里面的image控件好像也能旋轉圖片。
如果是VB6,恐怕只能用API函數了,百度一下“vb 旋轉圖片” “VB api函數”了解一下
private sub timer1_timer()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Int(Rnd() * 255)
b = Int(Rnd() * 255)
c = Int(Rnd() * 255)
lblTitle.ForeColor = RGB(a, b, c)
end sub
這個太簡單了吧.
Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim style As FontStyle
If Me.CheckBox1.Checked Then
style = style Or FontStyle.Bold
End If
If Me.CheckBox2.Checked Then
style = style Or FontStyle.Italic
End If
If Me.CheckBox3.Checked Then
style = style Or FontStyle.Underline
End If
Dim myFont As Font = New Font(TextBox1.Text, 20, style, GraphicsUnit.Pixel)
If TextBox1.Text.ToLower "microsoft sans serif" And myFont.Name.ToLower = "microsoft sans serif" Then
MessageBox.Show("不存在該字體!", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return
End If
Label1.Font = myFont
End Sub
Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CheckBox1.Text = "黑體"
Me.CheckBox2.Text = "斜體"
Me.CheckBox3.Text = "下劃線"
End Sub
End Class