帮忙啊,一个小问题

Question

textbox如何判断，已经被操作过了啊？即使写了些东西，又擦光了，也算操作过了．
帮忙

Answer 1

在Change事件中进行判断，只要TextBox被操作过，就触发了Change事件

Answer 2

Text的Change事件Private Sub Text1_Change()
msgbox "Text changed"
End Sub———————————————————————————————————
 
Change 事件
      指示一个控件的内容已经改变的。此事件如何和何时发生则随控件的不同而不同： ComboBox － 改变控件的文本框部分的正文。该事件仅在 Style 属性设置为 0（下拉 Combo）或 1（简单 Combo）和正文被改变或者通过代码改变了 Text 属性的设置时才会发生。
DirListBox － 改变所选择的目录。该事件在双击一个新的目录或通过代码改变 Path 属性的设置时发生。
DriveListBox － 改变所选择的驱动器。该事件当选择一个新的驱动器或通过代码改变 Drive 属性的设置时发生。
HScrollBar 和 VScrollBar（水平和垂直滚动条） － 移动滚动条的滚动框部分。该事件在进行滚动或通过代码改变 Value 属性的设置时发生。
Label － 改变 Label 的内容。该事件在一个 DDE 链接更新数据或通过代码改变 Caption 属性的设置时发生。
PictureBox － 改变 PictureBox 的内容。该事件当一个 DDE 链接更新数据或通过代码改变 Picture 属性的设置时发生。
TextBox － 改变文本框的内容。该事件当一个 DDE 链接更新数据、用户改变正文或通过代码改变 Text 属性的设置时发生。 
语法Private Sub object_Change([index As Integer])Change 事件语法包括下列部分：部分 描述 
object 一个对象表达式，其值是“应用于”列表中的一个对象。 
index 一个整数，用来唯一地标识一个在控件数组中控件。 
说明Change 事件过程可协调在各控件间显示的数据或使它们同步。例如，可用一个滚动条的 Change 事件过程更新一个 TextBox 控件中滚动条的 Value 属性的设置。或者可以利用 Change 事件过程在一个工作区里显示数据和公式，在另一个区域里显示结果。Change 事件过程在更新系统控件（DirListBox，DriveListBox 和 FileListBox）中的各属性时也是有用的。例如，可更新一个 DirListBox 控件的 Path 属性设置来反映一个 DriveListBox 控件的 Drive 属性设置的改变。注意 一个 Change 事件过程有时会导致一个层叠事件。这种情况在控件的 Change 事件过程改变该控件的内容时会发生，例如，通过用代码设置一个决定该控件的值的属性，如对一个 TextBox 控件的 Text 属性之类的设置。为了避免层叠事件： 如果可能，应避免为控件编写能改变该控件内容的 Change 事件过程。如果编写了那样的过程，应确保设置一个标志用来防止在当前变化进行中更进一步的变化。
避免创建两个或两个以上其 Change 事件过程互相影响的控件。例如，两个 TextBox 控件在它们的 Change 事件期间互相更新。
避免对 HScrollBar 和 VScrollBar 控件在 Change 事件中使用 MsgBox 函数或语句。 

Answer 3

Private bChange As BooleanPrivate Sub Form_Load()
    bChange = False
End SubPrivate Sub Text1_Change()
    bChange = True
End Sub

Answer 4

Private Sub Text1_Change()
    msgbox "Ch"
End Sub

Answer 5

就算是粘贴上去也会触发Change事件

Answer 6

定义一个BOOL型变量Dim BolFlag as BooleanPrivate Sub Text1_Change()
    BolFlag = True
End Sub

Answer 7

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习交流网站，欢迎大家访问！
http://www.j2soft.cn/

Answer 8

Option explicit
Dim Changed as Boolean '定义一个全局变量
...
...
sub text1_change()
Changed=True       '当有改变的时候通过此变量记录
end sub
...
...
sub Other()
...
Changed=False   '当需要用到这个状态的过程使用过后，要恢复。
end sub