@VaporiZed
Ja Du hast vollkommen recht. Ich hatte da einen Fehler in meinem Denken (hatte ja oben schon geschrieben, dass das mit dem OOP Denken nicht so klappt // siehe auch die anderen Threads von mir ;)).
Erstmal keine Fragen von mir, für den interessierten Leser -> so hab ich das bis jetzt gemacht:
Spoiler anzeigen
Das mit keine Frage nehme ich Zurück. Ist das Okay, dass ich da trackBarChkBoxFocus = Nothing und ActivUC = Nothing setze?
Eine 0 ist ein "Object" Integer mit dem Wert 0. Nothing ist noch nicht mal ein "Object"?
Nothing ist also das fürs Programmieren was die Null für Mathe ist?
Ja Du hast vollkommen recht. Ich hatte da einen Fehler in meinem Denken (hatte ja oben schon geschrieben, dass das mit dem OOP Denken nicht so klappt // siehe auch die anderen Threads von mir ;)).
Erstmal keine Fragen von mir, für den interessierten Leser -> so hab ich das bis jetzt gemacht:
VB.NET-Quellcode
- Public Sub CbxTasterActiv(sender As Object, e As EventArgs) Handles UcMp3Player1.CbxTasterActiv, UcMp3Player2.CbxTasterActiv
- If CType(sender, UcMp3Player).CbTrkBVolMp3.Checked Then
- For Each chkbox As CheckBox In lstCheckBoxes
- If chkbox.Checked AndAlso CType(sender, UcMp3Player).CbTrkBVolMp3 IsNot chkbox Then
- chkbox.Checked = False
- End If
- Next
- End If
- 'Activ Trackbar gets the input of the usb RotaryEncoder; because of the checked Checkbox
- If CType(sender, UcMp3Player).CbTrkBVolMp3.Checked Then
- trackBarChkBoxFocus = CType(sender, UcMp3Player).TrkBVolMp3
- ActivUC = CType(sender, UcMp3Player)
- End If
- If CType(sender, UcMp3Player).CbTrkBVolMp3.Checked = False Then
- trackBarChkBoxFocus = Nothing
- ActivUC = Nothing
- End If
- End Sub
- Public Sub TasterIsMoved()
- Dim tasterWirkung As Int32 = 10
- If trackBarChkBoxFocus IsNot Nothing And ActivUC IsNot Nothing Then
- If tasterRichtung = "up" And trackBarChkBoxFocus.Value < trackBarChkBoxFocus.Maximum Then
- If trackBarChkBoxFocus.Value + tasterWirkung > trackBarChkBoxFocus.Maximum Then
- trackBarChkBoxFocus.Value = trackBarChkBoxFocus.Maximum
- Else
- trackBarChkBoxFocus.Value += tasterWirkung
- End If
- End If
- If tasterRichtung = "down" And trackBarChkBoxFocus.Value > 0 Then
- If trackBarChkBoxFocus.Value - tasterWirkung < 0 Then
- trackBarChkBoxFocus.Value = 0
- Else
- trackBarChkBoxFocus.Value -= tasterWirkung
- End If
- End If
- 'ensprechend Update Vol Bass_dll
- Dim VolumeSlider As Single
- VolumeSlider = Convert.ToSingle(trackBarChkBoxFocus.Value / 100)
- Bass.BASS_ChannelSetAttribute(ActivUC.Chan, BASSAttribute.BASS_ATTRIB_VOL, VolumeSlider)
- End If
- End Sub
Das mit keine Frage nehme ich Zurück. Ist das Okay, dass ich da trackBarChkBoxFocus = Nothing und ActivUC = Nothing setze?
Eine 0 ist ein "Object" Integer mit dem Wert 0. Nothing ist noch nicht mal ein "Object"?
Nothing ist also das fürs Programmieren was die Null für Mathe ist?
codewars.com Rank: 4 kyu