Hi.
Hier möchte ich regelmäßig Formdesings reinstellen, und mit Vorlage.
Tutorial:
1. Ladet euch ein Design runter
2. Stellt bei eurer Form "FormBorderStyle" auf "None"
3. Sucht bei "BackgroundImage" das Design aus
3. Stellt "BackgroundImageLayout" auf "Stretch"
Erstellt nun ein Close und Minimize Label und einen Formtext wie in den Beispielen.
Nun braucht ihr eine Picturebox und das Textlabel, was den Standandartformtext ersetzt.
Geht in den Code und schreibt folgendes hinein:
Wenn eure Picturebox und das Label anders heisst - anpassen.
Nun könnt ihr eure Form schonmal verschieben.
Nun die Designs!
1. Abstract Black 1
Beispiel:
2. Abstract Black 2
Beispiel:
3. Blue 1
Beispiel:
4. Blue 2
Beispiel:
5. Lila 1
Beispiel:
Ich bemühe mich reglmäßig weitere zu machen.
Vielleicht kann ja jemand was damit anfangen.
Mfg. TGS
Designs im Anhang!
Hier möchte ich regelmäßig Formdesings reinstellen, und mit Vorlage.
Tutorial:
1. Ladet euch ein Design runter
2. Stellt bei eurer Form "FormBorderStyle" auf "None"
3. Sucht bei "BackgroundImage" das Design aus
3. Stellt "BackgroundImageLayout" auf "Stretch"
Erstellt nun ein Close und Minimize Label und einen Formtext wie in den Beispielen.
Nun braucht ihr eine Picturebox und das Textlabel, was den Standandartformtext ersetzt.
Geht in den Code und schreibt folgendes hinein:
VB.NET-Quellcode
- Dim nStartPos As Point
- Dim nDragPos As Point
- Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
- If e.Button = Windows.Forms.MouseButtons.Left Then
- nStartPos = Me.Location
- nDragPos = Me.PointToScreen(New Point(e.X, e.Y))
- End If
- End Sub
- Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
- If e.Button = Windows.Forms.MouseButtons.Left Then
- Dim nCurPos As Point = Me.PointToScreen(New Point(e.X, e.Y))
- Me.Location = New Point(nStartPos.X + nCurPos.X - nDragPos.X, _
- nStartPos.Y + nCurPos.Y - nDragPos.Y)
- End If
- End Sub
- Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
- If e.Button = Windows.Forms.MouseButtons.Left Then
- nStartPos = Me.Location
- nDragPos = Me.PointToScreen(New Point(e.X, e.Y))
- End If
- End Sub
- Private Sub Label1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
- If e.Button = Windows.Forms.MouseButtons.Left Then
- Dim nCurPos As Point = Me.PointToScreen(New Point(e.X, e.Y))
- Me.Location = New Point(nStartPos.X + nCurPos.X - nDragPos.X, _
- nStartPos.Y + nCurPos.Y - nDragPos.Y)
- End If
- End Sub
Wenn eure Picturebox und das Label anders heisst - anpassen.
Nun könnt ihr eure Form schonmal verschieben.
Nun die Designs!
1. Abstract Black 1
Beispiel:
2. Abstract Black 2
Beispiel:
3. Blue 1
Beispiel:
4. Blue 2
Beispiel:
5. Lila 1
Beispiel:
Ich bemühe mich reglmäßig weitere zu machen.
Vielleicht kann ja jemand was damit anfangen.
Mfg. TGS
Designs im Anhang!
