Dreieck zeichnen

27/09/2013 - 12:19 von Ahmed Martens | Report spam
Hallo Leute,

ich möchte in einem Programm ein kleines Flag-Zeichen = Dreieck (wie in
Excel-Notizen) zeichnen.

Hat einer eine Idee wie ich das hinbekomme?
Mir geht es nur um den Code zum zeichnen.
Die benötigten API-Funktionen habe ich schon aus einem anderen
Demoprojekt.

Vielen Dank im voraus.


Gruß Ahmed
Antworten bitte nur in der Newsgroup.
Win7 Prof. 64bit / MS-Office 2010 Prof. 32bit
 

Lesen sie die antworten

#1 Schmidt
27/09/2013 - 14:49 | Warnen spam
Am 27.09.2013 12:19, schrieb Ahmed Martens:
Hallo Leute,

ich möchte in einem Programm ein kleines Flag-Zeichen = Dreieck (wie in
Excel-Notizen) zeichnen.



Da Du nur "ein kleines Dreieck" malen möchtest... warum nicht die
paar Pixel direkt setzen:

'***In eine Form
Option Explicit

Private Sub Form_Resize()
ScaleMode = vbPixels
AutoRedraw = True
Cls

Const Size = 15

DrawItAt ScaleWidth / 2, ScaleHeight / 2, vbMagenta, Size
DrawItAt ScaleWidth - Size, 0, vbRed, Size
End Sub

Private Sub DrawItAt(x, y, Color, Optional ByVal Size& = 10)
Dim i, j
For i = 1 To Size: For j = i To Size
Me.PSet (Int(x + Size - i), Int(y + Size - j)), Color
Next j, i
End Sub

Olaf

Ähnliche fragen