Mensajes

Hola, pues si podes hacerlo con bases de datos, o hasta con un archivo .ini...un montonde formas...solo guardas las rutas de las imagenes...

saludos.

esta bueno  ,  lo unico es tratar de que no se creen obstaculos alrededor del target rojo..porque seria imposible alcanzarlo...

saludos.

[CreateIconIndirect]

Hola, con la api CreateIconIndirect y algunas mas he visto hacer lo que vos queres...no me acuerdo donde ..pero esa era la api...

saludos.

Hola, si que hay en internet de eso...se hace leyendo y escribiendo sobre el archivo...pero busca que si hay..

saludos.

colgalo en otro servidor , porque la verdad es un desastre ese...

[Modulo:]

No sabes como podria usar una combinacion de letras para volver a hacer visible el form?? osea por ejemplo "Shif + F6" le da verdadero a visible? o algo similar?

algo asi:

Modulo:

Código (vb) [Seleccionar] Expandir

Option Explicit

Public WinProc As Long

Public Const GWL_WNDPROC = (-4)
Public Const MOD_SHIFT As Long = &H4
Public Const VK_F6 As Long = &H75

Public Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Public Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long


Public Function NewWindowProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

If Msg = &H82 Then
    Call SetWindowLong(hWnd, GWL_WNDPROC, WinProc)
    Call UnregisterHotKey(hWnd, 1)
End If

If Msg = &H312 Then
    MsgBox "Apretaste SHIFT+F6", vbInformation
End If

NewWindowProc = CallWindowProc(WinProc, hWnd, Msg, wParam, lParam)

End Function

Formulario:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
   
If RegisterHotKey(hWnd, 1, MOD_SHIFT, VK_F6) = 0 Then
    MsgBox " Error ", vbCritical
    Exit Sub
End If
     
WinProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf NewWindowProc)
End Sub

aparte se puede hacer sin FSO , directamente con las funciones de visual basic..asi no creas objetos.

saludos.

Hola, tenes que tener el ODBC de MySQL instalado y el servidor de MySQL...configurar el DSN ..etc...pero todo eso se hace a mano...

saludos.

si es el mismo...

la clausula DELETE va sin *.....

yo no veo nada...