📄 frmmacmain.frm
字号:
Left = 1215
ScaleHeight = 5490
ScaleWidth = 8055
TabIndex = 42
Top = 330
Width = 8115
Begin VB.CommandButton btnDispMsg
Caption = "下载"
Height = 330
Left = 6960
TabIndex = 344
Top = 5010
Width = 870
End
Begin VB.Frame FramDownMsg
Caption = "设备显示"
Height = 4425
Index = 0
Left = 120
TabIndex = 98
Top = 210
Width = 7890
Begin VB.Frame FramDownMsg
Caption = "消息通告"
Height = 2505
Index = 1
Left = 180
TabIndex = 101
Top = 225
Width = 7635
Begin RichTextLib.RichTextBox TxtDispMsg
Height = 2145
Left = 180
TabIndex = 345
Top = 240
Width = 2835
_ExtentX = 5001
_ExtentY = 3784
_Version = 393217
Enabled = -1 'True
MaxLength = 32
TextRTF = $"frmMacMain.frx":3CEC0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Frame FramDownMsg
Caption = "消息显示时间段"
Height = 2190
Index = 2
Left = 3270
TabIndex = 332
Top = 180
Width = 4215
Begin MSMask.MaskEdBox mskBeginDate
Height = 285
Left = 1140
TabIndex = 342
Top = 600
Width = 1065
_ExtentX = 1879
_ExtentY = 503
_Version = 393216
MaxLength = 10
Format = "yyyy-mm-dd"
Mask = "####-##-##"
PromptChar = "_"
End
Begin MSMask.MaskEdBox MskMsgTo
Height = 285
Index = 0
Left = 2550
TabIndex = 333
Top = 1110
Width = 1065
_ExtentX = 1879
_ExtentY = 503
_Version = 393216
MaxLength = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mask = "##:##"
PromptChar = " "
End
Begin MSMask.MaskEdBox MskMsgFrom
Height = 285
Index = 0
Left = 1140
TabIndex = 334
Top = 1110
Width = 1065
_ExtentX = 1879
_ExtentY = 503
_Version = 393216
MaxLength = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = "hh:mm"
Mask = "##:##"
PromptChar = " "
End
Begin MSMask.MaskEdBox MskMsgTo
Height = 285
Index = 1
Left = 2550
TabIndex = 335
Top = 1620
Width = 1065
_ExtentX = 1879
_ExtentY = 503
_Version = 393216
MaxLength = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mask = "##:##"
PromptChar = " "
End
Begin MSMask.MaskEdBox MskMsgFrom
Height = 285
Index = 1
Left = 1140
TabIndex = 336
Top = 1620
Width = 1065
_ExtentX = 1879
_ExtentY = 503
_Version = 393216
MaxLength = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = "hh:mm"
Mask = "##:##"
PromptChar = " "
End
Begin MSMask.MaskEdBox mskEndDate
Height = 285
Left = 2550
TabIndex = 343
Top = 600
Width = 1065
_ExtentX = 1879
_ExtentY = 503
_Version = 393216
MaxLength = 10
Format = "yyyy-mm-dd"
Mask = "####-##-##"
PromptChar = "_"
End
Begin VB.Label Label1
Caption = "显示日期:"
ForeColor = &H00FF0000&
Height = 285
Index = 103
Left = 270
TabIndex = 341
Top = 660
Width = 825
End
Begin VB.Label Label1
Caption = "第一段:从"
ForeColor = &H00FF0000&
Height = 285
Index = 2
Left = 270
TabIndex = 340
Top = 1162
Width = 825
End
Begin VB.Label Label1
Caption = "到"
ForeColor = &H00FF0000&
Height = 285
Index = 97
Left = 2220
TabIndex = 339
Top = 1650
Width = 195
End
Begin VB.Label Label1
Caption = "到"
ForeColor = &H00FF0000&
Height = 285
Index = 96
Left = 2220
TabIndex = 338
Top = 1170
Width = 195
End
Begin VB.Label Label1
Caption = "第二段:从"
ForeColor = &H00FF0000&
Height = 285
Index = 95
Left = 270
TabIndex = 337
Top = 1665
Width = 825
End
End
End
Begin VB.Frame FramDownMsg
Caption = "公司名称"
Height = 1380
Index = 3
Left = 180
TabIndex = 99
Top = 2850
Width = 7305
Begin VB.TextBox TxtDispComName
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 120
MaxLength = 64
TabIndex = 100
Text = "风华科技小组"
Top = 570
Width = 6945
End
End
Begin VB.Frame FramDownMsg
Caption = "操作"
Height = 1335
Index = 4
Left = 7590
TabIndex = 301
Top = 4920
Visible = 0 'False
Width = 7305
Begin VB.OptionButton OptDispModel
Caption = "显示消息."
Height = 285
Index = 1
Left = 225
TabIndex = 304
Top = 585
Width = 1275
End
Begin VB.OptionButton OptDispModel
Caption = "显示公司名"
Height = 285
Index = 0
Left = 225
TabIndex = 303
Top = 270
Value = -1 'True
Width = 1275
End
Begin VB.CheckBox ChkMsgAll
Caption = "群发"
Height = 285
Left = 270
TabIndex = 302
Top = 900
Width = 1185
End
End
End
End
Begin VB.PictureBox PicTab
Height = 5550
Index = 11
Left = 1170
ScaleHeight = 5490
ScaleWidth = 8055
TabIndex = 262
Top = 450
Visible = 0 'False
Width = 8115
Begin VB.Frame Frame1
Caption = "注册管理"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 4980
Left = 90
TabIndex = 263
Top = 90
Width = 7875
Begin VB.CommandButton btnAllEmMoveRight
Caption = ">>"
Height = 330
Left = 2970
TabIndex = 279
ToolTipText = "全部移至右边"
Top = 2430
Width = 465
End
Begin VB.CommandButton btnRegMagDelEm
Caption = "删除"
Height = 330
Left = 6570
TabIndex = 271
Top = 3150
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -