Fügen Sie den folgenden Programmcode zu Form_Load hinzu
SubForm_Load()
Form1.AutoRedraw=True
'Aktivieren Sie das automatische Neuzeichnen des Formularobjekts
Form1.DrawStyle=6
'Der Stil der geraden Linie ist eine innere durchgezogene Linie (6-vbInsideSolid)
Form1.DrawMode=13
'copyPen – die durch die ForeColor-Eigenschaft angegebene Farbe. (13-vbCopyPen)
Form1.DrawWidth=2
'Die Ausgabelinienbreite beträgt 2 Pixel (Pixel)
„Erstellen Sie eine benutzerdefinierte Koordinatenskala zum Plotten oder Drucken.“
„Grafikpixel sind die kleinste Einheit der Monitor- oder Druckerauflösung.“
Form1.ScaleMode=3
'Setzen Sie die Maßeinheit der Objektkoordinaten auf Pixel (3-VbPixel)
Form1.ScaleHeight=(256*2)
'Setzen Sie den Wert der vertikalen Maßeinheit auf 512
Fori=0To255
Form1.Line(0,Y)-(Form1.Width,Y 2),RGB(0,0,i),BF
Y=Y 2
Nexti
'RGB(rot,grün,blau)
'B: Zeichnen Sie ein Quadrat mit den Koordinaten der gegenüberliegenden Ecke des angegebenen Quadrats
'F: Gibt an, dass dieses Quadrat mit der Farbe gefüllt wird, die zum Zeichnen des Quadrats verwendet wurde (F kann nur verwendet werden, wenn B vorhanden ist)
EndSub->