Irgendeine Kleinigkeit lies sich immer finden bei der Suche VB.Net verstehen zu lernen. Diesmal weiß ich einfach nicht wo ich suchen soll. Um mir die Hinweise zu erarbeiten versuche ich mein Glück mit folgendem Code
den ich in einr Gif Datei speichern will. Es sollte aber nicht einfach eine Bildschirmaufnahme sein. Falls zu viel Arbeit anfallen sollte bitte ich um einen oder zwei Hinweis(e) wo und was ich suchen und lernen sollte.
Quellcode: vb.net
- Imports System.Drawing.Drawing2D
- Public Class Form1
- Dim WithEvents t As New Timer() With {.Interval = 50}
- Dim zweiPlusZwei As Boolean
- Dim startUndZiel As Integer
- Dim dieEins As Integer
- Dim minus As Integer
- Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
- CenterToScreen()
- t.Start()
- DoubleBuffered = True
- zweiPlusZwei = True
- startUndZiel = 10
- dieEins = 1
- minus = 200
- End Sub
- Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
- ' Create a GraphicsPath object and add a rectangle to it.
- Dim myPath As New GraphicsPath
- Dim pathRect As New Rectangle(20, startUndZiel, 100, minus) ' falls minus ersetzt wird durch eine Zahl bewegt sich der Monolit, so ist es nur eine optische Täuschung
- myPath.AddRectangle(pathRect)
- ' Draw the path to the screen.
- Dim myPen As New Pen(Color.Black, 2)
- e.Graphics.DrawPath(myPen, myPath)
- End Sub
- Private Sub t_Tick(sender As Object, e As EventArgs) Handles t.Tick
- If zweiPlusZwei = True Then
- If startUndZiel <= 128 Then
- startUndZiel += dieEins
- minus -= dieEins
- Else
- zweiPlusZwei = False
- End If
- End If
- If zweiPlusZwei = False Then
- If startUndZiel > 10 Then
- startUndZiel -= dieEins
- minus += dieEins
- Else
- zweiPlusZwei = True
- End If
- End If
- Refresh()
- End Sub
- End Class
den ich in einr Gif Datei speichern will. Es sollte aber nicht einfach eine Bildschirmaufnahme sein. Falls zu viel Arbeit anfallen sollte bitte ich um einen oder zwei Hinweis(e) wo und was ich suchen und lernen sollte.