Dim a As String
Dim b As String
Dim c As String
Dim aa As String = TextBox1.Text
Dim bb As String = TextBox2.Text
Dim cc As String = TextBox3.Text
If aa.Length > 1 Then 'TextBox1.Text 中的文字的长度
If bb.Length > 3 Then 'TextBox2.Text 中的文字的长度
If cc.Length > 2 Then 'TextBox3.Text 中的文字的长度
If aa.Length < 20 Then
aa += Strings.Space(20 - aa.Length)
a = aa
End If
If bb.Length < 20 Then
bb += Strings.Space(20 - bb.Length)
b = bb
End If
If cc.Length < 15 Then
cc += Strings.Space(15 - cc.Length)
c = cc
End If
Dim d As String = a + b + c
ListBox1.Items.Add(d)
ListBox1.Refresh()
Dim jl As String = ListBox1.Items.Count
Label4.Text = "共有 " + jl + " 条记录"
ListBox1.SelectedItem = ListBox1.Items(ListBox1.Items.Count - 1)
End If
End If
End If
为什么我把汉子和字母数字的字符串的字节长度都扩充到一样20字节就是整齐
例:
TextBox1.Text 内容是: 123sa1f32
TextBox1.Text 内容是: 阿斯顿发放爱迪生
同样扩充到20字节,弄到ListBox去,就是不整齐
何解? 怎么办?
新手求助!
------解决方案--------------------
如果你针对什么简单的外设,你也应该在获得它的“保证”之后才能想当然地把字符串长度跟输出宽度画上等号。
真正的windows下的高级程序,在交给底层进行渲染之后,才能查询其画出的ActualWith宽度。
要么你就自己做操作系统底层,而且把那些可缩放字体啊、操作系统自定义样式设置啊,等等东西统统自己实现一遍。