Question

哪有VB运行中实现用鼠标调节控件大小的源代码？

如Text1与Label交界的边缘,拖动可以按比例改变两者大小. 以及text1与text2相接近的边缘,拖动可以按比例改变两者大小.

Answer 1

这是用鼠标调节的List和Textbox,改一下就成你的代码了 ListLeft，Splitter，TextRight 3个控件 Option Explicit 'variable to hold the width of the spltter bar Private Const SPLT_WDTH As Integer = 3 'variable to hold the last-sized postion Private currSplitPosX As Long 'variable to hold the horizontal and vertical offsets of the 2 controls Dim CTRL_OFFSET As Integer 'variable to hold the Splitter bar colour Dim SPLT_COLOUR As Long Private Sub Form_Load() 'set the startup variables CTRL_OFFSET = 5 SPLT_COLOUR = &H808080 'set the current splitter bar position to an arbitrary value that will always be outside 'the possibe range. This allows us to check for movement of the spltter bar in subsequent 'mousexxx subs. currSplitPosX = &H7FFFFFFF ListLeft.AddItem "列表项 1" ListLeft.AddItem "列表项 2" ListLeft.AddItem "列表项 3" ListLeft.AddItem "列表项 4" ListLeft.AddItem "列表项 5" 'note: VB3 users will need to substitute Chr$(13) & chr$(10) for the VB4 constant vbCrLf in the sentence below. TextRight = "在一些流行的应用程序中，经常见到窗体上有二个相邻的列表框，可以用鼠标任意拉动中间分割条，改变列表框大小。" End Sub Private Sub Form_Resize() Dim x1 As Integer Dim x2 As Integer Dim height1 As Integer Dim width1 As Integer Dim width2 As Integer On Error Resume Next 'set the height of the controls height1 = ScaleHeight - (CTRL_OFFSET * 2) x1 = CTRL_OFFSET width1 = ListLeft.Width x2 = x1 + ListLeft.Width + SPLT_WDTH - 1 width2 = ScaleWidth - x2 - CTRL_OFFSET 'move the left list ListLeft.Move x1% - 1, CTRL_OFFSET, width1, height1 'move the right list TextRight.Move x2, CTRL_OFFSET, width2 + 1, height1 'move the splitter bar Splitter.Move x1 + ListLeft.Width - 1, CTRL_OFFSET, SPLT_WDTH, height1 End Sub Private Sub Splitter_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton Then 'change the splitter colour Splitter.BackColor = SPLT_COLOUR 'set the current position to x currSplitPosX = CLng(X) Else 'not the left button, so... if the current position <> default, cause a mouseup If currSplitPosX <> &H7FFFFFFF Then Splitter_MouseUp Button, Shift, X, Y 'set the current position to the default value currSplitPosX = &H7FFFFFFF End If End Sub Private Sub Splitter_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'if the splitter has been moved... If currSplitPosX& <> &H7FFFFFFF Then 'if the current position <> default, reposition the splitter and set this as the current value If CLng(X) <> currSplitPosX Then Splitter.Move Splitter.Left + X, CTRL_OFFSET, SPLT_WDTH, ScaleHeight - (CTRL_OFFSET * 2) currSplitPosX = CLng(X) End If End If End Sub Private Sub Splitter_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 'if the splitter has been moved... If currSplitPosX <> &H7FFFFFFF Then 'if the current postition <> the last position do a final move of the splitter If CLng(X) <> currSplitPosX Then Splitter.Move Splitter.Left + X, CTRL_OFFSET, SPLT_WDTH, ScaleHeight - (CTRL_OFFSET * 2) End If 'call this the default position currSplitPosX = &H7FFFFFFF 'restore the normal splitter colour Splitter.BackColor = &H8000000F 'and check for valid sizings. 'Either enforce the default minimum & maximum widths for the left list, or, if within range, set the width If Splitter.Left > 60 And Splitter.Left < (ScaleWidth - 60) Then ListLeft.Width = Splitter.Left - ListLeft.Left 'the pane is within range ElseIf Splitter.Left < 60 Then 'the pane is too small ListLeft.Width = 60 Else ListLeft.Width = ScaleWidth - 60 'the pane is too wide End If 'reposition both lists, and the splitter bar Form_Resize End If End Sub