【发布时间】:2015-04-08 21:28:05
【问题描述】:
我的“关于”表单在我的计算机(Win7 32 位)和 IDE 中看起来像这样
至少在一台 PC 上(在 Win7 64 位下),它看起来像这样:
关于此的 2 个问题:
为什么在我的代码中没有任何东西可以隐藏时,我的“确定”按钮没有出现?我该如何解决?当我单击另一个按钮或单击其位置时,会出现“确定”按钮。
为什么我的按钮和标签向右移动,超出了我在 VB6 中设计的形式?我的代码中没有任何内容可以改变它们的位置。
一点信息: 我的按钮位于“框架”控件内。这个框架控件应该是 840 twips(VB6 单位......为什么他们不能使用像素?!)从左侧和顶部 525。我的标签不在任何东西里面。
谢谢。
编辑:管理窗口的唯一代码在 form_load 中。 FraAbout 包含您在上面看到的按钮,FraSplash 包含一个进度条。 ZOrder 制作按钮始终显示在顶部。
Private Sub Form_Load()
出错后继续下一步
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
结束子
【问题讨论】:
-
你能和我们分享一些代码吗?
-
好吧,实际上代码中没有与这些控件相关的内容。我添加了Form_Load中的内容,但并不多
-
按钮的属性怎么样?