Mensajes

[aki]

Pues no se como estara progrmao, pero seguramente use tiles con DirecX o algo por el estilo.. mira aki te dejo un pekeño manual (es ese en el q aparece un super mario)

1S4ludo

Jaja mola la broma  . Deberias hallar antes de nada la resolucion de la pantalla, por q en la mia por ejemplo rebota en mitad de la pantalla

Jo... pues no se si sera mi firewall pero a mi no me sale nada en los cuadritos...

Pues por si acaso ponle un sleep y prueva...

Bajate el source del cactus, q trae un modulo para cambiar iconos

  en lo q te entretienes  (no te ofendas, es q keria usar los nuevos emoticonos  )

Mira, para hacer algo antes de cerrar tienes q hacerlo asi:

Código [Seleccionar] Expandir

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

If UnloadMode = 0 Then 'Significa que se ha cerrado con la X:
    MsgBox "NO SE CIERRA puñetero QUE ENTENDES!", vbCritical, "BOLUDO!"
    Shell Ruta
    Cancel = 1
End If

End Sub


Y ademas la ruta esta mal obtenida... tienes q usar:

Código [Seleccionar] Expandir

Ruta = App.Path & "\" & app.exename

1S4ludo

Te digo q asi tiene q funcionar xDD por q es como funciona cualkier joiner, y yo e hecho uno en VB y se lee a si mismo perfectamente...

Pues q raro.. yo uso esto:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Open App.Path & "\nombre.exe" For Binary As #1
Dim Todo As String
Todo = Space(LOF(1))
Get #1, , Todo
Close #1
MsgBox Todo
End Sub

siendo nombre.exe el nombre del archivo y me funciona..


Si prefieres copiarte usa el omando filecopy 

Gracias de nuevo!! vaya racha de liberar source  , ahora me lo miro, q parece weno 

Pues muy simple:

Código [Seleccionar] Expandir

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub