hey bro! how do i correct this garbage code generated by a decompiler? Private Sub OKButton_Click(sender As Object, e As EventArgs) If Not Me.alreadySent Then If Not MailSending.IsEmailAddressValid(AddressOf Me.ToTextEdit.Text) Then XtraMessageBox.Show(Translator.MainInstance.TranslateString("Not a valid TO address entered."), Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Return End If Try Dim list As List(Of String) = New List(Of String)() Try Dim enumerator As IEnumerator = AddressOf Me.AttachmentsListBoxControl.Items.GetEnumerator() While enumerator.MoveNext() Dim item As String = Conversions.ToString(enumerator.Current) list.Add(item) End While Finally Dim enumerator As IEnumerator If TypeOf enumerator Is IDisposable Then (TryCast(enumerator, IDisposable)).Dispose() End If End Try MailSending.SendFiles(AddressOf Me.SubjectTextEdit.Text, AddressOf Me.MessageBodyMemoEdit.Text, list, AddressOf Me.ToTextEdit.Text) Me.alreadySent = True AddressOf Me.OKButton.Text = Translator.MainInstance.TranslateString("Close") XtraMessageBox.Show(Translator.MainInstance.TranslateString("All files have been sent successfully."), Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Asterisk) Return Catch expr_EC As Exception ProjectData.SetProjectError(expr_EC) Dim ex As Exception = expr_EC XtraMessageBox.Show(ex.ToString(), Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) ProjectData.ClearProjectError() Return End Try End If Me.Close() End Sub
Thanks dude you really help me!
Thanks.. You would be a great teacher by the way :D
Very good, thanks...
Good job Thanks
hey bro! how do i correct this garbage code generated by a decompiler?
Private Sub OKButton_Click(sender As Object, e As EventArgs)
If Not Me.alreadySent Then
If Not MailSending.IsEmailAddressValid(AddressOf Me.ToTextEdit.Text) Then
XtraMessageBox.Show(Translator.MainInstance.TranslateString("Not a valid TO address entered."), Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Return
End If
Try
Dim list As List(Of String) = New List(Of String)()
Try
Dim enumerator As IEnumerator = AddressOf Me.AttachmentsListBoxControl.Items.GetEnumerator()
While enumerator.MoveNext()
Dim item As String = Conversions.ToString(enumerator.Current)
list.Add(item)
End While
Finally
Dim enumerator As IEnumerator
If TypeOf enumerator Is IDisposable Then
(TryCast(enumerator, IDisposable)).Dispose()
End If
End Try
MailSending.SendFiles(AddressOf Me.SubjectTextEdit.Text, AddressOf Me.MessageBodyMemoEdit.Text, list, AddressOf Me.ToTextEdit.Text)
Me.alreadySent = True
AddressOf Me.OKButton.Text = Translator.MainInstance.TranslateString("Close")
XtraMessageBox.Show(Translator.MainInstance.TranslateString("All files have been sent successfully."), Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
Return
Catch expr_EC As Exception
ProjectData.SetProjectError(expr_EC)
Dim ex As Exception = expr_EC
XtraMessageBox.Show(ex.ToString(), Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
ProjectData.ClearProjectError()
Return
End Try
End If
Me.Close()
End Sub
Oh its unnecessary in this case, but I the tutorial was superb :D
thanks!
Thanks!
Thanks alot
FInally a video!
Thanks! :D
The silent was awkward :D
lol then reverse your list.
Windows 8 haha
Thanks!