CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Graficos persistentes en VB2005

<< < (2/2)

Jimbenit:

--- Cita de: "[color=#40FF00 ---Nebire[/color]"]
No necesito imaginarlo, te aseguro que veo el código sin siquiera escribirlo

--- Fin de la cita ---
Esta frase es totalmente cierta... Tenias razón amigo...

Me doy cuenta que haciendo un pequeño ejemplo con tu código, tu código funciona perfecto...
Me funcionó bien...
Acontinuación Mira tu código con un simple ejemplo de dibujar unas lieneas persistentes:


--- Código: vb.net ---' suele ser útil si vamos a emplear mucho gráfico importar la claseImports System.Drawing.Graphics  Public Class Form1    Dim Xo, Yo, Xf, Yf As Integer     Public Sub Dibujo(ByVal PictureKE As PictureBox)        Dim p = New Pen(Color.Red, 2) ' Creo una 'brocha' del color y ancho indicados         Xf = PictureKE.Width        Yf = PictureKE.Height          ' cuando queremos utilizar un gráfico a nivel de formulario suele ser útil describir una variable para usar los gráficos        Dim g As Graphics         ' para usarlo en un momento dado, por ejemplo en un picturebox        g = PictureKE.CreateGraphics  ' esto indica que g vamos a usarlo dentro del picturebox1         g.Clear(PictureKE.BackColor)         ' finalmente de ejemplo una línea:        g.DrawLine(p, Xo, Yo, Xf, Yf)  ' el pen que indicamos, y las cordenadas todas juntitas...    End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Xo = Xo + 50        If Xo = 400 Then : Xo = 0 : Yo = Yo + 50 : End If        If Yo = 300 Then Yo = 0         Call Dibujo(Me.PictureBox1)    End Sub     Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint        Call Dibujo(Me.PictureBox1)    End SubEnd Class 
Esto era lo que necesitaba...
Gracias Nebire
Saludos.

Navegación

[0] Índice de Mensajes

[*] Página Anterior