| 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. |
 | |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| Private Sub cmdLöschen_Click() | |
| picMalfläche.Cls | |
| End Sub | |
| |
| Private Sub cmdEnde_Click() | |
| Unload Me | |
| End Sub | |
| |
zurück