AYUDA CON COMBOBOX

[hannah]

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 [Seleccionar] Expandir


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 

[cobein]

Podrias hacer algo asi de simple.

Código [Seleccionar] Expandir

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