急急急，在线等待！有什么方法可以让 TextBox 有滚动条？？？

Question

请问！有什么方法可以让 TextBox 有滚动条？？？

Answer 1

ScrollBars 属性常数 设置值 描述 
VbSBNone 0 （缺省值）无 
VbHorizontal 1 水平 
VbVertical 2 垂直 
VbBoth 3 两种 

Answer 2

把multiline属性设为true ,就自动会有了,不需要单独架设呀

Answer 3

文本超出控件的体积时就会出现了啊
晕啊晕啊
怎么都只剩下我这种菜鸟了啊
CSDN是不是发生人事变动了啊

Answer 4

把multiline属性设为true ,再去设ScrollBars 属性

Answer 5

鸟鸟，好好看看 Textbox  的属性，ok
这么**的问题

Answer 6

两个办法，
在设计时设置textbox的multiline属性设为true 
ScrollBars 属性为...(见  SoHo_Andy(冰) (说的)
还有一个运行时改变风格：
Option Explicit
Private Declare Function ShowScrollBar Lib "user32" (ByVal _
    hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) _
    As Long
Private Const SB_HORZ = 0‘水平
Private Const SB_VERT = 1’垂直
Private Const SB_BOTH = 3‘两者都有Private Sub Command1_Click()
    ShowScrollBar Text1.hwnd, SB_BOTH, True
End Sub