Fenster Minimieren ohne Windowstate

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von TheSCHFan#.

    Nö, das machste so. Warum denn auch nicht?
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Code:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
    4. Label6.Text = "Volume: " + TrackBar1.Value.ToString + "/" + TrackBar1.Maximum.ToString
    5. ProgressBar1.Value = TrackBar1.Value
    6. AxWindowsMediaPlayer1.settings.volume = ProgressBar1.Value
    7. End Sub
    9. Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
    10. If MsgBox("Möchten sie, dass " + aktuell + " beendet wird", MsgBoxStyle.YesNo, "Wirklich?") = MsgBoxResult.Yes Then
    11. e.Cancel = False
    12. Else
    13. e.Cancel = True
    14. End If
    15. End Sub
    17. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    18. Label6.Text = "Volume: " + TrackBar1.Value.ToString + "/" + TrackBar1.Maximum.ToString
    19. ProgressBar1.Value = TrackBar1.Value
    20. AxWindowsMediaPlayer1.settings.volume = ProgressBar1.Value
    21. Label1.ForeColor = Color.Black
    22. Label2.ForeColor = Color.Black
    23. Label3.ForeColor = Color.Black
    24. Label4.ForeColor = Color.Black
    25. Label5.ForeColor = Color.Black
    26. Label1.ForeColor = Color.Red
    27. wmpplay("http://87.230.53.70/iloveradio1.mp3")
    28. aktuell = "ILoveRadio"
    29. Label9.Text = aktuell + " v" + My.Settings.Version + " ►"
    31. End Sub
    33. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    34. If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then
    35. AxWindowsMediaPlayer1.Ctlcontrols.pause()
    36. Else
    37. AxWindowsMediaPlayer1.Ctlcontrols.play()
    38. End If
    39. If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then
    40. Button1.Text = "Pause"
    41. Label9.Text = aktuell + " v" + My.Settings.Version + " ►"
    42. Else
    43. Button1.Text = "Play"
    44. Label9.Text = "iLoveRadio v" + My.Settings.Version
    45. End If
    46. End Sub
    47. Dim aktuell As String
    48. Private Sub Panel2_Click(sender As Object, e As EventArgs) Handles Panel2.Click, Label1.Click, PictureBox1.Click
    49. Label1.ForeColor = Color.Black
    50. Label2.ForeColor = Color.Black
    51. Label3.ForeColor = Color.Black
    52. Label4.ForeColor = Color.Black
    53. Label5.ForeColor = Color.Black
    54. Label1.ForeColor = Color.Red
    55. wmpplay("http://87.230.53.70/iloveradio1.mp3")
    56. aktuell = "ILoveRadio"
    57. End Sub
    59. Private Sub Panel3_Click(sender As Object, e As EventArgs) Handles Panel3.Click, Label2.Click, PictureBox2.Click
    60. Label1.ForeColor = Color.Black
    61. Label2.ForeColor = Color.Black
    62. Label3.ForeColor = Color.Black
    63. Label4.ForeColor = Color.Black
    64. Label5.ForeColor = Color.Black
    65. Label2.ForeColor = Color.Red
    66. wmpplay("http://87.230.53.70/iloveradio2.mp3")
    67. aktuell = "ILoveToDance"
    68. End Sub
    70. Private Sub Panel4_Click(sender As Object, e As EventArgs) Handles Panel4.Click, Label3.Click, PictureBox3.Click
    71. Label1.ForeColor = Color.Black
    72. Label2.ForeColor = Color.Black
    73. Label3.ForeColor = Color.Black
    74. Label4.ForeColor = Color.Black
    75. Label5.ForeColor = Color.Black
    76. Label3.ForeColor = Color.Red
    77. wmpplay("http://87.230.53.70/iloveradio3.mp3")
    78. aktuell = "ILoveTheDome"
    79. End Sub
    80. Private Sub Panel5_Click(sender As Object, e As EventArgs) Handles Panel5.Click, Label4.Click, PictureBox4.Click
    81. Label1.ForeColor = Color.Black
    82. Label2.ForeColor = Color.Black
    83. Label3.ForeColor = Color.Black
    84. Label4.ForeColor = Color.Black
    85. Label5.ForeColor = Color.Black
    86. Label4.ForeColor = Color.Red
    87. wmpplay("http://87.230.53.70/iloveradio4.mp3")
    88. aktuell = "ILoveYou"
    89. End Sub
    90. Private Sub Panel6_Click(sender As Object, e As EventArgs) Handles Panel6.Click, Label5.Click, PictureBox5.Click
    91. Label1.ForeColor = Color.Black
    92. Label2.ForeColor = Color.Black
    93. Label3.ForeColor = Color.Black
    94. Label4.ForeColor = Color.Black
    95. Label5.ForeColor = Color.Black
    96. Label5.ForeColor = Color.Red
    97. wmpplay("http://87.230.53.70/iloveradio5.mp3")
    98. aktuell = "ILoveMashUp"
    99. End Sub
    100. Public Sub wmpplay(ByVal url As String)
    101. AxWindowsMediaPlayer1.URL = url
    102. Button1.Enabled = False
    103. End Sub
    104. Private Sub Panel6_Paint(sender As Object, e As PaintEventArgs) Handles Panel6.Paint
    106. End Sub
    108. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    109. If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then
    110. Button1.Text = "Pause"
    111. Label9.Text = aktuell + " v" + My.Settings.Version + "(Playing)"
    112. Button1.Enabled = True
    113. Else
    114. Button1.Text = "Play"
    115. Label9.Text = aktuell + " v" + My.Settings.Version
    116. End If
    117. Me.Text = Label9.Text
    118. End Sub
    120. Private Sub Label7_Click(sender As Object, e As EventArgs) Handles Label7.Click
    121. Me.Close()
    122. End Sub
    124. Private Sub Label8_Click(sender As Object, e As EventArgs) Handles Label8.Click
    125. WindowState = FormWindowState.Minimized
    126. End Sub
    128. #Region "Fenster bewegen mit Maus"
    130. Private CurrentPosition As New System.Drawing.Point
    131. Private MouseButton As System.Windows.Forms.MouseButtons = Nothing
    133. Private Overloads Sub OnMouseDown(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel7.MouseDown
    135. MyClass.MouseButton = e.Button()
    136. Me.Update()
    137. With MyClass.CurrentPosition
    138. .X = e.X()
    139. .Y = e.Y()
    140. End With
    142. End Sub
    144. Private Overloads Sub OnMouseMove(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel7.MouseMove
    146. Select Case MouseButton
    147. Case Is = Windows.Forms.MouseButtons.Left
    148. MyClass.Top = Windows.Forms.Cursor.Position.Y() - MyClass.CurrentPosition.Y()
    149. MyClass.Left = Windows.Forms.Cursor.Position.X() - MyClass.CurrentPosition.X()
    150. Me.Update()
    151. Case Is = Nothing
    152. Me.Update()
    153. Exit Sub
    154. End Select
    155. End Sub
    157. Private Overloads Sub OnMouseUp(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel7.MouseUp
    158. MyClass.MouseButton = Nothing
    159. End Sub
    161. #End Region
    163. Private Sub Label8_MouseEnter(sender As Object, e As EventArgs) Handles Label8.MouseEnter
    164. Label8.BackColor = Color.Gray
    165. End Sub
    167. Private Sub Label8_MouseLeave(sender As Object, e As EventArgs) Handles Label8.MouseLeave
    168. Label8.BackColor = Color.White
    169. End Sub
    171. Private Sub Label7_MouseEnter(sender As Object, e As EventArgs) Handles Label7.MouseEnter
    172. Label7.BackColor = Color.Gray
    173. End Sub
    175. Private Sub Label7_MouseLeave(sender As Object, e As EventArgs) Handles Label7.MouseLeave
    176. Label7.BackColor = Color.White
    177. End Sub
    178. End Class


    FormBorderStyle None

    Eigentlich sind nur die letzten 2 Wörter wichtig. Die hättest du sofort in den ersten Post packen sollen. Du versuchst ja da ein eigenes "Design" zu machen, auch für den Border. Das was du da aktuell machst ist ziemlich unschön (mal abgesehen vom andern Code). Windows stellt immer Ownerdrawing zur verfügung. Für den Clientbereich wird WM_PAINT zum Fenster gesendet und das Paint Event gefeuert, falls man darauf antwortet rendert man den Clientbereich selbst. Ebenso gibt's für den Nonclientbereich (Border, Caption etc) WM_NCPAINT, aber kein Event. Also informier dich mal über WM_NCPAINT und mal deine NCA selber. Dann braucht man garnichts fürs Resizen, Minimieren, Maximieren oder Verschieben tun. Um die Sachen noch etwas zu ändern, kann man auch noch auf WM_NCHITTEST antworten, aber such mal selbst

Facebook