azz.ciccio (Normal User)
Pro
 
Messaggi: 74
Iscritto: 08/04/2009
|
saro' tardo ma mi sono arenato su una cosa stupida....
questo spezzone di codice dovrebbe vorrei che mi disegnasse una linea bianca di 20pixel
pero' viene fuori una linea obliqua....
Codice sorgente - presumibilmente Visual Basic 6 |
Private Sub Command11_Click()
Picture1.Line (10, 100)-(30, 100), vbWhite
'x1 y1 x2 y2
End Sub
|
idee?
grazie
|
|
|
ruggy94 (Member)
Guru
Messaggi: 890
Iscritto: 21/04/2008
|
 come fa a venire obliqua?? cioè...se i due punti hanno la stessa Y non può essere obliqua  correggetemi se sbaglio...
|
|
|
Alceus (Member)
Expert
Messaggi: 288
Iscritto: 22/07/2008
|
Devi impostare la proprietà ScaleMode della Picture1 a "3 - Pixel"
Ultima modifica effettuata da Alceus il 09/04/2009 alle 13:30 |
|
|
azz.ciccio (Normal User)
Pro
Messaggi: 74
Iscritto: 08/04/2009
|
Postato originariamente da Alceus:
Devi impostare la proprietà ScaleMode della Picture1 a "3 - Pixel" |
ok, fatto adesso quasi ci siamo.
ho messo questo codice pero' non capisco perche' le linee mi vengono storte....
Codice sorgente - presumibilmente VB.NET |
Private Sub Command15_Click() Picture1.ScaleMode = 3 For X1 = 0 To ScaleWidth Step (10) Picture1.Line (X1, Y1)-(X2, Y2), vbWhite Next X1 For Y2 = 0 To ScaleHeight Step (10) Picture1.Line (X1, Y1)-(X2, Y2), vbWhite Next Y2 For Y2 = 0 To ScaleWidth Step (10) Picture1.Line (X1, Y1)-(X2, Y2), &H80000011 Next Y2 For X1 = 0 To ScaleHeight Step (10) Picture1.Line (X1, Y1)-(X2, Y2), &H80000011 Next X1 End Sub
|
grazie
A. |
|
|
Alceus (Member)
Expert
Messaggi: 288
Iscritto: 22/07/2008
|
Puoi sostituire il tuo codice con questo:
Codice sorgente - presumibilmente VB.NET |
Private Sub Command15_Click() Picture1.ScaleMode = 3 For X1 = 0 To ScaleWidth Step 10 For Y1 = 0 To ScaleHeight Step 10 Picture1.Line (X1, Y1)-(X1, ScaleWidth), &H80000011 Next Y1 Next X1 For X2 = 0 To ScaleWidth Step 10 For Y2 = 0 To ScaleHeight Step 10 Picture1.Line (X2, Y2)-(ScaleHeight, Y2), &H80000011 Next Y2 Next X2 End Sub
|
|
|
|
azz.ciccio (Normal User)
Pro
Messaggi: 74
Iscritto: 08/04/2009
|
Postato originariamente da Alceus:
Puoi sostituire il tuo codice con questo:
Codice sorgente - presumibilmente VB.NET |
Private Sub Command15_Click() Picture1.ScaleMode = 3 For X1 = 0 To ScaleWidth Step 10 For Y1 = 0 To ScaleHeight Step 10 Picture1.Line (X1, Y1)-(X1, ScaleWidth), &H80000011 Next Y1 Next X1 For X2 = 0 To ScaleWidth Step 10 For Y2 = 0 To ScaleHeight Step 10 Picture1.Line (X2, Y2)-(ScaleHeight, Y2), &H80000011 Next Y2 Next X2 End Sub
|
|
si, adesso le linee sono perfette peccatto che ci mette circa 2 minuti per fare la griglia..... |
|
|
