- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 更新后的故障，窗体中所有控件，点击无效 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148397)
-- 发布时间：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
此主题相关图片如下：002.png此主题相关图片如下：001.png
[此贴子已经被作者于2020/4/7 11:14:58编辑过]
-- 发布时间：2020/4/7 11:24:00
--
点击提示窗口右上角的X能够关闭窗口吗？
去掉这句代码试试：MessageBox.Show("for")
[此贴子已经被作者于2020/4/7 11:24:43编辑过]
-- 发布时间：2020/4/7 11:33:00
--
不行，这个msgbox for 是后加的
在这个窗口里不管用。
在别处还正常
-- 发布时间：2020/4/7 11:34:00
--
命令窗口执行，也正常
Functions.Execute("ShowMsgForm","错误","错误","未选中任何用户","Error")
-- 发布时间：2020/4/7 12:06:00
--
做个例子发上来测试
-- 发布时间：2020/4/7 12:32:00
--
我装回3月31号的版本正常了
在今天发布的新版本中
今天新增的窗体调用这个函数不正常
以前写的正常
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2020/4/7 12:37:00
--
就是换用新版本之前写的在按钮调用函数，正常
今天新建的窗体中调用，不正常
直接在命令窗口中调用，正常
又测试一遍，同样是这个项目
在31号的版本中，正常
今天的版本中，不正常
[此贴子已经被作者于2020/4/7 12:44:23编辑过]
-- 发布时间：2020/4/7 13:34:00
--
找到问题了，跟我写的代码没关系
做两个模式窗口
一个窗口中，一个按钮。forms().open
打开另一个模式窗口
这个新打开的窗口里，所有的控件，都动不了
-- 发布时间：2020/4/7 13:36:00
--
问题已反馈