【Access示例】设置文本的排列方式/设置垂直显示

时　间:2014-12-13 08:29:10
作　者:风行   ID：16058  城市：江阴
摘　要:可以使用 Vertical 属性设置垂直显示和编辑的窗体控件，或设置垂直显示和打印的报表控件。可读/写 Boolean 类型。
正　文:

点击下载此附件

图   示:

'更改文本框的排列方式
Private Sub cmd_排列_Click()
'对当前的文本框的排列方式取反
    txt_排列.Vertical = Not txt_排列.Vertical
    '根据取反后文本的排列方式更改按钮的标题
    If txt_排列.Vertical = True Then
        cmd_排列.Caption = "横排"
    Else
        cmd_排列.Caption = "竖排"
    End If
End Sub

Private Sub Form_Current()
    Me.txt_排列 = "离离原上草，一岁一枯荣。野火烧不尽，春风吹又生。"
End Sub