PREGUNTAS CONTESTADAS - Visual Basic

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	54421 - CAMBIAR IMAGEN EJECUTABLE VB
Autor:	Miguel Morillo
Quisiera saber si es posible cambiar una imagen de un formulario, pero cambiandola directamente en el exe compilado. Es una aplicación antigua y me han pedido actualizar el logotipo, que es la imagen del formulario. Saludos, Miguel

Respuesta:

Boluart Bedoya

Haber, haber, ... Si la imagen fue adjuntada como Mapa de bits en un archivo de recursos (*.RES) entonces si se puede cambiarlo, pero si se creo en tiempo de diseño no se va a poder,

De ser posible puedes abrir tu exe con algun extractor de recursos, yo personalmente uso el Visual Studio.NET 2003, por ser de confianza, y es mas no solo puedes camniar la imagen sino tambien el icono, La version, etc.

Contestar

Pregunta:	54441 - EVITAR EL AVANCE DE PAGINA EN ENDDOC
Autor:	Carlo Cabello
Saludos. Tengo un Formulario que simula una factura. Todos los elementos del Formulario los envio al objeto Print y al final los imprimo con EndDoc. El problema es que el EndDoc al mismo tiempo que inicia la impresion, tambien hace un salto de pagina haciendo avanzar hasta dos facturas mas. Como puedo hacer para evitar ese salto de pagina y que la impresora avance de tal forma que la siguiente factura(en papel continuo) quede lista para imprimir sin tener que retroceder las hojas. Es en VB6.0 y uso una impresora LX300II. Gracias por la ayuda

Respuesta:

Carlo Cabello

El asunto es que VB60 en XP simplemente ignora el tamaño de las paginas y solo utiliza los tamaños predeterminados de la Impresora. Tambien pude crear una Pagina personalizada en Propiedades del Servidor, asignando los tamaños adecuados, sin embargo tampoco funciono. Tambien he probado con los codigos de ESC de las Impresoras Epson LX300 pero...el problema es que esta solucion requiere abrir el puerto LPT1 como si de un archivo se trata, dentro del archivo se crea el documento y al cerrar debe imprimir el documento. El problema es que la impresora se conecta por USB ai que al crear un OPEN USB0001...etc solo crea un archivo de nombre "USB0001" en disco. Espero que puedan ayudarme. Gracias

Respuesta:

Agustín Dávila

Ese error me parece que te sucede porque al imprimir excedes el alto de la página. Cuando dices que utilizas el objeto "Print" te refieres al objeto "Printer"?
Si es así, lo tienes fácil porque con el objeto printer puedes saber el alto de la página (printer.scaleheight).

Poner los datos en coordenadas de la página:
printer.currentx ' coordenada X1
printer.currenty ' coordenada Y1

Crear una nueva página:
printer.newpage

Finalizar un documento:
printer.endoc

etc...

Contestar

Pregunta:	54498 - CONTROL DE IMPRESIONES
Autor:	Alfredo Garcia
Hola tengo un ciber cafe y necesito generar un codigo en visual basic 6.0 para controlar el numero de impresiones de mis maquinas de una red lan, no importando de que aplicacion manden a imprimir. espero alguien pueda mandarme un codigo de ejemplo gracias

Respuesta:	adrian
hola carlos si estas usando un puerto lpt1 te recomiendo que crees un archivo con salida al puerto lpt1. asi podras detenerla impresion donde t guste. si estas usando un puerto usb no hay forma q no haya avance de pagina con el objeto printer.

Contestar

Pregunta:	54508 - MYSQL - BACKUP
Autor:	Miguel Enrique Estudillo Hernandez
Hola, quisiera saber si alguien me podria explicar, de forma muy detallada como puedo realizar un respaldo de mi base de datos, usando una interfaz de visual basic... estare eternamente agradecido, please...

Respuesta:

Boluart Bedoya

