如果在design time 設定 ScrollBars = 1 (horizontal), scroll bar 就可以 scroll, 但在 run time 才 ShowscrollBar, scroll bar 不能動, 文字自動換行﹐ 為什么 ﹖
Private Declare Function ShowScrollBar Lib "user32" (ByVal hWnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
Private Const SB_VERT = 1
Private Const SB_HORZ = 0
Private Sub Form_Load()
ShowScrollBar Text1.hWnd, SB_HORZ, True
End Sub
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(0) 人氣()