Google earth in vb6

Soyez le premier à donner votre avis sur cette source.

Vue 9 525 fois - Téléchargée 1 911 fois

Description

Explore all maps of the world over the internet,
this program connect to Google server,
and let you to Find any map on our earth,..

Email : zaidmarkabi@yahoo.com
Website : yazanmarkabi.com

Conclusion :


Google Maps in VB6

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_ghuysmans99
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
11 -
Some tips :

- Indent your code, it will be easier to read by other one
- Concatenate strings with & but not +
- Don't use Variant variables (Dim x, y As Integer => x is Variant)

- Optimize your code :

If A=1 Then
If B=2 Then 'do something
End If
#is equal to ...
If A=1 And B=2 Then 'do something
#but the second syntax is shorter and easier to read !

Private Sub ZoomList_Change()
Dim li As Integer : li = ZoomList.ListIndex
With Me.Picture3
If li >= 0 And li < 13 Then
.ScaleHeight = 2 ^ (li + 1) / 10
ElseIf li > 12 And li < 17 Then
.ScaleHeight = 1638.4 * 2 ^ (li - 13)
'.ScaleHeight = (1024/10)*16 * 2^(li - 13)
ElseIf li > 16 And li < 20 Then
.ScaleHeightOpt = 52428.8 * 2 ^ (li - 17)
'.ScaleHeight = (1024/10)*512 * 2^(li - 17)
End If
.ScaleWidth = .ScaleHeight
End With
End Sub

Isn't it shorter ?
ZaidMarkabi
Messages postés
12
Date d'inscription
samedi 22 août 2009
Statut
Membre
Dernière intervention
18 août 2010
-
that's right,
thanks for your ideas,
cs_ghuysmans99
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
11 -
So update your program, it will be easier to understand for beginners (there's a lot here)
ZaidMarkabi
Messages postés
12
Date d'inscription
samedi 22 août 2009
Statut
Membre
Dernière intervention
18 août 2010
-
indeed, i don't have the time to clean it up,
please if you have the time to sort and publish again, thats will help other developers,
thanks again,
Best Regards.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.