Visual Basic - problemas con coordenadas vb 2010

Life is soft - evento anual de software empresarial
   
Vista:

problemas con coordenadas vb 2010

Publicado por carlos alberto kikisvv@hotmail.com (2 intervenciones) el 10/11/2014 18:39:21
hola a todos , tengo una duda y espero y me puedan ayudar , me dejaron de trabajo que en una imagen ( con algun ti´po de mapa ) al dar click con el mouse a alguna de sus ubicaciones me muestre un msg box pero todo esto por medio de cordenadas , ¿alguna idea de como hacerlo ?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

problemas con coordenadas vb 2010

Publicado por Horroroso (10 intervenciones) el 11/11/2014 17:09:05
Pero que es lo que necesitas saber?, las coordenadas?
Con el evento MouseDown en la clase System.Windows.Forms.MouseEventArgs estan las propiedades X y Y, que son precisamente las coordenadas donde diste click.

De cualquier forma, te doy un ejemplo de como hacerlo, copia el codigo en un formulario:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim gpath1 As New System.Drawing.Drawing2D.GraphicsPath
    Dim gpath2 As New System.Drawing.Drawing2D.GraphicsPath
 
    Dim Region1 As System.Drawing.Region
    Dim Region2 As System.Drawing.Region
 
    Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        gpath1.AddRectangle(New Rectangle(10, 10, 25, 20))
        gpath1.AddEllipse(New Rectangle(20, 20, 30, 20))
        gpath1.AddPolygon(New PointF() {New PointF(30, 30), New PointF(40, 30), New PointF(60, 60), New PointF(60, 45), New PointF(30, 40)})
 
        gpath2.AddRectangle(New Rectangle(10, 50, 30, 20))
 
 
        Region1 = New System.Drawing.Region(gpath1)
        Region2 = New System.Drawing.Region(gpath2)
    End Sub
    Private Sub Form_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
 
        If Region1.IsVisible(e.X, e.Y) Then
            MessageBox.Show("Rojo")
        End If
        If Region2.IsVisible(e.X, e.Y) Then
            MessageBox.Show("Azul")
        End If
 
    End Sub
    Private Sub Form_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        e.Graphics.FillPath(Brushes.Red, gpath1) 'Esto se puede omitir, es solo para mostrar la region.
        e.Graphics.FillPath(Brushes.Blue, gpath2) 'Esto se puede omitir, es solo para mostrar la region.
    End Sub
Avisanos como te fue.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

problemas con coordenadas vb 2010

Publicado por Lupita (1 intervención) el 14/11/2014 14:32:56
Se dan las gracias carlos xd
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

problemas con coordenadas vb 2010

Publicado por Laura Gutierrez (1 intervención) el 14/11/2014 14:41:09
Dale las "GRACIAS" mínimo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

problemas con coordenadas vb 2010

Publicado por carlos (2 intervenciones) el 14/11/2014 14:49:14
haha gracias n.n , si me sirvio mucho tu ejemplo y perdon , no habia visto tu respuesta hasta hoy :s
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar