与控制位置和控制外观不一致

时间:2015-04-08 09:11:54

标签: vb6 controls

我的“约”形式在我的计算机(Win7 32位)和IDE中看起来像这样 This is my "about" windows

至少在一台PC上(在Win7 64位下),它看起来像这样: This is my about on Win7 64 bits

有关此问题的2个问题:

  • 为什么我的代码中没有任何内容可以隐藏我的确定按钮?我怎么解决这个问题?单击其他按钮或单击其位置时,会出现“确定”按钮。

  • 为什么我的按钮和标签向右移动,超出了我在VB6中设计的形式?我的代码中没有更改其职位。

一些信息: 我的按钮位于“Frame”控件内。这个帧控制应该是840缇(VB6单元......为什么他们不能使用像素?!)从左边和525从顶部。我的标签不在任何内容中。

谢谢。

编辑:管理窗口的唯一代码在form_load中。 FraAbout包含您在上面看到的按钮,FraSplash包含一个进度条。 ZOrder制作按钮始终显示在顶部。

Private Sub Form_Load()

On Error Resume Next

Timer1.Enabled = False
LblRevision = App.FileDescription

SendMessage pb1.Hwnd, PBM_SETBARCOLOR, 0, ByVal RGB(114, 191, 68)

FraAbout.Visible = False: FraSplash.Visible = False

    Me.ForeColor = 0: Me.DrawStyle = 0: Me.BorderStyle = vbFixedSingle: Me.Refresh

If AppLoaded Then
    FraAbout.Visible = True
Else
    t = 0: pb1.value = pb1.min: FraSplash.Visible = True: Timer1.Enabled = True
End If

End Sub

1 个答案:

答案 0 :(得分:0)

这一切都来自......我的配置面板。如果你有问题,这是如何解决问题。我在125岁,刚刚回到100: enter image description here