VB.NET: Using Enumerations (Enum)

Поділитися
Вставка
  • Опубліковано 5 лют 2025

КОМЕНТАРІ • 14

  • @fannyfranzen7561
    @fannyfranzen7561 6 років тому

    Thanks dude you really help me!

  • @ivandrofly
    @ivandrofly 11 років тому

    Thanks.. You would be a great teacher by the way :D

  • @ademiroliveirasantos1862
    @ademiroliveirasantos1862 4 роки тому

    Very good, thanks...

  • @pietrohenriquericardo5945
    @pietrohenriquericardo5945 5 років тому

    Good job Thanks

  • @georgegallimore6690
    @georgegallimore6690 7 років тому

    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

  • @SenselessTalk
    @SenselessTalk 12 років тому

    Oh its unnecessary in this case, but I the tutorial was superb :D
    thanks!

  • @jan1365
    @jan1365 8 років тому

    Thanks!

  • @aminalali3
    @aminalali3 10 років тому

    Thanks alot

  • @amubushar
    @amubushar 12 років тому

    FInally a video!

  • @ivandrofly
    @ivandrofly 11 років тому

    Thanks! :D

  • @ivandrofly
    @ivandrofly 11 років тому +1

    The silent was awkward :D

  • @SenselessTalk
    @SenselessTalk 12 років тому

    lol then reverse your list.

  • @noureddinesaber8522
    @noureddinesaber8522 2 роки тому

    Windows 8 haha

  • @CarlosSanchez-jz4to
    @CarlosSanchez-jz4to 8 років тому

    Thanks!