以下是引用海蓝啸在2006-12-9 21:00:36的发言：
7楼的那个附件里面的程序代码是不是全是shell ？
不过那个按纽比较好看。。。。在哪弄的？
7楼的那个附件里面的程序代码是不是全是shell ？
不过那个按纽比较好看。。。。在哪弄的？
这个和源码一样,也用到了API函数,shell语句是不能运行.msc文件的,不过可以用这个
dim mscfile as string
mscfile = "%windir%\system32\gpedit.msc"
Shell "mmc.exe " & mscfile
红色的是运行程序文件
其中mmc.exe是控制台的执行文件
至于渐渐消去的效果是采用代码做的
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer, run As Long
run = Me.Height / 5
For i = 1 To run
doevents
Me.Height = Me.Height - 5
If Me.Height < 30 Then GoTo Hscroll
Next i
Hscroll:
run = Me.Width / 20
doevents
For i = 1 To run
Me.Width = Me.Width - 20
Next i
End Sub
Dim i As Integer, run As Long
run = Me.Height / 5
For i = 1 To run
doevents
Me.Height = Me.Height - 5
If Me.Height < 30 Then GoTo Hscroll
Next i
Hscroll:
run = Me.Width / 20
doevents
For i = 1 To run
Me.Width = Me.Width - 20
Next i
End Sub
[此贴子已经被作者于2006-12-9 22:38:25编辑过]
雁无留踪之意,水无取影之心
tivgjyuE.rar