在VB6怎样实现控件事件的映射 0

在VB6怎样实现控件事件的映射 0

比如你的控件是在类模块Class1中写的，里面有个验证身份证号码对错的自定义函数：
Public Function SfzYZ(SfzH As String) As String
' 验证过程代码...
End Function
而你在窗体中需要验证Text1文本框中输入的身份证号码是否正确，可以这样引用：
Dim SfzPD As New Class1
If SfzPD.SfzYZ(Text1) <> "ok" Then
MsgBox "您输入的身份证号码不正确！请核对后重输...", 64 + 0 + 4096, "提示"
Text1.SetFocus
Exit Sub
End If

你好 楼主。 很幸运的看到你的问题。 但是又很遗憾到现在还没有人回答你的问题。也可能你现在已经在别的地方找到了答案，那就得恭喜你啦。 对于你的问题我爱莫能助！ 可能是你问的问题有些专业了。或者别人没有遇到或者接触过你的问题，所以帮不了你。建议你去问题的相关论坛去求助，那里的人通常比较多，也比较热心，可能能快点帮你解决问题。 希望我的回答也能够帮到你！ 祝你好运。 快过年了， 最后祝您全家幸福健康快乐每一天！