Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Utilizando Un DrawingArea Con Gb.map En Lugar De Un MapView
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Utilizando Un DrawingArea Con Gb.map En Lugar De Un MapView 
 
Con el Componente gb.map, normalmente, se utiliza el objeto MapView, pero es posible también usar un DrawingArea.

Para este ejemplo hace falta poner sobre el Form un DrawingArea, un Slider y un LCDLabel, y tambien activar los Componentes gb.map, gb.qt5 y gb.qt5.ext .

Private hMap As New Map
Private x As Integer
Private y As Integer
Private mp As MapPoint
Private pt As New Point
Private coo As Boolean
  
  
Public Sub _New()    

  With hMap
    .AddTile("GoogleMaps", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "800"]).SubDomains = ["0", "1", "2"]
'' Ad honorem nostri excellentissimi romani Consulis  Shell !
    mp = MapPoint(36.528318, -6.293677)
    .Center = mp
  End With
  With Me  
    .W = Desktop.W
    .H = Desktop.H  
  End With
  With DrawingArea1  
    .X = Me.W * 0.007
    .Y = Me.H * 0.01
    .W = Me.W * 0.96
    .H = Me.H * 0.95
  End With
  With LCDLabel1
    .X = Me.W * 0.967
    .Y = Me.H * 0.04
    .W = Me.W * 0.02
    .H = Me.H * 0.02
    .Alignment = Align.Right
    .Foreground = Color.Red
    .Font.Size = 18
    .Font.Bold = True
  End With
  
End
  
  
Public Sub Form_Open()

  With Slider1
    .X = Me.W * 0.975
    .Y = Me.H * 0.07
    .Value = 6
    .MaxValue = 18
    .MinValue = 6
  End With
  
  hMap.Zoom = Slider1.Value  
  
  DrawingArea1.Refresh()
  
End    
  
  
Public Sub DrawingArea1_Draw()

  Dim lat, lon As Float
  
  With hMap
    .Width = Paint.W
    .Height = Paint.H
    .Draw()
  End With

  lat = hMap.PixelToMapPointRel(pt).Lat
  lon = hMap.PixelToMapPointRel(pt).Lon

  If coo Then
    With Paint
      .Brush = Paint.Color(Color.Red)
      .Font.Size = 16
      .Ellipse(x - 1, y - 1, 4, 4)
      .Font.Size = 8
      .Text(" " & Geo.DecToSex(lat, 1) & "\n " & Geo.DecToSex(lon, 2), x, y, 120, 20)
      .Fill
      .End
    End With
  Endif

  DrawingArea1.Refresh()

End
  
  
Public Sub DrawingArea1_MouseMove()  

  Dim c As New Single[18]
  Dim mx, my As Short
  
  c = [0, 0, 0, 0, 0, 5, 6.4, 7.6, 8.8, 9.9, 10.9, 11.9, 12.94, 13.96, 14.98, 15.98, 16.99, 17.994]
  
  mx = (x - Mouse.X)
  my = (y - Mouse.Y)
  
  With hMap  
    .Center.Lat -= ((my ^ 0) * my) / ((Slider1.Value * 10) / (Slider1.Value - c[Slider1.Value - 1]))
    .Center.Lon += ((mx ^ 0) * mx) / ((Slider1.Value * 10) / (Slider1.Value - c[Slider1.Value - 1]))
  End With
  
  x = Mouse.X  
  y = Mouse.Y  
  
End  
 
 
Public Sub DrawingArea1_MouseDown()  

  pt = pt(Mouse.X, Mouse.Y)
  x = Mouse.X  
  y = Mouse.Y  
  coo = False

End

Public Sub Slider1_Change()
  
  hMap.Zoom = Slider1.Value
  LCDLabel1.Value = Slider1.Value
  coo = False
  
End  

Public Sub DrawingArea1_MouseUp()

  pt = pt(Mouse.X, Mouse.Y)
  mp = MapPoint(hMap.PixelToMapPointRel(pt).Lat, hMap.PixelToMapPointRel(pt).Lon)
  coo = True

End


Public Sub Form_Close()

  Quit

End

 



 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Utilizando Un DrawingArea Con Gb.map En Lugar De Un MapView 
 
Muy bueno!
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Utilizando Un DrawingArea Con Gb.map En Lugar De Un MapView 
 
Chuuuulo.
Eso sí, yo he tenido que emplear qt4, porque en gambas3.11 no encuentro qt5. ¿Soy así de torpe? Creo recordar una entrada al respecto, pero no tengo ganas de buscarla ahora  
 



 
Grandamakulo - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Efecto De Copiar Un Proyecto Con Cambios E... Shell General 1 Martes, 15 Octobre 2013, 11:45 Ver último mensaje
shordi
No hay nuevos mensajes Píldoras Informaticas, Genial Lugar De Mu... portaro Programación en otros lenguajes 2 Martes, 03 Marzo 2015, 14:40 Ver último mensaje
Shell
No hay nuevos mensajes Dibujar Un Circulo Sobre Un MapView vuott Aplicaciones/Fragmentos de Código 0 Miercoles, 02 Noviembre 2016, 01:39 Ver último mensaje
vuott
No hay nuevos mensajes MariaDB En Lugar De MySQL tincho Bases de Datos 3 Lunes, 16 Enero 2017, 10:45 Ver último mensaje
shordi
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario