197 lines
7.4 KiB
VB.net
197 lines
7.4 KiB
VB.net
|
Public Class ReleaseControl_frn
|
|||
|
|
|
|||
|
|
Public tmpMsgBox As String = ""
|
|||
|
|
|
|||
|
|
Public notegBox As String = ""
|
|||
|
|
|
|||
|
|
Public Firmware_txt As String = ""
|
|||
|
|
Public ComboBox1_txt As String = ""
|
|||
|
|
Public FirmwareList As List(Of Dictionary(Of String, String))
|
|||
|
|
|
|||
|
|
Private Firmwarefilename As New Dictionary(Of String, String()）
|
|||
|
|
|
|||
|
|
Private Firmwarefilenamev4 As New Dictionary(Of String, String()）
|
|||
|
|
|
|||
|
|
Public FromDic As New Dictionary(Of String, String()）
|
|||
|
|
|
|||
|
|
Private Sub ReleaseControl_frn_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|||
|
|
Firmware_box.Items.Clear()
|
|||
|
|
ComboBox1.Items.Clear()
|
|||
|
|
Firmwarefilenamev4.Clear()
|
|||
|
|
Firmwarefilename.Clear()
|
|||
|
|
Dim cbo As ComboBox
|
|||
|
|
Dim ndic As Dictionary(Of String, String()）
|
|||
|
|
If Not IsNothing(FirmwareList) AndAlso FirmwareList.Count > 0 Then
|
|||
|
|
'Firmwarefilename=New Dictionary(Of string,string）
|
|||
|
|
For Each dic In FirmwareList
|
|||
|
|
'Firmwarefilename.Add (dic.Item("FileName"),dic.Item("MD5Val"))
|
|||
|
|
|
|||
|
|
Dim buff(4) As String
|
|||
|
|
buff(0) = dic.Item("AppType")
|
|||
|
|
buff(1) = dic.Item("FileName")
|
|||
|
|
buff(2) = dic.Item("MD5Val")
|
|||
|
|
buff(3) = dic.Item("Remark")
|
|||
|
|
|
|||
|
|
If dic.Item("Luncher_Ver").Equals("C1_L2") Then
|
|||
|
|
|
|||
|
|
Firmware_box.Items.Add(dic.Item("FileName"))
|
|||
|
|
|
|||
|
|
|
|||
|
|
If Firmwarefilename.ContainsKey(dic.Item("FileName")) Then
|
|||
|
|
Firmwarefilename.Item(dic.Item("FileName")) = buff
|
|||
|
|
Else
|
|||
|
|
Firmwarefilename.Add(dic.Item("FileName"), buff)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If Firmware_txt.Equals(dic.Item("FileName")) Then
|
|||
|
|
Firmware_box.Text = dic.Item("FileName")
|
|||
|
|
Firmware_box.SelectedItem = dic.Item("FileName")
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
ElseIf dic.Item("Luncher_Ver").Equals("C1_L4") Then
|
|||
|
|
|
|||
|
|
ComboBox1.Items.Add(dic.Item("FileName"))
|
|||
|
|
|
|||
|
|
|
|||
|
|
If Firmwarefilenamev4.ContainsKey(dic.Item("FileName")) Then
|
|||
|
|
Firmwarefilenamev4.Item(dic.Item("FileName")) = buff
|
|||
|
|
Else
|
|||
|
|
Firmwarefilenamev4.Add(dic.Item("FileName"), buff)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If ComboBox1_txt.Equals(dic.Item("FileName")) Then
|
|||
|
|
ComboBox1.Text = dic.Item("FileName")
|
|||
|
|
ComboBox1.SelectedItem = dic.Item("FileName")
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
UpdateVersion_lab.Text = tmpMsgBox
|
|||
|
|
ReleaseNotes_txt.Text = notegBox
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Public Event ReleaseControlData(ReleasePassword As String， ReleaseNote As String, Firmwarefilename As Dictionary(Of String, String）)
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub Confirm_btn_Click(sender As Object, e As EventArgs) Handles Confirm_btn.Click
|
|||
|
|
'ReleasePassword_txt
|
|||
|
|
If IsNothing(Firmwarefilename) OrElse Firmwarefilename.Count = 0 Then
|
|||
|
|
MsgBox($"No firmware selected")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
If String.IsNullOrEmpty(ReleaseNotes_txt.Text) Then
|
|||
|
|
MsgBox($"No release remarks are entered")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
If String.IsNullOrEmpty(ReleasePassword_txt.Text) Then
|
|||
|
|
MsgBox($"The publishing password is not entered")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If CheckBox2.Checked Then
|
|||
|
|
If IsNothing(Firmwarefilename) OrElse Firmwarefilename.Count = 0 Then
|
|||
|
|
MsgBox($"The LV2 firmware is not selected")
|
|||
|
|
Return
|
|||
|
|
Else
|
|||
|
|
If Firmwarefilename.ContainsKey(Firmware_box.Text) Then
|
|||
|
|
FromDic.Add("App_Cfg_For_L2", Firmwarefilename.Item(Firmware_box.Text))
|
|||
|
|
Else
|
|||
|
|
MsgBox($"Data on the LV2 firmware is lost")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If CheckBox4.Checked Then
|
|||
|
|
If IsNothing(Firmwarefilenamev4) OrElse Firmwarefilenamev4.Count = 0 Then
|
|||
|
|
MsgBox($"LV4 firmware is not selected")
|
|||
|
|
Return
|
|||
|
|
Else
|
|||
|
|
If Firmwarefilenamev4.ContainsKey(ComboBox1.Text) Then
|
|||
|
|
FromDic.Add("App_Cfg_For_L4", Firmwarefilenamev4.Item(ComboBox1.Text))
|
|||
|
|
Else
|
|||
|
|
MsgBox($"LV4 firmware data is lost")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
if CheckBox4.Checked OrElse CheckBox2.Checked Then
|
|||
|
|
Else
|
|||
|
|
MsgBox($"Firmware file is not selected！")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
Me.DialogResult = System.Windows.Forms.DialogResult.OK
|
|||
|
|
Me.Close()
|
|||
|
|
Return
|
|||
|
|
'RaiseEvent ReleaseControlData(ReleasePassword_txt.Text, ReleaseNotes_txt.Text, Firmwarefilename)
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Cancel_btn_Click(sender As Object, e As EventArgs) Handles Cancel_btn.Click
|
|||
|
|
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
|||
|
|
Me.Close()
|
|||
|
|
'RaiseEvent ReleaseControlData("", "")
|
|||
|
|
'Me.Hide()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub Firmware_box_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles Firmware_box.SelectionChangeCommitted
|
|||
|
|
If Firmwarefilename.ContainsKey(Firmware_box.SelectedItem.ToString) Then
|
|||
|
|
TextBox1.Text = Firmwarefilename.Item(Firmware_box.SelectedItem.ToString)(3)
|
|||
|
|
End If
|
|||
|
|
'TextBox1.Text = Firmwarefilename.Item(Firmware_box.SelectedItem.ToString)(3)
|
|||
|
|
'If IsNothing(FirmwareList) OrElse FirmwareList.Count = 0 Then Return
|
|||
|
|
'If Firmwarefilename.ContainsKey (Firmware_box.Text) Then
|
|||
|
|
' FromDic .Add ("App_Cfg_For_L2",Firmwarefilename.Item (Firmware_box.Text))
|
|||
|
|
'End If
|
|||
|
|
'For Each fiemware In FirmwareList
|
|||
|
|
' If fiemware.Item("FileName").Equals(Firmware_box.Text) Then
|
|||
|
|
' Firmwarefilename.Clear()
|
|||
|
|
' Firmwarefilename = fiemware
|
|||
|
|
' TextBox1.Text = fiemware.Item("Remark")
|
|||
|
|
' End If
|
|||
|
|
'Next
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub ComboBox1_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles ComboBox1.SelectionChangeCommitted
|
|||
|
|
If Firmwarefilenamev4.ContainsKey(ComboBox1.SelectedItem.ToString) Then
|
|||
|
|
TextBox2.Text = Firmwarefilenamev4.Item(ComboBox1.SelectedItem.ToString)(3)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
'TextBox2.Text = Firmwarefilenamev4.Item(ComboBox1.SelectedItem.ToString)(3)
|
|||
|
|
'If IsNothing(FirmwareList) OrElse FirmwareList.Count = 0 Then Return
|
|||
|
|
'For Each fiemware In FirmwareList
|
|||
|
|
' If fiemware.Item("FileName").Equals(ComboBox1.Text) Then
|
|||
|
|
' Firmwarefilenamev4.Clear()
|
|||
|
|
' Firmwarefilenamev4 = fiemware
|
|||
|
|
' TextBox2.Text = fiemware.Item("Remark")
|
|||
|
|
' End If
|
|||
|
|
'Next
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
|
|||
|
|
If Firmwarefilenamev4.ContainsKey(ComboBox1.SelectedItem.ToString) Then
|
|||
|
|
TextBox2.Text = Firmwarefilenamev4.Item(ComboBox1.SelectedItem.ToString)(3)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Firmware_box_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Firmware_box.SelectedIndexChanged
|
|||
|
|
If Firmwarefilename.ContainsKey(Firmware_box.SelectedItem.ToString) Then
|
|||
|
|
TextBox1.Text = Firmwarefilename.Item(Firmware_box.SelectedItem.ToString)(3)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
End Class
|