作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 请问怎麽把程式写成工具列
时间Wed Dec 20 21:04:28 2006
※ 引述《SmallBeeWayn (喵喵叫的蜜蜂猫)》之铭言：
: ※ 引述《fumizuki (蒙面加菲狮)》之铭言：
: : 专案-设定使用元件
: : Microsoft Windows Common Controls 5.0 (SP2)
: : 工具箱会出现 Toolbar 控制项
: 我指的不是要在程式里面写出工具列
: 而是把程式写成工具列...
: 可以嵌入在桌面工具列里面
我只知道这个方法：
'表单的属性设定如下：
'BorderStyle = 3 '无图示、不可改变大小、可关闭
'Caption = "" '无标题
'ShowInTaskBar = False '不显示於工作列
'一般模组(*.bas)
Public Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long) As Long
Public Const HWND_BOTTOM = 1 '置底(
Public Const HWND_DESKTOP = 0 '预设值
'表单模组(*.frm)
Private Sub Form_Activate()
Dim RateX As Long, RateY As Long
RateX = Screen.TwipsPerPixelX: RateY = Screen.TwipsPerPixelY
Dim x As Long, y As Long, w As Long, h As Long
x = Left / RateX: y = Top / RateY,
w = Width / RateX: h = Height / RateY
SetWindowPos Me.hwnd, HWND_BOTTOM, x, y, w, h, 0
End Sub
--
有一个缺点，工作列上点滑鼠右键，显示桌面(Windows Key+D)(缩小所有视窗)，
就会一起被缩小了...~_~
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.184.116.55