如何根据RichTextBox、TreeView和WebBrowser的内容动态改变控件的Height值呢？在线等待。恳求达人帮忙！

Question

如题。
如何根据RichTextBox、TreeView和WebBrowser的内容改变控件的Height值呢？

Answer 1

我想大概TreeView可以判断当前显示的项数，然后在将单项高乘上去就行了~单项高可以量~
RichTextBox就是获取行数咯~

Answer 2

关于RichText控件的自动行高问题，你查查EN_REQUESTRESIZE消息吧！～这才是解决该问题的终极方法！～
需要用到SubClas技术。部分代码如下：
'先绑定消息：
    '自动适应尺寸   
    SendMessageLong m_hWnd, EM_SETEVENTMASK, 0, ENM_REQUESTRESIZE      '设置事件掩码'再在SubClass消息处理中加入：    Case WM_NOTIFY  '系统通知
        CopyMemory tNMH, ByVal lParam, Len(tNMH)
        If (tNMH.hwndFrom = m_hWnd) Then
            Select Case tNMH.code
            Case EN_REQUESTRESIZE
                Dim lngH As Long
                Call CopyMemory(rResize, ByVal lParam, Len(rResize))
                lngH = (rResize.rc.Bottom - rResize.rc.Top) * Screen.TwipsPerPixelY
                rtbThis.Height = lngH
......

Answer 3

http://www.cnpopsoft.com/blog/article.asp?id=3
看看里面关于“Bottomless”的描述就知道了！！