怎么让VB窗口form标题的字在正中间显示??

来源：百度知道 编辑：UC知道 时间：2024/06/10 18:51:57
也就是说:Me.caption="VB,你好" 在标题栏的中间显示 .....
应该要用代码才能实现吧....
一楼的还是不够具体啊,空格要打多少呢?怎么定位在最中间呢???

下面的公式是拼出来的，哈
Public Function GetStrlength(ByVal s As String) As Integer
Dim l As Integer
For i = 1 To Len(s)
l = l + IIf(Asc(Mid(s, i)) < 0, 2, 1)
Next i
End Function

Private Sub Form_Resize()
Dim s As String
s = "VB,你好"
n = (Width - GetStrlength(s) * 105) / 105 / 2.5
Caption = Space(n) & s
End Sub

Private Sub Form_Load()
Form1.Caption = " 这里要是空格 Form1"
End Sub

慢慢调试