如何使位于文本框中的文字上下居中（即垂直居中）

[lmlm4]

如何使位于文本框中的文字上下居中（即垂直居中）

[CONGCONG1105]

不知道，帮顶

[tingting1123]

'两个CommandButton；一个Label；一个TextBox并设置MultiLine为True
Dim isMidle As Boolean
Private Sub Command1_Click()
On Error Resume Next
Dim OneTextH As Single
OneTextH = Me.TextHeight("A")
linenum = Split(Text1, vbCrLf)
Text1.Height = Len(Text1) * OneTextW * OneTextH / Text1.Width + UBound(linenum) * OneTextH + OneTextH
If Text1.Height > Label1.Height - 100 Then Text1.Height = Label1.Height - 100
Text1.Move Label1.Left + 50, Label1.Top + (Label1.Height - Text1.Height) / 2
isMidle = True
End Sub

Private Sub Command2_Click()
Form_Load
End Sub

Private Sub Form_Load()
Label1.Width = 2000
Label1.Height = 500
Label1.BorderStyle = 1
Label1.BackColor = vbWhite
Label1.Caption = ""
Text1.BorderStyle = 0
Text1.BackColor = vbWhite
Text1.Width = Label1.Width - 100
Text1.Left = Label1.Left + 50
Text1.Top = Label1.Top + 50
Text1.Height = Label1.Height - 100
Command1.Caption = "上下居中"
Command2.Caption = "还原"
isMidle = False
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If isMidle = True Then
If KeyCode = 13 Or KeyCode = 8 Or KeyCode = 46 Then Command1_Click
End If
End Sub

看起来感觉差不多

[flyingyi]

路过哦,随便看看.

[KevinI668]

這也能行！頂！

[jinder]

哈哈,有趣,这样看起来确实是差不多.帮顶.

[chengximufeng]

这样还可以