JBTALKS.CC

标题: [VB]有没有方法可以吧MDICLIENT的SCROLLBAR关掉？ [打印本页]
作者: goodhermit95    时间: 2009-11-7 09:39 PM
标题: [VB]有没有方法可以吧MDICLIENT的SCROLLBAR关掉？
如题，我不要吧scrollbar藏起来罢了，我要form不会飞出范围
GOOGLE找了一大堆不是看不懂就是不是我要的
作者: goodday    时间: 2009-11-7 09:58 PM
有难度 , 没做过
帮你找找
作者: TSHsoft    时间: 2009-11-7 10:35 PM
例如？有什么软件是这样的吗？可以发个截图看看吗？
作者: goodhermit95    时间: 2009-11-8 10:11 AM
标题: 回复 #3 TSHsoft 的帖子
我是要form不会跑出去就在那个范围而已

如果只是要藏起来就很简单
dim c as control
for each c in me.controls
if typeof c is mdiclient then
c.dock = none
c.location = new point(-2,-2) '把3d border 藏起来不然很怪
c.height += 10
c.width += 10
'如果有其它东西如menustrip或statusstrip就要改变
end if
next
作者: TSHsoft    时间: 2009-11-8 10:33 AM
正常是mdiclient移动超过mdiparent范围的时候，mdiparent就自动会有scrollbar出现，所以你不要让scrollbar出现也不要让mdiclient超过mdiparent的范围咯~ 是吗？

不好意思，我很少用vb2008。呵呵！em0013
作者: goodday    时间: 2009-11-8 12:58 PM
就是咯

你找到什么link paste 上来
我去看看
我的 语言能力 还复杂的 因该可以消化吧
作者: goodhermit95    时间: 2009-11-8 01:58 PM

  2. Public Class Form1

  4.     Dim mdiClient As MdiClient = Nothing
  5.     Dim SB_BOTH As Integer = 3

  7.     <DllImport("user32.dll")> _
  8.     Private Shared Function ShowScrollBar(ByVal hWnd As IntPtr, ByVal wBar As Integer, ByVal bShow As Integer) As Integer
  9.     End Function

  11.     Protected Overrides Sub WndProc(ByRef m As Message)
  12.         If mdiClient IsNot Nothing Then
  13.             ShowScrollBar(mdiClient.Handle, SB_BOTH, 0)
  14.         End If

  16.         MyBase.WndProc(m)
  17.     End Sub

  19.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

  21.         For Each c As Control In Me.Controls
  22.             If TypeOf c Is MdiClient Then
  23.                 mdiClient = c
  24.             End If
  25.         Next

  27.         Dim fm As Form = New Form2
  28.         fm.MdiParent = Me
  29.         fm.Show()

  31.     End Sub
  32. End Class
复制代码

  2. <DllImport("user32.dll")> _
  3.     Private Shared Function ShowScrollBar(ByVal hWnd As IntPtr, ByVal wBar As Integer, ByVal bShow As Integer) As Integer
  4.     End Function

  6.     Protected Overrides Sub WndProc(ByRef m As Message)
  7.         If mdiClient IsNot Nothing Then
  8.             ShowScrollBar(mdiClient.Handle, SB_BOTH, 0)
  9.         End If

  11.         MyBase.WndProc(m)
复制代码

  2. private const int SB_BOTH = 3;

  4. private const int WM_NCCALCSIZE = 0x83;

  6. [System.Runtime.InteropServices.DllImport("user32.dll")]

  8. private static extern int ShowScrollBar(IntPtr hWnd, int wBar, int bShow);

  10. protected override void WndProc(ref Message m)
  11. {

  13. if (mdiClient != null)
  14. {

  16. ShowScrollBar(mdiClient.Handle, SB_BOTH, 0);
  17. }

  19. base.WndProc(ref m);
  20. }

  22. MdiClient mdiClient = null;

  24. private void FormMain_Load(object sender, EventArgs e)
  25. {
  26. foreach (Control c in this.Controls)
  27. {
  28. if (c is MdiClient)
  29. {
  30. mdiClient = c as MdiClient;
  31. }
  32. }
  33. }
复制代码
作者: goodday    时间: 2009-11-8 08:01 PM
http://www.codeproject.com/KB/cs ... .aspx?display=Print

你要的
作者: goodhermit95    时间: 2009-11-9 09:36 AM
标题: 回复 #8 goodday 的帖子
简单了，直接加一个参考就可以了
然后用ＩＬＭＥＲＧＥ就搞定



欢迎光临 JBTALKS.CC (https://jbtalks.my/) Powered by Discuz! X2.5