carloscharly

Tan raro, debería reconoserte eso tan sencillo, pero bueno si no te queda de otra no uses el nombre de la ventana ni el THIS si no usa el PARENT parent.width=2890.

Bueno te diré que la conexión a diferencia de otros lenguajes acá el OB te obliga a tenerlo abierto en todo momento así uses ventanas que para nada utilicen BD por ejemplo tu uo_conexion es una clase creada por ti. Pero el PB tiene el SQLCA que es el...

¿Poco qué trato de entender lo que quieres es completar con ceros un numero el cual es LS_DEP? Es decir ls_dep tiene 1,2,3) Bueno si es así la parte donde armas ls_cadena debería ser así ls_cadena = ls_cadena + "'" + right ('000' + ls_dep,4 ) + "',"...

A tienes razón fíjate en la linea que marco de negrita 1 - Crear un menu llamado m_menu 2 - Dentro de el creas un ítem llamado opciones 3 - Dentro de opciones creas subitem llamado copiar 4 - Creas una ventana con 2 DW (ya enlazados a tu tabla, es...

Tratare de ayudarte. Con lo siguiente: 1 - Crear un menu llamado m_menu 2 - Dentro de el creas un ítem llamado opciones 3 - Dentro de opciones creas subitem llamado copiar 4 - Creas una ventana con 2 DW (ya enlazados a tu tabla, es decir que apunten...

Estas con suerte amigo. Acá te voy a dejar un aplicativo en el cual puedes buscar palabras en muchos tipos de archivos txt, php, html etc etc. Hay un problema, justo ahora te lo pensé subir a un Hosting, pero acá tengo bloqueado ese acceso pero...

No te compliques la vida amigo, acá te dejo un código sensillisimo Shell "mspaint.exe", vbMaximizedFocus Adicional un link que te puede servidr más adelante. http://calzadocaley.com/solo-info/?page_id=4

Bueno tienes que leer cada mes y darle el nombre(ES LA ÚNICA MANERA CREA UNA FUNCIÓN) string ls_mes choose case (day(today() ) case 1 ls_mes = 'Enero' case 2 ls_mes = 'Febrero' case 3 ls_mes = 'Marzo' end choose ****** Te dejo un link que te puede...

Acá te dejo un ejemplo sencillo. Private Sub Command1_Click() Dim a As Date Dim edad As Integer a = CDate(InputBox("Ingresa Fecha de nacimiento", "Ingreso")) calcula_edad (a) End Sub Function calcula_edad(Fecha_Nacimiento As Date) As Integer Dim Años...

Espero que esto sea lo que necesitas listBox2..Selected(index) = True Donde index es el numero de ITEM que quieres seleccionar Adicional te dejo un pequeño manual con las principales propiedades del control...