depende que version del MySQL estes usando,
yo uso la version 5.0 y utilizo MySQLSump, que viene incluido hasta ahora no me ha fallado, ahora para q lo uses desde un FOrm de VIsual Basic , bastaria con llamarlo usando alguna funcin Shell, con los parametros adeucados claro,

MySQLDump.exe -u root --password=myPass MyDataBase > BackUp.SQL,

claro que si buscas mas info sobre MYSQLDUMP, vas a ver que tiene mas opciones como, a que tablas quieres hacerle backup, tipos de caracteres , etc

Contestar

Pregunta:	54532 - DESTINO PDF VB6
Autor:	Haroa
Hola Estoy creando pdf seleccionando la impresora (EdocPrinter) pero no puedo indicarle donde quiero que me cree el documento y con que nombre. ¿Como puedo indicarle a traves de Vb6 el detino y el nombre del documento?

Respuesta:	ja villacampa
Yo lo hago con PDFCreator, también através de una impresora, pero si en el proyecto vb incluyes una referencia a pdfCreator.exe, tiene objetos funciones y eventos programables.Cuidado con los tiempos. tiene dos ejemplos de programacion

Contestar

Pregunta:	54635 - EMPAQUETAR UNA BD SQL 2000 CON VISUAL BASI 6
Autor:	Juanm M.
HOLA NECESITO EMPAQUETAR UNA BASE DE DATOS ( SQL SERVER 2000), EL EMPAQUETADO LO DEBO REALIZAR CON VISUAL BASIC 6.0, DE IGUAL MANERA NECESITO CREARME COPIAS DE SEGURIDAD DE LA MISMA BASE DE DATOS EN OTRO DIRECTORIO .

Respuesta:

Boluart Bedoya

Mira, algun tiempo atras hice algo similar pero en C#.net 2002 , y en visual basic 6.0 podrias hacer lo mismo.
1º copiaba los archivos de bae de datos (*.mdf , *.ldf) ,
2º Adjuntaba estos archivos a un *.exe (Aqui la parte mas dificil)

para adjuntar un archivo un *.exe uso la funcion UpdateResource, esta funcion (API de windows), te permite editar los recursos de cualquier ejecutable, puedes cambiarle el icono determinado , adjuntarle archivo y otras cosas mas.
Recien hace poco intente hacerlo esto en visual basic 6.0 y la parte de adjuntar el archivo al ejecutable me salio bien, pero por motivos del diseño de la interfaz es que no pude terminarlo,
busca info sobre esta API y me cuentas como te va.

Nota: al adjuntar los archivos de base de datos alejecutable el resultado es un archivo *.exe que contiene los dos archivos de ste modo no vas a tener que preocuparte por llevar otros archivos mas ( el rsultado es solo un *.exe )

Contestar

Pregunta:	54641 - FOCO AL PULSAR BOTON
Autor:	Rogelio De Prado
Hola a todos. Queria saber si hay alguna forma de que al pulsar un boton el foco no pasase al boton, sino que permanezca donde estaba, como trabaja el teclado de winodws. Si alguien me puede ayudar mi correo es [email protected] Gracias a todos

Respuesta:	Gabriel Memmel
Hola, hay una propiedad que se llama TabStop que hace que el control mantenga el foco una vez utilizado, basta con asignarle el valor false, o en todo caso podrias utilizar la función objeto.SetFocus al final del codigo del boton para pasar el foco a un objeto determinado.

Contestar

Pregunta:	54648 - TESTEANDO CONEXIÓN A BD ORACLE DESDE VB
Autor:	Renato Tenorio
Hola a todos, quisiera saber si alguien ha programado una rutina en Visual Basic para saber a cada momento (transparente al usuario) si la conexión a la base de datos Oracle está activa o inactiva (osea si alguien sacó el cable, si se cayó el router, si se apagó el servidor, etc). Muchas Gracias

Respuesta:

Gabriel Fernandez

Estimado, yo lo hice pero no con oracle sino con informix, igual es lo mismo.
Crea una tabla fantasma.
Conexion(atrib) y hacemos un insert cualquiera "insert into conexion values 'pepe';"

