

Fitxer: m6p1.frm
Definició dels objectes. Interfície d'usuari.
Recordeu que això no ho podeu editar directament. Per editar-ho es fa incorporant nous objectes
de la paleta en el vostre formulari. I per canviar els valors ho feu sel.leccionant l'objecte i
escolliu la propietat a canviar en la finestra Properties.
VERSION 5.00
Begin VB.Form Form1
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "Primeres instruccions de dibuix"
ClientHeight = 3570
ClientLeft = 1095
ClientTop = 1485
ClientWidth = 5970
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
LinkTopic = "Form1"
PaletteMode = 1 'UseZOrder
ScaleHeight = 3570
ScaleWidth = 5970
End
Codi del programa. Programació de respostes a events.
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
Dim Pi As Single
Dim i As Integer
Pi = 4 * Atn(1)
CurrentX = 0
CurrentY = 0
Print "Hola món, estic viu"
Line (1000, 2000)-(4000, 1000) 'Fa una línia del punt (1000,2000) al punt (4000,1000)
FillStyle = 1 'Transparent (Cap color)
Line (400, 300)-(700, 800), QBColor(5), B 'Fa un rectangle (Paràmetre B)
'Fa un rectangle omplert de color (Paràmetre BF)
Line (1700, 300)-(2000, 800), RGB(Rnd * 255, Rnd * 255, Rnd * 255), BF
Line -Step(500, 500) 'Fa una línia del punt (2000,800) al punt relatiu a aquets (500,500)
Circle (600, 1400), 300, RGB(Rnd * 255, Rnd * 255, Rnd * 255) 'Fa una circumferència
FillColor = QBColor(Rnd * 15) 'Color per omplir
FillStyle = 0 'Solid
Circle (4000, 1400), 300, QBColor(6), , , 0.8 'Fa una el·lipse
Circle (4000, 550), 300, QBColor(6), 0, Pi / 2, 0.8 'Fa un arc d'el·lipse
For i = 1 To 4500 Step 100
PSet (i, 2500), QBColor(4) ''Posa un punt en les coordenades (i,2500) de color 4.
Next i
End Sub
Private Sub Form_DblClick()
Cls
End Sub