Einfaches Docklet mit Übergangeffekte - Part 1

    • VB.NET

    Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von darkfr3ak.

      Einfaches Docklet mit Übergangeffekte - Part 1

      Anhang:
      Anhang.zip

      Ich will euch zeigen wie Ihr ein einfaches Docklet mit Icons und Übergangseffekten erstellt.
      Als erstes öffnet ihr Visual Studio/Visual Basic Express und erstellt ein neues Projekt. Folgende Elemente ung Einstellungen benötigt ihr:


      -Form1.vb im Projektmappen Explorer auf Bar1.vb umbennen
      -9 PictureBoxen
      -FormBorderStyle auf None
      -BackColor auf Black
      -Namen der Form auf Bar1
      -Control-, Maximize- und Minimizebox auf False
      -ShowIcon und ShowInTaskbar auf False
      -Location (Frei wählbar) in unserem Fall auf 490;0
      -MaximumSize auf 284;80, MinimumSize auf 284;20
      -Size auf 284;80, StartPosition auf Manual


      Das waren die ersten Eigenschaften die Ihr alle übernehmen solltet (bis auf die Frei wählbaren)
      damit ihr die identische Ergebnisse erzielt.

      Als nächstes positioniert ihr die ersten 7 Pictureboxen, PictureBoxen 1-7, auf die Form und fügt ein die Icons die ich im Anhang zur Verfügung stelle (siehe oben).
      Die Applikationsicons befinden sich im Unterverzeichnis Applikationen.


      Hinweis:

      Um ein Bild einzufügen, klickt ihr mit der rechten Maustaste auf die gewünschte PictureBox und wählt die Option "Bild auswählen".
      Danach erscheint ein neues Fenster, ihr klickt auf die 2 option, wählt "Importieren" und fügt die gewünschten Dateien ein. Ihr markiert dann zunächst das gewünschte Bild auf der Liste und bestätigt mit einem Klick auf "OK".

      Nun verseht noch die letzten 2 Pictureboxen (Pictureboxen 8 und 9) mit den Ein- & Aufklappicons

      Zu allerletzt setzzen wir noch den SizeMode der PictureBoxen auf Autosize, indem wir die gewünschte PictureBox auswählen den Pfeil am Rahmen der PictureBox anklicken und die Option "Grössenmodus" auf "AutoSize" stellt. Das macht ihr mit allen 9 PictureBoxen.

      Nun Ordnet die PictureBoxen nach dem folgendem Schema ein:


      PictureBox1 = Papierkorb
      PictureBox2 = Internet Explorer
      PictureBox3 = Benutzer Sperren
      PictureBox4 = Systemsteuerung
      PictureBox5 = Ausführen
      PictureBox6 = Computer
      PictureBox7 = Ordner

      PictureBox8 = Einklappicon
      PictureBox9 = Ausklappicon

      Wenn ihr alles richtig gemacht habt sieht die Form folgendermassen aus:





      Tipp:

      Stellt sicher, dass die PictureBoxen 8 und 9 übereinander liegen und das die PictureBox Eigenschaft BackGroundColor auf Transparent ist.


      So, da nun das Designen fertig ist, fangen wir endlich mit dem wirklichen Programmieren an.

      Wir fangen ganz einfach an und werden gleich den Windows Vista/7 Aero-Style definieren.

      Dafür brauchen wir zu erst 4 Variable, 2 DLL Dateien und den Aufruf des Aerostyles in der Bar1_Load:

      VB.NET-Quellcode

      1. Imports System.Runtime.InteropServices
      3. Public Class Bar1
      4. Public Structure DWM_BLURBEHIND
      5. Public dwFlags As Integer
      6. Public fEnable As Boolean
      7. Public hRgnBlur As IntPtr
      8. Public fTransitionOnMaximized As Boolean
      9. End Structure
      11. <System.Runtime.InteropServices.DllImport("dwmapi")> _
      12. Private Shared Function DwmEnableBlurBehindWindow(ByVal hWnd As System.IntPtr, ByRef pBlurBehind As DWM_BLURBEHIND) As Integer
      13. End Function
      15. <System.Runtime.InteropServices.DllImport("gdi32.dll")> _
      16. Private Shared Function CreateRectRgn(ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer) As IntPtr
      17. End Function
      19. Private Sub Bar1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      20. Dim dbb As DWM_BLURBEHIND
      21. dbb.fEnable = True
      22. dbb.dwFlags = 1 Or 2
      24. dbb.hRgnBlur = CreateRectRgn(0, 0, Me.Width, Me.Height)
      25. dbb.fTransitionOnMaximized = True
      27. DwmEnableBlurBehindWindow(Me.Handle, dbb)
      28. dbb.hRgnBlur = CreateRectRgn(0, 0, Me.Width, Me.Height)
      29. End Sub
      30. End Class


      *Fortsetzung folgt*

      *Topic verschoben*

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Infil“ () aus folgendem Grund: Überschrift geändert.

      Einfaches Docklet mit Übergangseffekte - Part 2

      Nun Testen wir auch ob alles funktioniert wie wir es wollen.

      Vergleicht eure Applikation mit meiner:




      Da wir jetzt den Windows Aero Style einprogrammiert haben, fahren wir mit dem Ein- und Aufklappen der Form fort.

      Wie wir sehen können, ist das Aufklapp-Icon zu sehen und keine Spur vom Einklapp-Icon.
      Um das zu ändern, schreiben wir folgenden Code in der Bar1_Load unter dem Aufruf des Aero Style.

      VB.NET-Quellcode

      1. ...
      2. PictureBox9.Hide()
      3. ...


      Nun sieht der Code der Funktion Private Sub Bar1_Load folgendermassen aus.

      VB.NET-Quellcode

      1. Private Sub Bar1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      2. Dim dbb As DWM_BLURBEHIND
      3. dbb.fEnable = True
      4. dbb.dwFlags = 1 Or 2
      6. dbb.hRgnBlur = CreateRectRgn(0, 0, Me.Width, Me.Height)
      7. dbb.fTransitionOnMaximized = True
      9. DwmEnableBlurBehindWindow(Me.Handle, dbb)
      10. dbb.hRgnBlur = CreateRectRgn(0, 0, Me.Width, Me.Height)
      12. PictureBox9.Hide()
      13. End Sub


      Startet nun wieder die Anwendung und überprüft ob nun das Aufklapp-Icon (PictureBox9) unsichtbar und das Einklapp-Icon (PictureBox8) sicht bar ist.
      Wenn dies nicht der Fall ist, überprüft erneut und ändert, falls nötig, den Code.


      Jetzt werden wir uns mit der Ein- und Aufklappfunktion des Docklet beschäftigen.

      Zunächst wechselt ihr zum Code und Deklariert 4 neue Variablen. Die 4 Varbiablen Deklariert Ihr unter der "Public Structure"
      (benötigt für Windows Aero Style).


      VB.NET-Quellcode

      1. ...
      2. Private AusgeklapptBeiStart As Boolean = True
      3. Private HoeheAusgeklappt As Integer = 80
      4. Private HoeheEingeklappt As Integer = 20
      5. Private k As Integer = 1
      6. ...


      Da wir jetzt die Variablen haben, benötigen wir noch die Ein- und Aufklapp Funktion. Diese sieht folgendermassen aus:


      VB.NET-Quellcode

      1. Private Sub AusEinKlappen()
      2. Select Case AusgeklapptBeiStart
      3. Case False
      4. Do Until Me.Height >= HoeheAusgeklappt
      5. Me.Height = Me.Height + ((k + 9) / 10000) * Me.Height * ((HoeheAusgeklappt + 10) - Me.Height)
      6. System.Threading.Thread.Sleep(5)
      7. Loop
      8. AusgeklapptBeiStart = True
      9. Case True
      10. Do Until Me.Height <= HoeheEingeklappt
      11. Me.Height = Me.Height - ((k + 9) / 10000) * Me.Height * ((HoeheAusgeklappt + 10) - Me.Height)
      12. System.Threading.Thread.Sleep(5)
      13. Loop
      14. AusgeklapptBeiStart = False
      15. End Select
      16. End Sub


      Den Funktionscode platziert ihr zwischen der letzten System.Runtime.InteropServices.DllImport und der Bar1_Load.


      Hinweis:

      Die Anordnung der einzelenen Codeabschnitte ist zwar nicht wichtig, dient aber der erleichterten Lesbarkeit und der sauberen Strukturierug des kompletten Quellcodes.


      Da wir jetzt die nötigen Funktionen für das ein- und ausklappen haben, müssen wir der Applikation noch zuweisen wann die Form eingeklappt.
      Dafür fügen wir den Namen der Funktion in den Events PictureBox8_MouseClick und PictureBox8_MouseClick.
      Für dieses Event reicht ein einfaches Doppelklicken auf die PictureBoxen 8 und 9.


      Tipp:

      Durch ein doppelklicken auf die gewählte pictureBox erscheint nicht das PictureBoxXY_MouseClick-Event sondern das einfache
      PictureBoxXY_Click-Event. Da das keinen enormen bzw. gar keinen Unterschied ausmacht könnt ihr das Event so belassen wie es ist.
      Das anpassen des Click-Events auf MouseClick ist nicht notwendig, auch wenn es in diesem Tutorial anderst ist.


      Jetzt sollte euer kompletter Code in etwa wie hier aussehen:

      VB.NET-Quellcode

      1. Imports System.Runtime.InteropServices
      3. Public Class Bar1
      4. Public Structure DWM_BLURBEHIND
      5. Public dwFlags As Integer
      6. Public fEnable As Boolean
      7. Public hRgnBlur As IntPtr
      8. Public fTransitionOnMaximized As Boolean
      9. End Structure
      11. Private AusgeklapptBeiStart As Boolean = True
      12. Private HoeheAusgeklappt As Integer = 80
      13. Private HoeheEingeklappt As Integer = 20
      14. Private k As Integer = 1
      16. <System.Runtime.InteropServices.DllImport("dwmapi")> _
      17. Private Shared Function DwmEnableBlurBehindWindow(ByVal hWnd As System.IntPtr, ByRef pBlurBehind As DWM_BLURBEHIND) As Integer
      18. End Function
      20. <System.Runtime.InteropServices.DllImport("gdi32.dll")> _
      21. Private Shared Function CreateRectRgn(ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer) As IntPtr
      22. End Function
      24. Private Sub AusEinKlappen()
      25. Select Case AusgeklapptBeiStart
      26. Case False
      27. Do Until Me.Height >= HoeheAusgeklappt
      28. Me.Height = Me.Height + ((k + 9) / 10000) * Me.Height * ((HoeheAusgeklappt + 10) - Me.Height)
      29. System.Threading.Thread.Sleep(5)
      30. Loop
      31. AusgeklapptBeiStart = True
      32. Case True
      33. Do Until Me.Height <= HoeheEingeklappt
      34. Me.Height = Me.Height - ((k + 9) / 10000) * Me.Height * ((HoeheAusgeklappt + 10) - Me.Height)
      35. System.Threading.Thread.Sleep(5)
      36. Loop
      37. AusgeklapptBeiStart = False
      38. End Select
      39. End Sub
      41. Private Sub Bar1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      42. Dim dbb As DWM_BLURBEHIND
      43. dbb.fEnable = True
      44. dbb.dwFlags = 1 Or 2
      46. dbb.hRgnBlur = CreateRectRgn(0, 0, Me.Width, Me.Height)
      47. dbb.fTransitionOnMaximized = True
      49. DwmEnableBlurBehindWindow(Me.Handle, dbb)
      50. dbb.hRgnBlur = CreateRectRgn(0, 0, Me.Width, Me.Height)
      52. PictureBox9.Hide()
      53. End Sub
      55. Private Sub PictureBox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.Click
      56. AusEinKlappen()
      57. End Sub
      59. Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.Click
      60. AusEinKlappen()
      61. End Sub
      62. End Class



      Das war noch nicht alles mit der Ein- und Aufklapp Funktion.
      Bevor ihr die Applikation auch Ordnungsgemäss verwendet, müssen noch die PictureBoxen 8 & 9 so angepasst werden, dass man nur jedesmal die korrekte Picturebox mit der korrekten Aktion sieht.

      Das machen wir mit den Show() und Hide() Funktionen.

      Code:

      VB.NET-Quellcode

      1. ...
      2. Private Sub PictureBox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.Click
      3. AusEinKlappen()
      4. PictureBox8.Hide()
      5. PictureBox9.Show()
      6. End Sub
      8. Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox98.Click
      9. AusEinKlappen()
      10. PictureBox9.Hide()
      11. PictureBox8.Show()
      12. End Sub
      13. ...


      *Fortsetzung folgt*

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Infil“ () aus folgendem Grund: Themenfortsetzung

      Einfaches Docklet mit Übergangseffekte - Part 3

      Der ganze Code sollte nun ungefähr wie hier aussehen:

      VB.NET-Quellcode

      1. Imports System.Runtime.InteropServices
      3. Public Class Bar1
      4. Public Structure DWM_BLURBEHIND
      5. Public dwFlags As Integer
      6. Public fEnable As Boolean
      7. Public hRgnBlur As IntPtr
      8. Public fTransitionOnMaximized As Boolean
      9. End Structure
      11. Private AusgeklapptBeiStart As Boolean = True
      12. Private HoeheAusgeklappt As Integer = 80
      13. Private HoeheEingeklappt As Integer = 20
      14. Private k As Integer = 1
      16. <System.Runtime.InteropServices.DllImport("dwmapi")> _
      17. Private Shared Function DwmEnableBlurBehindWindow(ByVal hWnd As System.IntPtr, ByRef pBlurBehind As DWM_BLURBEHIND) As Integer
      18. End Function
      20. <System.Runtime.InteropServices.DllImport("gdi32.dll")> _
      21. Private Shared Function CreateRectRgn(ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer) As IntPtr
      22. End Function
      24. Private Sub AusEinKlappen()
      25. Select Case AusgeklapptBeiStart
      26. Case False
      27. Do Until Me.Height >= HoeheAusgeklappt
      28. Me.Height = Me.Height + ((k + 9) / 10000) * Me.Height * ((HoeheAusgeklappt + 10) - Me.Height)
      29. System.Threading.Thread.Sleep(5)
      30. Loop
      31. AusgeklapptBeiStart = True
      32. Case True
      33. Do Until Me.Height <= HoeheEingeklappt
      34. Me.Height = Me.Height - ((k + 9) / 10000) * Me.Height * ((HoeheAusgeklappt + 10) - Me.Height)
      35. System.Threading.Thread.Sleep(5)
      36. Loop
      37. AusgeklapptBeiStart = False
      38. End Select
      39. End Sub
      41. Private Sub Bar1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      42. Dim dbb As DWM_BLURBEHIND
      43. dbb.fEnable = True
      44. dbb.dwFlags = 1 Or 2
      46. dbb.hRgnBlur = CreateRectRgn(0, 0, Me.Width, Me.Height)
      47. dbb.fTransitionOnMaximized = True
      49. DwmEnableBlurBehindWindow(Me.Handle, dbb)
      50. dbb.hRgnBlur = CreateRectRgn(0, 0, Me.Width, Me.Height)
      52. PictureBox9.Hide()
      53. End Sub
      55. Private Sub PictureBox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.Click
      56. AusEinKlappen()
      57. PictureBox8.Hide()
      58. PictureBox9.Show()
      59. End Sub
      61. Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.Click
      62. AusEinKlappen()
      63. PictureBox9.Hide()
      64. PictureBox8.Show()
      65. End Sub
      66. End Class



      In diesem Moment stehen wir vor einem kleinem Problem. Das wäre, wenn ein User Windows XP verwendet würde möglicherweise eine Fehlermeldung, beim Versuch den Aero Style zu laden, auftauchen oder der User sieht die Anwendung mit einem Schwarzen Hintergrund.

      Ich selbst empfehle hier den Try Befehl. Mit dieser Funktion kann man der Applikation sagen, dass der Aero Style geladen werden soll. Wenn das nicht funktioniert gäbe es die Abhilfe Catch. Mit Catch kann man eine Ausnahme bzw. einen Ausweg bieten. Darin könnte man Beispielsweise der Applikation sagen das die Hintergrundfarbe auf "Silver" gesetzt werden soll und die Sichtbarkeit auf ca. 60%.

      Das wäre meiner Meinung nach die bequemste und einfachste Lösung.

      So könnte danach die Bar1_Load aussehen:

      VB.NET-Quellcode

      1. ...
      2. Private Sub Bar1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      3. Try
      4. Dim dbb As DWM_BLURBEHIND
      5. dbb.fEnable = True
      6. dbb.dwFlags = 1 Or 2
      8. dbb.hRgnBlur = CreateRectRgn(0, 0, Me.Width, Me.Height)
      9. dbb.fTransitionOnMaximized = True
      11. DwmEnableBlurBehindWindow(Me.Handle, dbb)
      12. dbb.hRgnBlur = CreateRectRgn(0, 0, Me.Width, Me.Height)
      13. Catch ex As Exception
      14. Me.BackColor = Color.Silver
      15. Me.Opacity = 60%
      16. End Try
      18. PictureBox9.Hide()
      19. End Sub
      20. ...



      Warnung:

      Beachtet das die Try-Variante bei mir Ungetestet ist.
      Benutzung auf eigener Gefahr, testet diese Funktion, bevor ihr sie in das Docklet implementiert.

      Obwohl ich selbst die Try-Variante auch in dieser Anwendung benutze, muss ich euch auf die oben genannte Warnung aufmerksam machen.
      Auch wenn es kein Fehler anzeigt kann es sein das es unter Windows XP oder früher nicht funktioniert.


      Ich fasse mal kurz zusammen:

      Bis Jetzt haben wir bereits das Aero Style aufgerufen, alle PictureBoxen vorbereitet, die Ein- und Aufklapp Funktion definiert und sie auch in den MouseClick Events eingebunden.



      Im Test funktioniert die Anwendung gut, aber es sieht zunächst ziemlich langweilig aus. Was fehlt sind Tranparens-Effekte.
      Darunter verstehe ich, wenn ich mit dem Cursor, während die Form eingeklappt ist, auf das Ausklapp Button zeige, soll die Sichtbarkeit von 40% auf 100%
      steigen. Wenn ich den Cursor, während die Form eingeklappt ist, von dem Ausklapp button weg bewege,soll die Sichtbarkeit von 100% wieder auf 40% gesenkt werden. Während die Form ausgeklappt ist und eingeklappt wird soll die Sichtbarkeit ebenfalls von 100% auf 40% gesenkt werden und falls der Cursor noch auf das Ausklapp Button zeigt und die Form gerade eingeklappt worden ist, soll die Sichtbarkeit wieder, von der gerade abgesenkten Sichtbarkeit, auf 100% steigen.


      Falls es etwas zu ungenau oder kompliziert erklärt worden ist, zeige ich euch was ich meine, indem ihr einfach mit dem Tutorial fortfarht.


      Da wir noch keine Aktionen für die Clickevents der 7 Apps in unserem Docklet festgelegt haben, werde ich das hier kurz nachholen.


      Ihr wisst bereits wie man ein MouseClick-Event erstellt. Als nächstes tippt ihr einfach folgendes ab:


      VB.NET-Quellcode

      1. ...
      2. Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick
      3. Dim procifo As New ProcessStartInfo("explorer.exe", _
      4. "::{645FF040-5081-101B-9F08-00AA002F954E}")
      5. Process.Start(procifo)
      6. End Sub
      8. Private Sub PictureBox2_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseClick
      9. MessageBox.Show("Momentan nicht Verfügbar")
      10. End Sub
      12. Private Sub PictureBox3_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseClick
      13. Shell("rundll32.exe user32.dll,LockWorkStation")
      14. End Sub
      16. Private Sub PictureBox4_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseClick
      17. Shell("rundll32.exe shell32.dll,Control_RunDLL", 1)
      18. End Sub
      20. Private Sub PictureBox5_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox5.MouseClick
      21. MessageBox.Show("Momentan nicht Verfügbar")
      22. End Sub
      24. Private Sub PictureBox6_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseClick
      25. MessageBox.Show("Momentan nicht Verfügbar")
      26. End Sub
      28. Private Sub PictureBox7_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseClick
      29. Shell("explorer.exe /select", vbNormalFocus)
      30. MessageBox.Show("Noch in der Testphase")
      31. End Sub
      32. ...



      Da ich selbst beim Aufruf einiger Funktionen Probleme hatte habe ich sie einfach mit einer MessageBox.Show() versehen.
      Falls ihr nützliche Verbesserungsvorschläge dazu hättet, könnt ihr sie gerne Posten.


      Da wir jetzt die Aktionen bei einem MouseClick einer der Apps bestimmt haben, widmen wir uns wieder zu den Transparenz-Effekten.


      Zunächst um die Sichtbarkeit beim ein- und ausklappen zu ändern benötigen wir eine weitere Variable.
      Danach definieren wir 2 Funktionen und binden sie anschliessend ein.

      Code:

      VB.NET-Quellcode

      1. ...
      2. Dim count As Integer
      3. ...
      4. Private Sub OpacityMinus()
      5. For Me.count = 100 To 40 Step -7
      6. Me.Opacity = count / 100
      7. Me.Refresh()
      8. Threading.Thread.Sleep(50)
      9. Next
      10. End Sub
      12. Private Sub OpacityPlus()
      13. For Me.count = 40 To 100 Step +7
      14. Me.Opacity = count / 100
      15. Me.Refresh()
      16. Threading.Thread.Sleep(50)
      17. Next
      18. End Sub
      19. ...



      Ich habe die Funktionen so benannt, dass sie später leichter unterscheidbar sind.

      Die Variable count sollte die letzte Variable sein, das heisst sie sollte unterhalb der Ein- und Aufklapp Variablen sein.
      Die zwei Opacity-Funktionen sollten unterhalb der Ein- und Ausklapp Funktion sein.

      Falls ihr das Docklet stets im Vordergrund haben wollt, tippt ihr folgendes in das Bar1_Load Ereigniss ein:

      VB.NET-Quellcode

      1. ...
      2. Me.TopMost = True
      3. ...


      Diese Anweisung solltet ihr an der ersten Zeile in das Bar1_Load Ereigniss abtippen.
      Und damit ihr die Startkoordinaten löschen könnt und die Startposition der Anwendung stets in der Mitte ganz Oben habt, tippt ihr auch folgendes, gleich nach "Me.TopMost" ein:

      VB.NET-Quellcode

      1. ...
      2. Me.Top = True
      3. ...


      Nun könnt ihr die Eigenschaft von "StartPosition" auf "CenterScreen" setzen und abspeichern.


      *Fortsetzung folgt*

      Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „Infil“ ()

      Einfaches Docklet mit Übergangseffekte - Part 4

      Wenn ihr alles richtig abgetippt habt und es keine Fehler gab, sollte nun der Code folgendermassen aussehen:


      VB.NET-Quellcode

      1. Imports System.Runtime.InteropServices
      3. Public Class Bar1
      4. Public Structure DWM_BLURBEHIND
      5. Public dwFlags As Integer
      6. Public fEnable As Boolean
      7. Public hRgnBlur As IntPtr
      8. Public fTransitionOnMaximized As Boolean
      9. End Structure
      11. Private AusgeklapptBeiStart As Boolean = True
      12. Private HoeheAusgeklappt As Integer = 80
      13. Private HoeheEingeklappt As Integer = 20
      14. Private k As Integer = 1
      16. Dim count As Integer
      18. <System.Runtime.InteropServices.DllImport("dwmapi")> _
      19. Private Shared Function DwmEnableBlurBehindWindow(ByVal hWnd As System.IntPtr, ByRef pBlurBehind As DWM_BLURBEHIND) As Integer
      20. End Function
      22. <System.Runtime.InteropServices.DllImport("gdi32.dll")> _
      23. Private Shared Function CreateRectRgn(ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer) As IntPtr
      24. End Function
      26. Private Sub AusEinKlappen()
      27. Select Case AusgeklapptBeiStart
      28. Case False
      29. Do Until Me.Height >= HoeheAusgeklappt
      30. Me.Height = Me.Height + ((k + 9) / 10000) * Me.Height * ((HoeheAusgeklappt + 10) - Me.Height)
      31. System.Threading.Thread.Sleep(5)
      32. Loop
      33. AusgeklapptBeiStart = True
      34. Case True
      35. Do Until Me.Height <= HoeheEingeklappt
      36. Me.Height = Me.Height - ((k + 9) / 10000) * Me.Height * ((HoeheAusgeklappt + 10) - Me.Height)
      37. System.Threading.Thread.Sleep(5)
      38. Loop
      39. AusgeklapptBeiStart = False
      40. End Select
      41. End Sub
      43. Private Sub OpacityMinus()
      44. For Me.count = 100 To 40 Step -7
      45. Me.Opacity = count / 100
      46. Me.Refresh()
      47. Threading.Thread.Sleep(50)
      48. Next
      49. End Sub
      51. Private Sub OpacityPlus()
      52. For Me.count = 40 To 100 Step +7
      53. Me.Opacity = count / 100
      54. Me.Refresh()
      55. Threading.Thread.Sleep(50)
      56. Next
      57. End Sub
      59. Private Sub Bar1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      60. Me.TopMost = True
      61. Me.Top = True
      62. Try
      63. Dim dbb As DWM_BLURBEHIND
      64. dbb.fEnable = True
      65. dbb.dwFlags = 1 Or 2
      67. dbb.hRgnBlur = CreateRectRgn(0, 0, Me.Width, Me.Height)
      68. dbb.fTransitionOnMaximized = True
      70. DwmEnableBlurBehindWindow(Me.Handle, dbb)
      71. dbb.hRgnBlur = CreateRectRgn(0, 0, Me.Width, Me.Height)
      72. Catch ex As Exception
      73. Me.BackColor = Color.Silver
      74. Me.Opacity = 60%
      75. End Try
      77. PictureBox9.Hide()
      78. End Sub
      80. Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick
      81. Dim procifo As New ProcessStartInfo("explorer.exe", _
      82. "::{645FF040-5081-101B-9F08-00AA002F954E}")
      83. Process.Start(procifo)
      84. End Sub
      86. Private Sub PictureBox2_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseClick
      87. MessageBox.Show("Momentan nicht Verfügbar")
      88. End Sub
      90. Private Sub PictureBox3_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseClick
      91. Shell("rundll32.exe user32.dll,LockWorkStation")
      92. End Sub
      94. Private Sub PictureBox4_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseClick
      95. Shell("rundll32.exe shell32.dll,Control_RunDLL", 1)
      96. End Sub
      98. Private Sub PictureBox5_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox5.MouseClick
      99. MessageBox.Show("Momentan nicht Verfügbar")
      100. End Sub
      102. Private Sub PictureBox6_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseClick
      103. MessageBox.Show("Momentan nicht Verfügbar")
      104. End Sub
      106. Private Sub PictureBox7_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseClick
      107. Shell("explorer.exe /select", vbNormalFocus)
      108. MessageBox.Show("Noch in der Testphase")
      109. End Sub
      111. Private Sub PictureBox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.Click
      112. AusEinKlappen()
      113. PictureBox8.Hide()
      114. PictureBox9.Show()
      115. OpacityMinus()
      116. End Sub
      118. Private Sub PictureBox9_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox9.MouseEnter
      119. OpacityPlus()
      120. End Sub
      122. Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.Click
      123. AusEinKlappen()
      124. PictureBox9.Hide()
      125. PictureBox8.Show()
      126. End Sub
      128. Private Sub PictureBox9_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox9.MouseLeave
      129. If Me.Height = 20 Then
      130. OpacityMinus()
      131. End If
      132. End Sub
      133. End Class


      Hier noch ein paar Screenshots zum Vergleich:


      Ausführung Normal:


      Ausführung Eingeklappt kein Cursor:


      Ausführung Eingeklappt Cursor auf Icon:



      So das wars mit dem Tutorial. Es gäbe viel mehr zu zeigen, aber das sollte mal reichen.
      Bei Fragen einfach bei mir melden. Bevor ich es vergesse, ich wollte euch noch mein Docklet als Download zur verfügung stellen:

      Infil Docklet.exe

      Haut auf die Tasten Leute und viel Spass.

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Infil“ ()

      Shell? MsgBox? Das ist VB6. Verwende Process.Start() und MessageBox.Show().

      Außerdem: Eigene Elemente kann man nicht bestimmten?
      „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

      -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

      danke für den vorschlag Lukas werde es gleich ändern.
      Zu deiner zweiten Frage: Eigene Elemente sind auch umsetzbar, aber das sollte einfach ein kleines beispiel sein. Man könnte einfach die Symbole ändern und bei den MouseClick Events den Pfad der Datei ändern.

      EDIT: Leider gibt es einige Probleme, man kann den benutzer nicht (soweit meine erfrahrungen reichen) mit Process.Start sperren, oder gibt es eine ähnliche möglichkeit. denn mit process.start, wie der name schon sagt, kann man nur prozesse starten aber keine CMD Aktionen unternehmen.

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Infil“ ()

      Hier im Forum gibts ne super Einrichtung, die nennt sich Such-Funktion :D

      Hier z.B. ist ein Quellcode-Ausschnitt, der dir helfen sollte:

      Klick

      Sogar mit umlenken der Ausgabe in einen String. Wenn du nur das Programm starten willst, lass das hier

      VB.NET-Quellcode

      1. P.StartInfo.RedirectStandardOutput = True
      2. P.StartInfo.UseShellExecute = False


      und das hier

      VB.NET-Quellcode

      1. Using
      2. SR = P.StandardOutput
      3. T = SR.ReadToEnd()
      4. End Using


      und die Messagebox weg. Fertig.

    Facebook
    Telefonspende