SoloCodigo

Te contesté en lawebdelprogramador.com

Saludos,
Javier

Hola Cero Kull:

No me parece que esté mal lo que hiciste, pero modifiqué tu código para hacerte la vida más sencilla.
Agrega un módulo estándar al proyecto y pega el sig. código:

'*********************************************
Public Sub ProcesarKeyPressTextSoloTexto(Keyascii As Integer, txt As TextBox)
    If Asc(UCase(Chr(Keyascii))) < Asc("A") Or Asc(UCase(Chr(Keyascii))) > Asc("Z") Then
        If Keyascii <> 8 And Keyascii <> 13 And Keyascii <> 209 And Keyascii <> 241 And Keyascii <> 34 And Keyascii <> 225 And Keyascii <> 233 And Keyascii <> 237 And Keyascii <> 32 And Keyascii <> 243 And Keyascii <> 250 Then
            Keyascii = 0
            Beep
        End If
        If Keyascii = 13 Then
            SendKeys "{TAB}"
        End If
    Else
        Keyascii = Asc(UCase(Chr(Keyascii)))
    End If
End Sub

Public Sub ProcesarLostFocusText(txt As TextBox)
    txt.Text = Trim(UCase(txt.Text))
    If txt.Text = "" Then
        MsgBox " INGRESE ALGO ", vbCritical
        txt.SetFocus
    End If
End Sub
'*********************************************

Luego en los TextBox cambia el código por el sig:

'*********************************************
Private Sub Text1_KeyPress(Keyascii As Integer)
    ProcesarKeyPressTextSoloTexto Keyascii, Text1
End Sub

Private Sub Text1_LostFocus()
    ProcesarLostFocusText Text1
End Sub
'*********************************************

De manera que ahí tienes centralizado el manejo de eso, y sólo tienes que agregar esas líneas por cada TextBox.

También notarás que hice unos cambios:
En lugar de enviar el foco al sig. control con SetFocus lo hice enviando la tecla Tab, de manera que no hace falta conocer cuál es, sólo que deberás poner bien en orden el TabIndex de cada uno para que funcione bien.

Además agregué que se pongan a mayúscula con cada letra y no solo al final.
También cambié a que luego ponga (de nuevo) todo a mayúsculas cuando pierde el foco el control, porque con el otro código si el usuario en lugar de presionar Enter presionaba Tab no se ponía a mayúscula, lo mismo si hacía click con el mouse en otro lado.

Ahora ¿para qué poner a mayúscula en el LostFocus si ya está todo mayúscula por cada pulsación? Bueno, si haces click con el botón derecho en el textbox verás que puedes copiar algo que esté en el portapapeles, es por eso, porque lo copia en minúsculas si está así.

Lo mismo con la validación por si está vacío, la puse en el LostFocus por la misma razón de más arriba (si cambia de control sin presionar Enter).

Con respecto a una rutina más simple, si es que quieres experimentar, hay una API que se llama IsAlphaNumeric que retorna 1 si el KeyAscii es un caracter alfanumérico y 0 si no lo es. Combinando esta API con IsNumeric podrías determinar si es un caracter de letra o no.

La declaración es:

Public Declare Function IsAlphaNumeric& Lib "user32" Alias "IsCharAlphaNumericA" (ByVal cChar As Byte) ' Si son letras o números devuelve 1, sino devuelve 0

Y se usa:

If IsAlphaNumeric(KeyAscii) = 1...

Espero que te haya ayudado.

Saludos,
Javier

Si, en el Asistente de empaquetado y distribución hay un lugar para añadir archivos, tienes que agregarla ahí.

Saludos,
Javier

Cuando instales asegurate que no haya otros programas de VB corriendo, cierra todas las aplicaciones.
Lo que puede pasar es que esos archivos están en uso y no los puede actualizar.
Tal vez omitiéndolos ande todo bien también.

Saludos,
Javier

Mejor di Señores amigotes...jeje

Si no quieres mostrar ningún formualrio en tu aplicación, puedes poner en un módulo un procedimiento:

Public Sub Main ()
    ' hacer lo que haya que hacer
End Sub

y luego en en menú Proyecto selecciona Propiedades, en donde dice Objeto inicial selecciona Sub Main.

Para que no esté todo el tiempo en un loop, lo que puedes es poner un Timer, pero ahi entonces vas a tener que agregar un formulario. Para no mostrarlo puedes hacerlo así:

Public Sub Main ()
    Load Form1
End Sub

en el timer coloca Interval = 5000

Luego en el procedimiento del timer escribes la consulta que quieres hacer.

Saludos,
Javier

Ahí te hice la modificación para trabajar con la captura de errores y detectar que presionó el botón cancelar:

Private Sub Command1_Click()
    Cdl1.Filter = "Archivo de texto(*.txt)|*.txt"
    Cdl1.CancelError = True
    On Error Resume Next
    Cdl1.ShowSave
    If Err.Number = 0 Then
        Open Cdl1.FileName For Output As #1
            Print #1, Text1.Text
        Close #1
    End If
End Sub

Saludos,
Javier

Hola Alvarado:

No es tan sencillo, VB no lo soporta él mismo a eso.
Hay varios componentes OCX que lo hacen (algunos son gratis), puedes buscar en Google Visual Basic Resize, resizer, sizer.
También puedes buscar en http://www.pscode.com/vb/ que seguramente haya algo también.

Saludos,
Javier

Ahora, yo pregunto:
¿De qué manera podemos ayudarte?

Javier

Tal vez ya no vuelvas a ver el mensaje, pero aunque sea para otros lo comento:

Si no los encuentras es muy sencillo, abres el Word (o la aplicación que sea), haces un PrintScreen, esa tecla de arriba a la derecha (-2), abres el Paint, lo recortas y lo pegas en otra ventana de Paint. Lo grabas y listo.

Saludos,
Javier

Mira, yo no trabajo muchos con bases de datos, pero me parece que el SQL "Delete * from Tabla" debería funcionar, el motor de bases de datos es el que se engarga del formato de la base, corregime si estoy equivocado.

Saludos,
Javier

1)
Para activar el salvapantallas que está configurado en Windows usa el sig. código (agrega un command a un proyecto nuevo y pega esto):

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const WM_SYSCOMMAND = &H112&
Const SC_SCREENSAVE = &HF140&

Private Sub Command1_Click()
    Dim lRes As Long

    lRes = SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
End Sub
'**************Fin del código*******

2)
Si en cambio lo que quieres es activar cualquier salvapantallas, agrega un command a un proyecto nuevo y usa el sig. código:

Private Sub Command1_Click()
    Shell "C:WindowsSystemLaberinto 3d.scr /s"
End Sub

Normalmente los salvapantallas están en el directorio de sistema, pero este puede ser diferente en cada instalación, por lo que deberías usar la API GetSystemDirectory para saber donde es.

3)
Si lo que quieres es programar uno, tienes que cambiar la extensión .exe por .scr.
En la dirección http://groups.google.com.ar/groups?q=vi ... cl&rnum=11 hay más datos.

Saludos,
Javier

Bueno, si estoy entendiendo lo que quieres, incluye esta línea en el código antes que se muestre:

Combo1.ListIndex = 0

Ahí va a mostrar el primer elemento de la lista.
Saludos,

Javier

El tipo de datos numérico más grande con el que trabaja VB es el Double.

Dim MiNumero as Double

Pero no tiene tantos dígitos, tal vez te convenga usar tipo de datos String si es que no tienes que hacer operaciones matemáticas.

Saludos,

Javier