如何在VB6中手动居中按钮的标题

Question

我在VB6中按钮的标题有问题。 我试图在“_load”事件之后更改标题并且它可以工作，但新文本不在按钮的中心 - 这是一个问题。

您可以在以下屏幕上看到它： https://dl.dropboxusercontent.com/u/3779161/buttons.png

我尝试使用“刷新”功能，但没有任何效果。 是否可以在不创建新按钮的情况下刷新按钮？

感谢您的帮助

Answer 1

我目前无法测试VB6代码，但显然，它需要Win-API调用才能对齐文本。 code here。将代码复制到模块中，然后可以调用函数AlignCommandButtonText。 （好像努力工作！）

Answer 2

新文本对我来说很重要。

运行以下测试项目并单击表单：

'1 form with
'  1 commandbutton: name=Command1  caption="Test"
Option Explicit

Private Sub Form_Click()
  Command1.Caption = "New Test"
End Sub

问题可能是由其他原因造成的。 例如：你有任何紧密的循环吗？

你可以发布一些代码吗？