标题:VB诡异的问题
只看楼主
chen3bing
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:507
专家分:104
注 册:2008-11-12
结帖率:91.22%
已结贴  问题点数:10 回复次数:6 
VB诡异的问题


我遇到一个诡异的问题,在一个界面(界面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
卸载时,弹出对话框

请问高手,怎么回事?如何解决?谢谢!
搜索更多相关主题的帖子: 保存 按钮 VB 界面 Sub 
2020-04-10 16:40
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
得分:5 
实际上这是一个VB控件加载的顺序问题,你发的代码估计是部分代码,无法判定问题所在。
最上面的图中的空位,实际上就是10个按钮没有加载的问题。

请不要选我!!!
2020-04-10 18:56
chen3bing
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:507
专家分:104
注 册:2008-11-12
得分:0 
谢谢!代码太多,无法全发。可是别的控件为什么加载了呢?不是应该一起加载吗?
2020-04-11 08:02
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4912
专家分:29900
注 册:2008-10-15
得分:5 
编译后还有这种情况吗?
也有可能遇到了 VB 的天花板了,VB对标识符、变量数据、控件 等等资源都有限制的。

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

授人于鱼,不如授人于渔
早已停用QQ了
2020-04-11 08:33
chen3bing
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:507
专家分:104
注 册:2008-11-12
得分:0 
我编译了一下,打包安装,又出现了问题。在第一次打开界面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
2020-04-11 09:22
chen3bing
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:507
专家分:104
注 册:2008-11-12
得分:0 

打包之后成这样啦。风吹过B
2020-04-11 10:48
chen3bing
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:507
专家分:104
注 册:2008-11-12
得分:0 
我去掉了两个没用的窗体,资源减少了,还是不行。
2020-04-11 11:11



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-500983-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.059238 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved