Form rotieren lassen!

  • VB.NET

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von miko1204.

    Form rotieren lassen!

    Hallo,
    ich möchte gerne eine Form rotieren lassen! Ich hab hier im Forum schon einen Beitrag gesehen
    der eine Picturebox rotieren lassen wollte, da wurde es mit einem Timer und mehreren Bildern
    gelöst doch dies kann ich janicht mit einer Form machen! Wie könnte ich das Bewerkstelligen??

    MFG

    Werewolve

    hätte einen sehr umständlichen Lösungsansatz dafür. Wie du bereits gesagt hast, hast du einen Thread gefunden, der beschreibt, wie man Pictureboxen rotieren lässt. Füll doch einfach die PictureBox mit einem Bild, bzw Screenshot deiner Form und lass die PictureBox rotieren. Nach einem definierten TimerInterval lässt du dann die PictureBox ausblenden und die Form real laden. Du musst natürlich eine Form als Hintergrund machen, die du mit den Farbeigenschaften Background = rot und TransparencyKey = rot und FormBorderStyle = none unsichtbar machst

    naja der lösungsvorschlag gefällt mir jetzt nicht so! Gibt es da nicht einen andere Möglichkeit! Und meinen Form ist runde vielleicht hilft das!


    Edit: HAb hier noch was gefunden! Weiß aber nicht wie das helfen könnte:

    VB.NET-Quellcode

    1. Visual Basic (Deklaration)Public Property Rotation As Rotation
    2. Visual Basic (Verwendung)Dim instance As BitmapImage
    3. Dim value As Rotation
    5. value = instance.Rotation
    7. instance.Rotation = value

    hallo werewolve,

    ist das nicht ein bischen ausserhalb dessen, was du leisten kannst ?
    sinnvoll wäre es, sich erst mit den basics zu beschäftigen.

    übrigens - warum suchst du nicht bei onkel google ?
    dein problem lässt sich leicht im englischen beschreiben.

    rotate form

    gruss

    mikeb69

    ich denke er meint mich damit. Ich denke er kommt nicht damit klar, dass ich gerade von Python auf VB umsteige.

    Die Lösung die ich dir geboten hab, wäre jetzt der Ansatz gewesen, wie ich das gelöst hätte, wenn mir ne andere Möglichkeit nicht in Sinn gekommen wäre.

    Ich check den code nicht so richtig, was hat das mit Rotation zutun da rotiert ja garnichts
    oder was muss ich da verändern das sich da was bewegt?

    VB.NET-Quellcode

    1. Imports System
    3. Imports System.ComponentModel
    5. Imports System.Windows.Forms
    7. Imports System.Data
    9. Imports System.Configuration
    11. Imports System.Drawing
    13. Imports System.Drawing.Drawing2D
    15. Imports System.Drawing.Text
    17. Imports System.Globalization
    19. Imports System.Text
    21. Imports System.Collections
    25. Public Class MainClass
    29. Shared Sub Main()
    33. Dim myform As Form = New RotateForm()
    35. Application.Run(myform)
    37. End Sub
    39. End Class
    40. Public Class RotateForm
    42. Inherits System.Windows.Forms.Form
    46. #Region " Windows Form Designer generated code "
    50. Public Sub New()
    52. MyBase.New()
    56. 'This call is required by the Windows Form Designer.
    58. InitializeComponent()
    62. 'Add any initialization after the InitializeComponent() call
    66. End Sub
    70. 'Form overrides dispose to clean up the component list.
    72. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    74. If disposing Then
    76. If Not (components Is Nothing) Then
    78. components.Dispose()
    80. End If
    82. End If
    84. MyBase.Dispose(disposing)
    86. End Sub
    90. 'Required by the Windows Form Designer
    92. Private components As System.ComponentModel.IContainer
    96. 'NOTE: The following procedure is required by the Windows Form Designer
    98. 'It can be modified using the Windows Form Designer.
    100. 'Do not modify it using the code editor.
    102. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    104. '
    106. 'RotateForm
    108. '
    110. Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    112. Me.ClientSize = New System.Drawing.Size(500, 500)
    114. Me.Name = "RotateForm"
    116. Me.Text = "RotateForm"
    120. End Sub
    124. #End Region
    130. Sub RotateForm_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint
    132. Dim g As Graphics = e.Graphics
    134. Dim x As Integer = 250
    136. Dim y As Integer = 250
    138. Dim width As Integer = 250
    140. Dim height As Integer = 250
    142. Dim textWidth As Single = g.MeasureString("00", Me.Font).Width
    144. Dim length As Single = 230
    146. Dim textRect As RectangleF = New RectangleF(x + length, y - Me.Font.GetHeight(g) / 2, length, textWidth)
    148. Dim format As StringFormat = New StringFormat()
    150. format.Alignment = StringAlignment.Near
    152. format.LineAlignment = StringAlignment.Center
    156. Dim i As Integer
    158. For i = 0 To 360 Step 10
    160. Dim matrix As Matrix = New Matrix()
    162. matrix.RotateAt(i, New PointF(x, y))
    164. g.Transform = matrix
    166. g.DrawLine(Pens.Black, x, y, x + length, y)
    168. g.DrawString(i.ToString(), Me.Font, Brushes.Black, textRect, format)
    170. Next
    172. End Sub
    174. End Class

    hallo

    ich hab dir was geschrieben ist etwas hesslich aber funktioniert einwandfrei

    du brauchst

    2xButtons (Button1 und Button2)
    2x Timers (Timer1 und Timer2)

    VB.NET-Quellcode

    1. Public Class Form1
    4. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. Me.DoubleBuffered = True
    7. End Sub
    9. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    10. Timer1.Start()
    11. Timer1.Interval = 50
    12. End Sub
    14. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    15. Me.Location = New Point(Me.Location.X + 10, Me.Location.Y)
    16. Timer1.Stop()
    17. Timer2.Start()
    18. Timer2.Interval = 50
    19. End Sub
    21. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    22. Me.Location = New Point(Me.Location.X - 10, Me.Location.Y)
    23. Timer2.Stop()
    24. Timer1.Start()
    26. End Sub
    28. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    29. Timer1.Stop()
    30. Timer2.Stop()
    32. End Sub
    33. End Class


    GR
    Schäm dich nicht "Zu fragen", schäm dich "Nicht zu wissen". ?(

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

Facebook
Telefonspende