Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: hannah en 17 Octubre 2008, 19:10 pm



Título: AYUDA CON COMBOBOX
Publicado por: hannah en 17 Octubre 2008, 19:10 pm
Hola Buenos Dias:

Resulta que tengo un programa que trabaja con la API de google, en este programa hay un combo que da coordenadas y debendiendo de lo seleccionado lo manda como parametro a una pagina HTML, lo que quisiera es que en me aparecieran otro tipo de coordenadas, pero sin afectar el parametro que tengo que enviar, es decir por ejemplo el combo me muestra latitud: 34.69852114 y Longitud: -115.6589214, yo quisiera que me pociera de esta manera Latitud: 34:45:58.25 Longitud: -115:25:45.1524, osea como una mascara que solo mire el cartografo, lo que pasa es que ellos estan acostumbrados a trabajar en esas coordenadas ademas que los GPS asi las dan... Recuerden no quiero que afecte el parametro que se va envia en este momento pork la pagina asi me los pide con coordenadas cartesianas, solo que quiero que se vean en el combo coordenadas gaografiacas...


Aqui les envio como lo estoy asiendo en este momento


Código:
Private Sub Form_Load()
Dim I As Double
Dim j As Double
Dim xx As Double
Dim yy As Double
Mundo.Navigate "C:\googlemaps.htm"
xx = 30.645579
yy = -118.4453
ale = 32.64589
Mundo.Navigate "about:blank"
For I = xx To 36
lati1.AddItem I
xx = xx + 0.1
I = xx
Next I

For j = yy To -110
longi1.AddItem j
yy = yy + 0.1
j = yy
Next j
End Sub


Muchas Gracias  ;D


Título: Re: AYUDA CON COMBOBOX
Publicado por: cobein en 17 Octubre 2008, 20:57 pm
Podrias hacer algo asi de simple.

Código:
Option Explicit

Dim cCombo As New Collection

Private Sub Form_Load()

    Dim i As Long
    For i = 0 To 10
        Combo1.AddItem "item " & i: cCombo.Add "Real Val " & i
    Next
   
End Sub

Private Sub Combo1_Click()
    MsgBox cCombo.Item(Combo1.ListIndex + 1)
End Sub