Mensajes

Al parecer todos los probelamas son del ucImage, como primer consejo si no te funciona te diria que lo quites junto con la pagina de propiedades y tendria que funcionar correctamente.

La unica utilidad del control en este proyecto es mostrar una imagen en el About....nada crucial asi que podes quitarlo y listo.

Private Const WM_DEVICECHANGE As Long = &H219

Debug.Print Imprime un dato en el Debug o Inmediato o como quieras llamarlo (Ctrl + G para abrirlo)

Not InStr son 2 cosas Not es simplemente una negacion Not 1 = 0 es lo mismo que 1 <> 0 

Y Instr es para bucar una cadena dentro de otra.

Código [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
    Select Case True
        Case "mi texto tiene esto" Like "*esto*"
            Debug.Print "SE ACA TA"
        Case Else
            Debug.Print "NO TA"
    End Select
End Sub


Imagino !!!!! cosa que no tendria que pero bueno dejemoslo ahi, que el comentario del if es simplemente porque el no quire comparar una frase exacta sino ver si una palabra/s existen en un texto

Código [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
    '// Case sensitive
    If Not InStr(1, "Tu Texto", "Lo que buscas") = 0 Then
        Debug.Print "WTF"
    End If
   
    '// Case insensitive
    If Not InStr(1, UCase("Tu Texto"), UCase("Lo que buscas")) = 0 Then
        Debug.Print "WTF"
    End If
End Sub


Código [Seleccionar] Expandir

Option Explicit

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = 0 Then
        Debug.Print "Lo que quieras"
    End If'// Podes usar cancel=true para cancelar la decarga.
End Sub



9.-     "       Pedir un numero y determinar cual es el promedio de todos sus digitos
10.-   "       Pedir un numero y determinar cual es el promedio de todos sus digitos

7.-     "       Pedir un numero y determinar cual es el digito menor de dicho numero
8.-     "       Pedir un numero y determinar cual es el digito menor de dicho numero


Ops se me paso este por alto!

:/ olvidalo

Agradezco mucho los comentarios y demas. Si alguno ve un error o algo que considera pude ser corregido/modificado/agregado, seria bueno escucharlo.

Gracias Cobein.

Holas, aca les dejo una mini utilidad para guardar las capturas de pantalla automaticamente, lo que hace es por medio de un hook detectar cuando se captura la pantalla y guardar la imagen en el disco en formato jpg asignandole un nombre aleatorio, la aplicacion es totalmente portatil, guarda los settings en un ini y soporta rutas relativas.

Se que hay muchos de estos por ahi pero... tienen demaciadas opciones y cosas que realmente no me interesan asi que decidi hacer uno propio.

Tested on XP SP2 and Vosta

Descarga: http://www.uploadsourcecode.com.ar/d/P4rHDNtaErcBGIE269CyfuXZVF0zvAxw