📄 module1.bas
字号:
Attribute VB_Name = "Module1"
Option Explicit
Public Session_Name As String
Public ConnString As String
Public Sub ClearAll()
'一共35+1=36个控件
MainInfo.Text1.Text = ""
MainInfo.Text2.Text = ""
MainInfo.Text3.Text = ""
MainInfo.Text4.Text = ""
MainInfo.Text5.Text = ""
MainInfo.Text6.Text = ""
MainInfo.Text7.Text = ""
MainInfo.Text8.Text = ""
MainInfo.Text9.Text = ""
MainInfo.Text10.Text = ""
MainInfo.Text11.Text = ""
MainInfo.Text12.Text = ""
MainInfo.Text13.Text = ""
MainInfo.Text14.Text = ""
MainInfo.Text15.Text = ""
MainInfo.Text16.Text = ""
MainInfo.Text17.Text = ""
MainInfo.Text18.Text = ""
MainInfo.Text19.Text = ""
MainInfo.Text20.Text = ""
MainInfo.Text21.Text = ""
'MainInfo.Text22.Text = ""
MainInfo.Text23.Text = ""
'MainInfo.Text24.Text = ""
MainInfo.Text25.Text = ""
MainInfo.Text26.Text = ""
MainInfo.Text27.Text = ""
MainInfo.Combo1.Text = ""
MainInfo.Combo2.Text = "默认"
MainInfo.Combo3.Text = ""
MainInfo.Combo4.Text = ""
MainInfo.Combo5.Text = ""
MainInfo.Combo6.Text = ""
'MainInfo.Combo7.Text = ""
MainInfo.Combo8.Text = ""
MainInfo.Combo9.Text = ""
MainInfo.Combo10.Text = ""
MainInfo.Combo11.Text = ""
MainInfo.DTPicker1.Value = "1987-01-01"
MainInfo.Label30.Caption = ""
MainInfo.Image1.Picture = LoadPicture(App.Path + "\picture\Nophoto.jpg")
End Sub
Sub main()
Call ClearAll
Login.Show
'MainInfo.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -