iOS Schiebeschalter mit vb nachahmen

  • VB.NET

Es gibt 25 Antworten in diesem Thema. Der letzte Beitrag () ist von NscMike.

    Alex0815 schrieb:

    Das ist doch doof, ich habe mir jetzt die schönen Buttons,Trackbars runter geladen "IPhone Controls.7z" und jetzt weiss ich nicht welche datei ich aus dem Ordner in mein bestehendes Projekt kopieren muss damit ich das dann da nutzen kann.
    Willst Du mir nicht freundlicherweise helfen?


    Die gTrackBar.dll bei deinem Projekt als Verweis hinzufügen.
    Die Bilder im Ordner Resources bei deinem Projekt als Resourcen hinzufügen.
    Dann einfach das Control per Copy&Paste bei deinem Projekt einfügen.
    Folgende Images setzen:
    IPodButton.BackgroundImage = My.Resources.background
    IPodButton.SliderImage = My.Resources.slider

    Und diesen Code einfügen:

    VB.NET-Quellcode

    1. #Region "iButton"
    3. Dim previous_value As Integer
    5. Private Sub IPodButton_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles IPodButton.MouseDown
    6. previous_value = IPodButton.Value
    7. End Sub
    9. Private Sub IPodButton_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles IPodButton.MouseUp
    10. If previous_value = IPodButton.Value Then
    12. If IPodButton.Value = 0 Then
    13. IPodButton.Value = 2
    14. IPodButton.BackgroundImage = My.Resources.background2
    15. ElseIf IPodButton.Value = 2 Then
    16. IPodButton.Value = 0
    17. IPodButton.BackgroundImage = My.Resources.background
    18. End If
    20. End If
    21. End Sub
    23. Private Sub IPodButton_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IPodButton.ValueChanged
    24. If IPodButton.Value = 0 Then
    25. IPodButton.BackgroundImage = My.Resources.background
    26. 'Hier code hinschreiben wenn Schalter aus ist
    28. ElseIf IPodButton.Value = 2 Then
    29. IPodButton.BackgroundImage = My.Resources.background2
    30. 'Hier code hinschreiben wenn Schalter an ist
    31. End If
    32. End Sub
    34. #End Region


    Für die Trackbar und Progressbar auch einfach per Copy&Paste in dein Projekt kopieren und die Backgroundimages bzw bei der Trackbar das Slider Image ändern.



    Oder du nimmst einfach diese dll Datei her:
    vb-paradise.de/sonstiges/showr…d-controls-altes-projekt/

    Mmmmhhh... leider krieg ich es doch nicht hin:
    Das verstehe ich doch nicht, dachte erst das ich es hin bekomme aber war doch nicht so;-(
    Wie muss ich das machen ?

    Dann einfach das Control per Copy&Paste bei deinem Projekt einfügen.

    Folgende Images setzen:

    IPodButton.BackgroundImage = My.Resources.background

    IPodButton.SliderImage = My.Resources.slider

    Danke