发信人: flashboy()
整理人: cobe(1999-12-15 16:17:23), 站内信件
|
一、如何在VB5中格式化软盘?
Dim cmd as string:Dim x as Long
cmd="c:\windows\rudll32.exe shell32.dll,SHFormatDriver"
x=shell(cmd,1)
二、如何在VB中隐藏WIN95的任务栏？
Declare Function Findwindow Lib"User32" alias "FindwindowA" _
(ByVal lpcClassName As string,ByVal lpWindowNme As string, ** as_
Long)As Long
Declare Function SetwindowPos Lib"user32" (Byval........)as LONG
Const SWP_HIDEWINDOW=&H80
Const SWP_SHOWWINDOW=&H40
隐藏：
hwnd=FindWindow("SHELL_TRAYWND","")
call SetwindowPos(hwnd,0,0,0,0,0,SWP_HIDEWINDOW)
恢复：
CALL SetwindowPos(hwnd,0,0,0,0,0,SWP_SHOW)
To Be Continue......
--
真诚加上信赖这是我的网上原则！
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.28.147]
|
|