Übersetzen einer WinForms-Klasse zu WPF am Beispiel PictureBox

kafffee · 24. Juli 2021, 10:54

Morgen allerseits,

ich bin gerade dabei, eine WinForms-Klasse nach WPF zu übersetzen. Die Klasse erbt von einem Image. Vieles hab ich schon geschafft, wie z.B. den Timer umzustellen. Aber ich stosse hier an meine Grenzen:

(1) Ich bräuchte das Pendant von PictureBox1.BackgroundImage und PictureBox1.Image für ein WPF-Image, da dieses diese Eigenschaften nicht bietet.

(2) In Zeile 3 ist das Me rot unterstrichen:

VB.NET-Quellcode

Private WF As New Un4seen.Bass.Misc.WaveForm
Private Sub SetupWaveForm()
WF = New Misc.WaveForm(_Quelldatei, New Misc.WAVEFORMPROC(AddressOf MyWaveFormCallback), Me) 'Der Typ vom Wert "Wellenform" kann nicht in "Control" konvertiert werden:
[...]
End Sub

(3) Und dann das hier:

VB.NET-Quellcode

Public Class Wellenform
Inherits Image

Da kommt:
Die Image-Klasse hat kein zugreifbares Sub New() und kann nicht geerbt werden. Ich hab aber eine leere Sub New() reingeschrieben. Am Anfang hat er da nicht gemerckert, dann hab ich irgendwas in der Klasse geändert und seitdem ist es so. Ich weiss aber nicht mehr was das war.

Ich freu mich auf eure Antworten

Nofear23m · 24. Juli 2021, 11:17

Hallo

Ich würde echt mal vorschlagen das du mal die ganze Klasse und mindestens ein Bild postest was das ganze werden soll und was es können soll. Verfasse bitte einen etwas detailierteren Post und wir sehen mal obs nicht einen besseren weg gibt.

Grüße
Sascha

kafffee · 24. Juli 2021, 11:34

@Nofear23m

Na klar wie du meinst. Es soll eine Waveform einer MP3-Datei angezeigt werden (so wie im Screenshot im Anhang). Beachte dass du einen Verweis auf die bass.net.dll zufügen musst und die bass.dll ins Ausgabeverzeichnis kopieren musst. Beide Dateien gibts hier:
un4seen.com/

Hier die komplette Klasse:

VB.NET-Quellcode

