一个VB的小程序

来源：百度知道 编辑：UC知道 时间：2024/05/28 12:29:43
刚按照教材上的例题编写了一个用标签来控制字体大小，位置，颜色，背景的的小程序，但是我发现运行后居中每次都需要第一次点，如果先点别的字体大小什么的，那个居中就会失效，这是为什么呢？
下面是源码，希望有高手能解答下
Private Sub Label2_Click()
Label1.FontName = "隶书"
End Sub

Private Sub Label3_Click()
Label1.BackColor = &HFFFFFF
End Sub

Private Sub Label4_Click()
Label1.FontSize = 26
End Sub

Private Sub Label5_Click()
Label1.ForeColor = &HFF&
End Sub

Private Sub Label6_Click()
Label1.Alignment = 2
End Sub

Private Sub Label7_Click()
Label1.FontName = "幼圆"
Label1.FontSize = 20
Label1.Alignment = 0
Label1.BackColor = &HFFC0C0
Label1.ForeColor = &H800000
End Sub

还有个问题，就是倒数2，3行，原本最后应该还有个&，但我每次打上去都会被自动删除，这正常么？
对于2楼的回答，先说声谢谢，不过问题还是没有解决，居中难道必需要第一次就点么，不知道到底是哪儿错了
还是不行，不知道到底是怎么回事，默认还原的那个，默认的对齐方式是左对齐，也是无效的

正常 颜色代码不需要后面跟 & 的

颜色代码VB会自动转换，正常

Private Sub Label7_Click()
Label1.FontName = "幼圆" '这句有错
Label1.Font= "幼圆" '改为

Private Sub Label2_Click()
Label1.FontName = "隶书" '这句也是

Label1.Font = "隶书" '改为

『改好后你再试试』

你的程序没有错，可能是你的 Label1 画的太小了，你把它放大几倍再看，效果就出来了
Label1.Alignment = 2 可以改成 Label1.Alignment = vbCenter

至于那个后拖的&，本来就是没有用的，你不用管它