if nbarstyle >= 0 and nbarstyle <= 4 then
barstyle = nbarstyle
end if
end property
' 属性: 菜单附加条图像(只有当 leftbarstyle 设置为 lbs_image 时才有效)
public property get leftbarimage() as stdpicture
set leftbarimage = barimage
end property
public property let leftbarimage(byval nbarimage as stdpicture)
set barimage = nbarimage
end property
' 属性: 菜单附加条过渡色起始颜色(只有当 leftbarstyle 设置为 lbs_horizontalcolor 或 lbs_verticalcolor 时才有效)
' 当 leftbarstyle 设置为 lbs_solidcolor (实色填充)时以 leftbarstartcolor 颜色为准
public property get leftbarstartcolor() as long
leftbarstartcolor = barstartcolor
end property
