1 Star 0 Fork 0

章鱼DS / PiZYDS-极杀-BestKiller

Create your Gitee Account
Explore and code with more than 5 million developers,Free private repositories !:)
Sign up
Clone or download
Module2.bas 515 Bytes
Copy Edit Web IDE Raw Blame History
章鱼DS authored 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

Comment ( 0 )

Sign in for post a comment

Visual Basic
1
https://git.oschina.net/PillarsZhang/PiZYDS-BestKiller.git
git@git.oschina.net:PillarsZhang/PiZYDS-BestKiller.git
PillarsZhang
PiZYDS-BestKiller
PiZYDS-极杀-BestKiller
master

Search