| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2146 人关注过本帖
标题:VB诡异的问题
取消只看楼主 加入收藏
chen3bing
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:507
专家分:104
注 册:2008-11-12
结帖率:91.22%
收藏
已结贴  问题点数:10 回复次数:4 
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
chen3bing
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:507
专家分:104
注 册:2008-11-12
收藏
得分:0 
谢谢!代码太多,无法全发。可是别的控件为什么加载了呢?不是应该一起加载吗?
2020-04-11 08:02
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
快速回复:VB诡异的问题
数据加载中...
 
   



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

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