502647092/VBFunctionBas
1
0
Fork 0
mirror of https://e.coding.net/circlecloud/VBFunctionBas.git synced 2024-11-27 02:58:48 +00:00
Code Releases Activity

update...

Browse Source 
Signed-off-by: 502647092 <jtb1@163.com>
This commit is contained in:
502647092 2016-01-24 22:48:49 +08:00
parent 7f1cfb17fd
commit b4d8728830
1 changed files with 1075 additions and 1075 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Frm_Tools.bas
View File

@ -7,7 +7,7 @@ Attribute VB_Name = "Frm_Tools"
'最后更新日期:2014年6月5日 '最后更新日期:2014年6月5日
'创建人:蒋天蓓 '创建人: 喵♂呜
'单位:上海市定海水电工程安装有限公司 '单位:上海市定海水电工程安装有限公司
@ -332,19 +332,19 @@ End Sub
Public Sub Daily_Show(ByVal Frm As Form, ByVal Daily As Long) Public Sub Daily_Show(ByVal Frm As Form, ByVal Daily As Long)
Dim h As Long Dim h As Long
Dim w As Long Dim w As Long
Dim I As Long Dim i As Long
h = Frm.Height h = Frm.Height
w = Frm.Width w = Frm.Width
Frm.Height = 20 Frm.Height = 20
Frm.Width = 20 Frm.Width = 20
For I = 20 To w Step Daily For i = 20 To w Step Daily
Sleep 10 Sleep 10
Frm.Width = I Frm.Width = i
Frm.Refresh Frm.Refresh
Next Next
For I = 20 To h Step Daily For i = 20 To h Step Daily
Sleep 10 Sleep 10
Frm.Height = I Frm.Height = i
Frm.Refresh Frm.Refresh
Next Next
End Sub End Sub