📄 nihongdeng4.frm
字号:
VERSION 5.00
Begin VB.Form Form4
BorderStyle = 1 'Fixed Single
Caption = "打开文件"
ClientHeight = 2715
ClientLeft = 4545
ClientTop = 840
ClientWidth = 3270
ControlBox = 0 'False
LinkTopic = "Form4"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 2715
ScaleWidth = 3270
Begin VB.ListBox List1
Height = 2220
ItemData = "nihongdeng4.frx":0000
Left = 120
List = "nihongdeng4.frx":0002
TabIndex = 2
Top = 360
Width = 1815
End
Begin VB.CommandButton Command2
Caption = "取消"
Height = 375
Left = 2160
TabIndex = 1
Top = 1560
Width = 975
End
Begin VB.CommandButton Command1
Caption = "打开"
Height = 375
Left = 2160
TabIndex = 0
Top = 960
Width = 975
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "文件名"
Height = 180
Left = 720
TabIndex = 3
Top = 120
Width = 540
End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
On Error Resume Next
If Form4.List1.SelCount <> 0 Then
NewOne
NowFileName = Form4.List1.List(List1.ListIndex)
comp1$ = "名称='" & NowFileName & "'"
Form1.Data1.Recordset.FindFirst comp1$
If Not Form1.Data1.Recordset.NoMatch Then
NowLs = Form1.Data1.Recordset.Fields("灯管数量")
NowColor = Form1.Data1.Recordset.Fields("灯管颜色")
NowQd = Form1.Data1.Recordset.Fields("灯管起点")
NowKd = Form1.Data1.Recordset.Fields("灯管宽度")
NowJg = Form1.Data1.Recordset.Fields("灯管间隔")
NowHz = Form1.Data1.Recordset.Fields("汉字数量")
For i = 7 To 26
HzXuHao(i - 7) = Form1.Data1.Recordset(i)
Next i
TotalDgHuaYang = Form1.Data1.Recordset.Fields("灯管花样数量")
TotalHzHuaYang = Form1.Data1.Recordset.Fields("汉字花样数量")
EpromSize = Form1.Data1.Recordset.Fields("EPROM空间")
If NowColor = 0 Then
For i = 0 To NowLs - 1
Form1.Shape1(i).BackColor = DengGuanColor1
Form1.Shape1(i).BorderColor = DengGuanColor1
Next i
ElseIf NowColor = 1 Then
For i = 0 To NowLs - 1 Step 2
Form1.Shape1(i).BackColor = DengGuanColor1
Form1.Shape1(i).BorderColor = DengGuanColor1
Next i
For i = 1 To NowLs - 1 Step 2
Form1.Shape1(i).BackColor = DengGuanColor2
Form1.Shape1(i).BorderColor = DengGuanColor2
Next i
ElseIf NowColor = 2 Then
For i = 0 To NowLs - 1 Step 3
Form1.Shape1(i).BackColor = DengGuanColor1
Form1.Shape1(i).BorderColor = DengGuanColor1
Next i
For i = 1 To NowLs - 1 Step 3
Form1.Shape1(i).BackColor = DengGuanColor2
Form1.Shape1(i).BorderColor = DengGuanColor2
Next i
For i = 2 To NowLs - 1 Step 3
Form1.Shape1(i).BackColor = DengGuanColor3
Form1.Shape1(i).BorderColor = DengGuanColor3
Next i
End If
For i = 0 To NowLs - 1
Form1.Shape1(i).Width = NowKd
Form1.Shape1(i).Left = NowQd + i * (NowKd + NowJg)
Form1.Shape1(i).Visible = True
Next i
Form1.Shape2.Left = Form1.Shape1(0).Left
Form1.Shape2.Width = (NowKd + NowJg) * (NowLs - 1) + NowKd
If (Form1.Shape2.Left + Form1.Shape2.Width) > Form1.Width Then
Form1.HScroll1.Max = NowLs
NowX = Form1.Shape1(0).Left
Form1.HScroll1.Visible = True
Else
Form1.HScroll1.Visible = False
End If
Form1.Data2.Recordset.FindFirst comp1$
If Not Form1.Data2.Recordset.NoMatch Then
i = Form1.Data2.Recordset.Fields("编号")
Form1.Label3(i).Visible = False
Form1.Label3(i).FontBold = Form1.Data2.Recordset.Fields("粗体")
Form1.Label3(i).FontItalic = Form1.Data2.Recordset.Fields("斜体")
Form1.Label3(i).FontUnderline = Form1.Data2.Recordset.Fields("下划线")
Form1.Label3(i).FontSize = Form1.Data2.Recordset.Fields("字号")
Form1.Label3(i).Font = Form1.Data2.Recordset.Fields("字体")
Form1.Label3(i).ForeColor = Form1.Data2.Recordset.Fields("颜色")
Form1.Label3(i).Caption = Form1.Data2.Recordset.Fields("字符")
Form1.Label3(i).Left = Form1.Data2.Recordset.Fields("位置left")
Form1.Label3(i).Top = Form1.Data2.Recordset.Fields("位置top")
Form1.Label1(i).Visible = True
Form1.Label1(i).FontBold = Form1.Label3(i).FontBold
Form1.Label1(i).FontItalic = Form1.Label3(i).FontItalic
Form1.Label1(i).FontUnderline = Form1.Label3(i).FontUnderline
Form1.Label1(i).FontSize = Form1.Label3(i).FontSize
Form1.Label1(i).Font = Form1.Label3(i).Font
Form1.Label1(i).ForeColor = Form1.Label3(i).ForeColor
Form1.Label1(i).Caption = Form1.Label3(i).Caption
Form1.Label1(i).Left = Form1.Label3(i).Left
Form1.Label1(i).Top = Form1.Label3(i).Top
Form1.Label1(i).Height = Form1.Label3(i).Height
Form1.Label1(i).Width = Form1.Label3(i).Width + HzWidthDefault
Do Until Form1.Data2.Recordset.NoMatch
Form1.Data2.Recordset.FindNext comp1$
If Not Form1.Data2.Recordset.NoMatch Then
i = Form1.Data2.Recordset.Fields("编号")
Form1.Label3(i).Visible = False
Form1.Label3(i).FontBold = Form1.Data2.Recordset.Fields("粗体")
Form1.Label3(i).FontItalic = Form1.Data2.Recordset.Fields("斜体")
Form1.Label3(i).FontUnderline = Form1.Data2.Recordset.Fields("下划线")
Form1.Label3(i).FontSize = Form1.Data2.Recordset.Fields("字号")
Form1.Label3(i).Font = Form1.Data2.Recordset.Fields("字体")
Form1.Label3(i).ForeColor = Form1.Data2.Recordset.Fields("颜色")
Form1.Label3(i).Caption = Form1.Data2.Recordset.Fields("字符")
Form1.Label3(i).Left = Form1.Data2.Recordset.Fields("位置left")
Form1.Label3(i).Top = Form1.Data2.Recordset.Fields("位置top")
Form1.Label1(i).Visible = True
Form1.Label1(i).FontBold = Form1.Label3(i).FontBold
Form1.Label1(i).FontItalic = Form1.Label3(i).FontItalic
Form1.Label1(i).FontUnderline = Form1.Label3(i).FontUnderline
Form1.Label1(i).FontSize = Form1.Label3(i).FontSize
Form1.Label1(i).Font = Form1.Label3(i).Font
Form1.Label1(i).ForeColor = Form1.Label3(i).ForeColor
Form1.Label1(i).Caption = Form1.Label3(i).Caption
Form1.Label1(i).Left = Form1.Label3(i).Left
Form1.Label1(i).Top = Form1.Label3(i).Top
Form1.Label1(i).Height = Form1.Label3(i).Height
Form1.Label1(i).Width = Form1.Label3(i).Width + HzWidthDefault
End If
Loop
End If
Form1.Data3.Recordset.FindFirst comp1$
If Not Form1.Data3.Recordset.NoMatch Then
i = Form1.Data3.Recordset.Fields("花样序号")
NowHzHyName(i) = Form1.Data3.Recordset.Fields("花样名称")
HuaYangHzCs(i, 0) = Form1.Data3.Recordset.Fields("扫描速度")
HuaYangHzCs(i, 1) = Form1.Data3.Recordset.Fields("工作次数")
HuaYangHzCs(i, 2) = Form1.Data3.Recordset.Fields("停止时间")
HuaYangHzCs(i, 3) = Form1.Data3.Recordset.Fields("对应灯管花样序号")
Do Until Form1.Data3.Recordset.NoMatch
Form1.Data3.Recordset.FindNext comp1$
If Not Form1.Data3.Recordset.NoMatch Then
i = Form1.Data3.Recordset.Fields("花样序号")
NowHzHyName(i) = Form1.Data3.Recordset.Fields("花样名称")
HuaYangHzCs(i, 0) = Form1.Data3.Recordset.Fields("扫描速度")
HuaYangHzCs(i, 1) = Form1.Data3.Recordset.Fields("工作次数")
HuaYangHzCs(i, 2) = Form1.Data3.Recordset.Fields("停止时间")
HuaYangHzCs(i, 3) = Form1.Data3.Recordset.Fields("对应灯管花样序号")
End If
Loop
End If
Form1.Data4.Recordset.FindFirst comp1$
If Not Form1.Data4.Recordset.NoMatch Then
i = Form1.Data4.Recordset.Fields("花样序号")
NowHyName(i) = Form1.Data4.Recordset.Fields("花样名称")
HuaYangCs(i, 0) = Form1.Data4.Recordset.Fields("扫描速度")
HuaYangCs(i, 1) = Form1.Data4.Recordset.Fields("工作次数")
HuaYangCs(i, 2) = Form1.Data4.Recordset.Fields("停止时间")
HuaYangCs(i, 3) = Form1.Data4.Recordset.Fields("流水比例")
HuaYangCs(i, 4) = Form1.Data4.Recordset.Fields("压罗根数")
HuaYangCs(i, 5) = Form1.Data4.Recordset.Fields("碰碰根数")
HuaYangCs(i, 6) = Form1.Data4.Recordset.Fields("左右根数")
HuaYangCs(i, 7) = Form1.Data4.Recordset.Fields("中开位置")
HuaYangCs(i, 8) = Form1.Data4.Recordset.Fields("百叶根数")
Do Until Form1.Data4.Recordset.NoMatch
Form1.Data4.Recordset.FindNext comp1$
If Not Form1.Data4.Recordset.NoMatch Then
i = Form1.Data4.Recordset.Fields("花样序号")
NowHyName(i) = Form1.Data4.Recordset.Fields("花样名称")
HuaYangCs(i, 0) = Form1.Data4.Recordset.Fields("扫描速度")
HuaYangCs(i, 1) = Form1.Data4.Recordset.Fields("工作次数")
HuaYangCs(i, 2) = Form1.Data4.Recordset.Fields("停止时间")
HuaYangCs(i, 3) = Form1.Data4.Recordset.Fields("流水比例")
HuaYangCs(i, 4) = Form1.Data4.Recordset.Fields("压罗根数")
HuaYangCs(i, 5) = Form1.Data4.Recordset.Fields("碰碰根数")
HuaYangCs(i, 6) = Form1.Data4.Recordset.Fields("左右根数")
HuaYangCs(i, 7) = Form1.Data4.Recordset.Fields("中开位置")
HuaYangCs(i, 8) = Form1.Data4.Recordset.Fields("百叶根数")
End If
Loop
End If
Form1.DELETE.Enabled = True
Form1.Refresh
MsgBox "打开完毕！", 64, "打开"
End If
End If
Unload Form4
Form1.Enabled = True
Form1.SetFocus
End Sub
Private Sub Command2_Click()
Unload Form4
Form1.Enabled = True
Form1.SetFocus
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -