拉风的Lee 2019-04-18 13:46 采纳率: 33.3%
浏览 1483
已采纳

vb.net 如何让label中的文字旋转90°显示呢?

Public Class MyLabel

Inherits Label   

    Protected Overrides Sub OnPaint(e As PaintEventArgs) 

    e.Graphics.RotateTransform(45)

    e.Graphics.DrawEllipse(New Pen(Color.Red), New Rectangle(2, 2, 10, 10))

 MyBase.OnPaint(e)

    End Sub

    End Class

以上代码只能绘制一个label,并不能旋转90°,如何实现90°旋转呢??


  • 写回答

2条回答 默认 最新

  • threenewbee 2019-04-18 15:16
    关注

    采纳本回答,留下email,发给你完整代码

    其他人需要,可以从 https://download.csdn.net/download/caozhy/11126264 下载

    图片说明

    使用我的程序,只要填加一个类和FormLoad/Closing少量代码,把你label的名字前缀设置为vlbl开头,运行的时候自动旋转。不需要单独设置,不需要新控件

    
    Public Class Form1
    
        Private sclist As New List(Of SubClassing)
    
        Private Const WM_PAINT As Integer = &HF
    
        Private Sub sc_CallBackProc(ByVal h As IntPtr, ByRef m As System.Windows.Forms.Message)
            Select Case m.Msg
                Case WM_PAINT
                    Dim l As Label = Controls.OfType(Of Label).First(Function(x) x.Handle = h)
                    If Not (l Is Nothing) Then
                        Dim g As Graphics = l.CreateGraphics()
                        g.FillRectangle(New SolidBrush(l.BackColor), 0, 0, l.Width, l.Height)
                        Dim mat = g.Transform
                        Dim rmat = g.Transform
                        rmat.RotateAt(90, New PointF(l.Width / 2, l.Height / 2))
                        g.Transform = rmat
                        g.DrawString(l.Text, l.Font, Brushes.Black, New PointF(0, 0))
                        g.Transform = mat
                    End If
            End Select
        End Sub
    
        Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
            For Each item As SubClassing In sclist
                item.ReleaseHandle()
            Next
        End Sub
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            For Each l As Label In Controls.OfType(Of Label)()
                If l.Name.StartsWith("vlbl") Then
                    With l
                        l.AutoSize = False
                        l.Size = New Size(l.Size.Width, l.Size.Width)
                        Dim sc As SubClassing = New SubClassing(l.Handle)
                        sc.SubClass = True
                        AddHandler sc.CallBackProc, AddressOf sc_CallBackProc
                        sclist.Add(sc)
                    End With
                End If
            Next
        End Sub
    End Class
    
    
    '来自 https://www.codeproject.com/articles/3234/subclassing-in-net-the-pure-net-way
    
    Public Class SubClassing
        Inherits System.Windows.Forms.NativeWindow
    
        'Event Declaration. This event will be raised when any  
        'Message will be posted to the Control
        Public Event CallBackProc(ByVal hwnd As IntPtr, ByRef m As Message)
    
        'Flag which indicates that either Event should be 
        'raised or not
        Private m_Subclassed As Boolean = False
    
        'During Creation of Object of this class, Pass the Handle 
        'of Control which you want to SubClass
        Public Sub New(ByVal handle As IntPtr)
            MyBase.AssignHandle(handle)
        End Sub
    
        'Terminate The SubClassing
        'There is no need to Create this Method. Cuz, 
        'when you will create the Object
        'Of this class, You will have the Method Named ReleaseHandle.
        'Just call that as you can see in this Sub
    
        'Public Sub RemoveHandle()
        '    MyBase.ReleaseHandle()
        'End Sub
    
        'To Enable or Disable Receiving Messages
        Public Property SubClass() As Boolean
            Get
                Return m_Subclassed
            End Get
            Set(ByVal Value As Boolean)
                m_Subclassed = Value
            End Set
        End Property
    
        Protected Overrides Sub WndProc(ByRef m As Message)
            If m_Subclassed Then 'If Subclassing is Enabled 
                MyBase.WndProc(m)
                RaiseEvent CallBackProc(MyBase.Handle, m) 'then RaiseEvent
            End If
        End Sub
    
        Protected Overrides Sub Finalize()
            MyBase.Finalize()
        End Sub
    End Class
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?

悬赏问题

  • ¥20 Apache poi使用问题
  • ¥21 matlab怎么求时域信号的二阶导数
  • ¥15 判断两个表是否完全相同
  • ¥15 java map类型数据格式,如何快速通过前缀匹配元素
  • ¥15 stc12c5a60s2、QMC5883L、LCD1602组合测量磁场所需程序
  • ¥20 Win11测试yolov4,“找不到nvcuda.dll”怎么办?
  • ¥15 simulink绘制bode图
  • ¥15 php_network_getaddresses: getaddrinfo failed: Name or service not known
  • ¥15 用msg发消息出现的问题
  • ¥15 unity3d机械臂