VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = "Form1" ScaleHeight = 3195 ScaleWidth = 4680 StartUpPosition = 3 ''''窗口缺省 Begin VB.TextBox Text2 Height = 495 Left = 1920 TabIndex = 1 Text = "Text2" Top = 600 Width = 1455 End Begin VB.TextBox Text1 Height = 495 Left = 120 TabIndex = 0 Text = "Text1" Top = 600 Width = 1695 End Begin VB.Label Label1 BackColor = &H00FF8080& Caption = "Label1" Height = 495 Left = 1800 TabIndex = 2 Top = 600 Width = 100 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim oldx As Integer Sub setlabelpos(l As Integer, r As Integer) If Label1.Left < Me.Text1.Left + 1500 Then Label1.Left = Me.Text1.Left + l Else Label1.Left = Me.Text2.Left + Me.Text2.Width - r End If End Sub Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) oldx = X setlabelpos 200, 300 End Sub Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim i If Button = 1 Then Label1.Move X - oldx + Label1.Left If (Label1.Left >= Me.Text1.Left + 200 And Label1.Left <= Me.Text2.Left + Me.Text2.Width - 300) Then i = Me.Text1.Width Me.Text1.Width = Label1.Left - Me.Text1.Left Me.Text2.Width = Me.Text2.Width + (i - Me.Text1.Width) Me.Text2.Left = Label1.Left + 100 Else setlabelpos 189, 280 End If End If End Sub Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.Left = Me.Text2.Left - 100 End Sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
