怎样动态改变ListBox中指定项的字体信息?

BoyMgl 2003-03-22 11:27:36
up?
...全文
70 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
gang75 2003-03-25
  • 打赏
  • 举报
回复
gz
BoyMgl 2003-03-25
  • 打赏
  • 举报
回复
能不能具体点?
zyl910 2003-03-24
  • 打赏
  • 举报
回复
自绘ListBox

先将ListBox的Style设为1,这样VB会自动将ListBox设为自绘列表框
这是用SubClass技术处理该控件父窗口的消息
在WM_DrawItem消息中自己用GDI函数绘制项目
northwolves 2003-03-24
  • 打赏
  • 举报
回复
好象不行。可以用LABELor textbox 覆盖指定项:


'text1 bordstyle=0
appearance=0

Private Sub Command1_Click()
For i = 1 To 20
List1.AddItem i & i
Next
End Sub

Private Sub List1_Click()
Dim h As Long
h = TextHeight(List1.List(List1.ListIndex))
Text1.Move List1.Left, List1.Top + List1.ListIndex * h, List1.Width, h
Text1.BorderStyle = 1
Text1.Text = List1.List(List1.ListIndex)
Text1.ForeColor = vbRed
End Sub

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