• Lunes 23 de Diciembre de 2024, 00:07
« anterior próximo »
Páginas: [1]

Autor Tema:  Coger Color  (Leído 1701 veces)

jodijo5

  • Miembro HIPER activo
  • ****
  • Mensajes: 518
  • Nacionalidad: pe
    • Ver Perfil
    • http://www.bluetecnologia.com
Coger Color
« en: Miércoles 19 de Abril de 2006, 23:17 »
0
hola amigos, cual es el equivalente de poner en vb6.0:
Código: Text
  1.  msgbox(picturebox1.point)
  2.  
ahora para pasarlo a vb.net

cabe resaltar que el metodo "point" devuelve un valor long, correspondiente al color RGB sobre el cual el puntero del mouse esta situado.
=============================
Daniel Pomalaza Mendoza
visita el Dinosaurio Azul :-D
http://bluetecnologia.com

jodijo5

  • Miembro HIPER activo
  • ****
  • Mensajes: 518
  • Nacionalidad: pe
    • Ver Perfil
    • http://www.bluetecnologia.com
Re: Coger Color
« Respuesta #1 en: Viernes 21 de Abril de 2006, 21:20 »
0
que acaso nadie me puede ayudar?
=============================
Daniel Pomalaza Mendoza
visita el Dinosaurio Azul :-D
http://bluetecnologia.com

senzao18

  • Miembro HIPER activo
  • ****
  • Mensajes: 553
    • Ver Perfil
Re: Coger Color
« Respuesta #2 en: Sábado 22 de Abril de 2006, 17:41 »
0
Mira amigito..... Aqui todos queremos ayudar..  :P .

Solo que en ocasiones no hay time...  :(

Yo en mi programa de Fotomosaicos lo saco de la siguiente forma....

CType(Me.PictureBox1.Image(), Bitmap).GetPixel(Px, Py).ToArgb()

Solo tendrias que acomodar el evento creo que es el MosuseOver del Picture con tu imagen para sacar Px y Py.....

Bueno espero que te sea de utilidad......

Y si tienes otra solucion hasla saber  :lol:  :D .....-
---------------------------------------
Erick Aragon Zepeda
Dessarrollo de Aplicaciones .NET
http]
Blog de Articulos
Mi Blog
NoSolocodigo -->

jodijo5

  • Miembro HIPER activo
  • ****
  • Mensajes: 518
  • Nacionalidad: pe
    • Ver Perfil
    • http://www.bluetecnologia.com
Re: Coger Color
« Respuesta #3 en: Sábado 22 de Abril de 2006, 17:50 »
0
Citar
que acaso nadie me puede ayudar?
bueno esque no se me ocurrio otra cosa para que mi discucion pasara a ser la primera en la lista y asi poder conseguir una repuesta, espero no me malinterpreten, bueno, como estaba apurado por acabar la aplicacion, pues lo que hice fue retroceder de tecnologia a vb6.0, y crear un OCX que me hiciera lo mismo, este es mi codigo:
Código: Text
  1.  
  2. Public Event click(nombre As String)
  3. Public Event departamento(nombre As String)
  4. Private m_nombre As String
  5. Private Sub Picture1_Click()
  6. RaiseEvent click(m_nombre)
  7. End Sub
  8.  
  9. Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  10.     Select Case Picture1.Point(X, Y)
  11.         Case 13434726: Label1.Caption = "loreto"
  12.         Case 52479: Label1.Caption = "amazonas"
  13.         Case 16501163: Label1.Caption = "cajamarca"
  14.         Case 13959067: Label1.Caption = "tumbes"
  15.         Case 8650495: Label1.Caption = "piura"
  16.         Case 10066431: Label1.Caption = "lambayeque"
  17.         Case 16711935: Label1.Caption = "la libertad"
  18.         Case 16499965: Label1.Caption = "ancash"
  19.         Case 16776960: Label1.Caption = "lima"
  20.         Case 10527743: Label1.Caption = "ica"
  21.         Case 16173747: Label1.Caption = "arequipa"
  22.         Case 7995135: Label1.Caption = "moquegua"
  23.         Case 10132980: Label1.Caption = "tacna"
  24.         Case 16764159: Label1.Caption = "puno"
  25.         Case 16711833: Label1.Caption = "cusco"
  26.         Case 16766719: Label1.Caption = "apurimac"
  27.         Case 255: Label1.Caption = "ayacucho"
  28.         Case 5233149: Label1.Caption = "huancavelica"
  29.         Case 10027161: Label1.Caption = "junin"
  30.         Case 10149515: Label1.Caption = "pasco"
  31.         Case 6414335: Label1.Caption = "huanuco"
  32.         Case 10659583: Label1.Caption = "san martin"
  33.         Case 16236196: Label1.Caption = "ucayali"
  34.         Case 5427449: Label1.Caption = "madre de dios"
  35.         Case Else
  36.             Label1.Caption = ""
  37.     End Select
  38.     If (Label1.Caption = "") Then
  39.         Label1.Visible = False
  40.     Else
  41.         Label1.Visible = True
  42.         Label1.Left = X + Label1.Height
  43.         Label1.Top = Y
  44.         RaiseEvent departamento(Label1.Caption)
  45.         m_nombre = Label1.Caption
  46.     End If
  47. End Sub
  48.  
  49.  

muchas gracias por su ayuda
=============================
Daniel Pomalaza Mendoza
visita el Dinosaurio Azul :-D
http://bluetecnologia.com

jodijo5

  • Miembro HIPER activo
  • ****
  • Mensajes: 518
  • Nacionalidad: pe
    • Ver Perfil
    • http://www.bluetecnologia.com
Re: Coger Color
« Respuesta #4 en: Sábado 22 de Abril de 2006, 18:06 »
0
adjunto foto de mi ocx
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.
=============================
Daniel Pomalaza Mendoza
visita el Dinosaurio Azul :-D
http://bluetecnologia.com

senzao18

  • Miembro HIPER activo
  • ****
  • Mensajes: 553
    • Ver Perfil
Re: Coger Color
« Respuesta #5 en: Domingo 23 de Abril de 2006, 08:01 »
0
Nunca me ha gustado ese tipo de soluciones pero en fin se resulta adelante jaja :D.....

En lo personal odio que se haga funcionalidad en VB 6.0 para ser aplicada en .Net.

Pero es muy mi punto de vista. :D

Lo que pasa es que eh tenido problemas con un compañero de trabajo de que todo lo hace en VB 6.0 y nos pasa los explotacomponentes  :angry: .
---------------------------------------
Erick Aragon Zepeda
Dessarrollo de Aplicaciones .NET
http]
Blog de Articulos
Mi Blog
NoSolocodigo -->

jodijo5

  • Miembro HIPER activo
  • ****
  • Mensajes: 518
  • Nacionalidad: pe
    • Ver Perfil
    • http://www.bluetecnologia.com
Re: Coger Color
« Respuesta #6 en: Lunes 24 de Abril de 2006, 05:00 »
0
bueno y te apoyo en tu opinion, bueno, a mi tampoco me gusta retroceder a otra tecnologia, pero bueno era la unica solucion que vio por el momento
=============================
Daniel Pomalaza Mendoza
visita el Dinosaurio Azul :-D
http://bluetecnologia.com
Páginas: [1]
« anterior próximo »