SoloCodigo

Hola Maxier:

No sé como bloquear las teclas, ni tampoco entiendo que es eso que pasa, pero lo que te sugiero es colocar ese formulario cubriendo toda la pantalla, es decir maximizado y BorderStyle = 0 y ponerlo fijo por sobre todas las demás ventanas.
Para eso puedes utilizar este código. Para probarlo abre un proyecto nuevo, coloca un CommadnButton y pega lo sig:

'********************************
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, Y, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
Private Const TOPMOST_FLAGS = SWP_NOMOVE Or SWP_NOSIZE

Private Sub HacerSiempreVisible(Valor As Boolean, nHwnd As Long)
    If Valor Then
        SetWindowPos nHwnd, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
    Else
        SetWindowPos nHwnd, HWND_NOTOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
    End If
End Sub

Private Sub Command1_Click()
    If Command1.Caption = "Hacer siempre visible" Then
        HacerSiempreVisible True, hwnd
        Command1.Caption = "Hacer no siempre visible"
    Else
        HacerSiempreVisible False, hwnd
        Command1.Caption = "Hacer siempre visible"
    End If
End Sub

Private Sub Form_Load()
    Command1.Caption = "Hacer siempre visible"
End Sub
'********************************

Saludos,
Javier

Hola:

Probá cambiadno por

Do Until bdgeo.Recordset.RecordCount = 0

Saludos,
Javier

Hola Code:

¿Podrías decir que quieres hacer con la imagen, porque no entiendo eso de pasar a "binario"?

Saludos,
Javier

Hola Cero Kull:

Si querés que el usuario pueda salir y dejar en blanco el Text en algunos casos, solo coloca una variable a modo de bandera.
Por ejemplo una variable Cancelar booleana a nivel del formulario, cuando el usuario hace click en un botón que quieres que no saque el mensaje, en el evento MouseDown y en el GotFocus la pones Cancelar = True, luego antes de llamar a la rutina de validación de los text que está en el LostFocus, preguntas por esa variable:
 If Not Cancelar Then ProcesarLostFocusText Text1

Esto no lo probé, pero creo que tiene que funcionar, fijate si lo podés hacer andar.

Saludos,
Javier

Hola cero Kull:

Tenías razón, si el text donde estás y el que sigue están los dos vacíos, se queda dando el error de que igrese algo de ambos text y no se puede más salir de los mensajes.

Cambiá el código de la rutina de ProcesarLostFocusText a este otro:

'*****************************
Public Sub ProcesarLostFocusText(txt As TextBox)
Static Procesando As Boolean

If Procesando Then Exit Sub
Procesando = True
txt.Text = Trim(UCase(txt.Text))
If txt.Text = "" Then
MsgBox " INGRESE ALGO ", vbCritical
txt.SetFocus
DoEvents
End If
Procesando = False
End Sub
'*****************************

Le agregué una variable estática para saber si ya está procesando el LostFocus de otro y un DoEvents para que luego de que haga el SetFocus vaya inmediatamente.

Saludos,
Javier

Hola Gabycas:

No sé que será lo que estás buscando, tendrías que decir más específicamente que querés hacer.

Por mi parte te adelanto que no sé mucho de VBA, pero creo que como está planteada tu pregunta sería conveniente que expliques un poco más para que alguien entienda que necesitas.

Otra sugerencia que te hago es que busques con Google utilizando las palabras apropiadas.

Saludos,
Javier

Hola Nikli:

Alguien preguntó lo mismo y le dieron varias repuestas. Ve al foro este: http://communities.microsoft.com/newsgr ... %2Ees%2Evb

y busca un mensaje del 11/12 que puso un tal Horacio a las 2:01 PM

Saludos,
Javier

Hola Robert:

Shell "Notepad.exe [Path]NombreArchivo.log", vbNormalFocus

Saludos,
Javier

Muy sencillo:

poné una variable a nival de formulario, por ej. Cancelado, en el Unload la pones a true.

Luego en el proceso, preguntas a continuación del DoEvents, si es True se va del proceso.

Saludos,
Javier

Hola Cero Kull:

Bueno, eso es lo que hice la vez pasada justamente y vi que me andaba bien, lo probé con dos text. ¿Por qué no me decís cual es el problema? Porque haciendo así como me decís es como vi que me funcionaba bien y te escribí el post anterior.

Obviamente de esa forma ningún text va a aceptar números, si necesitas que otros acepten números vas a tener que escribir otra funcion similar pero para los que son de números.

Espero que me aclares esto, así entiendo que pasa.

Saludos,
Javier

Por lo que dices parecería que tienes mal instalado alguno de los componentes. Yo probaría instalando de nuevo el Visual Basic y (primero) ese calendario de programadores.

Saludos,
Javier

Hola Empar:

El código es:

Erase NombreVector

Saludos,
Javier

Michael:

Escribe Ramdomize y pulsa F1 estando sobre la palabra, te va a salir la ayuda de VB que explicará para que sirve la función Randomize.

Saludos,
Javier