📄 4988.html
字号:
<html>
<head>
<title>Re: 如何让USER自行拖曳放大缩小TextBox?</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 如何让USER自行拖曳放大缩小TextBox?</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:shliao@ms1.accmail.com.tw">Richard</a> on August 23, 1998 at 13:41:34:<p>
In Reply to: <a href="4983.html">Re: 如何让USER自行拖曳放大缩小TextBox?</a> posted by Honey on August 23, 1998 at 00:19:18:<p>
: : 请教各位前辈:<br>: : Form大小可由User拖曳控制请教Form里的TextBox如何也让User自行拖曳控制?<p>: 我把以前写过的拿出来给你参考一下下 <br>: 有些部分还是得靠你自己修改喔<br>: 原理其实很简单啦 希望你能看的懂 <p>: 表单(Form1)上有一个Text1<p>: '以下从一般宣告开始<br>: Dim gx As Single<br>: Dim gy As Single<br>: Dim Jx As Single<br>: Dim Jy As Single<br>: Dim J, K<br>: Dim S, D<br>: Option Explicit<p>: Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)<br>: Jx = X<br>: Jy = Y<br>: J = Text1.Width<br>: K = Text1.Height<br>: End Sub<p>: Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)<br>: S = Text1.Left + Text1.Width<br>: D = Text1.Top + Text1.Height<br>: On Error GoTo FINISH<br>: If X > S - 50 And X < S + 50 Then<br>: Form1.MousePointer = 9 '东西指向<br>: End If<br>: If Y > D - 50 And Y < D + 50 Then<br>: Form1.MousePointer = 7 '南北指向<br>: End If<br>: If Y > D And Y < D + 40 _<br>: And X > D And X < D + 40 Then<br>: Form1.MousePointer = 8'西北东南指向<br>: End If<br>: If Button = 1 And Not Form1.MousePointer = 0 Then<br>: If Form1.MousePointer = 8 Then<br>: Text1.Width = J - Jx + X<br>: Text1.Height = K - Jy + Y<br>: End If<br>: If Form1.MousePointer = 7 Then<br>: Text1.Height = K - Jy + Y<br>: End If<br>: If Form1.MousePointer = 9 Then<br>: Text1.Width = J - Jx + X<br>: End If<br>: End If<br>: FINISH:<p>: End Sub<p>: Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)<br>: gx = X<br>: gy = Y<br>: J = Text1.Width<br>: K = Text1.Height<br>: Text1.MousePointer = 5<br>: End Sub<p>: Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)<br>: S = Text1.Left + Text1.Width<br>: D = Text1.Top + Text1.Height<br>: If Y > D And Y < D + 40 _<br>: And X > D And X < D + 40 Then<br>: Form1.MousePointer = 8<br>: End If<br>: If Button = 1 Then<br>: Text1.MousePointer = 5<br>: Text1.Left = Text1.Left - gx + X<br>: Text1.Top = Text1.Top - gy + Y<br>: Else<br>: Text1.MousePointer = 0<br>: End If<br>: End Sub<p>: 感谢Honey!<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 4988-->
</ul><!--end: 4988-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -