Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Numeros en 14 Septiembre 2005, 07:50 am



Título: Algo como el Paint de windows me serviria..
Publicado por: Numeros en 14 Septiembre 2005, 07:50 am
Hola foro! Les parecera broma pero necesito que alguien me oriente como hacer una aplicacion parecida al Paint de windows con VB donde pueda manipular posteriormente la imagen del dibujo mediante codigo. Lo que necesito es crear un campo donde poder dibujar firmas digitales para poner en ciertos documentos. Ya he visto un control o driver para esto pero solo me sirve para el mouse y necesito que trabaje tambien con lapiz opticos y pantallas tactiles. Donde algo como el Paint si me serviria. Alguien sabe como usar algun componente del propio Paint presente en windows para tales efectos o mejor aun mediante las Apis?

Salud2 y gracias por adelantado!


Título: Re: Algo como el Paint de windows me serviria..
Publicado por: ANELKAOS en 14 Septiembre 2005, 10:41 am
Yo hice mi propio Paint en clase de VB y te aseguro que ni componentes extraños ni nada, es de lo mas sencillo lo del Pinta y colorea  :D Busca en la ayuda que te sorprenderás.


Título: Re: Algo como el Paint de windows me serviria..
Publicado por: Slasher-K en 15 Septiembre 2005, 08:34 am
Usa los métodos gráficos que ya trae incorporado los controles PictureBox, por ejemplo o los formularios.

Métodos gráficos
Line
Circle
PSet
Point

Y para las escalas que te permiten trabajar en distintos sistemas de coordenadas existen los siguientes propiedades y métodos:

Scale
ScaleX
ScaleY
ScaleLeft
ScaleTop
ScaleWidth
ScaleHeight
ScaleMode

Saludos.


Título: Re: Algo como el Paint de windows me serviria..
Publicado por: NYlOn en 16 Septiembre 2005, 02:18 am
hola Numer0s
mira, no se bien como funcionan los lapiz digitales y toda esa onda, pero si es como mover le mouse aca tenes un sencillisimo ejemplo de como dibujar en un Picutre...
usand0 un control llamado Picture1
Código:
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 1 Then
        Picture1.PSet (x, y)
    End If
End Sub

esper0 que sea mas o menos lo que buscabas xD
el grosor de la linea lo controlas con la propiedad "DrawWidth"

un salud0


Título: Re: Algo como el Paint de windows me serviria..
Publicado por: Numeros en 16 Septiembre 2005, 16:45 pm
 :D Gracias a todos por vuestra gran ayuda.. pues hasta el momento no me habia puesto para esto de aplicar los metodos graficos en VB.
Saludos.


Título: Re: Algo como el Paint de windows me serviria..
Publicado por: NYlOn en 16 Septiembre 2005, 19:24 pm
de nada numerin ;)

un abraz0

cya