502647092/VBFunctionBas
1
0
Fork 0
mirror of https://e.coding.net/circlecloud/VBFunctionBas.git synced 2025-11-24 21:26:26 +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
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"
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:2014<31><34>6<EFBFBD><36>5<EFBFBD><35>
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'<27><>λ:<3A>Ϻ<EFBFBD><CFBA>ж<EFBFBD><D0B6><EFBFBD>ˮ<EFBFBD>繤<EFBFBD>̰<EFBFBD>װ<EFBFBD><D7B0><EFBFBD>޹<EFBFBD>˾
@@ -332,19 +332,19 @@ End Sub
Public Sub Daily_Show(ByVal Frm As Form, ByVal Daily As Long)
Dim h As Long
Dim w As Long
Dim I As Long
Dim i As Long
h = Frm.Height
w = Frm.Width
Frm.Height = 20
Frm.Width = 20
For I = 20 To w Step Daily
For i = 20 To w Step Daily
Sleep 10
Frm.Width = I
Frm.Width = i
Frm.Refresh
Next
For I = 20 To h Step Daily
For i = 20 To h Step Daily
Sleep 10
Frm.Height = I
Frm.Height = i
Frm.Refresh
Next
End Sub