Option Strict On
Imports Un4seen.Bass
Imports System.Windows.Threading
Imports System.Drawing
Public Class Wellenform
Inherits Image
Public Property Quelldatei As String
Get
Return _Quelldatei
End Get
Set(value As String)
_Quelldatei = value
End Set
End Property
Public Property Farbe As Color
Get
Return _Farbe
End Get
Set(value As Color)
_Farbe = value
End Set
End Property
Public Property Stream As Integer
Get
Return _Stream
End Get
Set(value As Integer)
_Stream = value
End Set
End Property
Private _Quelldatei As String
Private _Farbe As Color
Private _Stream As Integer
#Region " Wave Form Drawing & Spektrum"
' Deklaration - Wave Form zeichnen
Private IsDrawing As Boolean = False
Private WF As New Un4seen.Bass.Misc.WaveForm
Private _deviceLatencyBytes As Integer = 0
#End Region
#Region " updateTimer"
Private _updateTimer As BASSTimer = Nothing
Private _updateInterval As Integer = 50
Private Channel_Pos As Long ' Position in bytes
Private Channel_Len As Long ' Länge in bytes
Public WithEvents Zeitgeber As DispatcherTimer = New DispatcherTimer
#End Region
Public Sub New()
AddHandler Zeitgeber.Tick, AddressOf Zeitgeber_Tick
Zeitgeber.Interval = New TimeSpan(0, 0, 0, 0, 100)
End Sub
Private Sub Zeitgeber_Tick(sender As Object, e As EventArgs) Handles Zeitgeber.Tick
Channel_Pos = Bass.BASS_ChannelGetPosition(_Stream, BASSMode.BASS_POS_BYTES) ' Position in bytes
Channel_Len = Bass.BASS_ChannelGetLength(_Stream, BASSMode.BASS_POS_BYTES) ' Länge in bytes
If CType(Bass.BASS_ChannelIsActive(_Stream), BASSActive) = BASSActive.BASS_ACTIVE_PLAYING Then
DrawWavePosition(Channel_Pos, Channel_Len) 'Wave Position updaten
ElseIf CType(Bass.BASS_ChannelIsActive(_Stream), BASSActive) = BASSActive.BASS_ACTIVE_PAUSED Then
DrawWavePosition(Channel_Pos, Channel_Len) 'Wave Position updaten
Else
_updateTimer.[Stop]()
_updateTimer.[Dispose]()
Exit Sub
End If
End Sub
Private Sub SetupWaveForm()
WF = New Misc.WaveForm(_Quelldatei, New Misc.WAVEFORMPROC(AddressOf MyWaveFormCallback), Me)
WF.FrameResolution = 0.01F ' 10ms
WF.CallbackFrequency = 500 ' alle 5 sekunden wird gerendert (500*10ms=5sec)
'Farben
WF.ColorBackground = Color.Transparent
WF.ColorLeft = _Farbe
WF.ColorRight = _Farbe
WF.ColorLeftEnvelope = _Farbe
WF.ColorRightEnvelope = _Farbe
WF.ColorMiddleLeft = _Farbe
WF.ColorMiddleRight = _Farbe
WF.DrawCenterLine = True
WF.DrawEnvelope = True
WF.DrawMarker = Misc.WaveForm.MARKERDRAWTYPE.Line Or Misc.WaveForm.MARKERDRAWTYPE.Name Or Misc.WaveForm.MARKERDRAWTYPE.NamePositionMiddle
WF.RenderStart(True, BASSFlag.BASS_SAMPLE_FLOAT Or BASSFlag.BASS_STREAM_PRESCAN)
WF.SyncPlayback(_Stream)
End Sub
Private Sub MyWaveFormCallback(ByVal framesDone As Integer, ByVal framesTotal As Integer, ByVal elapsedTime As TimeSpan, ByVal finished As Boolean)
DrawWave(False)
If finished Then
DrawWave(True)
End If
End Sub
Private Sub DrawWave(Optional ByVal highQuality As Boolean = False)
If highQuality = False Then
IsDrawing = Not IsDrawing
If IsDrawing Then Exit Sub
End If
If Not WF Is Nothing Then
Me.BackgroundImage = WF.CreateBitmap(Me.Width, Me.Height, -1, -1, highQuality)
If WF.IsRenderingInProgress Then Exit Sub
Else
Me.BackgroundImage = Nothing
End If
End Sub
Private Sub DrawWavePosition(ByVal pos As Long, ByVal len As Long)
Dim PenColor As Color = _Farbe
If len = 0 OrElse pos < 0 Then
Me.Image = Nothing
Return
End If
Dim bitmap As Bitmap = Nothing
Dim g As Graphics = Nothing
Dim p As Pen = Nothing
Dim bpp As Double = 0
Try
bpp = len / CType(Me.Width, Double)
pos -= _deviceLatencyBytes
p = New Pen(PenColor)
bitmap = New Bitmap(Me.Width, Me.Height)
g = Graphics.FromImage(bitmap)
g.Clear(Color.White)
Dim x As Integer = CType(Math.Round(pos / bpp), Integer)
' position (x) = wo die Linie gezeichnet wird
g.DrawLine(p, x, 0, x, Me.Height - 1)
bitmap.MakeTransparent(Color.White)
Catch
bitmap = Nothing
Finally
' Graphic Resourcen freigeben
If Not p Is Nothing Then p.Dispose()
If Not g Is Nothing Then g.Dispose()
End Try
Me.Image = bitmap
End Sub
Public Sub Start()
_updateTimer = New Un4seen.Bass.BASSTimer(_updateInterval)
AddHandler _updateTimer.Tick, AddressOf Zeitgeber_Tick
SetupWaveForm()
If _Stream <> 0 AndAlso Bass.BASS_ChannelPlay(_Stream, False) Then
_updateTimer.[Start]()
Else
MessageBox.Show("Fehler!")
End If
MessageBox.Show(CStr(Bass.BASS_ErrorGetCode))
End Sub
End Class

Vor dem Aufrufen der Public Sub Start(), die das Ganze anlaufen lassen soll, müssen die drei Eigenschaften noch gesetzt werden.

Ich hoffe das sind genug Infos, ansonsten bitte nochmal melden.

Edit: Hab ich noch vergessen: Damit das Ganze auch laufen kann musst du vorher in der Form_Loaded die bass.dll noch initialisieren und nen Track abspielen:

VB.NET-Quellcode

Bass.BASS_Init(-1, 44100, BASSInit.BASS_DEVICE_DEFAULT Or BASSFlag.BASS_STREAM_PRESCAN, Me.Handle)
strm = Bass.BASS_StreamCreateFile("C:\Test.mp3", 0, 0, BASSFlag.BASS_DEFAULT Or BASSFlag.BASS_STREAM_AUTOFREE Or BASSFlag.BASS_SAMPLE_FLOAT)

Beim Festlegen der Propertys meiner Klasse nimmst du dann strm als Wellenform1.Stream und "C:\Test.mp3" als Wellenform1.Quelldatei und Wellenform1.Farbe die gewünschte Farbe der Waveform.

Nofear23m · 25. Juli 2021, 08:38

OK, ist schon eine recht spezielle sache. Ich spiel mich jetzt nicht mit irgendwelchen dll`s die Zeit habe ich leider nicht und ich will dir ja deine Arbeit auch nicht abnehmen.

Aber ein Problem wäre es nicht siehe hier: markheath.net/post/audio-waveform-drawing-using-wpf

Da wird einfach ein Polygon innerhalb eines Canvas gezeichnet. schau jetzt nicht kompliziert aus. Es kommt dann nur darauf an wie und in welcher Form du die Daten aus der dll bekommst aber wie gesagt, ich kann mich jetzt nicht in die dll einlesen.

Falls du dir die Arbeit nicht antun möchtest weist du ja mittlerweile wie man ein WinForms Control in WPF einbindet. Musst nur schaun wie hier das die Performance ist, ich habe da leider keine Erfahrungen machen können da ich es noch nie brauchte.

Grüße

Übersetzen einer WinForms-Klasse zu WPF am Beispiel PictureBox

Übersetzen einer WinForms-Klasse zu WPF am Beispiel PictureBox

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Benutzer online 1

Ähnliche Themen

2 Benutzer haben hier geschrieben