Anfängerfrage: Unterschied zw. Visual Basic VB6 und VB.NET

  • VB.NET

Es gibt 49 Antworten in diesem Thema. Der letzte Beitrag () ist von Snaptu.

    Nur um mir selbst zu bestätigen das ich jetzt "VB-Typisch" arbeite, stimmt unten stehender Code nun eher ?


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class F_Hauptfenster
    3. Private Sub F_Hauptfenster_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. Dim INI As New INIDatei
    7. If Not IO.Directory.Exists("C:\MK\IFR") Then
    9. System.IO.Directory.CreateDirectory("C:\MK\IFR")
    11. INI.Pfad = "C:\MK\IFR\Tarif.ini"
    12. INI.WertSchreiben("KM-Preis", "Wert", "1,70")
    13. INI.WertSchreiben("STD-Preis", "Wert", "26,00")
    15. End If
    17. INI.Pfad = "C:\MK\IFR\Tarif.ini"
    18. Dim KM_V As String = INI.WertLesen("KM-Preis", "Wert")
    19. Dim STD_V As String = INI.WertLesen("STD-Preis", "Wert")
    21. L_Aktuell_KM.Text = KM_V
    22. L_Aktuell_STD.Text = STD_V
    24. TB_Kilometer.SelectAll()
    26. End Sub
    28. Private Sub TB_Kilometer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB_Kilometer.Click
    30. TB_Kilometer.SelectAll()
    32. End Sub
    34. Private Sub TB_Wartezeit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB_Wartezeit.Click
    36. TB_Wartezeit.SelectAll()
    38. End Sub
    40. Private Sub TB_Rueckfahrt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB_Rueckfahrt.Click
    42. TB_Rueckfahrt.SelectAll()
    44. End Sub
    46. Private Sub TB_Ergebnis_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB_Ergebnis.DoubleClick
    48. My.Computer.Clipboard.SetText(TB_Ergebnis.Text)
    50. End Sub
    52. Private Sub B_TarifWechseln_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_TarifWechseln.Click
    54. Me.Hide()
    55. F_Tarifwechsler.Show()
    57. End Sub
    59. Private Sub B_GMapstoFF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_GMapstoFF.Click
    61. Process.Start("https://www.google.com/maps/dir///@48.12423,11.60202,17z/data=!4m2!4m1!3e0")
    63. End Sub
    65. Private Sub B_HelpOver_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_HelpOver.Click
    67. Me.Hide()
    68. F_HilfeUndUeber.Show()
    70. End Sub
    72. Private Sub LL_Isarfunk_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LL_Isarfunk.LinkClicked
    74. Process.Start("http://www.isarfunk.de")
    76. End Sub
    78. Private Sub B_Ergebnis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Ergebnis.Click
    80. Dim SaveInteger As Integer
    81. SaveInteger = 1
    83. If Not IsNumeric(TB_Kilometer.Text) Then
    85. MsgBox("Kilometerpreis bitte nicht leer lassen und nur Zahlen oder ein Komma benutzen.", MsgBoxStyle.Critical, "KM-Feld Fehler")
    86. SaveInteger = 0
    87. TB_Kilometer.Text = "0"
    89. End If
    91. If TB_Kilometer.Text.Contains(".") Then
    93. TB_Kilometer.Text = TB_Kilometer.Text.Replace(".", ",")
    95. End If
    97. If Not IsNumeric(TB_Wartezeit.Text) Then
    99. MsgBox("Wartezeit bitte nicht leer lassen und nur Zahlen oder ein Komma benutzen.", MsgBoxStyle.Critical, "Wartezeit-Feld Fehler")
    100. SaveInteger = 0
    101. TB_Wartezeit.Text = "0"
    103. End If
    105. If TB_Wartezeit.Text.Contains(".") Then
    107. TB_Wartezeit.Text = TB_Wartezeit.Text.Replace(".", ",")
    109. End If
    111. If Not IsNumeric(TB_Rueckfahrt.Text) Then
    113. MsgBox("Rückfahrt bitte nicht leer lassen und nur Zahlen oder ein Komma benutzen.", MsgBoxStyle.Critical, "Rückfahrt-Feld Fehler")
    114. SaveInteger = 0
    115. TB_Rueckfahrt.Text = "0"
    117. End If
    119. If TB_Rueckfahrt.Text.Contains(".") Then
    121. TB_Rueckfahrt.Text = TB_Rueckfahrt.Text.Replace(".", ",")
    123. End If
    125. If SaveInteger = 1 Then
    127. Dim INI As New INIDatei
    129. INI.Pfad = "C:\MK\IFR\Tarif.ini"
    131. Dim KM_V As String = INI.WertLesen("KM-Preis", "Wert")
    132. Dim STD_V As String = INI.WertLesen("STD-Preis", "Wert")
    134. Dim KM_K As Double
    135. KM_K = KM_V
    137. Dim ST_K As Double
    138. ST_K = STD_V
    140. Dim KM_C As Double
    141. KM_C = TB_Kilometer.Text
    143. Dim WA_C As Double
    144. WA_C = TB_Wartezeit.Text
    146. Dim RU_C As Double
    147. RU_C = TB_Rueckfahrt.Text
    149. Dim RE_E As Double
    151. RE_E = KM_C * KM_K + WA_C * ST_K + RU_C * ST_K
    153. TB_Ergebnis.Text = RE_E
    155. End If
    157. End Sub
    159. End Class

    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

Facebook
Telefonspende