Moin zusammen,
ich experimentiere gerade mit Klassen herum, um zu lernen.
Als Erstes habe ich meine Form1-Klasse:
So, nun möchte ich eine Public MustInherit Class verwenden.
Ich habe noch Schwierigkeiten mit allem. Sobald ich einen Fehler korrigiere, kommen 2 neue..Ich muss gestehen, dass ich keine Ahnung vom MustInherit habe
ich experimentiere gerade mit Klassen herum, um zu lernen.
Als Erstes habe ich meine Form1-Klasse:
VB.NET-Quellcode
- Public Class Form1
- 'Was hier schreiben, um Instanz zu bauen?
- Public Pfad As String = ""
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Using OFD As New CommonOpenFileDialog
- OFD.Title = "Bild auswählen"
- OFD.Filters.Add(New CommonFileDialogFilter("JPEG", ".jpg"))
- OFD.Filters.Add(New CommonFileDialogFilter("Bitmap", ".bmp"))
- OFD.Filters.Add(New CommonFileDialogFilter("PNG", ".png"))
- OFD.Multiselect = False
- OFD.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
- OFD.IsFolderPicker = False
- OFD.RestoreDirectory = True
- If OFD.ShowDialog() = DialogResult.OK Then
- Pfad = OFD.FileName
- Else
- Exit Sub
- End If
- End Using
- '' Wie aufrufen?
- End Sub
- Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
- PictureBox1.Image = Nothing
- End Sub
- End Class
So, nun möchte ich eine Public MustInherit Class verwenden.
Ich habe noch Schwierigkeiten mit allem. Sobald ich einen Fehler korrigiere, kommen 2 neue..Ich muss gestehen, dass ich keine Ahnung vom MustInherit habe
VB.NET-Quellcode
- Public MustInherit Class Abstrakte_Klasse : Inherits SharedPtrObject
- Protected Sub New()
- End Sub
- Public Shared Function Create() As Abstrakte_Klasse
- Return New abstrakte_Klasse_1 'Fehler! ?? Der Typ abstrakte_klasse_1 ist nicht definiert.
- End Function
- Public ReadOnly Property Ptr1 As IntPtr
- End Class
An die Neulinge: Nutzt
Option Strict On
und Option Infer Off
. Dadurch kommt ihr mit Datentypumwandlungen nicht durcheinander und der Code verbessert sich um Einiges! Solche Fehler à la Dim Beispiel As Integer = "123" können nicht mehr passieren.