1.vb记事本中左对齐和右对齐的代码怎么写
设定Alignment 属性,但其在执行阶段为唯读
0 -- 靠左
1 -- 靠右
2 -- 靠中
要确保 Alignment 属性能够正确作用,Textbox 控制项中的 MultiLine 属性就必须设
定为 True。如果 Textbox 控制项中的 MultiLine 设定为 False,则会忽略Alignment
属性的设定。
所以,如果您想设定其为单行,又想令其有非左靠齐的作用那只好在TextBox的KeyPress
下底下的程式,以去除Enter的作用,当然要先设定MultiLine = True
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
KeyAscii = 0
End If
End Sub
2.vbcommand中文本框的内容靠左对齐
VB的文本框不支持这种操作,你可以用富文本框来实现这种操作。打开工程菜单,选部件,选中Microsoft Rich Textbox Control,确定。然后就可以把富文本框添加到窗体上了。下面是实现对齐的代码。
Private Sub Command1_Click()
RichTextBox1.SelAlignment = rtfLeft
End Sub
Private Sub Command2_Click()
RichTextBox1.SelAlignment = rtfCenter
End Sub
Private Sub Command3_Click()
RichTextBox1.SelAlignment = rtfRight
End Sub
转载请注明出处育才学习网 » vb中文本框的对齐怎么写代码