Foxtable(狐表)用户栏目专家坐堂 → 更新后的故障,窗体中所有控件,点击无效


  共有1817人关注过本帖树形打印复制链接

主题:更新后的故障,窗体中所有控件,点击无效

帅哥哟,离线,有人找我吗?
淡月斜阳
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:221 积分:1915 威望:0 精华:0 注册:2015/4/8 8:18:00
更新后的故障,窗体中所有控件,点击无效  发帖心情 Post By:2020/4/7 11:14:00 [只看该作者]

设计是通用的弹窗提示窗口,通过函数调用,函数里生成一个json字符串变量,给窗体,窗体afterload事件,依据变量中的json字符串,显示内容。未升级前正常。
升级后,click控件无效。
for 循环开启所有控件的enabled=true也不行
‘调用
Functions.Execute("ShowMsgForm","错误","错误","未选中任何用户!","Error")
’函数
'''功能:用于显示 提示消息
'传入:窗体标题,内容标题,内容,图片信息

Dim FormTitle As String = args(0)
Dim Title As String = args(1)
Dim Content As String = args(2)
Dim Pic As String = args(3)
Dim jo As New JObject
jo("FormTitle") = FormTitle
jo("Title") =Title
jo("Content")=Content
Select Case Pic
    Case "Error"
        jo("Pic") = "error64.png"
    Case "Warn"
        jo("Pic") = "warn64p.png"
    Case "Ques"
        jo("Pic") = "ques64.png"        
    Case Else
        jo("Pic") = "Tips64.png"        
End Select
Vars("SimpleFormNotice") = jo.ToString
Forms("提示消息").Open
Vars("SimpleFormNotice") = ""

‘窗体设计
’窗体afterload事件
Dim jo As JObject = JObject.Parse(Vars("SimpleFormNotice"))
'Dim pic As String  = jo("Pic").ToString
''播放提示音
'Audio.Play(ProjectPath & "Sounds\Tips.wav", AudioPlayMode.Background)
With e.Form
    .Text = jo("FormTitle").ToString
    .Controls("LabelTitle").Text= jo("Title").ToString
    .Controls("LabelContent").Text=jo("Content").ToString
    .Controls("Pic").Image = GetImage(jo("Pic").ToString)
    MessageBox.Show("for")
    For Each c As WinForm.Control In .Controls
        c.Enabled=True
    Next
End With


'按钮click事件
MessageBox.Show("a")
e.Form.Close
‘窗体click事件
MessageBox.Show(e.Sender.Name)

’‘’‘’‘’‘’‘’‘’‘’
点哪都不会响应,不会弹msgbox

以前正常,今天升级后不行了,显示正常,就是不响应点击
图片点击可在新窗口打开查看此主题相关图片如下:002.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:001.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2020/4/7 11:14:58编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105492 积分:536451 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/7 11:24:00 [只看该作者]

点击提示窗口右上角的X能够关闭窗口吗?

去掉这句代码试试:MessageBox.Show("for")
[此贴子已经被作者于2020/4/7 11:24:43编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
淡月斜阳
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:221 积分:1915 威望:0 精华:0 注册:2015/4/8 8:18:00
  发帖心情 Post By:2020/4/7 11:33:00 [只看该作者]

不行,这个msgbox for 是后加的
在这个窗口里不管用。
在别处还正常

 回到顶部
帅哥哟,离线,有人找我吗?
淡月斜阳
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:221 积分:1915 威望:0 精华:0 注册:2015/4/8 8:18:00
  发帖心情 Post By:2020/4/7 11:34:00 [只看该作者]

命令窗口执行,也正常    
Functions.Execute("ShowMsgForm","错误","错误","未选中任何用户","Error")

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105492 积分:536451 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/7 12:06:00 [只看该作者]

做个例子发上来测试

 回到顶部
帅哥哟,离线,有人找我吗?
淡月斜阳
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:221 积分:1915 威望:0 精华:0 注册:2015/4/8 8:18:00
  发帖心情 Post By:2020/4/7 12:32:00 [只看该作者]

我装回3月31号的版本正常了
在今天发布的新版本中
今天新增的窗体调用这个函数不正常
以前写的正常
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


 回到顶部
帅哥哟,离线,有人找我吗?
淡月斜阳
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:221 积分:1915 威望:0 精华:0 注册:2015/4/8 8:18:00
  发帖心情 Post By:2020/4/7 12:37:00 [只看该作者]

就是换用新版本之前写的在按钮调用函数,正常
今天新建的窗体中调用,不正常
直接在命令窗口中调用,正常


又测试一遍,同样是这个项目
在31号的版本中,正常
今天的版本中,不正常
[此贴子已经被作者于2020/4/7 12:44:23编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
淡月斜阳
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:221 积分:1915 威望:0 精华:0 注册:2015/4/8 8:18:00
  发帖心情 Post By:2020/4/7 13:34:00 [只看该作者]

找到问题了,跟我写的代码没关系
做两个模式窗口
一个窗口中,一个按钮。forms().open
打开另一个模式窗口
这个新打开的窗口里,所有的控件,都动不了

 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105492 积分:536451 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/7 13:36:00 [只看该作者]

问题已反馈

 回到顶部