有哪个高手帮我讲解一下这个VB程序啊...

来源：百度知道 编辑：UC知道 时间：2024/06/27 10:01:10
那个blnregister 啊,keyascii那里啊,我都看不懂啦....
Option Explicit
Private intreply As Integer
Private blnregister As Boolean
Private Sub combo1_change()
If blnregister = False Then
intreply = MsgBox("您确实要登记新的名字吗？", vbYesNo + vbQuestion, "询问")
End If
If intreply = 6 Then blnregister = True

End Sub
Private Sub combo1_keypress(keyascii As Integer)
If keyascii = 13 And blnregister Then
Combo1.AddItem Combo1.Text
blnregister = False
MsgBox "恭喜您！您已登记成功。", vbOKOnly + vbInformation, Combo1.Text & "朋友："
End If
End Sub

Private Sub Form_Load()
Combo1.FontSize = 12
Combo1.AddItem "许美凤"
Combo1.AddItem "肖德生"
Combo1.AddItem "夏春林"
Combo1.AddItem "陈文芳"
Combo1.AddItem "王雁"
blnregister = False

End Sub

Private Sub Form_Load()
窗口加载时combo1给初始五项
binregister 给初始值False
binregister 用来判断当combo1内容改变时是否新增加项

Private Sub combo1_change()
当combo2内容改变(即你有在combo1中输入内容时),会弹出对话框询问是否登记新的名字
当点击是时
msgbox返回6,即intreply = 6,binregister =true

Private Sub combo1_keypress(keyascii As Integer)
当combo1获得按键值=13,即用户敲回车时,combo1新增一项并提示登记成功

If keyascii = 13 And blnregister Then '如果回车且blnregister为true
说实话，编的不好~ 精简了一下
Option Explicit
Private blnregister As Boolean
Private Sub combo1_change()
If blnregister = False Then '
blnregister = MsgBox("您确实要登记新的名字吗？", vbYesNo + vbQuestion, "询问")
blnregister = True
End If
End Sub
Private Sub combo1_keypress(keyascii As Integer)
If keyascii = 13 And blnregister Then '如果回车且blnregister为true
Combo1.AddItem Combo1.Text
blnregister = False
MsgBox "恭喜您！您已登记成功。", vbOKOnly + vbInformation, Combo1.Text & "朋友：&