Creamos un Timer, lo ajustamos segun el gusto y le hacemos que corra un sql cualquiera

sql="select * from conexion"

Si nos da error entonces no hay conexion, si devuelve algo, hay conexion. Simple

quedaria un codigo asi adentro del timer

on error go to SinCon
sql="select * from conexion"
set RS=coneccion.execute (SQL) 'forma de obtener datos (no te guies por ella)
exit sub
SinCon:
msgbox "No hay Conexion"
end sub

Aca lo que hace es hacer el sql, ejecutarlo y resivir datos. Si todo anda, hay conexion, si hay un error, aparece el cartel "No hay Conexion"

Cualquier cosa me avisas, un saludo

Contestar

Pregunta:	54707 - CONTROLAR MOUSE CON CODIGO
Autor:	JOHN RUZ
NECESITO CONTROLAR EL MOUSE CON CODIGO, EN SI ES QUE EL MOUSE SE PUEDA MOVER Y HACER CLICK O DOBLE CLICK, CLICK DERECHO PERO CON CODIGO, Y ASI LO PUEDA EJECUTAR HA CIERTA HORA . GRACIAS.

Respuesta:

Carlos Piña

¿Qué tal?

Tengo la solución para mover el puntero del ratón mediante código. Y también te doy otro código para ocultarlo y mostrarlo. Haz un formulario nuevo en VB y coloca 2 botones (Command1 y Command2). Crea un módulo estándar y coloca las API's allí.

El código es el siguiente:

'(Esto va en el módulo estándar)

'Esta API asigna la posición del puntero.
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

'Esta API permite mostrar u ocultar el puntero.
Public Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

'==========================================

'Esto va en el formulario:

Private Sub Command1_Click()
Static ValorRetorno As Long 'Variable para el valor de retorno
If ValorRetorno >= 0 Then
ValorRetorno = ShowCursor(0)
Command1.Caption = "Mostrar puntero"
Else
ValorRetorno = ShowCursor(1)
Command1.Caption = "Ocultar puntero"
End If
End Sub

'Y para asignar la posición del puntero usa el otro botón:

Private Sub Command2_Click()
SetCursorPos 0, 0
End Sub

Los valores 0, 0 son respectivamente X e Y en la pantalla. Lo de hacer clic mediante código no lo sé. Espero que te sea útil este código.

Contestar

Pregunta:	54720 - ABRIR ARCHIVOS POWER POINT CON VISUAL BASIC 6
Autor:	Alberto
Que tal, estoy haciendo este procedimiento para abrir archivos desde mi aplicacion en VB6, con word y excel funciona perfecto pero con power point me arroja el siguiente error : "THE POWER POINT FRAME WINDOWS DOES NOT EXIST" este es el codigo. Dim PREG As Integer Dim RUTA As rdoResultset Dim ARCHIVO As String Dim app As Object ARCHIVO = RUTA!UNO Set app = CreateObject("POWERPOINT.APPLICATION") app.Presentations.Open ARCHIVO app.Visible = True app.Presentations(1).Activate Set app = Nothing Alguna ayuda? saludos

Respuesta:

jose

Private Sub Command4_Click()
Dim Ruta4 As String

Call AbrirPowerPoint(Ruta4)

End Sub
Public Function AbrirPowerPoint(strSourcePPTpath As String)
Ruta4 = Text3.Text

Dim PowerPoint As PowerPoint.Application
Dim oFile As PowerPoint.Presentation

Set PowerPoint = New PowerPoint.Application '++++++++++++++++++++++++++
PowerPoint.Visible = msoTrue '+++++++++++++++++++++++++++++

PowerPoint.ShowWindowsInTaskbar = msoFalse '++++++++++++++++++

Set oFile = PowerPoint.Presentations.Open(Ruta4, , , True)

Set oFile = Nothing '+++++++++++++++++++++
Set PowerPoint = Nothing '++++++++++++++++++++++++

End Function

Contestar

|< << 280 281 282 283 284 285 286 287 288 289 290 >> >|