📄 exhfrm.frm
字号:
VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "SWFLASH.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{464BC6E0-5414-4E9D-BF30-B79D1174A415}#44.0#0"; "OvalCmd.ocx"
Object = "{F5BE8BC2-7DE6-11D0-91FE-00C04FD701A5}#2.0#0"; "agentctl.dll"
Begin VB.Form ExhFrm
BorderStyle = 0 'None
ClientHeight = 2220
ClientLeft = 0
ClientTop = 0
ClientWidth = 5895
Icon = "Exhfrm.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2220
ScaleWidth = 5895
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Timer BGTim
Interval = 500
Left = 4080
Top = 1200
End
Begin ShockwaveFlashObjectsCtl.ShockwaveFlash TipFlash
Height = 1095
Left = 4440
TabIndex = 7
Top = 240
Width = 495
_cx = 4195177
_cy = 4196235
Movie = ""
Src = ""
WMode = "Window"
Play = -1 'True
Loop = -1 'True
Quality = "High"
SAlign = ""
Menu = -1 'True
Base = ""
Scale = "ShowAll"
DeviceFont = 0 'False
EmbedMovie = 0 'False
BGColor = ""
SWRemote = ""
Stacking = "below"
End
Begin VB.ComboBox InputCombo
Height = 315
Left = 4320
TabIndex = 5
Text = "InputCombo"
Top = 1680
Visible = 0 'False
Width = 975
End
Begin VB.TextBox InputText
Height = 285
Left = 3000
TabIndex = 4
Text = "InputText"
Top = 960
Visible = 0 'False
Width = 975
End
Begin MSComDlg.CommonDialog FileDialog
Left = 5040
Top = 240
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin OvalCommand.OvalCmd OvalCmdLast
Height = 735
Left = 2880
TabIndex = 2
Top = 1320
Width = 1335
_ExtentX = 2355
_ExtentY = 1296
TipString = ""
End
Begin OvalCommand.OvalCmd OvalCmdNext
Height = 735
Left = 2880
TabIndex = 1
Top = 120
Width = 1335
_ExtentX = 2355
_ExtentY = 1296
TipString = ""
End
Begin MSComctlLib.ImageList ExhCADImgLst
Left = 5160
Top = 960
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 393216
End
Begin MSComctlLib.ListView ExhCADListView
Height = 375
Left = 120
TabIndex = 0
Top = 1560
Width = 2655
_ExtentX = 4683
_ExtentY = 661
View = 3
Arrange = 1
LabelEdit = 1
Sorted = -1 'True
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = -1 'True
AllowReorder = -1 'True
FlatScrollBar = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin MSComctlLib.TreeView ExhCADTreeView
Height = 1095
Left = 120
TabIndex = 3
Top = 120
Width = 2655
_ExtentX = 4683
_ExtentY = 1931
_Version = 393217
HideSelection = 0 'False
LabelEdit = 1
LineStyle = 1
Style = 7
SingleSel = -1 'True
BorderStyle = 1
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin AgentObjectsCtl.Agent ExhCADAgent
Left = 3960
Top = 720
End
Begin VB.Image ExhCADMenuImg
Height = 375
Left = 5400
Top = 1680
Width = 375
End
Begin VB.Label AppName
AutoSize = -1 'True
Caption = "AppName"
Height = 195
Left = 1200
TabIndex = 6
Top = 1320
Width = 705
End
End
Attribute VB_Name = "ExhFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**********************************************************
' File Name : exhfrm.frm
' Author : endlessfree
' Last updated : 10.04.2002
' Compiler : Visucal Basic 6.0
' Description : ExhCAD0.99.1的主窗体
'**********************************************************
'变量
'**********************************************************
'InputText ----- 输入数据
'InputLabel ----- 输入提示
'AppName ----- 程序名
'InputComboArrange ----- 管子排列方式
'InputComboFlat ----- 管壁粗糙度
'InputComboFlow ----- 介质流向
'ExhCADMenuImg ----- 菜单图标
'ExhCADMenu ----- XpMenu菜单
'itemx ----- 数据项
'**********************************************************
'函数
'**********************************************************
'ExhCADSetup_Modify ----- 修改设置参数
'ExhCADSetup_Select ----- 选择设置参数
'ExhCADCompute_Modify ----- 修改输入数据
'ExhCADCompute_Select ----- 选择输入数据
'ExhCADDraw_Select ----- 选择输出数据
'**********************************************************
' 事件
'**********************************************************
'ExhCADListView_ItemClick
'ExhCADMenuImg_Click
'ExhCADTreeView_NodeClick
'Form_Load
'Form_MouseMove
'Form_MouseDown
'InputText_Change
'OvalCmdLast_Click
'OvalCmdNext_Click
'**********************************************************
Public ExhCADMenu As New XPMenu
Public itemx As ListItem
Private Sub InputTextFun(stepnumber As Integer, ByVal item As MSComctlLib.ListItem)
InputText.Visible = True
InputText.Move RecordInit(183), RecordInit(184) + stepnumber * Step
InputText.Height = RecordInit(185)
InputText.Width = RecordInit(186)
InputText.Text = item.ListSubItems(2).Text
End Sub
Private Sub InputComboFun(stepnumber As Integer, ByVal item As MSComctlLib.ListItem, _
ComboListType As Integer, Optional ComboListItemFirst, _
Optional ComboListItemSecond, Optional ComboListItemThird, _
Optional ComboListItemForth)
InputCombo.Visible = True
InputCombo.Clear
InputCombo.Move RecordInit(187), RecordInit(188) + stepnumber * Step
InputCombo.Width = RecordInit(189)
Select Case ComboListType
Case InputArrange
InputCombo.AddItem ComboListItemFirst
InputCombo.AddItem ComboListItemSecond
Case InputFlat, InputFlow, InputInsertShape
InputCombo.AddItem ComboListItemFirst
InputCombo.AddItem ComboListItemSecond
InputCombo.AddItem ComboListItemThird
Case InputMaterial
InputCombo.AddItem ComboListItemFirst
InputCombo.AddItem ComboListItemSecond
InputCombo.AddItem ComboListItemThird
InputCombo.AddItem ComboListItemForth
End Select
InputCombo.Text = InputCombo.List(Val(item.ListSubItems(2).Text))
End Sub
Private Sub ExhCADSetup_Modify(ByVal item As MSComctlLib.ListItem)
Set itemx = item
Select Case item.Key
Case "N2", "Protect", "InsertLength", "InsertDiameter"
InputTextFun 0, item
Case "CO2", "Use", "InsertWidth"
InputTextFun 1, item
Case "H2O", "Lose"
InputTextFun 2, item
Case "Arrange"
InputComboFun 0, item, InputArrange, RecordInit(108), RecordInit(109)
Case "Flat"
InputComboFun 0, item, InputFlat, RecordInit(110), RecordInit(111), RecordInit(112)
Case "Flow"
InputComboFun 0, item, InputFlow, RecordInit(113), RecordInit(114), RecordInit(115)
Case "InsertShape"
InputComboFun 0, item, InputInsertShape, RecordInit(193), RecordInit(194), RecordInit(195)
Case "Material"
InputComboFun 0, item, InputMaterial, RecordInit(199), RecordInit(200), RecordInit(201), RecordInit(202)
End Select
End Sub
Private Sub ExhCADCompute_Modify(ByVal item As MSComctlLib.ListItem)
Set itemx = item
Select Case item.Key
Case "OutAirT", "FumeQ", "ThickP"
InputTextFun 0, item
Case "AirQ", "FumeV", "DiameterP"
InputTextFun 1, item
Case "AirV", "InFumeT", "HDistance"
InputTextFun 2, item
Case "InAirT", "NRoute"
InputTextFun 3, item
Case "VDistance"
InputTextFun 4, item
End Select
End Sub
Private Sub ListItemAddFun(ListItemKey As String, ListItemText As String, _
ListItemUnit As String, ListItemData As String)
Set itemx = ExhCADListView.ListItems.Add(Key:=ListItemKey, Text:=ListItemText)
itemx.ListSubItems.Add Text:=ListItemUnit
itemx.ListSubItems.Add Text:=ListItemData
End Sub
Private Sub ExhCADSetup_Select(ByVal Node As MSComctlLib.Node)
ExhCADListView.ListItems.Clear
Select Case Node.Key
Case "fume"
ListItemAddFun "H2O", RecordInit(105), "%", CStr(RecordSetup.FumeElement(0))
ListItemAddFun "CO2", RecordInit(106), "%", CStr(RecordSetup.FumeElement(1))
ListItemAddFun "N2", RecordInit(107), "%", CStr(RecordSetup.FumeElement(2))
Case "arrage"
InputComboTypeFlag = InputArrange
If RecordSetup.CannulationArrange = 0 Then
ListItemAddFun "Arrange", RecordInit(108), "/", CStr(RecordSetup.CannulationArrange)
Else
ListItemAddFun "Arrange", RecordInit(109), "/", CStr(RecordSetup.CannulationArrange)
End If
Case "flat"
InputComboTypeFlag = InputFlat
If RecordSetup.CannulationRough = 0 Then
ListItemAddFun "Flat", RecordInit(110), "/", CStr(RecordSetup.CannulationRough)
ElseIf RecordSetup.CannulationRough = 1 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -