如何使ListBox的水平滚动条正好适应最大内容大小

yuliang0828 2003-04-06 12:12:46

用SendMessage函数给ListBox发了设置水平滚动条的信息后会出现滚动条，但如何确定最大项目所占的像素数呢，就是要给参数传递进多少呢？还有一个相关的问题就是一个英文字符占几个像素？请各位高手给予解答，谢谢！

...全文

27 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

shenhai79 2003-04-06

打赏
举报

Public Sub ShowListHscroll(List As ListBox)

Dim Max As Long, f As Font, i As Integer

Me.ScaleMode = vbPixels
Set f = Me.Font
Set Me.Font = List.Font

With List
For i = 0 To .ListCount
If Me.TextWidth(.List(i)) > Max Then
Max = Me.TextWidth(.List(i))
End If
Next i
End With

Max = Max + 10
Set Me.Font = f
SendMessage List.hWnd, LB_SETHORIZONTALEXTENT, Max, ByVal 0&

End Sub

Standard页 1- Tlistbox控件重要属性items.* 举例，界面设计如下左，执行结果如下右：代码为 procedure TForm1.Button1Click(Sender: TObject); begin edit1.Text := listbox1.Items.CommaText; edit2.Text := listbo...

控件的属性、事件与样式资源如何添加控件添加控件的方式有多种，大家更喜欢下面哪一种呢？1）使用诸如Blend for Visual Studio或Microsoft Visual Studio XAML设计器的设计工具。 2）在Visual Studio XAML编辑器中将控件添加到XAML代码中。 3）在代码中添加控件。注意：当应用运行时会看到你在代码中添加的控件，但在 Visual Stud

MFC控件使用大全

一、单元格内容的操作 // 取得当前单元格内容 Console.WriteLine(DataGridView1.CurrentCell.Value); // 取得当前单元格的列 Index Console.WriteLine(DataGridView1.CurrentCell.ColumnIndex); // 取得当前单元格的行 Index Console.WriteLine(DataGridView1.CurrentCell.RowIndex); 另外，使用 DataGridView.CurrentCel