| VB-Homepage Tipp 306 |
| Zeichnen und Ausfüllen über API Funktionen |
| Sie müssen nicht in irgendwelche Zusatzcontrol
Trickkisten greifen, um nur mal ein paar Grundformen zu zeichnen und diese farbig
auszufüllen. Hier reicht es voll und ganz VB-eigene Anweisungen zum zeichnen der Rahmen und eine API-Funktion zum farbigen ausfüllen zu nutzen. Circle = zum zeichnen von Kreisen und Ovalen Line = zum zeichnen von Linien und Rechtecken Für ein Demoprojekt benötigen wir eine Form und einen CommandButton. Wir wollen eine kleine Slotmaschine bauen, die die Formen Kreis,Dreieck und Rechteck zeichnet über API ausmalt und dies dreimal nebeneinander, so das man die Anzeige bei Bedarf auch auswerten und mit Punkten belegen könnte. Aber das überlasse ich Ihnen. Bauen Sie Ihre Form etwas größer, ich füge den Beispielcode aus einer Form ein, auf der noch analoge Demos enthalten sind, deshalb werden die Objekte relativ weit rechts oben dargestellt. Ich habe aber keine Lust, daß jetzt erst noch zu modifizieren. Allgemein/Deklarationen Private Declare Sub FloodFill Lib "GDI32" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal Color As Long) Allgemein/Slot Function Slot() Dim wert1 As Integer 'erste Figur ermitteln Randomize wert1 = Int((3 * Rnd) + 1) If wert1 = 1 Then 'Kreis FillColor = QBColor(10) Circle (370, 70), 10 FloodFill hDC, 370, 20, &H0& ElseIf wert1 = 2 Then 'Viereck FillColor = QBColor(14) FloodFill hDC, 370, 20, &H0& Line (360, 60)-(380, 80), , B ElseIf wert1 = 3 Then 'Dreieck Line (360, 60)-(380, 60) Line (360, 60)-(370, 80) Line (380, 60)-(370, 80) FillColor = QBColor(11) FloodFill hDC, 370, 70, &H0& End If 'zweite Figur ermitteln If wert1 = 1 Then 'Kreis 'dritte Figur ermitteln If wert1 = 1 Then 'Kreis End Function Dem CommandButton übertragen Sie nun die Aufgabe, Form1.Cls |
| Tipp-Download |
| Quelle : |
 |