MS
This commit is contained in:
@@ -43,16 +43,27 @@
|
||||
Else
|
||||
lbValidUntil.Text = LICENSE_DATE.ToString("MM-dd-yyyy")
|
||||
End If
|
||||
DataGridViewAddOns.DataSource = DT_LICENSE_ADDONS
|
||||
DataGridViewAddOns.Columns(0).Width = 200
|
||||
DataGridViewAddOns.Columns(1).Visible = False
|
||||
DataGridViewAddOns.Columns(2).Width = 100
|
||||
GridColor()
|
||||
|
||||
If (CBool(LICENSE_SAP_Connect) = True) Then
|
||||
chkSAP.Checked = True
|
||||
Else
|
||||
chkSAP.Checked = False
|
||||
End If
|
||||
If (CBool(LICENSE_SITE_PROXY) = True) Then
|
||||
chkSite.Checked = True
|
||||
Else
|
||||
chkSite.Checked = False
|
||||
End If
|
||||
End Sub
|
||||
Sub GridColor()
|
||||
Try
|
||||
For i = 0 To DataGridViewAddOns.RowCount - 1
|
||||
If DataGridViewAddOns.Rows(i).Cells(2).Value.ToString = "Valid" Then
|
||||
DataGridViewAddOns.Rows(i).DefaultCellStyle.BackColor = Color.LimeGreen
|
||||
Else
|
||||
DataGridViewAddOns.Rows(i).DefaultCellStyle.BackColor = Color.Red
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user