jwbf.net
当前位置:首页 >> vB 文本框 >>

vB 文本框

先定义一个变量,然后将变量设置为文本框的内容即可。 代码如下(以获取Text1控件为例): Dim Str1 As String '定义字符变量Private Sub Text1_Change() '当TEXT1字符改变时Str1 = Text1.Text '设置为文本框的字符串End Sub

在需要的地方,可以直接调用TEXT控件的名称即可,得到是TEXT控制内的字符。 示例: MsgBox Text1运行效果:

两种方法:一,静态方法:在文本框属性里,直接设置文本框的默认显示值为你的文本.二,动态方法:在窗体加载事件过程里添加要默认显示的文本,如 text1.text="姓名" & space(2) & "年龄" & space(2) & "身高" 'space(2)是用空格函数生成两个空格

楼上的拼错了,还是我来说吧,望采纳! 添加一个文本框Text1 代码 Text1.Visible=False 如果要再显示出来,则 Text1.Visible=True

先把TextBox的Muiltline属性设为True 表示可以支持多行输入,然后在需要按行的地方按入vbCrlf带表回车。 参考例子如下: '设置 Text1.MultiLine = True ' Text1.ScrollBars = 2 Private Sub Form_Load() Text1.Text = "" Text1.Text = Text1.Tex...

标签框的图标是一个大写的”A“,名称为Label,作用:可以显示(输出)文本信息,但不能输入文本。标签属于控件,其前缀是lbl,名字举例:lblinput 文本框的图标是小写的”ab“,名称为TextBox,作用:可以输入文本的显示区域,既可以输入也可以输出...

Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub

text1.Locked=true 使文本框变只读 text1.Enabled = false 使文本框变灰色不可用状态 Private Sub Text1_Change() Text1.Text = "" End Sub 使文本框内容改变时清空内容 均可. 推荐前两种做法

Option Explicit'全选文本框中文本Private Sub SelectAll() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Text1.SetFocusEnd SubPrivate Sub Command1_Click() '点击Command1,全选文本 SelectAllEnd SubPrivate Sub Form_Click() '...

你选中文本框,在属性里找到ScrollBars,设置即可: 0:无 1:水平滚动条 2:竖直滚动条 3:水平+竖直滚动条 但是前提是,你要先把MultiLine属性设置为True,才会生效。

网站首页 | 网站地图
All rights reserved Powered by www.jwbf.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com