VB新手,现在需要做这样一个页面,load的时候要最大化,然后窗体分为3部分,左边菜单(用TabStrip),右边的上面是查询(msfelxgrid),右下部分是详细信息(label,text等)。这3部分初始化的时候有一个比例,但用户可以自己调节大小,这个应该怎么做阿?要用什么控件吗?
解决方案 »
- VB文本框格式
- 关于datareport设计的简单问题,请各位指点!
- 大家有没有好点的ICO图标啊!
- 如何用vb实现虚拟更改外网ip呢?
- 请各位前辈帮我!!vb6.0中的WindowsMediaPlayer控件!!在线等待!!
- 借个地方,office中动画助手放在什么地方?是AVI吗?…………
- treeview中,如何让鼠标右键来选中NODE?
- 有关数据库的问题!
- 急急急,!!这样在VB中调用CHM格式的帮助文件!!???help me!
- \\\\\用VB进行数据库编程,需要掌握哪些细节,谢谢大家推荐相关方面好书!///////
- vb如何使用 soap 服务
- 【急】listview 如何隐藏列?
Private Sub Form_Resize()这里设置你相关控件的大小及left,top 以窗体为单位,注意最小不能任意小要有一个定值,就行了
End Sub
Option Explicit
Private m_Draging As Boolean
Private m_StartX As SinglePrivate Sub AllDragDrop(target As Control, X As Single, Y As Single)
If m_Draging Then
m_Draging = False
Label1.Left = Label1.Left + (target.Left + X) - m_StartX
Call Form_Resize
End If
End SubPrivate Sub Form_Load()
Label1.MousePointer = vbSizeWE
Label1.Move ScaleWidth / 2, -ScaleHeight, 120, ScaleHeight * 3
End SubPrivate Sub Form_Resize()
On Error Resume Next
Text1.Move 0, 0, Label1.Left, ScaleHeight
Text2.Move Label1.Left + 120, 0, ScaleWidth - Label1.Left - 120, ScaleHeight
End SubPrivate Sub Label1_DragDrop(Source As Control, X As Single, Y As Single)
AllDragDrop Label1, X, Y
End SubPrivate Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
m_Draging = True
m_StartX = Label1.Left + X
Label1.Drag vbBeginDrag
End SubPrivate Sub Text1_DragDrop(Source As Control, X As Single, Y As Single)
AllDragDrop Text1, X, Y
End SubPrivate Sub Text2_DragDrop(Source As Control, X As Single, Y As Single)
AllDragDrop Text2, X, Y
End Sub