vb 让上下两个label 中的数字对齐

Posted 2023-05-13

我想要上下对齐
用空格的话，没有“-”“.”是可以的
我想问下有解决含“-”“.”的对齐方法吗？

'按","来对齐的，由于2个label的","数量可能不一样，所以都是分开处理的，数量不限按最长的分割。Option ExplicitPrivate Sub Form_Activate()
Dim a, b, abmax, i
Me.Height = 3600
Me.Width = 4800
Label1.Left = 480: Label2.Left = 480
Label2.Top = 480: Label2.Top = 800
Label1.AutoSize = True
Label2.AutoSize = TrueLabel1.Caption = "1,1,1"
Label2.Caption = "11,-1,-0.5"
a = Split(Label1.Caption, ",")
b = Split(Label2.Caption, ",")For i = 0 To UBound(a)
If abmax < Len(a(i)) Then abmax = Len(a(i))
Next
For i = 0 To UBound(b)
If abmax < Len(b(i)) Then abmax = Len(b(i))
NextLabel1.Caption = ""
Label2.Caption = ""For i = 0 To UBound(a)
Label1.Caption = Label1.Caption & Space(abmax - Len(a(i))) & a(i) & ","
Next
For i = 0 To UBound(b)
Label2.Caption = Label2.Caption & Space(abmax - Len(b(i))) & b(i) & ","
Next
End Sub 参考技术A 用空格是可以对齐的，你把字体设为宋体就可以 参考技术B 用FORMAT() 参考技术C 用格式化输出 vbTab帮你搞定

.net中如何动态改变Label控件的位置

我在Winform中有一个Label控件 我想要它随着窗体的Resize而动态调整在窗体中的位置 本来我打算在Form的Resize事件中 将Label.Location.X和Label.Location.Y的值 设成宽度和高度的一半 来使它居中 但是编译时报错说Location不能赋值 不是变量 那请问 我应该怎么做来达到我想要的要求呢

调整窗口大小，让控件的位置动态调整，不是靠Resize事件中手动设置控件的位置，
你以前是学vb的吗？vb调整窗口大小，需要手动在Resize事件中手动设置控件的位置，.net有更智能的操作，

选中控件，右键属性，找到【Anchor】属性，这个属性就是设置控件随窗体大小动态调整位置的属性，点开右边的下拉框，可以看到一个方块四周有四个块，默认选中的是上面和左边的块，这表明：调整窗体时，上边距和左边距始终保持不变。同样，可以设置左，右，上，下的块，使控件对应的边距随窗体大小改变而改变，

ps：设置控件的位置，是这样设置的：
Label.Location = new Point(20,20); 参考技术A 　　vb调整窗口大小，需要手动在Resize事件中手动设置控件的位置，.net有更智能的操作。
　　选中控件，右键属性，找到【Anchor】属性，这个属性就是设置控件随窗体大小动态调整位置的属性，点开右边的下拉框，可以看到一个方块四周有四个块，默认选中的是上面和左边的块，这表明：调整窗体时，上边距和左边距始终保持不变。同样，可以设置左，右，上，下的块，使控件对应的边距随窗体大小改变而改变，
　　ps：设置控件的位置，是这样设置的：Label.Location = new Point(20,20)。 参考技术B .net 解决不了这个问题，窗口的resize时间是客户端发生的。.net服务端根本无法获得客户端窗口重画的事件。你这个问题的解决只能靠js来解决。

window 对象好像有个onresizeend事件 ，在这里面定位到你的标签 然后用css控制他的位置试试吧