1 Star 0 Fork 0

章鱼DS / PiZYDS-极杀-BestKiller

加入 Gitee
与超过 1200万 开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)
免费加入
克隆/下载
Module2.bas 515 Bytes
一键复制 编辑 Web IDE 原始数据 按行查看 历史
章鱼DS 提交于 2017-04-07 18:58 . PiZYDS-极杀-BestKiller V3.1.0
Attribute VB_Name = "WindowShowHiding"
Public Sub WindowShowHide() ' ʾ
Select Case Frm_Main.Visible
Case True
If frmAbout.Visible Then Unload frmAbout
Frm_Main.Hide
If Frm_Senior.Visible Then
Call Frm_Main.ShowSenior
FirstHide = True
Else
FirstHide = False
End If
Case False
Frm_Main.Show
If FirstHide Then Call Frm_Main.ShowSenior
End Select
End Sub
Visual Basic
1
https://gitee.com/PillarsZhang/PiZYDS-BestKiller.git
git@gitee.com:PillarsZhang/PiZYDS-BestKiller.git
PillarsZhang
PiZYDS-BestKiller
PiZYDS-极杀-BestKiller
master

搜索帮助

14c37bed 8189591 565d56ea 8189591