vb点虐 标签竖放 vb标签框

VS中tabcontrol能不能设置竖排的？或是说是不是需要添加竖排标签的控件？

能，在tabcontrol的drawitem事件中加一个方法，函数内容可以是

10多年的巴东网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。成都全网营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整巴东建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“巴东网站设计”,“巴东网站推广”以来，每个客户项目都认真落实执行。

Private Sub leftDraw(ByVal sender As Object, ByVal e As DrawItemEventArgs)

Dim sf As StringFormat = New StringFormat

sf.LineAlignment = StringAlignment.Center

sf.Alignment = StringAlignment.Center

Dim tc As TabControl = sender

e.Graphics.DrawString(tc.TabPages(e.Index).Text, SystemInformation.MenuFont, New SolidBrush(Color.Black), e.Bounds, sf)

End Sub

VB点虐 的，我刚刚写的， 试过了，可以用。

VB.NET ProgressBar怎么竖起来

Public Class VerticalProgressBar

Inherits ProgressBar

Protected Overrides ReadOnly Property CreateParams() As CreateParams

Get

Dim cp As CreateParams = MyBase.CreateParams

cp.Style = cp.Style Or H4

Return cp

End Get

End Property

End Class

上面的代码是VB.Net对应的代码

VB如何让LABEL里的文字竖排

让LABEL里的文字竖排方法：

设置Label控件的Alignment为2

调整字号大小到显示单个字，或者收小Label控件的宽度（Width）

代码方法：

Private Function Vertical_Horizontal(ByVal nStr As String) As String

Dim MyStr As String, i As Integer

Static Vert As Boolean

For i = 1 To Len(nStr)

If i  Len(nStr) Then

MyStr = MyStr + Mid$(nStr, i, 1)  vbCrLf

Else

MyStr = MyStr + Mid$(nStr, i, 1)

End If

Next

Vertical_Horizontal = MyStr

Vert = True

End Function

Private Sub Form_Load()

Label1.AutoSize = True

Label1.Caption = "VB如何让标签里的文字竖排"

Label1.Caption = Vertical_Horizontal(Label1.Caption)

End Sub

vb点虐 中使Graphics.DrawString画一字符串都是横着显示,如何让此串字符竖着显示？

gf.DrawString("竖着的值", Font, Brush, new point(X,Y) ,new StringFormat(StringFormatFlags.DirectionVertical));

用这个方法可以