机房收费系统—模块登录
2017-11-12 16:46
260 查看
在设置好登录窗体的代码运行后出现问题报错;只允许一个MDI窗体
即在加载frmMain窗体时出现加载两次MDI的现象,那代码问题出现在哪呢?
代码问题出现在读取模块中的Sub Main()中的代码时,代码的逻辑出现问题。代码如下:
Sub main()
Dim flogin As New frmLogin
'Dim frmMain As frmMain
flogin.Show vbModal '显示登录窗体
If Not flogin.OK Then
End
End If
Unload flogin '判断是将进入系统
'Set fMainForm = New frmMain
fMainForm.Show
End Sub
在VB中一个工程中只能有一个MDI窗体,Dim ... as New ...,造成多个MDI窗体,设置单引号部分为注释或删除即可。
MDI为主窗体,用于同时显示多个文档,所有的MDI窗体可以层叠、水平平铺、垂直平铺在MDI的工作区内
在这里有一个实例化的说法,那什么是实例化?
实例化就是在面向对象的过程中,把用类创建对象的过程称为实例化。New关键字能够用来建立一个类的实例。
即在加载frmMain窗体时出现加载两次MDI的现象,那代码问题出现在哪呢?
代码问题出现在读取模块中的Sub Main()中的代码时,代码的逻辑出现问题。代码如下:
Sub main()
Dim flogin As New frmLogin
'Dim frmMain As frmMain
flogin.Show vbModal '显示登录窗体
If Not flogin.OK Then
End
End If
Unload flogin '判断是将进入系统
'Set fMainForm = New frmMain
fMainForm.Show
End Sub
在VB中一个工程中只能有一个MDI窗体,Dim ... as New ...,造成多个MDI窗体,设置单引号部分为注释或删除即可。
MDI为主窗体,用于同时显示多个文档,所有的MDI窗体可以层叠、水平平铺、垂直平铺在MDI的工作区内
在这里有一个实例化的说法,那什么是实例化?
实例化就是在面向对象的过程中,把用类创建对象的过程称为实例化。New关键字能够用来建立一个类的实例。
相关文章推荐
- 机房收费系统登录模块代码记录
- 机房收费系统登录模块代码记录
- 机房收费系统—登录
- 机房收费系统--系统用户管理模块和主窗体的创建(一)
- VB机房收费系统05——一般用户模块逻辑问题总结
- 机房收费系统--系统用户管理模块和主窗体建立(三)
- 【VB.NET版机房收费系统】——三层VS七层用户登录
- VB.net版机房收费系统——三层登录
- 第一次机房收费系统-登录窗体(一)
- 机房收费系统——登录
- 机房收费系统--系统用户管理模块和主窗体的建立(四)
- vb.net机房收费系统的系统登录
- 机房收费系统之模块的使用
- 机房收费系统 之 委托登录
- 机房收费系统-登录(二)
- VB.NET版机房收费系统之七层登录
- 机房收费系统——登录窗体
- 机房收费系统登录-三层架构
- VB.NET版机房收费系统---七仙女之系统登录
- 机房收费系统----数据库添加登录人ID和电脑用户名显示在数据库里