129 lines
4.6 KiB
VB.net
129 lines
4.6 KiB
VB.net
Imports System.Drawing
|
||
Imports UTS_Core.UTSModule.Station
|
||
|
||
Namespace UTSModule.Project
|
||
|
||
Public Class ProjectStationGrid
|
||
Public Enum ColNameEnum
|
||
''' <summary>
|
||
''' 工艺站序号
|
||
''' </summary>
|
||
Sn
|
||
''' <summary>
|
||
''' 工艺站名称
|
||
''' </summary>
|
||
Name
|
||
''' <summary>
|
||
''' 工艺站类型,下拉选择
|
||
''' </summary>
|
||
Type
|
||
|
||
''' <summary>
|
||
''' 工艺站预览图,按键加载
|
||
''' </summary>
|
||
Preview
|
||
|
||
''' <summary>
|
||
''' 工艺站描述
|
||
''' </summary>
|
||
Description
|
||
|
||
''' <summary>
|
||
''' 条码生成方式,1.系统生成，2.用户录入
|
||
''' </summary>
|
||
SnType
|
||
|
||
''' <summary>
|
||
''' 允许测试设备类型
|
||
''' </summary>
|
||
DevType
|
||
|
||
''' <summary>
|
||
''' 允许测试软件名称
|
||
''' </summary>
|
||
DevApp
|
||
|
||
''' <summary>
|
||
''' 工艺站包名,按键加载
|
||
''' </summary>
|
||
PacketName
|
||
|
||
Max
|
||
End Enum
|
||
|
||
|
||
|
||
|
||
''' <summary>
|
||
''' 初始化测试站表格
|
||
''' </summary>
|
||
''' <param name="grd">表格控件</param>
|
||
Public Shared Sub InitTestStationGrid(grd As FlexCell.Grid, Optional userProject As ProjectInfo = Nothing)
|
||
With grd
|
||
.AutoRedraw = False
|
||
.NewFile() '清空表格格式
|
||
.Images.Clear() '清空缓存图
|
||
|
||
.Rows = 1
|
||
.Cols = ColNameEnum.Max
|
||
|
||
.DisplayRowNumber = True '首列显示数字
|
||
.ExtendLastCol = True '最后一列自动扩充
|
||
.MultiSelect = False '是否允许选择多行
|
||
.BackColorFixed = Color.FromArgb(255, 227, 228, 225)
|
||
.BackColorFixedSel = Color.FromArgb(255, 201, 226, 244)
|
||
.BackColorBkg = Color.FromArgb(255, 248, 232, 226)
|
||
.BackColor1 = Color.FromArgb(255, 225, 246, 236)
|
||
.BackColor2 = Color.FromArgb(255, 247, 247, 228)
|
||
.BorderStyle = FlexCell.BorderStyleEnum.None
|
||
.GridColor = Color.FromArgb(255, 148, 190, 231)
|
||
.DefaultRowHeight = 40 '默认行高
|
||
.DefaultFont = New Font("微软雅黑", 12)
|
||
.Range(0, 0, 0, .Cols - 1).Font = New Font($"幼圆", 10) '首行样式
|
||
|
||
|
||
.Column(ColNameEnum.Type).CellType = FlexCell.CellTypeEnum.ComboBox
|
||
.ComboBox(ColNameEnum.Type).Items.AddRange([Enum].GetNames(GetType(ProcessStation.StationTypeEnum)))
|
||
|
||
.Column(ColNameEnum.SnType).CellType = FlexCell.CellTypeEnum.ComboBox
|
||
.ComboBox(ColNameEnum.SnType).Items.AddRange([Enum].GetNames(GetType(ProcessStation.SnTypeEnum)))
|
||
|
||
.Column(ColNameEnum.PacketName).CellType = FlexCell.CellTypeEnum.Button
|
||
|
||
.Column(ColNameEnum.Description).Width = 240
|
||
|
||
For col As Integer = 0 To ColNameEnum.Max - 1
|
||
.Cell(0, col).Text = [Enum].GetName(GetType(ColNameEnum), col) '设置列名
|
||
Next
|
||
|
||
If userProject IsNot Nothing Then
|
||
Dim row As Integer = 1
|
||
For Each stationInfo As ProcessStation In userProject.Station
|
||
If row > .Rows - 1 Then .AddItem(String.Empty)
|
||
|
||
.Cell(row, ColNameEnum.Name).Text = stationInfo.Name
|
||
.Cell(row, ColNameEnum.Type).Text = stationInfo.StationType.ToString()
|
||
.Cell(row, ColNameEnum.SnType).Text = stationInfo.SnType.ToString()
|
||
|
||
.Cell(row, ColNameEnum.Description).Text = stationInfo.Description
|
||
.Cell(row, ColNameEnum.PacketName).Text = stationInfo.Packet.FileName
|
||
|
||
.Cell(row, ColNameEnum.DevType).Text = stationInfo.DevType
|
||
.Cell(row, ColNameEnum.DevApp).Text = stationInfo.DevApp
|
||
|
||
If stationInfo.PreViewImage IsNot Nothing Then
|
||
Dim imgKey As String = .Images.Count().ToString()
|
||
.Images.Add(stationInfo.PreViewImage, imgKey) '添加预览图
|
||
.Cell(row, ColNameEnum.Preview).SetImage(imgKey)
|
||
End If
|
||
|
||
row += 1
|
||
Next
|
||
End If
|
||
|
||
.AutoRedraw = True
|
||
.Refresh()
|
||
End With
|
||
End Sub
|
||
End Class
|
||
End Namespace |