问答题

[说明]
以下代码实现了当用户推出界面时,判断TextEdit中的文字是否发生改变,弹出对话框判断,让用户选择选择是否保存文件或取消退出界面操作。阅读下面代码,补充完整。
[代码7-1]
Begin VB.Form Forml
//...窗体描述(略)
Begin VB.TextBox TextEdit
Height = 1830
Left = 180
TabIndex = 0
Text = "TextEdit"
Top = 360
Width = 3885
 End
  //...窗体描述(略)
End
[代码 7-2]
Dim txtchange As Boolean
Dim myval As String
Private Sub Form Load ( )
TextEdit.Text = "CIU, 中国软考联盟!
txtchange = False
End Sub
[代码 7-3]
Private Sub TextEdit_Change ( )
Static notchange As Boolean
(1)
(2)
End Sub
Private Sub Form_Unload ( Cancel As Integer )
Dim myval As String
If (3) Then
myval = MsgBox ( "保存文件的更改吗", vbYesNoCancel, "提示信息" )
If (4) Then
MsgBox "保存成功"
End
End If
If (5) Then End
If (6) Then Cancel = 1
End If
End Sub

【参考答案】

(1)txtchange=notchange
(2)notchange=True
(3)txtchange=......

(↓↓↓ 点击下方‘点击查看答案’看完整答案、解析 ↓↓↓)
热门 试题