闪烁提醒自定义窗体构建方法。

王爱东 · 发表于 2020-6-24 20:36:42

度量快速开发平台中，在发送通知的时候，默认会给人闪烁提示小心并打开阅读。
如果我们自己构建的功能，也想实现选择不同的人，发送提示，选择的人就会闪烁提示，打开闪烁提示能够开打自己定义的窗体，那就能很好的实现自定义的消息提醒。

实现方式：

在发送消息功能中：

if 主页插件管理.DataTable.Rows.Count=0 then
end
end if

'第一个参数指示是否显示工作组，第二个参数为false时为只选择人员的模式，不能人员外的上级，为true时表示可以选择所有类型。
'弹出选择人的界面
dim  form=LoadAssembly("FWFramework.Client.BaseControls.dll","FWFramework.Client.BaseControls.Persions.SelectStaffForm",true,true)
form.ShowDialog()
'获取所选中的组织机构
'dim orgs=form.SelectOrganizations
dim str=""
'for each org in orgs
'       str="组织机构信息："+newline()
'       str=str+"ID:"&org.ID+newline()
'       str=str+"名称:"&org.Name+newline()
'       str=str+"别名:"&org.Alias+newline()
'       str=str+"Type:"&org.Type+newline()
'       str=str+"上级ID:"&org.UpperId+newline()
'       msgbox(str)
'next
'获取选中的组织机构下的所有人员,注意获取的人员没有部门岗位信息。
dim staffs=form.SelectedStaffs
str=""
dim iCount=0
for each si in staffs
iCount=iCount+1
      'str="组织机构信息："+newline()
      'str=str+"ID:"&si.ID+newline()
      'str=str+"名称:"&si.UserName+newline()
      'str=str+"Type:"&si.Type+newline()
      'str=str+"上级ID:"&si.UpperId+newline()
      'msgbox(str)
   '------------------------------------------------------------------------------------------------------
      '给指定的人发送消息闪烁提醒，并打开一个自定义的窗体。
      '参数1：人员ID串，示例： "20001,20002,20003"
'参数2：通知标题。右下角冒泡的小界面的标题。
'参数3：通知内容。右下角冒泡的小界面的内容。
'参数4：点开打开的窗体ID
'参数5: 向打开窗体传递的参数。
      SendCustomNotice(cstr(si.ID),主页插件管理.GetFocusedRowValue("分类"),主页插件管理.GetFocusedRowValue("标题"),"9f6f05e8360f455a9a813bcfaea5bf92",主页插件管理.GetFocusedRowValue("ID"))
      '-------------------------------------------------------------------------------------------------------
next
if iCount>0 then
msgbox("向"&iCount&"人发送提醒成功！")
end if
效果：

选人：