⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 010501.htm

📁 提供一个VB学习教程,入门级。来源于网上
💻 HTM
字号:
🔍 
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>vb study</title>
<style>
<!--
td {font-size: 9pt}
A:link {text-decoration: none; color: #0033cc;font-size: 9pt}
A:visited {text-decoration: none; color: #0066CC;font-size: 9pt}
A:active {text-decoration: none; color: #ff0000; font-size: 9pt}
A:hover {text-decoration: underline; color: #000000;font-size: 9pt}
-->
</style>
</head>
<body>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="98%">
    <tr>
      <td width="100%"><a href="#">你的位置</a>：<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="#">VB学习</a>--<a href="#">基本控件</a></td>
    </tr>
    <tr>
      <td width="100%">
        <p align="center">文本框Text对象</td>
    </tr>
    <tr>
      <td width="100%"><br>
        ★ 文本框textbox对象的text属性：文本框中的文本内容。<br> 
        ★ 学会用文本框textbox对象采集输入： 在窗体上创建一个文本框对象后，我们可以用它来从用户那里获取输入，运行程序后，用户在文本框中的输入装进文本框对象的text属性中，这时，我们就可以引用如text1.text来得到用户的输入了。文本框对象还有一个常用之属性：passwordchar,专门用于用户输入密码，如：text1.passwordchar="*",那么用户输入的密码全用"*"号掩盖起来。以下是一个简例：<br> 
        Private Sub Form_Load()<br> 
        Text1.PasswordChar = "*"<br> 
        End Sub<br> 
        Private Sub Command1_Click()<br> 
        Dim lxn<br> 
        If Text1.Text = "1234" Then<br> 
        Text1.PasswordChar = ""<br> 
        Text1.Text = "我爱你"<br> 
        End If<br> 
        End Sub<br> 
        ★ 文本框对象还有一个属性：maxlength:限制用户输入字符的个数（值为0时无限制）<br> 
        ★ 如果不要文本框采集输入，只用于输出，可将其设为只读：先把locked属性设置为true再把tabstop属性设为false。<br> 
        ★ 文本框对象的一些重要属性：Multiline:选择是否多行显示；<br> 
        scrollbars :选择是否需要滚动条。<br> 
        tabstop:选择是否能得到TAB键焦点<br>
        locked:选择文本内容是否为只读，不能修改<br>
        ★ 文本框text1对象的change事件，当文本框的内容一发生改变时就触发.可以用来进行运用（如提示存盘等）。<br> 
        ★ 文本框TEXT对象的selstart,sellength,seltext属性：selstart属性：文本框中文本的选定点位置（从起始位置为0开始算,一个汉字也认为占1个位置）。sellength属性：文本框中选中文本的长度；seltext属性：选中的文本字符串。如下例：<br> 
        Private Sub Form_Load()<br> 
        Text1.Text = "abcdefghijklmnopqrstuvwxyz"<br> 
        End Sub<br> 
        Private Sub Command1_Click()<br> 
        Text1.SelStart = 5 确定点在从一开始0数起第5个字符f 处<br> 
        Text1.SelLength = 8 选中8个字符<br> 
        Print Text1.SelText 在窗体上输出选中的字符串，就是fghijklm<br> 
        End Sub  
        <p align="center">
        <br>
        &lt; <a href="010401.htm">上一页</a>--<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="010601.htm">下一页</a>  
        &gt;<br>
        </p>
      </td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -