vb如果text文本改变，用语句怎么表达

VB中要将文本框textl的内容设置为只读,可使用什么语句?~

一）可以使用文本框的Locked 属性来设置内容只读。
Locked 属性
返回或设置一个值，以指定控件是否可被编辑。
Private Sub Form_Load() Text1.Locked = True Text1 = "不可输入"End Sub
二）也可使用文本框的Enabled属性来限定文本框编辑。
Enabled 属性
返回或设置一个值，该值用来确定一个窗体或控件是否能够对用户产生的事件作出反应。
Private Sub Form_Load() Text1.Enabled = False Text1 = "不可输入"End Sub
这两种方法皆可达到目的。

Private Sub Text1_Change()
Text2.Text = ""
End Sub

只要你text1有任何改变 text2的内容都会清空

Private Text1Changed As Boolean '记录text1是否发生改变
Private Sub Command1_Click()
If Text1Changed = True Then
'在这里执行你的操作
End If
End Sub

Private Sub Text1_Change()
Text1Changed = True '发生改变，则记录
End Sub

最简单的，将操作前的text赋值给变量a，操作后的text赋值给变量b，比较就行。
操作前：
......
a=Tetx1.text
......

操作后：
......
b=Text1.text
If a<>b then '如果 a不等于b 那么...说明文本改变了
......

有现成事件不用干什么，或者弄个定时器判断text的长度变化行不行？但也不是好方法。

建议定义个时钟，每隔多少秒 判断一次text.text 有无变化，有变化则执行你需要的操作

---

尼木县17225898260： vb如果text文本改变,用语句怎么表达 - ？
窦砌舒瑞： Private Text1Changed As Boolean '记录text1是否发生改变 Private Sub Command1_Click() If Text1Changed = True Then '在这里执行你的操作 End If End Sub Private Sub Text1_Change() Text1Changed = True '发生改变,则记录 End Sub

尼木县17225898260： vb中,一个文本框内容变化了如何引起另一个文本框内容的变化? - ？
窦砌舒瑞： vb中内容框变化使用Text1_Change.Private Sub Text1_Change() 'Text1文本值只要一改变就会触发 If IsNumeric(Text1) = False Then MsgBox ＂不是数字,请输入数字＂, 0, ＂提示＂:exit sub '==上面判断text1输入是否为数字 if val(text1)>0 then text2=＂0.2＂ '如果text1输入大于0,text2 为0.2 elseif val(text1)<=0 then text2=＂0.3＂ '如果输入小于0,则text2为0.3 End If End Sub

尼木县17225898260： vb判断文本改变 - ？
窦砌舒瑞： 加入代码:Private Sub text1_change()text2.text=text1.textEnd Sub=====================解释Private Sub 文本框_Change()......End Sub这段过程是当文本框中的文本改变时就执行的.

尼木县17225898260： vb中＂当text文本失去焦点＂ 这条语句怎么写代码 - ？
窦砌舒瑞： 文本框焦点事件 onBlur:当失去输入焦点后产生该事件 onFocus:当输入获得焦点后,产生该文件 Onchange:当文字值改变时,产生该事件 Onselect:当文字加亮后,产生该文件 onpropertychange 当属性改变发生该事件 无论粘贴 keyup onchange等

尼木县17225898260： 在vb.net中,怎样表达TextBox.Text值的变动 - ？
窦砌舒瑞： Public Class Form1 Public flag As Boolean = False Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged flag = True End Sub Private Sub Form1_Load(ByVal sender...

尼木县17225898260： VB中如何调整Text1的文字大小 - ？
窦砌舒瑞： 两个方法: 第一,在属性窗口,选中text1,然后找到font属性,点一下,后面会出来一个三个点的按钮,点了他,就有一个字体设置窗口. 第二个方法,在代码里需要改变的地方使用语句: text1.fontsize=24 当然别的数字也可以的.第一个方法优点是操作简单 第二个方式优点是灵活,可以随时改变. 两种方法也可以一起使用,全看你的需要.

尼木县17225898260： VB中TEXT本是locked的,要通过“修改按钮”改变text内容,代码怎么写? - ？
窦砌舒瑞： 就算locked,也可以通过 Text1.Text = ＂xxx＂ 来修改文本框内容.

尼木县17225898260： 谁能帮我写一段vb中text文本中,change事件的代码,我想看一下change事件是怎么用的？
窦砌舒瑞： Private Sub Text1_Change() 写入你要执行的操作就行了 举例 如果文本1中字符长度等于 10 则 文本2显示 达到上限 If Len(Text1.Text) = 10 Then text2.text = ＂到达上限＂ End If End Sub

尼木县17225898260： VB中,如何使用一个命令,对多个TEXT的文字大小进行修改(text数组) - ？
窦砌舒瑞： Private Sub Command1_Click() Dim i As Long For i = 0 To Text1.UBound Text1(i).FontSize = 16 Next End Sub

尼木县17225898260： vb文本框随即位置变化 - ？
窦砌舒瑞： 可以通过改变文本框的left属性让它变化位置! 如文本框为TEXT1,让它位置向右移动10缇,则语句为:TEXT1.LEFT=TEXT1.LEFT+10.