dibujar 3 puntos en un picturebox

[AnaCarolina28]

quiero dibujar 3 puntos en un picturebox y no se como hacerlo.
solo que al darle click en un commandbutton dibujen los 3 puntos.

[MCKSys Argentina]

Hola!

Dibujar 2 puntos en un picturebox:

Código (vb) [Seleccionar] Expandir


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

Saludos!

[okik]

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

Código (vb) [Seleccionar] Expandir

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

Código (vbnet) [Seleccionar] Expandir

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

Código (vbnet) [Seleccionar] Expandir

    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