Hola Pedro. Gracias por mencionarme, pero no es para tanto tampoco :D
Quiero agregar un comentario que tal vez olvidaste mencionar, y es que a la hora de dibujar en un PictureBox debemos tener en cuenta que su ejeY está invertido.
Todos estamos acostumbrados a que el cero absoluto se encuentra abajo a la izquierda.
En el PictureBox(al igual que la mayoria de los controles) el cero absoluto se encuentra arriba a la izquierda.
Por lo que puede por ahí confundir a la hora de dibujar en el PictureBox.
La imagen:
(http://www.todopic.com.ar/foros/index.php?action=dlattach;topic=16233.0;attach=4045)
Matematicamente significa que: o bien nos adaptamos a usarlo invertido o bien lo corregimos sabiendo que:
nuestro 0 es en realidad Picture1.Height
y que nuestro Picture1.Height es 0
Otra cosa importante es dibujar texto en un PictureBox. Y puede que muchos siquiera saben o sabían que se puede "pintar" texto en un PictureBox.
He hecho aquí un ejemplo para que lo vayan masticando.
Simplemente copien y peguen el siguiente código dentro del evento Form_Load()
'Declaramos el objeto
Dim Picture1 As PictureBox
'Variable que contendra la cadena de texto a dibujar en el PictureBox
Dim Texto As String
'Creacion de un control desde codigo
Set Picture1 = Me.Controls.Add("vb.PictureBox", "NewPictureBox1")
With Picture1
'Movemos y redimensionamos el PictureBox dentro del Form1 a gusto
.Move 100, 100, 5000, 4000
'Seteamos que queremos fondo blanco
.BackColor = vbWhite
'Que "recuerde" lo que dibujaremos a continuacion
.AutoRedraw = True
'Lo hacemos visible
.Visible = True
End With
Texto = "Picture1"
With Picture1
'Vamos a dibujar con Negrita
.Font.Bold = True
'Tamaño 14 px
.Font.Size = 14
'Color Rojo
.ForeColor = vbRed
'Indicamos posicion X dentro del PictureBox donde comenzaremos a dibujar el texto
.CurrentX = Picture1.Width / 2 - Picture1.TextWidth(Texto) / 2
'Indicamos posicion Y dentro del PictureBox donde comenzaremos a dibujar el texto
.CurrentY = Picture1.Height / 2 - Picture1.TextHeight(Texto) / 2
End With
'Finalmente, enviamos a dibujar el texto al PictureBox
Picture1.Print Texto
El resultado es este:
(http://www.todopic.com.ar/foros/index.php?action=dlattach;topic=16233.0;attach=4047)
Analicen también el código utilizado para centrar el Texto a dibujar en el PictureBox.
Saludos y seguí asi Pedro con buenos tutos.
Holaaaaa:
Quería dejarles un regalo para esta navidad del 2008, pero se me complicó un poco el asunto.
De todas maneras como era un regalo y a caballo regalado no se le mira los defectos, aquí está en .Zip.
Recuerde que para ver la onda hay que hacer un puente en el conector rs232. Los pines 2-3 un cablecito y ya.
Gracias a Palitroquez, por su explicación en todo este tema.
Unas Capturas de muestra...
En esta no se ve la forma de la onda en el VB programa, por no estar conectados los pines 2-3 del rs232.
Pero se vé un dispositivo externo, recibiendo señal rs232 y graficando la onda senidal.
(http://img377.imageshack.us/img377/8323/captura1fp8.png) (http://imageshack.us)
---
Aquí se puede apreciar el defecto y la forma de la onda, no pude quitarle esos trazos en los extremos. Hice cuanto pude.
Por lo demás trabaja bién.
(http://img377.imageshack.us/img377/381/captura2tw6.png) (http://imageshack.us)
(http://img377.imageshack.us/img377/captura2tw6.png/1/w438.png) (http://g.imageshack.us/img377/captura2tw6.png/1/)
Gracias a Palitroquez!!!!!! ------ Gracias a Palitroquez!!!!!! ------- Gracias a Palitroquez!!!!!!
Feliz Navidad a Todos...Jojojojojojojojojo :-/ :-/ :-/
Bye('_').....