PICTURE LINE

GERARDA 05/09/2010 12:32:11
#352281 Resposta escolhida

experimenta ai


Private Sub Command1_Click()
Picture1.Line (50, 50)-(1000, 1000)
Picture1.Line (1000, 1000)-(50, 500)

End Sub

Private Sub Command2_Click()
Picture2.SetFocus
Picture2.Picture = Picture1.Image
End Sub
Private Sub Form_Load()
[ô] Establece AutoRedraw a True.
Picture1.AutoRedraw = True
End Sub

Private Sub Picture1_Click()
[ô] Declara variables.
Dim PW, PH
[ô] Establece FillStyle a sólido.
Picture1.FillStyle = vbFSSolid
[ô] Elige un color aleatorio.
Picture1.FillColor = QBColor(Int(Rnd * 15))
PW = Picture1.ScaleWidth [ô] Establece ScaleWidth.
PH = Picture1.ScaleHeight [ô] Establece ScaleHeight.
[ô] Dibuja un círculo en una ubicación aleatoria.
Picture1.Circle (Int(Rnd * PW), Int(Rnd * PH)), 250
End Sub

Private Sub Picture2_Click()
[ô] Copia Image a Picture2.
Picture2.Picture = Picture1.Image
End Sub

ve se funciona

EPISCOPAL 05/09/2010 16:02:39
#352300

Picture2.Picture = Picture1.Image


era isso o que eu queria ............ tão simples e eu quebrei a cabaça aki

valeuuuu Gerarrrrrrrrrrrrrda