📄 m63.htm
字号:
<html>
<head>
<title>VB教程</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<p align="center"><script src="../../1.js"></script></a>
<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center>
<table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
<tbody>
<tr>
<td bgcolor=#000000 height=9>
<div align=center class=H1> <font color="#FFFFFF">如何动态设定TextBox的靠左、右、中</font> </font> </font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=76>
<p align="left"> <br>
</font> <font color="#000000">其实这是不可能一下子完成的，因为Alignment属性是唯读的，所以只好在Form中<br>
使用叁个TextBox来完成，Text1.Alignment = 0, Text2.Alignment = 1,<br>
Text3.Alignment = 2,而且叁者的MultiLine设为True。<br>
并在Form中放叁个Option Control，一开始Text2, Text3 Move到Text1的位置与大小，<br>
而後看选择哪个Option会来决定何者Display出来，而达效果</font></span><br>
</p>
<table border=0 width="688">
<tbody>
<tr>
<td> <font color="#000000" class="unnamed1">Option Explicit<br>
<br>
Private Sub Form_Load()<br>
<br>
Text2.Visible = False<br>
Text3.Visible = False<br>
Text2.Move Text1.Left, Text1.Top, Text1.Width, Text1.Height<br>
Text3.Move Text1.Left, Text1.Top, Text1.Width, Text1.Height<br>
Text2.Text = Text1.Text<br>
Text3.Text = Text1.Text<br>
End Sub<br>
<br>
Private Sub Option1_Click()<br>
If Option1.Value = True Then<br>
Text1.Visible = True<br>
Text2.Visible = False<br>
Text3.Visible = False<br>
End If<br>
<br>
End Sub<br>
<br>
Private Sub Option2_Click()<br>
If Option2.Value = True Then<br>
Text2.Visible = True<br>
Text1.Visible = False<br>
Text3.Visible = False<br>
End If<br>
<br>
End Sub<br>
<br>
Private Sub Option3_Click()<br>
If Option3.Value = True Then<br>
Text3.Visible = True<br>
Text1.Visible = False<br>
Text2.Visible = False<br>
End If<br>
<br>
End Sub<br>
<br>
Private Sub Text1_Change()<br>
Text2.Text = Text1.Text<br>
Text3.Text = Text1.Text<br>
End Sub<br>
<br>
Private Sub Text2_Change()<br>
Text1.Text = Text2.Text<br>
Text3.Text = Text2.Text<br>
<br>
End Sub<br>
<br>
Private Sub Text3_Change()<br>
Text1.Text = Text3.Text<br>
Text2.Text = Text3.Text<br>
</font> <br>
<font color="#000000" class="unnamed1">End Sub</font><br>
</td>
</tr>
</tbody>
</table>
<p align="left">
</table>
</div>
<p align="center"><a href="../../pian/vb.htm">回首页</a>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -