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

 Coger Color

(1/2) > >>

jodijo5:
hola amigos, cual es el equivalente de poner en vb6.0:

--- Código: Text --- msgbox(picturebox1.point)  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.

jodijo5:
que acaso nadie me puede ayudar?

senzao18:
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 .....-

jodijo5:

--- Citar ---que acaso nadie me puede ayudar?
--- Fin de la cita ---
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 --- Public Event click(nombre As String)Public Event departamento(nombre As String)Private m_nombre As StringPrivate Sub Picture1_Click()RaiseEvent click(m_nombre)End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)    Select Case Picture1.Point(X, Y)        Case 13434726: Label1.Caption = "loreto"        Case 52479: Label1.Caption = "amazonas"        Case 16501163: Label1.Caption = "cajamarca"        Case 13959067: Label1.Caption = "tumbes"        Case 8650495: Label1.Caption = "piura"        Case 10066431: Label1.Caption = "lambayeque"        Case 16711935: Label1.Caption = "la libertad"        Case 16499965: Label1.Caption = "ancash"        Case 16776960: Label1.Caption = "lima"        Case 10527743: Label1.Caption = "ica"        Case 16173747: Label1.Caption = "arequipa"        Case 7995135: Label1.Caption = "moquegua"        Case 10132980: Label1.Caption = "tacna"        Case 16764159: Label1.Caption = "puno"        Case 16711833: Label1.Caption = "cusco"        Case 16766719: Label1.Caption = "apurimac"        Case 255: Label1.Caption = "ayacucho"        Case 5233149: Label1.Caption = "huancavelica"        Case 10027161: Label1.Caption = "junin"        Case 10149515: Label1.Caption = "pasco"        Case 6414335: Label1.Caption = "huanuco"        Case 10659583: Label1.Caption = "san martin"        Case 16236196: Label1.Caption = "ucayali"        Case 5427449: Label1.Caption = "madre de dios"        Case Else            Label1.Caption = ""    End Select    If (Label1.Caption = "") Then        Label1.Visible = False    Else        Label1.Visible = True        Label1.Left = X + Label1.Height        Label1.Top = Y        RaiseEvent departamento(Label1.Caption)        m_nombre = Label1.Caption    End IfEnd Sub  
muchas gracias por su ayuda

jodijo5:
adjunto foto de mi ocx

Navegación

[0] Índice de Mensajes

[#] Página Siguiente