Respuesta
en
Visual Basic
a
Mouse...
Veamos el siguiente ejemplo en el evento mousedown Ejemplo: Private sub Label1_MouseDown(Button as integer,X as integer,Y as integer) Select case Button case 1 Msgbox "Se ha Pulsado el Boton Derecho" case 2 Msgbox "Se ha Pulsado el Boton Izquierdo"...
Respuesta
en
Visual Basic
a
Barra de Inicio...
Usa esta api Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long Y dale estos valores SystemParametersInfo(97,0,...
Respuesta
en
Visual Basic
a
¿Hay algún algoritmo para pasar números a texto en Visual Basic?
ok, por aca va... Revísalo y me avisas... lo único que debieras cambiar son los símbolos monetarios para los de tu país.. Option Explicit Public Const Un_Billon = 1000000000000# Public Const Dos_Billones = 2000000000000# Public Function...
Respuesta
en
Visual Basic
a
Visual basic y crystal reports 10
Lo que yo hago es lo siguiente, aunque trabajo con visual 6 y crystal report 7, base SQL Server.. (Me imagino que debe ser igual en todo caso) Inserto el componente Crystal report en el formulario.. A través de Visual me creo una vista temporal en...
Respuesta
en
Visual Basic
a
Hola Master..
Entiendo que me quieres preguntar, como saber si se encuentra activado, es decir, con un "visto bueno", en ese caso seria... If checkbox1.value=1 then msgbox "esta activado" else msgbox "esta desactivado" end if Un abrazo.. =^_^=
Respuesta
en
Visual Basic
a
Seleccionar texto
Entiendo perfectamente... Imaginemos que estas en el cuadro de texto txtnombre y quieres pasar a txtapellido y seleccionar todo el texto que contenga.. Escribe dentro de txtnombre, en el modulo de keypress.. If keyascii=13 then txtapellido.setfocus...
Respuesta
en
Visual Basic
a
Datacombo y keydown..
Prueba con lo siguiente... If keycode=vbkeydown and Shift=1 then 'Muevo el foco a otro objeto end if Un abrazo desde Chile. Master
Respuesta
en
Visual Basic
a
Recordset..
Veamos.. Public TClientes As New ADODB.Recordset Public consulta_sql as string Set TClientes = New ADODB.Recordset TClientes.CursorLocation = adUseClient consulta_sql = "Select * from Clientes where Pais='Chile'" TClientes.Open consulta_sql,...
Respuesta
en
Visual Basic
a
Maskedbox...
Claro, lo que sucede es que en un Maskedbox, tiene mucha importancia la propiedad Mask, lo que tendrías que hacer es colocar... txtfecha.text="__/__/____" Eso si funcionará... Un abrazo desde Chile. Master
Respuesta
en
Visual Basic
a
Crystal Report...
A ver, sigue los siguientes pasos... Crea la vista en SQL, con la consulta incluida... Crea el reporte en Crystal Report. Toma la programación de la creación de la Vista e insértala donde corresponda en Visual Basic. Elimina la vista en SQL Entonces...