未找到数据成员和方法-机房问题4

开始敲机房的时候,不知道Public OK As Boolean有什么用,于是就没有写它,想着如果需要它而没有它的时候就会出现错误,这样就会知道它是干什么的了。

如今终于让我碰到它了!!

sub main里有这样的代码:

Sub Main()
    Dim fLogin As New frmLogin '实例化一个frmLogin登陆窗体
    
    fLogin.Show vbModal  '以模态窗体形式显示登陆窗体
    If Not fLogin.OK Then
        '登录失败退出app(计算机应用程序)
        End
    End If
    Unload fLogin   '卸载登陆窗体
    
    Set fMainform = New frmMain  '显示主窗体实例
    fMainform.Show
        
End Sub

运行到.OK的时候总是提示这样的错误:

于是上网查,有人说:

fLogin是窗体,当然没有fLogin.OK的方法了,除非你自定义了此方法。

做一个名称为FrmLogin的登陆窗体,设置用户名、密码等,窗体定义一个公共变量OK As Boolean,当用户名、密码正确时,变量OK=True,否则OK=False

开始看的时候不理解。以为不是我想要的解决办法。于是跟同学对了对代码。同学从他那frmLogin窗体里找到了"Public OK As Boolean",而我这里没有。于是,在我的工程里试着添加了一下这句话。就可以了。再回过头来看,不觉惊讶这个答案就是为我准备的吗!?

问题成功解决,就逆推一下,猜测一下原理吧:main函数里是把登陆窗体做为一个类来用了。每次登陆都是实例化这个登陆窗体。(现在还不明白为什么不直接用,而要用类,用类有什么好处,不过后边应该会明白的,暂且搁起来。)从而登陆窗体这个类里有的方法,成员在实例化的时候都可以用。

而出错时,我的登陆窗体里没有OK这个成员,因此,也就不能调用,如图:

添加OK之后:

从这里,我又进一步了解了类在VB中的体现。

随着问题一点一点地解决,信心也随着来了,兴趣也随着来了。一定要坚信自己遇到的问题,以前必定有人遇到过。嘿嘿,找找前人的经验。耐心点,必定能找到的。自己一步步解决问题的乐趣真的让人如痴如醉啊。机房,一旦开始,都不想停下来。

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...