设计是通用的弹窗提示窗口,通过函数调用,函数里生成一个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编辑过]