📄 frmmain2.frm
字号:
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.ImageList imglst
Left = 1440
Top = 960
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 13
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":125F
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":1360
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":1464
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Index = 0
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483633
ImageWidth = 75
ImageHeight = 26
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":14DA
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":18F1
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":1D0F
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":2343
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":298D
Key = ""
EndProperty
EndProperty
End
Begin VB.Timer Timer1
Interval = 1000
Left = 1080
Top = 840
End
End
Begin MSComctlLib.ImageList ImageList1
Index = 1
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483633
ImageWidth = 75
ImageHeight = 26
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":2FBC
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":33DF
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":380A
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":3E4B
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":44A3
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList2
Index = 1
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = 12632256
ImageWidth = 43
ImageHeight = 34
MaskColor = 16777215
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 9
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":4ADD
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":4C2D
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":4E44
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":501E
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":51DD
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":5388
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":54C4
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":5606
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain2.frx":5742
Key = ""
EndProperty
EndProperty
End
Begin VB.Menu mnuFile
Caption = "文件(&F)"
Begin VB.Menu mnuNew
Caption = "新建(&N)"
Shortcut = ^N
End
Begin VB.Menu mnuOpen
Caption = "打开(&O)"
Enabled = 0 'False
Shortcut = ^O
Visible = 0 'False
End
Begin VB.Menu mnuSave
Caption = "保存(&S)"
Shortcut = ^S
End
Begin VB.Menu mnuClose
Caption = "关闭流程(&X)"
End
End
Begin VB.Menu mnuPop
Caption = "编辑(&E)"
Begin VB.Menu mnuRoute
Caption = "添加路由"
End
Begin VB.Menu mnuAll
Caption = "全选(&A)"
Shortcut = ^A
End
Begin VB.Menu mnuI
Caption = "反选(&I)"
Shortcut = ^I
End
Begin VB.Menu mnuDel
Caption = "删除(&D)"
Shortcut = {DEL}
End
Begin VB.Menu mnuL1
Caption = "-"
End
Begin VB.Menu mnuProp
Caption = "属性(&R)"
End
End
Begin VB.Menu mnuAlign
Caption = "对齐(&A)"
Begin VB.Menu mnuAlignMethod
Caption = "左对齐(&L)"
Index = 0
End
Begin VB.Menu mnuAlignMethod
Caption = "右对齐(&R)"
Index = 1
End
Begin VB.Menu mnuAlignMethod
Caption = "上对齐(&T)"
Index = 2
End
Begin VB.Menu mnuAlignMethod
Caption = "下对齐(&B)"
Index = 3
End
End
Begin VB.Menu mnuSystem
Caption = "系统(&S)"
Visible = 0 'False
Begin VB.Menu mnuConnect
Caption = "连接服务器(&S)"
End
Begin VB.Menu mnuACLSeting
Caption = "权限设置(&A)"
End
End
Begin VB.Menu mnuTest
Caption = "测试(&T)"
End
Begin VB.Menu mnuHelp
Caption = "帮助(&H)"
Begin VB.Menu mnuHelpItem
Caption = "帮助"
Index = 0
Shortcut = {F1}
End
Begin VB.Menu mnuHelpItem
Caption = "-"
Index = 1
Visible = 0 'False
End
Begin VB.Menu mnuHelpItem
Caption = "关于(&A)"
Index = 2
Visible = 0 'False
End
End
Begin VB.Menu mnutrvItem
Caption = "编辑"
Visible = 0 'False
Begin VB.Menu mnutrv
Caption = "打开(&O)"
Index = 0
End
Begin VB.Menu mnutrv
Caption = "删除(&D)"
Index = 1
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private mNodeCol As Collection
Private mLineCol As Collection
Private d As Boolean
Private dX As Single, dY As Single
Private mSelectX As Single, mSelectY As Single
Private WithEvents mSelectCol As CSelect
Attribute mSelectCol.VB_VarHelpID = -1
Private mEnd As Integer
Private mBegin As Integer
Private mLine As IDraw, mMouse As IDraw, mActiveLine As IDraw
Private mAction As Integer
Private mIndex As Integer
Private mGlobal As CGlobal
Private mSHeight As Single, mSWidth As Single '与滚动条刻度有关
Private mIsChange As Boolean
Private mIsOpen As Boolean
Public Sub Display(Optional WFName As String = "")
Dim obj As CDraw
Set obj = New CDraw
obj.Create lbl(0), 1, 1, 1, 1
Set mMouse = obj
Set mNodeCol = New Collection
Set mLineCol = New Collection
Set mSelectCol = New CSelect
Set mGlobal = New CGlobal
If WFName = "" Then
mGlobal.GName = "无标题"
Me.Caption = mGlobal.GName
Me.status.Panels(2) = mGlobal.GName
mBegin = 0
mEnd = 0
Else
OpenWF WFName
End If
MNotes.ShowWorkFlows Me.trv.Nodes
Me.trv.Sorted = True
Me.Tab.Tab = 0
Toolbar1.Buttons(1).value = tbrPressed
Me.Show
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox KeyCode
End Sub
Private Sub Form_Resize()
If Me.ScaleWidth > Picture1.Width + Picture3.Width Then
Picture2.Width = Me.ScaleWidth - Picture1.Width - Picture3.Width
End If
If Me.ScaleHeight > Toolbar1.Height + status.Height Then
Picture3.Move Picture1.Width, Toolbar1.Height, _
Picture3.Width, Me.ScaleHeight - Toolbar1.Height - status.Height
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
If mIsOpen Then mnuClose_Click
If mIsChange Then mnuClose_Click
TermMain
End Sub
Private Sub hs_Change()
pic.Move 0 - hs.value * mSWidth / 10000, pic.Top
End Sub
Private Sub hs_Scroll()
hs_Change
End Sub
Private Sub mnuACLSeting_Click()
frmAclManager.Display
End Sub
Private Sub mnuHelpItem_Click(Index As Integer)
On Error GoTo ErrHandler
Dim d As Double
If Index = 0 Then
If Dir(App.HelpFile) <> "" Then
Shell "hh.exe " & App.HelpFile, vbNormalFocus
Else
MsgBox "没有找到帮助文档！"
End If
Else
frmAbout.Show vbModal
End If
Exit Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -