[VB]有没有方法可以吧MDICLIENT的SCROLLBAR关掉？

goodhermit95

如题，我不要吧scrollbar藏起来罢了，我要form不会飞出范围
GOOGLE找了一大堆不是看不懂就是不是我要的

goodday

有难度 , 没做过
帮你找找

TSHsoft

例如？有什么软件是这样的吗？可以发个截图看看吗？

goodhermit95

我是要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

正常是mdiclient移动超过mdiparent范围的时候，mdiparent就自动会有scrollbar出现，所以你不要让scrollbar出现也不要让mdiclient超过mdiparent的范围咯~ 是吗？

不好意思，我很少用vb2008。呵呵！em0013

goodday

就是咯

你找到什么link paste 上来
我去看看
我的 语言能力 还复杂的 因该可以消化吧

goodhermit95

1. 
   
2. Public Class Form1
   
3. 
   
4.     Dim mdiClient As MdiClient = Nothing
   
5.     Dim SB_BOTH As Integer = 3
   
6. 
   
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
   
10. 
    
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
    
15. 
    
16.         MyBase.WndProc(m)
    
17.     End Sub
    
18. 
    
19.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
20. 
    
21.         For Each c As Control In Me.Controls
    
22.             If TypeOf c Is MdiClient Then
    
23.                 mdiClient = c
    
24.             End If
    
25.         Next
    
26. 
    
27.         Dim fm As Form = New Form2
    
28.         fm.MdiParent = Me
    
29.         fm.Show()
    
30. 
    
31.     End Sub
    
32. End Class
    

复制代码

1. 
   
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
   
5. 
   
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
   
10. 
    
11.         MyBase.WndProc(m)
    

复制代码

1. 
   
2. private const int SB_BOTH = 3;
   
3. 
   
4. private const int WM_NCCALCSIZE = 0x83;
   
5. 
   
6. [System.Runtime.InteropServices.DllImport("user32.dll")]
   
7. 
   
8. private static extern int ShowScrollBar(IntPtr hWnd, int wBar, int bShow);
   
9. 
   
10. protected override void WndProc(ref Message m)
    
11. {
    
12. 
    
13. if (mdiClient != null)
    
14. {
    
15. 
    
16. ShowScrollBar(mdiClient.Handle, SB_BOTH, 0);
    
17. }
    
18. 
    
19. base.WndProc(ref m);
    
20. }
    
21. 
    
22. MdiClient mdiClient = null;
    
23. 
    
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

http://www.codeproject.com/KB/cs ... .aspx?display=Print

你要的

goodhermit95

简单了，直接加一个参考就可以了
然后用ＩＬＭＥＲＧＥ就搞定