

Fitxer: m6p7.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 frmGrāfic
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "Dibuix a la impressora"
ClientHeight = 3645
ClientLeft = 2430
ClientTop = 2565
ClientWidth = 3780
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 = 3645
ScaleWidth = 3780
Begin VB.Menu mnuDibuix
Caption = "Dibuix"
Begin VB.Menu mnuPantalla
Caption = "Per pantalla"
End
Begin VB.Menu mnuImpressora
Caption = "Per impressora"
End
End
End
Codi del programa. Programaciķ de respostes a events.
Attribute VB_Name = "frmGrāfic"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnuImpressora_Click()
Dim LLargPaper As Single, AltPaper
Dim VertexAX As Integer, VertexAY As Integer
Dim VertexBX As Integer, VertexBY As Integer
Dim i As Integer
'Mida del paper Din A4 menys els marges
LLargPaper = 210
AltPaper = 297
'Posa el sistema de coordenades amb origen en el centre del paper i mides DIN A4
Printer.ScaleMode = 6
VertexAX = -(LLargPaper / 2)
VertexAY = (AltPaper / 2)
VertexBX = (LLargPaper / 2)
VertexBY = -(AltPaper / 2)
'Printer.Scale (VertexAX, VertexAY)-(VertexBX, VertexBY)
'Canviat d'ordre
Printer.Scale (VertexBX, VertexBY)-(VertexAX, VertexAY)
'Dibuixa el cercle gros
Printer.FillStyle = 1 'Transparent
Printer.Circle (0, 0), 90
'Dibuixa els cercles
Printer.FillStyle = 0 'Solid
For i = 4 To 1 Step -1
Printer.FillColor = QBColor(i)
Printer.Circle (0, 0), i * 10
Next
'Dibuixa els rectangles amunt els cercles
For i = 50 To 80 Step 10
Printer.Line (-20, i + 10)-(20, i), QBColor(i / 10), BF
Next
'Dibuixa els rectangles sota els cercles
For i = -50 To -80 Step -10
Printer.Line (-20, i - 10)-(20, i), QBColor(-i / 10), BF
Next
'Fa la línia de cercles final
For i = -90 To 90 Step 5
Printer.Circle (i, -100), 1
Next
'Fa la línies rectes
Printer.Line (90, 100)-(-90, -100)
Printer.Line -(0, 130)
Printer.Line -(90, -100)
Printer.Line -(90, 100)
Printer.EndDoc
End Sub
Private Sub mnuPantalla_Click()
Dim LLargPaper As Single, AltPaper
Dim VertexAX As Integer, VertexAY As Integer
Dim VertexBX As Integer, VertexBY As Integer
Dim i As Integer
'Mida del paper Din A4 menys els marges
LLargPaper = 210
AltPaper = 297
'Posa el sistema de coordenades amb origen en el centre del paper i mides DIN A4
frmGrāfic.ScaleMode = 6
VertexAX = -(LLargPaper / 2)
VertexAY = (AltPaper / 2)
VertexBX = (LLargPaper / 2)
VertexBY = -(AltPaper / 2)
frmGrāfic.Scale (VertexAX, VertexAY)-(VertexBX, VertexBY)
'Dibuixa el cercle gros
frmGrāfic.FillStyle = 1 'Transparent
frmGrāfic.Circle (0, 0), 90
'Dibuixa els cercles
frmGrāfic.FillStyle = 0 'Solid
For i = 4 To 1 Step -1
frmGrāfic.FillColor = QBColor(i)
frmGrāfic.Circle (0, 0), i * 10
Next
'Dibuixa els rectangles amunt els cercles
For i = 50 To 80 Step 10
frmGrāfic.Line (-20, i + 10)-(20, i), QBColor(i / 10), BF
Next
'Dibuixa els rectangles sota els cercles
For i = -50 To -80 Step -10
frmGrāfic.Line (-20, i - 10)-(20, i), QBColor(-i / 10), BF
Next
'Fa la línia de cercles final
For i = -90 To 90 Step 5
frmGrāfic.Circle (i, -100), 1
Next
'Fa la línies rectes
frmGrāfic.Line (90, 100)-(-90, -100)
frmGrāfic.Line -(0, 130)
frmGrāfic.Line -(90, -100)
frmGrāfic.Line -(90, 100)
End Sub