quiero dibujar 3 puntos en un picturebox y no se como hacerlo.
solo que al darle click en un commandbutton dibujen los 3 puntos.
Hola!
Dibujar 2 puntos en un picturebox:
Private Sub Command1_Click()
Picture1.PSet (60, 60), RGB(255, 0, 0) 'dibuja un punto rojo en 60,60
Picture1.PSet (120, 120), RGB(0, 0, 255) 'dibuja un punto azul en 120,120
End Sub
Mas info: click (http://www.recursosvisualbasic.com.ar/htm/tutoriales/metodos-graficos.htm)
Saludos!
Hola,
Al decir tres puntos no especificas si lo quieres en un lugar concreto, de forma aleatoria, o bien los tres seguidos es decir "..."
Forma 1. "Tres puntos seguidos ..." en VB6
With Picture1
.AutoRedraw = True
.Font = "Arial" 'tipo de fuente
.Font.Size = 50 'tamaño de fuente
.CurrentX = 200 'Posición 10 pixels de izquierda a derecha
.CurrentY = 0 'Posición 10 pixels de arriba a abajo
Picture1.Print "..."
End With
Forma 1. "Tres puntos seguidos ..." en VB.Net
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PictureBox1.CreateGraphics.DrawString("...", New Font("Arial", 50, FontStyle.Bold, GraphicsUnit.Point, 2) _
, Brushes.Brown, 0, 0)
End Sub
Forma 2.Esto dibuja tres puntos circulares de forma aleatoria dentro de un picture con VB. Net
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Lapiz As Object
Dim Grosor As Integer
Dim Color As Color
Dim PosicionX As Integer
Dim PosicionY As Integer
Grosor = 5 'Grosor del punto
Color = Color.HotPink 'Color del punto (rosa)
Lapiz = New Pen(Color, Grosor) 'Lapiz(pen) para pintar el punto
PictureBox1.Refresh() 'Limpia el picture
For I = 1 To 3
'Posición en el eje X, Y del punto de forma aleatoria
PosicionX = Int(Rnd() * PictureBox1.Width - 1) + 1 'obtiene una posición X dentro del picture
PosicionY = Int(Rnd() * PictureBox1.Height - 1) + 1 'obtiene una posición y dentro del picture
'Dibuja el punto
PictureBox1.CreateGraphics.DrawEllipse(Lapiz, PosicionX, PosicionY, Grosor, Grosor)
Next I
End Sub