vb6.0中所有字符输入之间的距离

Posted 2021-04-17

在vb6中绘制一个form1并在form1中绘制textbox1并按f5运行该程序。当我在textbox1中键入“abc1234”时，键入“abc1234”，但我在textbox1中显示“a b c 1 2 3 4”类型。它的意思是所有打字字符之间只有一段距离。例如使用css输入html

letter-spacing: 1px;

当我输入输入所有打字之间的距离

答案

如果我理解正确，你想要在Textbox中的字符之间添加边距。

这在标准控件中是不可能的，除非您手动追加和管理Textbox中的文本空格。这将是一个痛苦的管理（当使用退格/复制粘贴/不同的文化/语言/等）。

最好是寻找第三方控件，或者更好地改变您的要求。

在最坏的情况下 - 非常不推荐 - 开发自己的VB6 ActiveX Control（有些人称之为UserControl，因为设计师展示它的方式）。

请注意，TextBox/Edit控件比自定义设计其他控件更复杂，因为它包含文本，由于多个本地/语言/窗口主题/而不是，因此处理起来非常棘手。

另一答案

好吧，如果你必须在文本框中添加间距，这就是你手动完成的方法：

Dim oldString as String
Dim newString as String

oldString = "babel"

for i = 1 to len(oldString)
   newString = newString & Space(2) & Mid(oldString,i,1)
Next

msgbox newString

像子开发人员说的那样不建议这样做，但是如果你必须为你的控件增加间距，你就是这样做的。