GS-Zone

Desplazar minimapa por la pantalla con doble click Ir al Indice

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

19

Nota » 05 Jul 2009 00:54

Bueno, este codigo es MUY TONTO, pero para aquello que no entienden nada no les viene mal xD

Perdonen si esta posteado, nunca me entere jiji ^^

Todo va en el frmmain.

  1. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  2.  
  3.         If MoverMiniMapa = True Then
  4.             Minimap.Top = Y
  5.             Minimap.Left = X
  6.         End If
  7. End Sub
  8.  
  9.  
  10. Private Sub Minimap_DblClick()
  11. If MoverMiniMapa = True Then
  12.     MoverMiniMapa = False
  13. Else
  14.     MoverMiniMapa = True
  15. End If
  16. End Sub


En el Mod_Declaraciones ponen:



Y listo, asi se sencillo xD

PD: Codigo muy tonto vieron xD

Imagen

Imagen
Programador
Oraculo [2]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Ubicación: Ituzaingó, Buenos Aires, Argentina
Mensajes: 1472
Aportes: 29
Premios: 1
Embajador (1)

Nota » 05 Jul 2009 01:39

exelente aporte sige asi =)

Imagen
Usuario Registrado
Newbie [4]
Registrado: Años de membresíaAños de membresía
Mensajes: 129
Aportes: 1

Nota » 05 Jul 2009 01:46

jajaj muy bueno y sensillo!
Se agradece muhco!
Aguante River Plate ! ! !
909
Moderador
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Villa adelina, Vicente Lopez.
Mensajes: 14427
Aportes: 305
Premios: 10
Señor Moderador (3) Señor Reglamento (1) Aportes (2) Embajador (3) Detector de Bugs (1)

Nota » 05 Jul 2009 02:02

BUENISIMO, ahora no tengo necesidad de echicar la consola que lo pongan donde quieran xD

Imagen

Imagen
Gs-Zone OldUser
96
Destructor de Mentes [5]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 743

Nota » 05 Jul 2009 02:13

Aca
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If MoverMiniMapa = True Then
Minimap.Top = Y
Minimap.Left = X
End If
End Sub


Private Sub Minimap_DblClick()
If MoverMiniMapa = True Then
MoverMiniMapa = False
Else
MoverMiniMapa = True
End If
End Sub

En esta parte:
Private Sub Form_MouseMove

Me resalta Form_MouseMove

El error eso: Ambiguos name algo asi
QUE HAGO????'

Imagen
Imagen

Gracias IlOvE ;D
Usuario Registrado
Destructor de Mentes [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 563
Aportes: 11

Nota » 05 Jul 2009 02:15

Kripi escribió:Aca
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If MoverMiniMapa = True Then
Minimap.Top = Y
Minimap.Left = X
End If
End Sub


Private Sub Minimap_DblClick()
If MoverMiniMapa = True Then
MoverMiniMapa = False
Else
MoverMiniMapa = True
End If
End Sub

En esta parte:
Private Sub Form_MouseMove

Me resalta Form_MouseMove

El error eso: Ambiguos name algo asi
QUE HAGO????'


Osea todo lo que puso del form_mOUSEmove deverias de ponerlo en el anterior mouse move

Imagen
Perdidos-AO Staff
Destructor de Mentes [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 690
Aportes: 4
Premios: 1
Embajador (1)

Nota » 05 Jul 2009 12:34

Perdon, me olvide de aclararlo xD

Imagen

Imagen
Programador
Oraculo [2]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Ubicación: Ituzaingó, Buenos Aires, Argentina
Mensajes: 1472
Aportes: 29
Premios: 1
Embajador (1)

Nota » 05 Jul 2009 17:32

ise todo per no me funkaa, o sea compil bien pero no funkaaaa :S

Imagen
Imagen

Gracias IlOvE ;D
Usuario Registrado
Destructor de Mentes [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 563
Aportes: 11

Nota » 05 Jul 2009 17:48

Muy buen aporte. Lo probe y funciona de 10. Saludos Segui asi.

Imagen
Imagen
Imagen
Staff War Of BelerianD
122
Aprendiz [5]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Ubicación: Junin
Mensajes: 409
Aportes: 5

Nota » 05 Jul 2009 18:53

Funcionar funciona, al menos que te hayas mandado algo vos xD

Imagen

Imagen
Programador
Oraculo [2]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Ubicación: Ituzaingó, Buenos Aires, Argentina
Mensajes: 1472
Aportes: 29
Premios: 1
Embajador (1)

Nota » 06 Jul 2009 05:30

exelente aporte despues lo implemento :D sos lo mas ;) segui asi

Hablando x msn:
luminum escribió:Al parecer, GS , tu vida es tan emocionante como la de una babosa muerta

Luminum... ♫ Design your world ♫
Imagen
Imagen

Imagen

style escribió:
Matute! escribió:te oxidan los genitales -.-'


JAJAJAJAJA matute avos se te oxidan por que no lo usas con la gordita jajajaja.
Draw Your Dreams & Design your Life
14
Oraculo [5]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 2169
Aportes: 31
Premios: 2
Embajador (2)

#NotaEste post ha sido eliminado por Chily en 07 Jul 2009 09:37.

Nota » 07 Jul 2009 10:21

funciona con DX8??

Hablando x msn:
luminum escribió:Al parecer, GS , tu vida es tan emocionante como la de una babosa muerta

Luminum... ♫ Design your world ♫
Imagen
Imagen

Imagen

style escribió:
Matute! escribió:te oxidan los genitales -.-'


JAJAJAJAJA matute avos se te oxidan por que no lo usas con la gordita jajajaja.
Draw Your Dreams & Design your Life
14
Oraculo [5]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 2169
Aportes: 31
Premios: 2
Embajador (2)

Nota » 07 Jul 2009 12:43

Sip, funciona ^^

Imagen

Imagen
Programador
Oraculo [2]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Ubicación: Ituzaingó, Buenos Aires, Argentina
Mensajes: 1472
Aportes: 29
Premios: 1
Embajador (1)

Nota » 07 Jul 2009 12:59

Muy buen code Gek ahora me anda de maravilla!

Imagen
Imagen

Gracias IlOvE ;D
Usuario Registrado
Destructor de Mentes [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 563
Aportes: 11

Siguiente

Volver a AO 0.11.5

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados