1,451
社区成员
发帖
与我相关
我的任务
分享
Sub Main()
Load Form1 ' 这句可以不要
Form1.按钮1.Enabled = True
Form1.Show
End Sub
这样,程序启动时(就是你说的“自动载入),按钮1就是可用的;但从其它地方直接显示,按钮1是禁用的。
还有一个办法,就是可以定义一个全局的标志变量 mEabFlag as long。
然后,在 Form1的 Load() 事件中,
Private Sub Form_Load()
按钮1.Enabled = Not CBool(mEabFlag)
End Sub
这样,在显示form1之前,如果要禁用 按钮1 ,就把 mEabFlag 赋值任意非0值;否则就置为0。