在线高分求购用VB制作的一个界面程序!

我想用VB做一个界面,在MDIForm中加入一个停靠在主窗体左边的工作区
类似VC左边的工作区一样可以自由改变大小
请高手指点迷津

[77 byte] By [lza7-浪子阿七] at [2008-5-23]

«« 有关水晶报表
»» jsp页面间数据传递,请高手帮忙(我都发过两遍了,为什么我找不到我的贴子?)

# 1

前一阵子好像有人贡献过代码的

分割条

你搜索一下

nik_Amis-... at 2007-10-22 >

top of Msdn China Tech,visual basic,VB资源...

# 2

参考一下

Private Sub imgSplitter_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

With imgSplitter
picSplitter.Move .Left, .Top, .Width \ 2, .Height - 20
End With
picSplitter.Visible = True
mbMoving = True

End Sub

Private Sub imgSplitter_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

Dim sglPos As Single
If mbMoving Then
sglPos = x + imgSplitter.Left
If sglPos < sglSplitLimit Then
picSplitter.Left = sglSplitLimit
ElseIf sglPos > Me.Width - sglSplitLimit Then
picSplitter.Left = Me.Width - sglSplitLimit
Else
picSplitter.Left = sglPos
End If
End If

End Sub

Private Sub imgSplitter_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

SizeControls picSplitter.Left
picSplitter.Visible = False
mbMoving = False
lvListView.Refresh

End Sub

Sub SizeControls(x As Single)

On Error Resume Next

'设置 Width 属性
If x < 3500 Then x = 3500
If x > (Me.Width - 1500) Then x = Me.Width - 1500
tvTreeView.Width = x
imgSplitter.Left = x
lvListView.Left = x + 40
lvListView.Width = Me.Width - (tvTreeView.Width + 140)
lblTitle(0).Width = tvTreeView.Width
lblTitle(1).Left = lvListView.Left + 20
lblTitle(1).Width = lvListView.Width - 40

'设置 Top 属性

tvTreeView.Top = tbToolBar.Height + picTitles.Height

lvListView.Top = tvTreeView.Top

'设置 height 属性
tvTreeView.Height = Me.ScaleHeight - (picTitles.Top + picTitles.Height)

lvListView.Height = tvTreeView.Height
imgSplitter.Top = tvTreeView.Top
imgSplitter.Height = tvTreeView.Height

End Sub

AKillGodKillBuddha-神挡杀神佛挡杀佛 at 2007-10-22 >

# 3

可以使用vsplitter控件就简单多了

AKillGodKillBuddha-神挡杀神佛挡杀佛 at 2007-10-22 >

# 4

请问哪里有vsplitter控件下载？

lza7-浪子阿七 at 2007-10-22 >

# 5

VB本身的模办就可以

kmzs-.:RNPA:.山水岿濛 at 2007-10-22 >

# 6

留下email 我给你发一个