有没有办法右对齐 ListBox 中的数字列答案

【问题标题】：Is there a way to right-align a numeric column in a ListBox有没有办法右对齐 ListBox 中的数字列
【发布时间】：2016-02-15 15:37:18
【问题描述】：

我们有一个包含多列的标准 Access 列表框。有没有办法让整数或货币列右对齐？

【问题讨论】：

标签： ms-access listbox text-alignment

【解决方案1】：

没有。我见过的最接近的是JustiCombo，它是一个数据库，其中包含用于将列表和组合框的数据居中和右对齐的功能。它可以通过分析字体属性和字符宽度来使用比例字体。它也会在字段前面填充空格，以使数据显示居中/右对齐。它尽了最大努力，但你可以看到一些锯齿。但也许我太挑剔了。

【讨论】：

实际上它确实工作得很好。阅读 API 代码并弄清楚 Stephen 是如何编码的，这非常有趣。
我非常尊重 Stephen Lebans 并且过去使用过他的东西。但在我的情况下，右对齐的列是一个不错的选择，而不是我想要去第三方控制的东西。谢谢你的信息。在我没有赶上最后期限的时候，这个 api 肯定会很有趣。

【解决方案2】：

根据您的查询，列的对齐方式将从基础表继承。因此，转到表格，选择列，居中/右/左对齐，然后您的文本框应该具有相同的对齐方式。这不适用于计算字段，但适用于大多数其他字段。

【讨论】：

解决了我在一个表单上对齐来自多个表的不同列表框的数据的问题。谢谢！在 Access 2013 中也适用于计算字段。
对我来说最好的解决方案！如果您需要对齐基于同一表中其他字段的简单计算，您还可以将计算列添加到表中并对齐它们。然后在列表框中使用预先计算的字段，它们的对齐方式也将被继承。

【解决方案3】：

据我所知，不是传统意义上的，不是。我相信有一些第三方产品可能能够做到这一点，但是在我使用过的任何版本中，列表框都没有原生的ColumnAlignment 属性（不过，没有使用 Access 2007，因为它的价值）。

根据您加载列表框的方式，您可以使用固定宽度的字体（例如 Courier）并在数字左侧填充适当数量的空格，以模拟右对齐.这并不理想，但可能值得一试。

【讨论】：

【解决方案4】：

将列表框转换为组合框
使您转换的组合框右对齐
再次将其转换为列表框

【讨论】：

【解决方案5】：

在 VB 中是：

Format(Format("10000", "0.00%"), "@@@@@@@@@@") 其中“@”的数量是右对齐字符串的字段的宽度。

在 VBA 中你可以使用：

xFormat(Format("10000", "0.00%"), "@@@@@@@@@@") 在哪里

Function xFormat(ByVal s, ByVal width As String) As String

    Dim temp As String
    Dim deltaL As Integer

    deltaL = Len(width) - Len(s)
    If deltaL > 0 Then
        temp = Space(deltaL) & s
    Else
        temp = s
    End If
    xFormat = temp
End Function

【讨论】：

【解决方案6】：

我解决它的方法是执行以下操作：

转到File -> options -> Client settings -> General alignment

将设置更改为文本模式，它对我有用。

【讨论】：