Mensajes

Simplemente hay que enviar el POSt para el GET localmente, desde un script local.

¿QUÉ? 

Pones un FileBox con la propiedade Filter en *.BMP. Y despues:

Código [Seleccionar] Expandir


FileBox1.Path = "C:\Carpeta" ' te ubicas en la carpeta que queres ver
Msgbox FileBox1.ListCount -1 'la cantidad de imagenes (el -1 es porque empieza desde 0)


Saludos.-

A ver si te entendi:
¿Lo que queres hacer es buscar una palabra que puede ser HOLA o cualquier otra, que no esta delimitada por ningun caracter y que NO LA CONOCES?

Código [Seleccionar] Expandir


'Suponiendo que Datos tiene eso de Palabra1...
X = Left(Datos, 3) 'Obtenes las 3 primeras letras

Y = Mid(Datos, 13, 3) 'Obtenes las 3 letras que estan a partir de la posicion 13


No entendi para que usas las funciones =S. Haciendo lo siguiente tambien funciona:

Código [Seleccionar] Expandir


    Dim PT As POINTAPI
    GetCursorPos PT
    Me.Caption = PT.x & "-" & PT.y


Saludos.-

[Replace]

Podes usar la funcion Replace y no te haces tanto lio. Podes hacer algo asi:

Código [Seleccionar] Expandir


Todo = Replace(Todo, ",", "")

Despues usas la variable "Todo" que ya no contiene ninguna coma.

Saludos.-

Código [Seleccionar] Expandir

Private Sub Text1_Change()
    Text1 = UCase(Text1)
    Text1.SelStart = Len(Text1)
End Sub

Es que los controles no tienen un sistema de coordenadas comun, mira:

Código [Seleccionar] Expandir


                 Y
                |
                |
                |
                |
                |
                |
-X _______________________ X
                |
                |
                |
                |
                |
                |
                 -Y


Eso es un sistema de coordenadas comun. Ahora el de los controles es algo asi:

Código [Seleccionar] Expandir


                 -Y
                |
                |
                |
                |
                |
                |
-X _______________________ X
                |
                |
                |
                |
                |
                |
                 Y


Es como que el eje Y se invierte, es algo raro xD. Asi que adapta tu funcion a ese sistema. Espero que se haya entendido, saludos.-

Podes usar una variable (estatica), por ejemplo:

Código [Seleccionar] Expandir


Static Estado as Boolean
If Estado = True Then
    Picture1.Picture = LoadPicture("C:\NO.jpg")
    Estado = False
Else
    Picture1.Picture = LoadPicture("C:\SI.jpg")
    Estado = True
End If


Espero que te sirva.

Saludos.-

Usa un ImageList. Podes agregar muchas imagenes, despues vas buscando la que necesites... Es una buena opcion.

Saludos.-