| 

.NET C# Java Javascript Exception

1
Hallo wie kann ich die Checkbox und Textbox im vb.net Code korrekt abfragen ohne das das Programm abstürtzt!

CODE:
Private Sub CheckBoxUnCrypt_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxUnCrypt.CheckedChanged
'Try
'TxTPwd.Text = "" And CheckBoxUnCrypt.Checked = True
'Catch ex As Exception
'MsgBox("Can' t load Text" & vbCrLf & ex.Message)
'CheckBoxUnCrypt.CheckState = False
'Exit Sub
'End Try

'If TxTPwd.Text = "" And CheckBoxUnCrypt.Checked = True Then
'MsgBox("Can' t load Text" & MessageBoxButtons.OK, MessageBoxIcon.Information)
'Else
'MsgBox("Please PWD Text correctur" & MessageBoxButtons.OK)
'CheckBoxUnCrypt.Checked = False
'End If
'Exit Sub

'### CheckBox Checked Uncrypt ==> Mouse Over Tool Tip Text Uncrypt wäre bessere alternative...
Dim rd As New RijndaelManaged
Dim rijndaelIvLength As Integer = 16
Dim md5 As New MD5CryptoServiceProvider
Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes(AESpwd.Text))

md5.Clear()

Dim encdata() As Byte = Convert.FromBase64String(TxTPwd.Text)
Dim ms As New MemoryStream(encdata)
Dim iv(15) As Byte

ms.Read(iv, 0, rijndaelIvLength)
rd.IV = iv
rd.Key = key

Dim cs As New CryptoStream(ms, rd.CreateDecryptor, CryptoStreamMode.Read)



Dim data(ms.Length - rijndaelIvLength) As Byte
Dim i As Integer = cs.Read(data, 0, data.Length)

ToolTipUnCrypt.SetToolTip(TxTPwd, System.Text.Encoding.UTF8.GetString(data, 0, i)) '### ToolTip Anzeige
cs.Close()
rd.Clear()
' CheckBox Crypt wenn PWD Leer ist Fehler abfangen wenn CheckBox aktiv ist !!!! Wenn Textbox leer Absturz !!!
' Idee PWD Box Leer soll kein ToolTip angezeigt werden, Ist PWD was eingetragen dann ToolTip anzeigen!!! Wie !!!


End Sub
26.10.2020
tsmeier 51 1 3
3 Antworten
0
So habe mal dies Versucht komme nicht weiter... hat einer eine Idee!

Textboxen abfragen lenght .... Checkbox checked....

'PRÜFEN, WENN DIE CHECKBOX GEPRÜFT WURDE ODER NICHT.
If Not CheckBoxUnCrypt.CheckState = CheckState.Unchecked Or ((AESpwd.Text.Length) <= 1) Or ((TxTPwd.Text.Length) <= 1) Then
'WENN Unchecked, ZEIGT ES DEN TEXT
MsgBox("Invalid AESPwd and PWD entry. Use the : Password and PWD.")
AESpwd.Focus()
AESpwd.Select()
ToolTipUnCrypt.SetToolTip(TxTPwd, "Geheim")
CheckBoxUnCrypt.CheckState = CheckState.Unchecked
Else CheckBoxUnCrypt.CheckState = CheckState.Checked Or ((AESpwd.Text.Length) >= 1) Or ((TxTPwd.Text.Length) >= 1)
'WENN Checked, Passswort anzeigen.
Tip() ' Tooltip Text Anzeigen....
End If


Gruss TM
10.11.2020
tsmeier 51 1 3
0
'PRÜFEN, WENN DIE CHECKBOX GEPRÜFT WURDE ODER NICHT.
If CheckBoxUnCrypt.CheckState = CheckState.Unchecked Or ((AESpwd.Text.Length) < 1) Or ((TxTPwd.Text.Length) < 1) Then
'WENN Unchecked, ZEIGT ES DEN TEXT
MsgBox("Invalid AESPwd and PWD entry. Use the : Password and PWD.")
AESpwd.Focus()
AESpwd.Select()
ToolTipUnCrypt.SetToolTip(TxTPwd, "Geheim")
CheckBoxUnCrypt.CheckState = CheckState.Unchecked

Else CheckBoxUnCrypt.CheckState = CheckState.Checked Or ((AESpwd.Text.Length) > 1) & ((TxTPwd.Text.Length) > 1)
'WENN Checked, Passswort anzeigen.
Tip() ' Tooltip Text Anzeigen....
End If
10.11.2020
tsmeier 51 1 3
0
Habs jetzt so gemacht und Funktioniert...

Select Case CType(sender, System.Windows.Forms.CheckBox).CheckState
'### Erst Textboxen abfragen auf Inhalt....
Case CheckState.Checked
MsgBox("Checkbox wurde voll markiert.")

If ((AESpwd.Text.Length) < 1) Or ((TxTPwd.Text.Length) < 1) Then
MsgBox("Invalid AESPwd and PWD entry. Use the : Password and PWD.")
AESpwd.Focus()
AESpwd.Select()
CheckBoxUnCrypt.CheckState = CheckState.Unchecked
End If

If ((AESpwd.Text.Length) > 1) Or ((TxTPwd.Text.Length) > 1) Then
Tip()
End If
Case CheckState.Indeterminate
MsgBox("Checkbox wurde zum Teil markiert.")
Case CheckState.Unchecked

MsgBox("Checkbox ist derzeit nicht markiert.")
ToolTipUnCrypt.SetToolTip(TxTPwd, "Geheim")
End Select
16.11.2020
tsmeier 51 1 3

Stelle deine --Frage jetzt!