últimos mensajes de: CeLaYa

Mostrar Mensajes
Páginas: 1 ... 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 [30] 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 ... 53

291	Programación / Programación Visual Basic / Re: Escanear desde vb	en: 9 Diciembre 2006, 15:00 pm
pues lo que se me ocurre en que cuando escanies la imagen la mandes al portapapeles del windows, luego la pases a una variable y lo almacenes en una BD

292

Programación / Programación Visual Basic / Re: restas horas

en: 9 Diciembre 2006, 14:53 pm

creo que eso esta más fácil mi idea era la siguiente:

Código:

Dim segundos@, minutos@, Horas@
Dim hora1 As Date, hora2 As Date

hora1 = #1:00:00 AM#

hora2 = #9:54:56 AM#
Horas = DateDiff("h", hora1, hora2)
minutos = DateDiff("n", hora1, hora2) - (Horas * 60)
segundos = DateDiff("s", hora1, hora2) - ((Horas * 60 + minutos) * 60)
MsgBox Horas & ":" & minutos & ":" & segundos

293	Programación / Programación Visual Basic / Re: Tutoriales	en: 8 Diciembre 2006, 23:23 pm
checa los post, viene una sección de manuales. Si alguien sabe de donde descargar el libro "Aprenda VB en 21 días" le agradeceria me lo dijera

294	Programación / Programación Visual Basic / Re: Variables con el cero adelande (0001)	en: 8 Diciembre 2006, 23:21 pm
no entiendo muy bien que quieres hacer pero si pones Código: dim n as string n = Format(numero,"0000") te dará como resultado "0001", ahora si lo que quieres es hacer operaciones con "n" solo necesitas usar "VAL" Código: dim i as long i = val (n) esto te convierte la cadena "0001" a 1

295	Programación / Programación Visual Basic / Re: restas horas	en: 8 Diciembre 2006, 22:57 pm
checa en la ayuda del visual la función DateDiff Devuelve un valor de tipo Variant (Long) que especifica el número de intervalos de tiempo entre dos fechas determinadas. Sintaxis DateDiff(intervalo, fecha1, fecha2[, primerdíasemana[, primerasemanaaño]]) La sintaxis de la función DateDiff consta de los siguientesargumentos con nombre: Parte Descripción Intervalo Requerido.Expresión de tipo cadena con el intervalo de tiempo utilizado para calcular la diferencia entre fecha1 y fecha2. Fecha1, fecha2 Requerido; Variant (Date). Las dos fechas que se van a utilizar en el cálculo. Primerdíasemana Opcional.Constante que especifica el primer día de la semana. Si no se especifica, se asume que es el domingo. Primerasemanaaño Opcional. Constante, que especifica la primera semana del año. Si no se especifica, se asume que es aquélla en la que se encuentre el 1 de enero. Valores Elargumento intervalo toma los valores siguientes: Intervalo Descripción yyyy Año q Trimestre m Mes y Día del año d Día w Día de la semana ww Semana h Hora n Minuto s Segundo El argumento primerdíasemana toma los siguientes valores: Constante Valor Descripción vbUseSystem 0 Utilice la configuración de la API de NLS. vbSunday 1 Domingo (predeterminado) vbMonday 2 Lunes vbTuesday 3 Martes vbWednesday 4 Miércoles vbThursday 5 Jueves vbFriday 6 Viernes vbSaturday 7 Sábado Constante Valor Descripción vbUseSystem 0 Utilice la configuración de la API de NLS. vbFirstJan1 1 Empieza con la semana en la que se encuentra el 1 de enero (predeterminado). vbFirstFourDays 2 Empieza con la primera semana que tenga al menos cuatro días en el nuevo año. vbFirstFullWeek 3 Empieza con la primera semana que esté completamente incluida en el nuevo año. Comentarios Puede utilizar la función DateDiff para determinar el número de intervalos especificados que existen entre dos fechas. Por ejemplo, con DateDiff podría calcular el número de días entre dos fechas o el número de semanas entre hoy y el final del año. Si desea saber el número de días entre fecha1 y fecha2, puede utilizar Día del año ("y") o Día ("d"). Cuando intervalo es Día de la semana ("w"), DateDiff devuelve el número de semanas entre las dos fechas. Si fecha1 es lunes, DateDiff contará el número de lunes hasta fecha2. En la cuenta incluirá fecha2, pero no fecha1. Si intervalo es Semana ("ww"), la función DateDiff devolverá el número de semanas entre las dos fechas. En este caso contará el número de domingos entre fecha1 y fecha2. DateDiff contará fecha2 si es domingo, pero no fecha1, aunque sea domingo. Si fecha1 se refiere a un momento posterior en el tiempo a fecha2, la función DateDiff devolverá un número negativo. El argumento primerdíasemana afecta a los cálculos que utilizan "w" y "ww" como símbolos de intervalo. Si fecha1 o fecha2 es unliteral de fecha, el año, si se especifica, pasará a ser una parte permanente de la fecha. Sin embargo, si fecha1 o fecha2 está comprendida entre comillas dobles ("") y se omite el año, se insertará el año en curso en el código cada vez que se evalúe la expresión fecha1 o fecha2. Así es posible escribir código que se pueda usar en años distintos. Cuando compara el 31 de diciembre con el 1 de enero del año siguiente, DateDiff para un año ("yyyy") devolverá 1 aunque sólo haya pasado un día.

296	Programación / Programación Visual Basic / Re: Duda con For, Next.	en: 8 Diciembre 2006, 22:54 pm
puedes hacerlo con 2 for anidados: Código: dim i as integer dim j as integer text1.text = "" for i =1 to 10 for j = 1 to 10 text1.text = text1.text & " " & i & " x " & j & " = " & (i*j) & vbcrlf next j next i

297	Programación / Programación Visual Basic / Re: Variables con el cero adelande (0001)	en: 8 Diciembre 2006, 22:50 pm
podrias usar el format Código: dim n as string n = format (1, "0000")

298	Programación / Programación Visual Basic / Re: Form semi-transparente en el q se vean los controles???	en: 8 Diciembre 2006, 01:11 am
a lo que me referia es a como puedo aplicar la transparencia por ejemplo a un command o a un picture sin que el form se haga transparente

299	Programación / Programación Visual Basic / Re: Simular Spacebar keystroke	en: 7 Diciembre 2006, 22:37 pm
y si usas el evento KeyUp, con eso el codigo del espacio es 32 Código: Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then MsgBox "presiono la barra de Espacio" End Sub

300	Programación / Programación Visual Basic / Re: Redimensionar formulario y controles a varios tamaños de pantallas	en: 7 Diciembre 2006, 22:32 pm
no necesitas complicarlo tanto, todo eso lo puedes hacer asi: Código: privatge sub Form_Resize() On local error resume next ListView1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight - 100 - Command1.Height Command1.Move ListView1.Height + 50, Me.ScaleWidth - Command1.Width - 50, command1.Width, Command1.Height On Local error goto 0 end sub La linea "On Local Error resume next" activa el control de errores asi si minimizas el form o lo pones de un tamaño muy pequeño en el que no se pueda ver el control tu programa no fallara. Al final pongo "On Local Error Goto 0" para desactivar el control de errores

Páginas: 1 ... 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 [30] 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 ... 53