想创建一个工具栏toobar类，让背景色透明，能实现吗，谢谢！

谢谢吹版，代码补充，就是类似下面的这段代码创建一个toolbar 工具栏：

Public MYTOOL
MYTOOL = Newobject('toolbar')
MYTOOL.Newobject('ct1','container')
MYTOOL.Newobject('bt1','commandbutton')
MYTOOL.ct1.Width = 200
MYTOOL.ct1.Height = 200
MYTOOL.bt1.Height = 200
MYTOOL.ct1.Visible = .T.
MYTOOL.bt1.Visible = .T.
MYTOOL.BackColor = Rgb(0,128,128)  && 故意调整颜色，为了调试 API 是否可以实现 背景色透明
MYTOOL.Caption = ''
MYTOOL.Show()

测试 文件

[此贴子已经被作者于2023-3-14 17:28编辑过]

代码已经在1楼补充！

下面的代码是网上找的，没成功

Declare Integer SetLayeredWindowAttributes In user32.Dll integer,integer,integer,integer
Declare Integer SetWindowLongA  In user32.Dll Long hwnd, Long nIndex, Long dwNewLong
declare SetWindowLong in user32.Dll integer,integer,integer
SetWindowLongA(this.HWnd,-20,786688)
SetWindowLong(this.HWnd,-20,0x80000)
SetLayeredWindowAttributes(this.HWnd,0,0,2)
SetLayeredWindowAttributes(this.HWnd,rgb(255,0,0),10,1)

[此贴子已经被作者于2023-3-14 16:57编辑过]

吹版，还是不行，一楼 示例 已上传。

好的，那就算了，谢谢吹版。