Luis_P

Luis_P

 100K puntos  Chile @luis_p desde - visto

Respuestas en Visual Basic

Respuesta en a

Error 481 imagen no valida

No hay problemas con la sintaxis, esta todo. Ok Revisa el tipo de archivo (imagen) que estas intentando pasarle al control picture2 Prueba con varioas tipo de archivos, yo probe con un jpg y no hay problemas
Respuesta en a

Validar textbox para que acepte solo números

Para que te complicas...¿? Si necesitas manejar fechas, utiliza el control dtpicker y listo
Respuesta en a

Captura de datos con condicional

'427569735f50 if len(trim(text1))=1 and trim(text1)>=1 and trim(text1)<=4 then text2.setfocus Para la sgte condicion copias la misma linea ( bajo esta) y cambias el valor de los intervalos
Respuesta en a

Captura de informacion

4c7569735f50 En el evento keypress del text1 pones esto: if len(trim(text1))=5 then text2.setfocus Asi cuando el text1 llega a 4 caracteres te pasara el foco al text2 De esta forma implementalo en cada text
Respuesta en a

Convertir enteros a decimales en listbox

Estas pasando un string como valor, en ese caso utiliza la forma formatnumber Formatnumber(val(textbox3.text), 2)
Respuesta en a

Cómo se genera un archivo .exe a partir de un proyecto de VB6.0

Para correr un exe compilado desde vbasic 6.0, no es necesario cargar todo el paquete en las distintas pc. Tienes varia opciones: 1. Compila tu proyecto y luego utiliza el asistente de distribución que tiene incluido la suite de visual studio, asi...

Macro para calcular Días hábiles Lunes a Viernes

no hay necesidad de macros, utilza la funcion =dias.lab() Te explico: En una columna cualquiera desbes anotar todas las fechas el mes que son no habiles, sabados domingos feriado, en la notacion fecha larga, asi 11/02/2012 Una vez que tienes esa...
Respuesta en a

Proteger celdas con formulas sin proteger la hoja

se puede, pero queda algo feo... Desde el editor de vb abres la hoja que deseas proteger y pegas esto, y ya esta '4c7569735f50 Option Explicit Dim anterior As Variant Dim i As Byte Private Sub Worksheet_Change(ByVal Target As Range) i = (i + 1) If i...
Respuesta en a

Última fila con datos a la derecha

Prueba con esto selection.end(xltoright).select ' te lleva a la ultima celda con datos desde la fila seleccionada Selection.offset(0,1).select ' te lleva una celda a la derecha desde la ultima con datos
Respuesta en a

Macro para revisar textbox y combobox

evalua los controles mediante el uso de la sentecia if then else '4c7569735f50 ejemplo: if len(trim(textbox1))=0 or len(trim(combobox1))=0 or len(trim(combobox3))=0 then msgbox "Faltan Datos" exit sub ' sale de la sub rutina antes de guardar end if...

Suscríbete RSS