Iniciar sesi贸nCerrar
Correo:
Contrase帽a:
Entrar
Recordar sesi贸n en este navegador
Iniciar sesi贸nIniciar sesi贸nCrear cuentaCrear cuenta
LWP » Preguntas/Respuestas » Resultado de la B锟絪queda

BUSCAR EN PREGUNTAS Y RESPUESTAS

Volver
Agregar una pregunta
Buscar mis preguntas
Buscar
 Se han encontrado 2654 coincidencias.<<  >> 

Visual Basic
    Pregunta:  52020 - IMPRIMIR UN ARCHIVO .PDF DIRECTO A LA BANDEJA 3 EN VB
Autor:  Sr_Novato Novato
Que tal amigos, espero me puedan contestar mi pregunta ya que en verdad que me urge.

Necesito mandar a imprimir un documento .pdf a la impresora predeterminada, pero necesito que lo imprima utilizando forzosamente la bandeja 3 de la impresora. Por hay en internet baje algunos programitas pero no me resuelven mi problema, la aplicacion esta en visual basic 6.0.

utilizo la siguiente funcio, manda a imprimir pero no le importa de que bandeja lo imprima
res = ShellExecute(Me.hwnd, "print", "C:\prueba.pdf", "", "", 0)

Espero me puedan ayudar, de ante mano mil gracias
  Respuesta:  LUIS LAU
HOLA , LO QUE PUEDES HACER ES IDENTIFICAR LA IMPRESORA POR SU NOMBRECON LA QUE QUIERES IMPRIMIR SEGUN EL TIPO DE DOCUMENTO A IMPRIMIR:
EJEMPLO TENEMOS 3 IMPRESORAS CON NOMBRES "F","B","G"(PRINTER.DEVICENAME) 


Dim P As Printer

Dim nom_impresora As String

Dim POS As Integer

      

    x = Printer.Port                 'GUARDAMOS EL PREDETERMINADO

      For Each P In Printers  'BUCLE DE TODAS LAS IMPRESORAS

          POS = InStr(1, UCase(P.DeviceName), "(", 1)

          If POS > 0 Then

             nom_impresora = Trim(Mid(UCase(P.DeviceName), 1, POS - 1))

          Else

             nom_impresora = Trim(UCase(P.DeviceName))

          End If

'si el doc. es "01" y la impresora es F tonces asignamos la impresora 

'y salimos de bucle, hacemos los mismo en los demas casos

          If CODI_DOCUMENTO = "01" Then   

            If nom_impresora = "F" Then

               Set Printer = P

               Exit For

            End If

          End If

          If CODI_DOCUMENTO = "03" Then

            If nom_impresora = "B" Then

               Set Printer = P

               Exit For

            End If

          End If

          If CODI_DOCUMENTO = "09" Then

            If nom_impresora = "G" Then

               Set Printer = P

               Exit For

            End If

          End If

      Next P

'lineas a imprimir



printer.EndDoc

'luego dejamos la impresora con la q estaba como predeterminada
'la cual esta guardada en la variable x 


For Each P In Printers

   If P.Port = x Then

      Set Printer = P

      Exit For

   End If

Next P

'espero t ayude, me escribes

    Pregunta:  52080 - ACCESO A CARPETAS PROTEGIDAS DEL SISTEMA
Autor:  Khlor
驴Como puedo acceder mediante c贸digo visual basic a una carpeta del sistema que est谩 protegida con una contrase帽a?
Si accedo por el explorador de Windows me pide usuario y contrase帽a. Se la pongo y entonces ya puedo acceder desde el programa. 驴Puedo hacer que mi programa envie el usuario y la contrase帽a para poder acceder directamente?
Tengo una red con un servidor Windows 2000 Server, con un dominio y la carpeta a la que quiero acceder est谩 en un ordenador con Windows XP que no est谩 unido al dominio y que no debe estarlo.
Gracias
  Respuesta:  Saul Garay
Yo lo haria capturando la posicion del cursor, y desde el codigo detenerlo y enviar el texto tanto de usuario como de password, hay codigos en esta pagina que te muestran la posicion exacta del cursor, buscalos en los codigos fuentes.

Saludos

    Pregunta:  52129 - LINEA DEMASIADO LARGA
Autor:  V铆ctor Oliva
Uso acces para programar en visual basic.

Quiero hacer, solo por aprender, un programa que tu le pones un numero y este te devuelve el n潞 del decimal del numero pi que has dicho

ejemplo:
numero pi = 3,141592....
entrada: 5
salida: 9
pero el problema es que quiero que llegue a 2.500.000 de decimales, entonces yo lo que hago es poner:

Dim intermedario As Double
intermedario = Left("[numero pi]", Me!qt_entrada.Value)
Me!qt_salida = Right(intermedario, 1)

, donde [numero pi] es la cadena de 2.500.000 caracteres del numero pi.

Pero no me deja diciendome "linea demasiado larga"
Alguien sabe alguna forma de que no me ocurra esto?

Muchas gracias,
V铆ctor Oliva
  Respuesta:  Bismarck Pineda
El largo mas grande que puede tener un string es 1024, por eso te da ese mensaje.
saludos

    Pregunta:  52151 - CRYSTAL REPORT POR INTERNET
Autor:  Juan Fco X
Ojala alguien me pueda ayudar me super urge
Tengo Un Sistema hecho en Visual Basic 6, la base de datos en SqlServer 7 y los reportes Hechos en Crystal report 8.5 cel detalle es que acabamos de implementar una VPN pero los reportes me marcan el siguiente error "Server Hast Not Yet Been Opened" el servidor al que se conecta tiene windows 2000 server y todas las estaciones de trabajo tienen Xp

Set CrApp = CreateObject("CrystalRuntime.Application")
CrApp.SetMatchLogOnInfo True
CrApp.LogOnServer "PDSSQL.DLL", pTablasServ, pBD, pUsua, pPassw

pTablasServ,=nombre del servidor le pongo una Ip 192.168.1.10
pBD= nombre de la base de datos
pUsua= Usuario
pPassw=Password (Tiene Pasword el sql server)
  Respuesta:  Milko Ca帽ote
Cambiar
CrApp.SetMatchLogOnInfo True
Por
CrApp.SetMatchLogOnInfo False

    Pregunta:  52423 - VISUAL BASIC + PARADOX
Autor:  Eduardo Cejas
Tengo un sistema de analisis clinicos que funciona en DOS con tablas Paradox y quisiera pasarlo a visual basic utilizando las tablas existentes pero no encuentro la forma si alguien puede mandarme informacion sobre el tema se los voy a agradecer
  Respuesta:  Hans Cruz Buchelli
Este code copialo en un Modulo y listo... alli tienes apara poder conectarte a la carpeta donde se encuentra tu bd y tambien tienes un modulo para poder ejecutar las consultas q mandes desde vb6.0..

Option Explicit

Public CnnPrx As New Connection
Private vbPath As String

Public Function EjecutaPrx(vCsl As String) As Recordset
Dim Cmd As New Command
On Error GoTo Error
Cmd.CommandTimeout = 180
Cmd.ActiveConnection = CnnPrx
Cmd.CommandText = vCsl
Cmd.CommandType = adCmdUnknown
Set EjecutaPrx = Cmd.Execute
Set Cmd = Nothing
Exit Function
Error:
MsgBox Err.Description, vbCritical, "Aviso"
Exit Function
End Function

Public Function ConfigCnnPrx(TempConexion As Connection) As Connection
With TempConexion
If TempConexion.State = adStateOpen Then TempConexion.Close
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source").Value = vbPath
.Properties("Extended Properties").Value = "Paradox 5.X"
.Mode = adModeReadWrite
.Open
End With
End Function

Public Function ConnectPrx(vbRuta As String) As Boolean
On Error GoTo Error
vbPath = vbRuta

ConfigCnnPrx CnnPrx
ConnectPrx = True
Error:
If Err.Number <> 0 Then
MsgBox "Descripcion : " & Err.Description & Chr(13) & "Codigo : " & Err.Source & Chr(13) & "Id de error : " & Err.Number, vbCritical, "Aviso"
ConnectPrx = False
End If
End Function

Suerte espero q te sirva!!!

    Pregunta:  52456 - TAMA脩O DE HOJA CON VISUAL 6.0 Y CRYSTAL 9
Autor:  Juanm m
NECESITO QUE ME AYUDEN PORFA, NO SE COMO REALIZAR UN REPORTE CON UNA HOJA PERSONALIZADA DE (200 x 150), LOS REPORTES LOS ESTOY REALIZANDO EN CRYSTAL REPORT 9 Y LA APLICACION EN VISUAL BASIC 6.0.
  Respuesta:  Jose Eliezet Martinez
el reporte en crystal se hace igual, lo que cambia es la hoja en la que se imprime, tienes que configurar una hoja personalizada.

mandame tu direccion de correo y te envio un video donde te dice como.

Saludos
Jos茅.

    Pregunta:  52483 - ACCESO A BD MYSQL ALOJADA EN SERVIDOR HOSTING DESDE VB 6.0
Autor:  Juan Manuel Pereiro
Hola. Estoy desarrollando un sistema en Visual Basic 6.0 que usa una BD MySQL 5. El sisetema tiene una parte web, donde los clientes hacen consultas de precios, el estado de sus pedidos, etc. Por lo tanto, en el servicio de hosting contratado, reside OTRA BD MySQL, que conserva estos datos. El servicio de hosting tiene cerrados todos los puertos, por cuestiones obvias de seguridad, lo que incluye el 3306, asignado por lo com煤n a MySQL. La pregunta del mill贸n es: 驴C贸mo puedo acceder desde Visual Basic 6.0 a esta BD remota alojada en el servidor del servicio de hosting para subir datos actualizados de los servicios que se ofrecen y de los trabajos de los clientes?
Cuando plante茅 esta pregunta a la gente de soporte t茅cnico del servicio de hosting, esto fue lo que me respondieron:

"Una practica com煤n es embeber un navegador en su programa en Visual Basic, y programar enviar datos como si fuera desde un formulario al PHP en el servidor que se encargara de trabajar con los datos correspondientes y guardarlos en la base de datos MySQL.\"

Aclaro que desarroll茅 el sitio web en PHP. Pero lo que n贸 s茅 es c贸mo hacer eso de \"embeber un navegador en mi programa Visual Basic, y programar enviar datos como si fuera desde un formulario al PHP en el servidor\".

Si alguien puede decirme c贸mo se hace esto, desde ya, muy agradecido.
  Respuesta:  xavi
Hola Juan, la verdad, es que lo que te han dicho, es que en vez de desarrollar una aplicaci贸n en VB que se conecte a la base de datos, lo que te dices, es que desarrolles tu aplicaci贸n en php y desde tu aplicaci贸n de VB, coloques un navegador "embebido" (un navegador dentro de tu aplicaci贸n VB)... es lo mismo que realizar tu aplicaci贸n en PHP en vez de VB.

Hay otra manera de hacerlo, y es comunicando el vb con php... es decir, si por ejemplo quieres insertar un registro: Desde vb, envias los datos en un formato dado a una pagina php... esta pagina coge los valores y los guarda en la base de datos... responde ok. Tu aplicaci贸n de VB, coge ese valor ok para saber que se han guardado correctamente.
Y as铆, para todas las conexiones con la base de datos.

Espero que te sirva.

    Pregunta:  52522 - USO DE MSAGENT EN APLICACION VISUAL BASIC 6
Autor:  Hugo Rodriguez
Tengo un problema con el msagent de mi aplicaci贸n desarrollad en visual basic 6; En algunas computadoras donde se instala el aplicativo, el msagent (mago merlin) no "habla", no se escucha y solo se muestran los dialogos en pantalla; es mas no mueve la boca. Pero si se escucha los sonidos de desplazamiento de un lado a otro osea sonidos de tonos. El instalador tiene dentro de los archivos al respectivo archivo agentctl.dll. Alguien sabe como resolver esto.

gracias de antemano.
  Respuesta:  Eider Mauricio Aristizabal Erazo
Hola, las direcciones de descarga son:

Para instalaciones de usuario
http://www.microsoft.com/msagent/downloads/user.asp

para desarrolladores
http://www.microsoft.com/msagent/downloads/developer.asp
  Respuesta:  eider mauricio aristizabal erazo
Supongo que te falta instalar las API de Speech y el motor de texto a voz - TTS(Texto To Speech). Yo instalo los paquetes del MsAgent en los computadores clientes de la siguiente forma:
MSAgent.msi
spchapi.msi
spchcpl.msi
agtx0c0a.exe - idioma espa帽ol
lhttsspe.exe - idioma espa帽ol
filnalmente copio el .ACS en c.\windows\msagent\chars

Asegurate que en el panel de control aparezca la pesta帽a texto a voz del icono speech(Voz).

espero te sirva de algo.

    Pregunta:  52620 - TRANSPARENCIA DE FLASH AL CORRERLO EN VISUAL BASIC
Autor:  Ariel Mendivil Saharashaga
Hola que tal:

Espero y alguien me pueda ayudar, estoy desarrollando un software con VB 6.0 pero tengo una animacion en macromedia flash pero al parecer sin fondo, pero en mi formulario en visual tengo como fondo una imagen y a la hora de correr el formulario, sobre la imagen sale la animacion pero me sale en fondo blanco y no quiero que se vea asi, si no que necesito que tome el fondo del formulario, alguien puede ayudarme???
  Respuesta:  Maguibel de Jesus
Hay varias formas
1-busca en las propiedades del form donde dice picture y seleccona la imagen
2-introduces un picture y lo adecuas al tama帽o que kieras y luego vas a pa prodpiedades de dichi picture y en picture busca la imagen
3-Cojes un Image y lo coocas en el formmediante el tama帽o q usaras y vas a su propiedades y selecciona picture y selecciona la propiedad street y la pones true

    Pregunta:  52700 - EJECUTAR USERFORM AL ABRIR DOCUMENTO DE EXCEL
Autor:  Cristina Lopez
Necesito saber como hacer que un userform se ejecute solo al abrir el documento desde el VisualBasic de Excel. Preguntara si se quiere actualizar el documento y de ser SI la respuesta ejecutara una macro actualizando todos los datos. Como hacer que ese cuadro de dialogo sea lo primero que aparezca cuando se abra el documento?

Gracias!
  Respuesta:  Boluart Bedoya
Abre tu archivo de excel. En el menu Herramientas/Macro/Editor de visual basic.

en VBAProject(Libro1.xls) ' // donde Libro1.xls es el nombre de archivo de excel

Ubica el objeto ThisWorkbook le das click derecho y Ver c贸digo

y ahi (en el editor de c贸digo de vb) pones:

Private Sub Workbook_Open()
MsgBox 'Hello'
' aqui todo el codigo que deseas que se ejecute
End Sub

eso es todo.

|<  <<  234 235 236 237 238 239 240 241 242 243 244  >>  >|