Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - soplo

#31
A ver

Lo que puso necrocode está bien. La cosa está en si el dígito debe mostrarse obligatoriamente o no en caso de que sea cero.

Hay situaciones en las cuales quieres mostrar el dígito solo si es necesario para describir úna cantidad o lo que sea, y otras en las que no quieres.

Así por ejemplo para pedir un precio con dos decimales yo pondría
maskedbox1.mask="###,###0.00"
Lo cual indica que se muestre obligatoriamente un dígito entero y dos decimales. Las demás cantidades solo se muestran si son necesarias.
Cantidad      se muestra
1                 1,00
1,1              1,10
1,01            1,01
100,03        100,03
100,7          100,70

En cambio hay otras situaciones en las que quieres que el dígito se muestre obligatoriamente (por ejemplo no es lo mismo el código '00001' que el código '0001'. Si en el caso anterior hubiera puesto
maskedbox1.mask="000,000,000.00"
cantidad       se muestra
1                  000.000.001,00
1,1               000.000.001,10
1,01             000,000,001,01
100,03         000.000.100,03
100,7           000.000.100,70

y como ves no es lo mismo.

¡Y todo esto me lo podría haber ahorrado si te hubieras leído la ayuda de maskedbox en el propio vb porque como ya dije ahí viene perfectamente explicado tanto para casos de números, como de letras, como de fechas, ...

RTFM
#32
Pues cuando lo has bajado e instalado te conectas por medio de odbc. Intenta primero con un adodc y cuando lo hayas entendido te creas tus propios recordset. Solo tienes que ver como poner la connectionstring y el adodc te la puede generar automáticamente.
#33
Mira como se hacen las máscaras en un maskedbox. Solo tienes que mirar la ayuda.
#34
Hola
Tienes que bajarte e instalarte el odbc de postgre.

Un saludo
#35
Hola
La forma correcta de hacer eso es guardar en base de datos la ubicación de la imagen que tendrás guardada en una determinada carpeta.

Cuando lees la base de datos, lees ese campo y cargas el picturebox con esa imagen.
picture1.picture=loadpicture(recordset!campo)

Es posible guardar la imagen en un objeto ole, pero hace la base de datos tan lenta y pesada que no merece la pena.

Un saludo
#36
Hola
Tu problema es fundamentalmente de sistema operativo mas que de vb (aunque obviamente si te pones a programar puedes hacer cualquier cosa).

Si creas un usuario para ti, le pones una clave y en mis documentos creas una carpeta privada (marcando la opción de cifrar contenido) nadie que no seas tu podrá acceder a esa carpeta.

Bueno, no podrá según el sistema operativo porque si alguien de tu casa tiene conocimientos y herramientas de descifrar podrá hacerlo, pero desde luego no es algo que pueda hacer el común de los mortales jajaja

La otra opción que tienes es que hagas un programa que cambie las extensiones de tus fotos (por ejemplo las jpg) sean cambiadas a jqh con lo que ningún visor de imágenes ni nada será capaz de utilizarlas salvo tu (ni siquiera sabrá que son imágenes.

Un saludo
#37
Rutinas para la administración de procesos

Ocultar procesos del administrador de tareas sin hook
http://foro.elhacker.net/index.php/topic,152139.0.html
#39
Programación Visual Basic / Re: Menus con iconos???
13 Diciembre 2006, 16:23 PM
Hola

En vb que yo sepa no se puede. En .net si.

He oído hablar de algún ocx que sustituye al sistema de menús de vb y si puede, pero no lo conozco. Eso y hacer los menús transparentes y cosas de esas.

Un saludo
#40
Rutinas para administrar el equipo

Rutina para Apagar el equipo (cortesía de xDie)
Private Declare Function ExitWindowsEx& Lib "user32" (ByVal
uFlags&, ByVal dwReserved&)

Private Sub Command1_Click()
Dim i as integer
i = ExitWindowsEx(1, 0&)
End Sub


Rutina para reiniciar Windows con nuevo usuario (cortesía de xDie)
Private Declare Function ExitWindowsEx& Lib "user32" (ByVal
uFlags&, ByVal dwReserved&)

Private Sub Command2_Click()
Dim i as integer
i = ExitWindowsEx(0, 0&)
End Sub


Rutina para reiniciar el sistema (cortesía de xDie)
Private Declare Function ExitWindowsEx& Lib "user32" (ByVal
uFlags&, ByVal dwReserved&)

Private Sub Command3_Click()
Dim i as integer
i = ExitWindowsEx(2, 0&)
End Sub