stretch textbox

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航