VisualFreeBasic控件_YFList 列表

勇芳

2026-1-21 / 0 评论 / 50 阅读

01/21

只为显示列表用，支持图标、自绘、每行颜色等

使用方法

和标准控件的一样用法，就添加列表数据

YFList1.AddItem("列表文字1" )
YFList1.AddItem("列表文字2" )
YFList1.AddItem("列表文字3" )

支持图标

矢量图标
添加矢量图标

Redim YFList1.vico(2)
YFList1.vico(1)="f00101UU.7UL[YZL`Y^B`UcP[_]iVVZ[VlUL[Y+c200Z^YnV_V_"  '矢量图标字符串
YFList1.vico(2)="a.42TP.7[sWraiWrai^F+a*6WKZPWK`n]C`n+b01TP00?T_T_Z[YF+b*6\t^QZ[YD"  '矢量图标字符串

添加数据，带矢量图标索引

YFList1.AddItem("行文字1",1 )
YFList1.AddItem("行文字2",2 )

字体图标
先要在起始代码区加载字体

字体文件在资源中
   Dim ss As String = GetResourceStr("FONT_ICONFONT")
   Dim As Long uu
   Dim ff As Any Ptr = AddFontMemResourceEx(StrPtr(ss), Len(ss), 0, @uu)
字体文件是一个文件
   Dim sst As String = App.Path & "iconfont.ttf" 
   Dim As Long uu = AddFontResourceExA(StrPtr(sst) ,FR_PRIVATE ,0)

添加数据，带字体中的字符值

YFList1.AddItem("行文字1",&HE655)
YFList1.AddItem("行文字2",&HE651 )

图标文件

   Dim H As HICON = LoadIcon(NULL, IDI_ERROR) ‘加载图标，不可以立即释放，等控件不显示了，必须释放
   YFList1.AddItem("行文字2", Cast(Integer, H))

其它颜色设置

（注意：是否选中，需要先设计属性显示复选框才有显示效果）

YFList1.AddItem("列表文字1",字体图标,用户自定义数据,图标颜色,文字颜色,是否选中,背景颜色)

自绘

可以自己绘画，让控件更个性化

Function Form1_YFList1_OwnerDraw(hWndForm As hWnd,hWndControl As hWnd,StartY As Long,ItemHeight As Long ,sumU As Long,nList As YFListData Ptr,selIndex As Long,kMouse As Long,kPress As Long) As LResult

End Function

自动生成的事件，里面还带详细的例题，可以看例题学习。