如何判断RichTextBox中是否出现了滚动条?请进

Question

Richtextbox属性值ScrollBars=rtfVertical,载入文件内容到RichTextBox中,如何判断RichTextBox中是否出现了滚动条.

Answer 1

不知道这个对你有没有用:
http://topic.csdn.net/u/20080416/11/baf25fc0-a4a3-4e0b-9904-dbddc24ed1d7.html

Answer 2

GetScrollrange这个函数不知道可不可以?还有GetScrollPos这个函数???

Answer 3

'添加 Command1  RichTextBox1Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const EM_GETFIRSTVISIBLELINE = &HCE
Const WM_VSCROLL = &H115
Const SB_LINEUP = 0
Const SB_LINEDOWN = 1
Dim NewStr$, OldStr&
Private Sub Form_Load()
   RichTextBox1.Text = ""
   For i = 1 To 60 '你故意弄少一点就没滚动条
      RichTextBox1.Text = RichTextBox1.Text & i & vbCrLf
   Next
End SubPrivate Sub Command1_Click()
   OldStr = Format$(SendMessage(RichTextBox1.hwnd, EM_GETFIRSTVISIBLELINE, 0, 0))
   Call SendMessage(RichTextBox1.hwnd, WM_VSCROLL, SB_LINEDOWN, 0)
   NewStr = Format$(SendMessage(RichTextBox1.hwnd, EM_GETFIRSTVISIBLELINE, 0, 0))
   Call SendMessage(RichTextBox1.hwnd, WM_VSCROLL, SB_LINEUP, 0)
   MsgBox IIf(NewStr <> OldStr, "有滚动条", "没有滚动条")
End Sub