在64位Windows系统上安装32位VB6 GUI设计

Question

I have a GUI designed with visual basic 6.0 on windows 32-bit system. I am trying to install it on windows-64 bit system. When i install it on 64-bit windows system I am getting some problems in GUI like some text is missing on label or text-box. When i install it on 32-bit windows system it is working fine.

I am confusing what might be the problem is it with the GUI design or installation?

Thanks.

Answer 1

We've come across issues similar to this in the past, with certain control types/control settings not showing up in modern versions of Windows.

The work around we had was to set the Windows appearance theme to Windows Classic (looks mostly like XP). In the longer term we replaced those forms with controls that did work.

Answer 2

Most controls don't have an AutoSize function, so you will have to do it yourself

Have a look at the TextWidth() function

The controls you mention all have their text in the Caption propery, so you can do something as follows:

Option Explicit

Private Sub Command1_Click()
  Dim strLong As String
  strLong = String(50, "A")
  SetCaption Label1, strLong, 0
  SetCaption Check1, strLong, 480
  SetCaption Command1, strLong, 480
End Sub

Private Sub SetCaption(ctrl As Control, strCaption As String, sngMargin As Single)
  Dim sngWidth As Single
  sngWidth = TextWidth(strCaption)
  ctrl.Width = sngWidth + sngMargin
  ctrl.Caption = strCaption
End Sub

This is far from perfect, but it might work in your case.

Some immediate remarks:

• TextWidth() use the font from your form to calculate the width of the text
• Not all controls have a Caption property. For a textbox you will have to use the Text property, so you can't the SetCaption function
• Some controls need some extra space, for example the checkbox in the checkbox control or the borders around the command button control. You have to figure out which margin works best