VB集成无标题栏Form图片按钮Activex

VB集成无标题栏图片按钮Activex，适用于无标题栏可控Form操作的一款控件，动态实现增减对象元素，对象元素跟VB自带的CommandButton控件差不多，每个元素主要以图片为可视动态背景(非文本)，图片格式为四联式(弹起，按下，经过，无效)，除了常规的功能外，对鼠标经过时弹出的气泡提示对话框进行了美化，在设计时可修改气泡对话框的背景颜色和渐变文本颜色。

对象元素格式可以通过图形图像处理软件制作(比如PS)，背景颜色RGB(60,60,60)，文件后缀名最好为32位.bmp格式，如下图：

图片纵向排列为：鼠标弹起、鼠标经过、鼠标按下、元素无效

核心代码：

Private Sub LoadBut()
Dim ImagePicHeight As Long
Dim Lty As Integer
Lty = 0
With UserControl
Do While Lty <= ButCount
'根据数组数量和图片的高度改变控件的宽度和高度
ImagePicHeight = IIf(VList(Lty).Pic.Height * 15 > ImagePicHeight, VList(Lty).Pic.Height * 15, ImagePicHeight) '获得数组最高的图片值
Uwh(0) = (VList(UBound(VList)).Movw.Left + ScaleX(VList(UBound(VList)).Pic.Width / 4, vbHimetric, vbPixels)) * 15
Uwh(1) = ScaleX(ImagePicHeight, vbHimetric, vbPixels)
UserControl.Width = Uwh(0)
UserControl.Height = Uwh(1)

If Lty > 0 Then
'索引0的对象Top根据控件大小的改变而改变Top位置
If ObjectTop = Base Then
VList(0).Movw.Top = .ScaleHeight - ScaleX(VList(0).Pic.Height, vbHimetric, vbPixels)
VList(0).Movw.Bottom = VList(0).Movw.Top + ScaleX(VList(0).Pic.Height, vbHimetric, vbPixels)

VList(Lty - 1).Movw.Top = IIf(ObjectTop = Base, .ScaleHeight - ScaleX(VList(Lty - 1).Pic.Height, vbHimetric, vbPixels), 0)
VList(Lty - 1).Movw.Bottom = VList(Lty - 1).Movw.Top + ScaleX(VList(Lty - 1).Pic.Height, vbHimetric, vbPixels)
End If
'加载0以上的对象位置布局
VList(Lty).Movw.Left = (VList(Lty - 1).Movw.Left + ScaleX(VList(Lty - 1).Pic.Width, vbHimetric, vbPixels) / 4) + 5
VList(Lty).Movw.Right = VList(Lty).Movw.Left + ScaleX(VList(Lty).Pic.Width, vbHimetric, vbPixels) / 4
VList(Lty).Movw.Top = IIf(ObjectTop = Base, .ScaleHeight - ScaleX(VList(Lty).Pic.Height, vbHimetric, vbPixels), 0)
VList(Lty).Movw.Bottom = VList(Lty).Movw.Top + ScaleX(VList(Lty).Pic.Height, vbHimetric, vbPixels)
Else '当Lty=0的时候首先设置索引0的对象位置
VList(0).Movw.Left = 0
VList(0).Movw.Top = 0
VList(0).Movw.Right = VList(0).Movw.Left + ScaleX(VList(0).Pic.Width, vbHimetric, vbPixels) / 4
VList(0).Movw.Bottom = VList(0).Movw.Top + ScaleX(VList(0).Pic.Height, vbHimetric, vbPixels)
End If
If VList(Lty).Enabled Then Call ImageFG(Lty, 0) Else Call ImageFG(Lty, 3)
Lty = Lty + 1
Loop
End With
End Sub

工程包下载地址：https://download.youkuaiyun.com/download/ty5858/85459042