auxmoney - Geld leihen für das Studiumauxmoney - Geld leihen für das Studium

auxmoney - Geld leihen für den Umzugauxmoney - Geld leihen für den Umzug

Einfaches Malprogramm, Speichern einer Bitmap-Datei

Einfaches Malprogramm und Speichern einer Bitmap-Datei via DrawWidth, PSet, Circle, Line
Private Sub Form_Load()
picMalfläche.AutoRedraw = True AutoRedraw muss bei Programmstart True sein.
lblLinie(0).BorderStyle = 1 Das erste Labelfeld ist markiert (Strichstärke fein).
End Sub
Private Sub lblLinie_Click(Index As Integer)
Static AlterIndex As Integer
picMalfläche.DrawWidth = Index + 1
lblLinie(AlterIndex).BorderStyle = 0 Bei lblLinie handelt es sich um ein Feld von Bezeichnungs-
lblLinie(Index).BorderStyle = 1 feldern.
AlterIndex = Index
End Sub
Private Sub picMalfläche_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then Punkte mit linker Maustaste zeichnen.
picMalfläche.PSet (X, Y), vbGreen
End If
If Button = vbRightButton Then Kreis mit rechter Maustaste zeichnen.
picMalfläche.Circle (700, 700), 700, vbBlue
End If
If Button = vbRightButton Then Mittlere Maustaste funktioniert nicht immer.
picMalfläche.Line (500, 500)-(900, 900), vbRed, B
End If
End Sub
Private Sub cmdBildspeichern_Click()
Dim Dateiname As String
cdlDatei.Filter = "*.Bmp|Bitmap|*.*|Alle Dateien"
cdlDatei.DialogTitle = "Speichern der Bitmap-Datei"
cdlDatei.ShowSave
Dateiname = cdlDatei.FileName
If Dateiname = "" Then Exit Sub Wurde ein Dateiname eingegeben?
If InStr(UCase(Dateiname), ".BMP") = 0 Then Dateiname = Dateiname & ".bmp"
SavePicture picMalfläche.Image, Dateiname Bild in Datei abspeichern.
End Sub
Private Sub cmdLöschen_Click()
picMalfläche.Cls
End Sub
Private Sub cmdEnde_Click()
Unload Me
End Sub
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt