y = (Height - s.Height) / 2 ''''文字相对控件y偏移

        ''''写文本

        If (Enabled) Then ''''如果控件可用，则黑色文字

            ''''g.DrawString(Text, Font, Brushes.Black, x, y)

            Dim b As New SolidBrush(m_textcolor)

            g.DrawString(Text, Font, b, x, y)

        Else ''''如果控件不可用，则灰色文字

            g.DrawString(Text, Font, Brushes.Gray, x, y)

        End If

    End Sub

End Class

 ‘////////////////////////////////////闵峰

 ‘////////////////////////////////////闵峰

 << 上一页  [11] [12] [13]