📄 workflow.ctl
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.UserControl WorkFlow
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 '透明
BorderStyle = 1 'Fixed Single
ClientHeight = 6900
ClientLeft = 0
ClientTop = 0
ClientWidth = 10485
ClipBehavior = 0 '无
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
PropertyPages = "WorkFlow.ctx":0000
ScaleHeight = 460
ScaleMode = 3 'Pixel
ScaleWidth = 699
Begin MSComctlLib.ImageList imgbk
Left = 2205
Top = 5085
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 45
ImageHeight = 56
MaskColor = 12632256
UseMaskColor = 0 'False
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WorkFlow.ctx":004F
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WorkFlow.ctx":05D7
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WorkFlow.ctx":0A7A
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar sb
Align = 2 'Align Bottom
Height = 360
Left = 0
TabIndex = 3
Top = 6540
Width = 10485
_ExtentX = 18494
_ExtentY = 635
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
AutoSize = 1
Enabled = 0 'False
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
AutoSize = 1
Enabled = 0 'False
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Object.Width = 383540
MinWidth = 383540
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 330
Left = 0
TabIndex = 0
Top = 0
Width = 10485
_ExtentX = 18494
_ExtentY = 582
ButtonWidth = 1349
ButtonHeight = 582
Wrappable = 0 'False
Style = 1
TextAlignment = 1
ImageList = "imglist"
DisabledImageList= "imglist"
HotImageList = "imglist"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 11
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "直流"
Object.ToolTipText = "直流前进"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "分流"
Object.ToolTipText = "分流前进"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "转移"
Object.ToolTipText = "转移到其他流程"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "后退"
Object.ToolTipText = "直流后退"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "节点"
Object.ToolTipText = "节点"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Object.Visible = 0 'False
ImageIndex = 3
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Object.Visible = 0 'False
Caption = "新建"
Object.ToolTipText = "新建流程"
ImageIndex = 3
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Object.Visible = 0 'False
Caption = "打开"
Object.ToolTipText = "打开存在的流程"
ImageIndex = 4
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Object.Visible = 0 'False
Style = 3
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Object.Visible = 0 'False
Caption = "保存"
Object.ToolTipText = "保存流程"
ImageIndex = 5
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Object.Visible = 0 'False
Caption = "取消"
Object.ToolTipText = "退出当前操作的流程"
ImageIndex = 1
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList imglist
Left = 855
Top = 5220
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WorkFlow.ctx":1B5A
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WorkFlow.ctx":21BE
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WorkFlow.ctx":27FF
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WorkFlow.ctx":2E98
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "WorkFlow.ctx":36A7
Key = ""
EndProperty
EndProperty
End
Begin VB.PictureBox picCanvas
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
BorderStyle = 0 'None
FillStyle = 2 'Horizontal Line
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000007&
Height = 4200
Left = 0
ScaleHeight = 4200
ScaleWidth = 10455
TabIndex = 1
Top = 315
Width = 10455
Begin VB.PictureBox pic
AutoRedraw = -1 'True
BackColor = &H0080C0FF&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 840
Left = 90
ScaleHeight = 840
ScaleWidth = 600
TabIndex = 2
Top = 225
Visible = 0 'False
Width = 600
End
End
End
Attribute VB_Name = "WorkFlow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Private mDrawFlag As Boolean '标记是否开始画图
Private mSourcePt As POINTAPI '记录图形开始的鼠标坐标
Private mGoalPt As POINTAPI '记录当前鼠标坐标
Private mSelectFlag As Integer '选择要画的图形
Private mMouseDownFlag As Boolean '标记鼠标按下的状态
Private mActiveObject As Object '激活的对象
Private mActiveFlag As Boolean '激活状态
Private mOperState As Integer
Dim mMoveLineInPointID As Integer
Dim mLineBegin As Integer
Dim mLastPointFlag As Boolean '最后一点的标示
Event Resize()
'缺省属性值:
Const m_def_ConnDBString = ""
Private Sub picCanvas_DblClick() '一次鼠标按下，两次鼠标松开 需要特殊处理
Dim MidPoint As POINTAPI
Dim X1, X2, Y1, Y2 As Long
'=============================
If mDrawFlag = False Then
mMouseDownFlag = False
If mActiveFlag = True Then
If mActiveObject.ClsName = "LINE" Then
mActiveObject.MouseMove 100, 0, 0, 0
'================================
With frmActive
Set .GetActLine = mActiveObject
UserControl.Enabled = False
Load frmActive
.Show 1
UserControl.Enabled = True
End With
ElseIf mActiveObject.ClsName = "RECT" Then
picCanvas.DrawMode = 2
picCanvas.DrawWidth = 1
picCanvas.DrawStyle = 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -