📄 module1.bas

📁 透过VB介面输入运算式子

💻 BAS

字号:

Attribute VB_Name = "Sub"
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public SetTime As Date
Public SetChk As Boolean
Public BeepChk As Boolean

Public Sub BeepFunc()
SetChk = False
clock_frame.Shape1.FillColor = RGB(255, 0, 0)
Beep
End Sub

'盢肚

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -