[Visual Basic] 复制代码
Sub Technic_Paint()
Set G1 = Me.GetGridByName("Main")
Call G1.DRAWTEXT(100,100, "100,100", RGB(255, 0, 0))
Call G1.DRAWTEXT(200,200, "200,200", RGB(255, 0, 0))
Call G1.DRAWTEXT(400,400, "400,400", RGB(255, 0, 0))
Call G1.DRAWTEXT(600,600, "600,600", RGB(255, 0, 0))
Call G1.DRAWTEXT(800,600, "800,600", RGB(255, 0, 0))
Call G1.DRAWTEXT(1000,600, "1000,600", RGB(255, 0, 0))
Call G1.DRAWTEXT(1200,600, "1200,600", RGB(255, 0, 0))
Call G1.DRAWTEXT(1400,600, "1400,600", RGB(255, 0, 0))
Call G1.DRAWTEXT(1600,600, "1600,600", RGB(255, 0, 0))
Set G1 = Nothing
End Sub