📄 frmnodeproperties.frm
字号:
Height = 375
Index = 1
Left = 2040
MousePointer = 14 'Arrow and Question
TabIndex = 44
Top = 1320
Width = 1035
End
Begin VB.CheckBox chkAllow
Caption = "允许代办"
Height = 375
Index = 3
Left = 3960
MousePointer = 14 'Arrow and Question
TabIndex = 43
Top = 1320
Width = 1035
End
Begin VB.CheckBox chkActionList
Caption = "意见处理"
Height = 375
Index = 0
Left = 360
MousePointer = 14 'Arrow and Question
TabIndex = 42
ToolTipText = "此选项将会显示“同意”、“不同意”操作"
Top = 360
Width = 1035
End
Begin VB.CheckBox chkActionList
Caption = "填写意见"
Height = 375
Index = 1
Left = 2040
MousePointer = 14 'Arrow and Question
TabIndex = 41
ToolTipText = "此选项将会显示“填写意见”操作"
Top = 360
Width = 1035
End
Begin VB.CheckBox chkActionList
Caption = "查看意见"
Height = 375
Index = 2
Left = 3960
MousePointer = 14 'Arrow and Question
TabIndex = 40
ToolTipText = "此选项将会显示“查看意见”操作"
Top = 360
Width = 1155
End
Begin VB.CheckBox chkActionList
Caption = "笔迹留痕"
Height = 375
Index = 3
Left = 360
MousePointer = 14 'Arrow and Question
TabIndex = 39
ToolTipText = "此选项将会显示“新建”、“编辑”、“上传”操作"
Top = 840
Width = 1035
End
Begin VB.CheckBox chkActionList
Caption = "编辑手写笔批注"
Height = 375
Index = 4
Left = 2040
MousePointer = 14 'Arrow and Question
TabIndex = 38
ToolTipText = "此选项将会显示“编辑”、“上传”操作"
Top = 840
Width = 1635
End
Begin VB.CheckBox chkActionList
Caption = "查看手写笔批注"
Height = 375
Index = 5
Left = 3960
MousePointer = 14 'Arrow and Question
TabIndex = 37
ToolTipText = "此选项将会显示“查看手写笔批注”操作"
Top = 840
Width = 1635
End
Begin VB.CheckBox chkActionList
Caption = "引入文头"
Height = 375
Index = 6
Left = 5640
MousePointer = 14 'Arrow and Question
TabIndex = 36
ToolTipText = "此选项允许上传公司文头"
Top = 840
Width = 1035
End
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "办理权限："
Height = 180
Left = 240
TabIndex = 47
Top = 300
Width = 900
End
End
Begin VB.Frame Frame6
Caption = "自动代理设置"
Height = 2655
Left = -74730
TabIndex = 14
Top = 810
Width = 7245
Begin VB.Frame Frame10
Height = 2295
Left = 90
TabIndex = 27
Top = 180
Width = 7005
Begin VB.CommandButton cmdSelectAgent
Caption = "选择代理"
Height = 255
Left = 360
TabIndex = 33
Top = 720
Width = 975
End
Begin VB.ListBox cmbAgent
Height = 600
Left = 1560
TabIndex = 32
Top = 720
Width = 2745
End
Begin VB.TextBox txtAgentTitle
Height = 300
Left = 1560
TabIndex = 31
Top = 360
Width = 2745
End
Begin VB.TextBox txtDescription
Height = 615
Left = 1560
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 30
Top = 1560
Width = 2745
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "代理注释："
Height = 180
Left = 420
TabIndex = 29
Top = 1560
Width = 900
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "代理名称："
Height = 180
Left = 420
TabIndex = 28
Top = 300
Width = 900
End
End
Begin VB.Frame Frame8
Height = 2325
Left = 2370
TabIndex = 18
Top = 150
Width = 4725
Begin VB.TextBox txtBody
Height = 315
Left = 2070
TabIndex = 26
Top = 1920
Width = 2265
End
Begin VB.TextBox txtSubject
Height = 315
Left = 2070
TabIndex = 25
Top = 1500
Width = 2235
End
Begin VB.Frame Frame9
Caption = "收件人"
Height = 1155
Left = 180
TabIndex = 19
Top = 180
Width = 4365
Begin VB.ListBox lstSendTo
Height = 780
Left = 1080
TabIndex = 22
Top = 210
Width = 3135
End
Begin VB.CommandButton cmdDelSendTo
Caption = "删除"
Height = 285
Left = 90
TabIndex = 21
Top = 720
Width = 885
End
Begin VB.CommandButton cmdAddSendTo
Caption = "增加"
Height = 285
Left = 60
TabIndex = 20
Top = 270
Width = 885
End
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "正文："
Height = 180
Left = 300
TabIndex = 24
Top = 1987
Width = 540
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "主题："
Height = 180
Left = 300
TabIndex = 23
Top = 1567
Width = 540
End
End
Begin VB.Frame Frame7
Height = 2295
Left = 120
TabIndex = 15
Top = 180
Visible = 0 'False
Width = 1635
Begin VB.OptionButton optAgentType
Caption = "发送邮件"
Height = 345
Index = 1
Left = 270
TabIndex = 17
Top = 1350
Width = 1215
End
Begin VB.OptionButton optAgentType
Caption = "Script代理"
Height = 345
Index = 0
Left = 240
TabIndex = 16
Top = 450
Width = 1215
End
End
End
Begin VB.CheckBox chkAutoAgent
Caption = "启用自动代理"
Height = 345
Left = -74730
TabIndex = 13
Top = 480
Width = 2175
End
Begin VB.Frame Frame2
Caption = "办理人员"
Height = 2745
Left = 210
TabIndex = 5
Top = 720
Width = 7365
Begin VB.Frame Frame3
Height = 495
Left = 3000
TabIndex = 10
Top = 120
Visible = 0 'False
Width = 1515
Begin VB.OptionButton optQun
Caption = "群发"
Height = 345
Left = 720
TabIndex = 12
Top = 120
Width = 705
End
Begin VB.OptionButton optShun
Caption = "顺发"
Height = 345
Left = 120
TabIndex = 11
Top = 120
Value = -1 'True
Width = 675
End
End
Begin VB.CheckBox chkMult
Caption = "多人办理"
Height = 255
Left = 1860
TabIndex = 9
Top = 240
Width = 1095
End
Begin VB.CommandButton cmdRemovePeople
Caption = "删除"
Height = 315
Left = 3240
TabIndex = 8
Top = 2280
Width = 915
End
Begin VB.CommandButton cmdAddPeople
Caption = "增加"
Height = 315
Left = 1920
TabIndex = 7
Top = 2280
Width = 915
End
Begin VB.ListBox lstPeople
Height = 1500
Left = 1680
TabIndex = 6
Top = 720
Width = 3405
End
End
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "名 称："
Height = 180
Left = 180
TabIndex = 3
Top = 330
Width = 900
End
End
Attribute VB_Name = "frmNodeProperties"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private mObj As CNode
Private mUser() As String
Private mAllAgents() As String
Private mtxtActionList As String
Public Sub Display(obj As Object, Agents() As String)
On Error GoTo ErrHandler
Set mObj = obj
mAllAgents = Agents
Me.tabProp.Tab = 0
'基本属性
Me.txtName.Text = mObj.NodeName
If mObj.DeptManager = False Then
If mObj.Order = 0 Then
Me.optShun = True
Else
Me.optQun = True
End If
Dim i As Integer
mUser = mObj.ParticipantExpanded
For i = LBound(mUser) To UBound(mUser)
If mUser(i) <> "" Then Me.lstPeople.AddItem mUser(i)
Next i
Else
Me.chkDeptManager = 1
End If
Me.txtComment = mObj.Comment '其他属性
'高级属性
Me.cmbUserModifyType.ListIndex = mObj.UserModifyType
If mObj.MailNotification Then Me.chkAllow(0).value = 1
If Not mObj.NotAllowChangeUser Then
Me.chkAllow(1).value = 0
Me.chkAllow(1).Enabled = False
Else
Me.chkAllow(1).Enabled = True
End If
If Not mObj.NotAllowAgent Then
Me.chkAllow(3).value = 0
Me.chkAllow(3).Enabled = False
Else
Me.chkAllow(3).Enabled = True
End If
If mObj.AllowChangeUser Then
Me.chkAllow(1).value = 1
Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -