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

Question

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

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

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

感谢帮助

Answer 1

the new text does center for me.

run the following test project and click on the form:

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

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

the problem is probably caused by something else. for example: do you have any tight loops?

could you post some of your code?

Answer 2

我目前无法测试 VB6 代码，但显然它需要 Win-API 调用来对齐文本。代码在这里。将代码复制到模块中，然后您可以调用该函数AlignCommandButtonText。（看起来很辛苦！）