查看: 1530|回复: 8

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

[复制链接]

goodhermit95

2009-11-7 09:39 PM

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

goodday

2009-11-7 09:58 PM

有难度 , 没做过
帮你找找

TSHsoft

2009-11-7 10:35 PM

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

回复 #3 TSHsoft 的帖子

goodhermit95

2009-11-8 10:11 AM

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

Public Class Form1
Dim mdiClient As MdiClient = Nothing
Dim SB_BOTH As Integer = 3
<DllImport("user32.dll")> _
Private Shared Function ShowScrollBar(ByVal hWnd As IntPtr, ByVal wBar As Integer, ByVal bShow As Integer) As Integer
End Function
Protected Overrides Sub WndProc(ByRef m As Message)
If mdiClient IsNot Nothing Then
ShowScrollBar(mdiClient.Handle, SB_BOTH, 0)
End If
MyBase.WndProc(m)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each c As Control In Me.Controls
If TypeOf c Is MdiClient Then
mdiClient = c
End If
Next
Dim fm As Form = New Form2
fm.MdiParent = Me
fm.Show()
End Sub
End Class

复制代码

<DllImport("user32.dll")> _
Private Shared Function ShowScrollBar(ByVal hWnd As IntPtr, ByVal wBar As Integer, ByVal bShow As Integer) As Integer
End Function
Protected Overrides Sub WndProc(ByRef m As Message)
If mdiClient IsNot Nothing Then
ShowScrollBar(mdiClient.Handle, SB_BOTH, 0)
End If
MyBase.WndProc(m)