作者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