VB诡异的问题

chen3bing 发布于 2020-04-10 16:40， 2354 次点击

只有本站会员才能查看附件，请登录

我遇到一个诡异的问题，在一个界面（界面A）里有十个按钮，标定完，点击保存按钮，保存参数，退出界面。
弹出另外一个界面(界面B)。然后再次进入界面A，则那10个按钮就变成一个图那个鬼样子了。
保存按钮代码：
Private Sub Command16_Click()

Unload Form8
Form7.Show
End Sub

form8卸载代码：
Private Sub Form_Unload(Cancel As Integer)
Dim a As VbMsgBoxResult
StrgenthFlag = False
a = MsgBox("请选择是否保存", vbYesNo)
If a = vbYes Then

Call SaveBdParameter
Else

End If
End Sub
卸载时，弹出对话框

只有本站会员才能查看附件，请登录

请问高手，怎么回事？如何解决？谢谢！

6 回复

ZHRXJR2020-04-10 18:56

实际上这是一个VB控件加载的顺序问题，你发的代码估计是部分代码，无法判定问题所在。
最上面的图中的空位，实际上就是10个按钮没有加载的问题。

chen3bing2020-04-11 08:02

谢谢！代码太多，无法全发。可是别的控件为什么加载了呢？不是应该一起加载吗？

风吹过b2020-04-11 08:33

编译后还有这种情况吗？
也有可能遇到了 VB 的天花板了，VB对标识符、变量数据、控件等等资源都有限制的。

IDE环境和编译后的环境不同。
IDE环境是解释执行，有可能因太复杂超时没执行到被中止了。

chen3bing2020-04-11 09:22

我编译了一下，打包安装，又出现了问题。在第一次打开界面A之前打开一个界面

只有本站会员才能查看附件，请登录

点击确认按钮
弹出错误对话框

只有本站会员才能查看附件，请登录

打包之前没有错误。
代码：
Private Sub Command1_Click()
MsgBox SelectSensorNum
MsgBox SelectSensorNum1
If Option1.Value = True Then
RangeC = Val(Form5.Text1(SelectSensorNum))

ElseIf Option2.Value = True Then
RangeC = Val(Form5.Text2(SelectSensorNum1 - 4))
End If
Form7.Hide
Form10.Hide
Form8.Show
End Sub
控件数组就是text1,text2

chen3bing2020-04-11 10:48

只有本站会员才能查看附件，请登录

打包之后成这样啦。风吹过B

chen3bing2020-04-11 11:11

我去掉了两个没用的窗体，资源减少了，还是不行。