Progress Controls [BETA]

    • Beta

    Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Artentus.

      Name des Programms:
      Progress Controls [BETA]

      Beschreibung:
      Ich habe mal ein paar Controls bzw. Steuerelemente entwickelt, die sich hauptsächlich mit Statusanzeige beschäftigen.
      Wurde alles in GDI und Visual Basic 2010 gemacht. Ich Hoffe sie sind ganz gut geworden ;).
      Wenn ihr Fehler findet, bitte Bescheid geben.. Ich würde mich natürlich auch über gute Kritik bzw. Feedback freuen.


      Hinweis(e):

      Das Circular-Progress Control wird mit der Property Autostart [Boolean] gestartet bzw. gestoppt.

      Das Indicator-Control Gibt mit der Property Current [Integer] den aktuellen Schritt aus. Mit Maximal [Integer] werden die Maximalschritte festgelegt.


      Die Farben auf dem Screenshot, sind lediglich Anregungen und frei wählbar. Leider ist der Screenshot etwas verpixelt :s

      Screenshot(s):



      Verwendete Programmiersprache:
      Visual Basic .NET (IDE: VB 2010 Express)

      Systemanforderungen:
      .NET Framework 2.0


      Download:
      ProgressControls.dll[/url] (22 KB)

      Lizenz/Weitergabe:
      Freeware



      Edit by LaMa5:
      --> alten (ungültigen) Downloadlink entfernt
      Dateien
      /nicht getestet

      Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „LaMa5“ ()

      Ich arbeite im Moment aus Spaß an einem kleinen Projekt u.a. mit eigener GUI.
      Wer interesse an den Controls o.ä. hat kann sich einfach bei mir melden. (Anhang)

      Lg
      Bilder
      • Prev_3bbv2.jpg

        42,68 kB, 694×588, 643 mal angesehen
      /nicht getestet
      <---
      Extrem interessiert an diesem Control mit dem du die Musik"wellen" darstellst.
      (Siehe soundcloud)

      Das wäre genial.
      Mfg: Gather
      Private Nachrichten bezüglich VB-Fragen werden Ignoriert!


      oh aso,
      eigentlich logisch. J
      Jedoch wäre ich trotzdem an der ganzen Suite interessiert,
      könnte ich für eines meiner Projekte gut gebrauchen.

      PS: Das es Credits gibt versteht sich von selbst.
      Mfg: Gather
      Private Nachrichten bezüglich VB-Fragen werden Ignoriert!


      Ok. Jedoch muss die Waveform außerhalb des Controls erstellt werden und über die Prop. Spectrum zugewiesen werden.

      Die Prozedur sieht ungefähr so aus:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Private Sub GetWaveForm(ByVal File As IO.FileInfo)
      2. ' render a wave form
      3. WF = New Un4seen.Bass.Misc.WaveForm(File.FullName, New Un4seen.Bass.Misc.WAVEFORMPROC(AddressOf MyWaveFormCallback), Me)
      4. WF.CallbackFrequency = 500 ' every 10 seconds rendered
      5. WF.ColorBackground = Color.Transparent
      6. WF.ColorLeft = Color.Silver
      7. WF.ColorRight = Color.Silver
      8. WF.ColorLeft2 = Color.Silver
      9. WF.ColorRight2 = Color.Silver
      10. WF.ColorMiddleLeft = Color.Silver
      11. WF.ColorMiddleRight = Color.Silver
      12. WF.DrawEnvelope = False
      13. WF.DrawGradient = False
      14. WF.DrawWaveForm = WaveForm.WAVEFORMDRAWTYPE.Mono
      15. WF.RenderStart(True, BASSFlag.BASS_SAMPLE_FLOAT)
      16. End Sub
      17. Private Sub MyWaveFormCallback(ByVal framesDone As Integer, ByVal framesTotal As Integer,
      18. ByVal elapsedTime As TimeSpan, ByVal finished As Boolean)
      19. DrawWave()
      20. If finished Then
      21. Debug.Print("Finished rendering in {0}sec.", elapsedTime)
      22. Debug.Print("FramesRendered={0} of {1}", WF.FramesRendered, WF.FramesToRender)
      23. WF.SyncPlayback(P.MusicStream)
      24. End If
      25. End Sub
      26. Private Sub DrawWave()
      27. If Not (WF Is Nothing) Then
      28. 'Plus 60, damit die Qualität höher ist.
      29. Me.SeekBar1.Spectrum = WF.CreateBitmap(Me.SeekBar1.Width + 60,
      30. Me.SeekBar1.Height + 60,
      31. -1, -1, True)
      32. Else
      33. Me.SeekBar1.Spectrum = Nothing
      34. End If
      35. End Sub

      /nicht getestet