If dgvData.RowCount = 0 Or dgvData.CurrentRow Is Nothing Then Exit Sub
Dim Url As String = dgvData.Item(1, dgvData.CurrentRow.Index).Value
'// ถามยืนยันการลบข้อมูล
Dim Result As Byte = MessageBox.Show("Are you sure you want to delete the data?" & vbCrLf & "URL/Name: " & Url, "Confirm Deletion", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
If Result = DialogResult.Yes Then
'// Receive Primary Key value to confirm the deletion.
Private Sub btnChangePassword_Click(sender As System.Object, e As System.EventArgs) Handles btnChangePassword.Click
blnChangePassword = True
frmLogin.ShowDialog()
End Sub
'// Function to handle the KeyPress event for TextBox controls.
Private Sub TextBox_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtLogin.KeyPress, txtPassword.KeyPress, txtUrl.KeyPress, txtEmail.KeyPress, txtPhone.KeyPress
If e.KeyChar = ChrW(Keys.Enter) Then
e.Handled = True '// Prevent the Enter key from adding a new line in the TextBox.
SendKeys.Send("{TAB}") '// Send the TAB key to move to the next control.
End If
End Sub
Private Sub dtpDateModified_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles dtpDateModified.KeyDown
If e.KeyCode = Keys.Enter Then
e.Handled = True
SendKeys.Send("{TAB}")
End If
End Sub
'// Select Color Theme
Private Sub cmbColorTheme_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbColorTheme.SelectedIndexChanged
Select Case cmbColorTheme.SelectedIndex
Case 0
SkinManager.ColorScheme = New MaterialSkin.ColorScheme(Primary.BlueGrey800, Primary.BlueGrey900, Primary.BlueGrey500, Accent.LightBlue200, TextShade.WHITE)
Case 1
SkinManager.ColorScheme = New MaterialSkin.ColorScheme(Primary.Amber500, Primary.BlueGrey900, Primary.BlueGrey500, Accent.LightBlue200, TextShade.WHITE)
Case 2
SkinManager.ColorScheme = New MaterialSkin.ColorScheme(Primary.Green600, Primary.Green700, Primary.Green200, Accent.Red100, TextShade.WHITE)
Case 3
SkinManager.ColorScheme = New MaterialSkin.ColorScheme(Primary.LightBlue600, Primary.LightBlue700, Primary.Green200, Accent.LightGreen700, TextShade.WHITE)
Case 4
SkinManager.ColorScheme = New MaterialSkin.ColorScheme(Primary.Cyan500, Primary.Cyan700, Primary.Cyan100, Accent.Blue100, TextShade.WHITE)
Case 5
SkinManager.ColorScheme = New MaterialSkin.ColorScheme(Primary.Grey600, Primary.Grey700, Primary.Grey100, Accent.LightGreen200, TextShade.WHITE)
End Select
End Sub
Private Sub frmPassCodeFull_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
Me.Dispose()
GC.SuppressFinalize(Me)
End
End Sub
Private Sub itemExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
