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

vB 文本框

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

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

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

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() '...

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

添加一个按钮Command1,代码(以清除Text1文本框内容为例): Private Sub Command1_Click()Text1 = ""End Sub点击后, Text1文本框内容就清除了。

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

你是说在Form_Load里写上Text1.SetFocus就报错是吧~ 给你个解决办法: (如果Me.Show不影响你的Project整体效果的话) 在Text1.SetFocus一句上边加上Me.Show就OK了~

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

下面两种方法可实现不允许输入功能: 方法一:Text.Enabled=False(文本框无焦点,即变灰) 方法二:text.locked=true(文本框锁定)

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