Translate

Montag, 4. Mai 2015

Visual Basic.net CSV-Export speichern

Dim CSV_SaveFileDialog As New SaveFileDialog
        CSV_SaveFileDialog.InitialDirectory = "C:"
        CSV_SaveFileDialog.Filter = "CSV-Dateien|*.csv"
        CSV_SaveFileDialog.Title = "Wählen Sie einen Dateititel zum Speichern aus"
        If CSV_SaveFileDialog.ShowDialog() = DialogResult.OK Then
            MsgBox("Datei gespeichert unter: " & CSV_SaveFileDialog.FileName)
        Else
            MsgBox("Abbruch")
        End If

Visual Basic.net Äquivalent zu App.Path in Visual Basic 6

System.AppDomain.CurrentDomain.BaseDirectory()

Visual Basic.net Mails per SMTP-Server versenden

https://www.vb-paradise.de/index.php/Thread/6931-E-Mail-senden-per-SMTP-Simple-Mail-Transfer-Protocol/
https://msdn.microsoft.com/de-de/library/bb979096.aspx

Dim Message As New MailMessage
        Dim Login As New System.Net.NetworkCredential
        Login.UserName = "andreas@absender.de"
        Login.Password = "Passwort des Absenders"
        Message.IsBodyHtml = False
        Dim SMTPServer As New SmtpClient()
        SMTPServer.Host = "smtp.web.de" 'bei web.de
        SMTPServer.Port = 25
        SMTPServer.UseDefaultCredentials = False
        SMTPServer.Credentials = Login
        Try
            Message.From = New MailAddress("andreas@absender.de")
            Message.To.Add("entchen@empfänger.de")
            Message.Subject = "Betreff"
            Message.Body = "Inhalt"
            SMTPServer.Send(Message)
            MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")
        Catch ex As Exception
            MsgBox(ex.Message) 'Fehlermeldung ausgeben
        End Try

Visual Basic.net ToolTips setzen

toolTip1.SetToolTip(Me.button1, "My button1")

Gute Seite für Icons


Visual Basic.net-Eine Form maximieren

Me.WindowState = FormWindowState.Maximized 'Form maximieren

Visual Basic.net-Double-Zahlen für SQL-Befehl formatieren

Value.ToString("G", New System.Globalization.CultureInfo("en-US")))

--> Ändert 1,00 auf 1.00

Code-Converter für C#, Visual Basic.net, Boo, Phyton, Ruby


Kalenderwoche aus Datum berechnen-C# und Visual Basic.net

C#:

public static int berechneKalenderwoche(DateTime datum)
{
      int kalenderwoche = (datum.DayOfYear/7)+1;
      if (kalenderwoche == 53) kalenderwoche = 1;
      return kalenderwoche;
}

Visual Basic.net:

Public Shared Function berechneKalenderwoche(datum As DateTime) As Integer
    Dim kalenderwoche As Integer = (datum.DayOfYear / 7) + 1
    If kalenderwoche = 53 Then
        kalenderwoche = 1
    End If
    Return kalenderwoche
End Function