PREGUNTAS CONTESTADAS - Visual Basic

 Hay un total de 3030 Preguntas.<<  >> 

    Pregunta:  49582 - SELECCION ROLLO TM-U950 PARALELA
Autor:  Jose Ignacio Bolaños Rodriguez
Compañeros necesito imprimir texto en una impresora paralela de la serie Tm-U950, pero necesito hacerlo de la manera convencional, abriendo el puerto y que pueda decirle en cual rollo escribir (comprobante, auditoria o ambos)

Estoy utilizando la siguiente rutina:
Open "Lpt1:" for Output as #1
Print #1, "Comando para seleccionar el rollo"
Print #1, "Prueba"
Close #1

Necesito conocer el comando para seleccionar el rollo en el que voy a imprimir.

Gracias por su ayuda.
  Respuesta:  Jorge Martínez
Por la largada de la respuesta, esta en el fichero:
resp49582.txt

    Pregunta:  49638 - COMO PUEDO CREAR UN GRABADOR DE CDS
Autor:  Muela Byte
He buscado informacion, y encontre algo llamado ASPI, son librerias DLL, es algo asi como una interfaz de programacion estandar, para programar dispositivos SCSI y compatibles por ejemplo IDE. Pero por mas que he hecho pruebas no logro hacerlas funcionar, por favor si alguien sabe como grabar informacion en un CD por medio de estas librerias se lo agradeceria mucho.
  Respuesta:  luis fernando escobar
Lo que puedes hacer es enviar los archivos a quemar a una carpeta de usuario llamada cdburning, la ruta de esta carpeta la consigues con una api.
cuando copias los archivos a esta carpeta, windows muestra el asistente de grabacion de cd automaticamante, con los archivos que hayas enviado a la carpeta.

si te interesa escribeme.

    Pregunta:  49664 - OBTENER LA FECHA Y HORA DE UN SERVIDOR DE BD EN UNA RED LAN
Autor:  VYANKA GUZMAN
Estoy haciendo un sistema que calcula el pago de la nómina de los empleados y necesito registrar la hora de entrada y salida de cada trabajador junto con la fecha pero de acuerdo a la hora y fecha de mi servidor de Base de Datos, que se encuentra en un red LAN, si alguien sabe como hacerlo de antemano le agradezco su ayuda......
  Respuesta:  Eider Mauricio Aristizabal Erazo
puedes hacerlo al momento de guardar el registro en la base de datos con un QUERY, que la base de datos tome la fecha desde el servidor de bases de datos así:
insert into tabla (id, fecha) values(1, now())

    Pregunta:  49729 - GENERAR REPORTES EN FORMATO PDF
Autor:  Pablo Hernandez
Hola

Estoy realizando un sistema en Viusual Basic 6.0 con MySql, y quiero hacer reportes en formato pdf, ya encontré algo de información, una opción es usar pdf.ocx y la otra es usar una archivo dll llamado oPDF.DLL, pero hasta ahora no he podido crear ningún archivo en este formato.
Les agradecería si alguien me puede mandar una guía o un ejemplo para generar archivos pdf desde Visual Basic 6.0
  Respuesta:  yurandir Lopez
Hola, yo lo solucioné de esta manera, encontre en la web una programita que me instala una impresora pdf y para enviar una impresión solo debo seleccionar esta impresora y me crea la impresion exactamente como me lo daria en la impresora y en un archivo pdf.

El proveedor es pdf995, buscalo en la web y listo.

Suerte

    Pregunta:  49771 - IMPRIMIR EN MODO TEXTO
Autor:  marco antonio urbina escandon
Requiero Hacer una Impresion de un Reporte en Modo Texto, como si fuese desde MS-DOS, ya que si lo imprimo con el Objeto Printer es demasiado tardado.

requiero agilizar su impresion, sin pasar por un reporteador o diseñador de reportes como el Crystal y DataReport
  Respuesta:  yurandir Lopez
Usa el tipo de letra Draft 20cpi, draft 15cpi, draft 12cpi o draft 10cpi si es una impresora matricial y si no usa el courrier y el tamaño de letra que necesites

    Pregunta:  49778 - PUERTO PARALELO EN TARJETA PCI
Autor:  neils martaco
Señores, he revisado varias webs y no he encontrado informacion que me pueda servir para solucionar un problem q tengo con el pto paralelo.
Verán, actualmente utilizo la inpout32.dll -for winxp- para comunicarme con el pto paralelo. Debido ha daños en mi pc reemplazé el puerto por una tarje de PCI de Puerto Paralelo, lo que ocurre ahora es que no puedo establecer comunicacion con esa tarjeta. a través de visual basic, he intentado lo siguiente:
1. deshabilité el puerto anterior (LPT) desde el setup de la board.
2. La direccion de la tarjeta PCI de Puerto Paralelo, que aparece en el administrador de dispositivos de windows xp es : D068-D06F. Estas direcciones no me funcionan utilizando la dll de inpout32.dll con VBasic.

Que me recomiendan q se pueda hacer para solucionar este problema?
  Respuesta:  Leonardo Q
Segun a lo que se la direccion fisica del puerto paralelo se lo configura por el BIOS, asi que deberias hecharle una revisada en tu BIOs y no solamente en windows, podrias elaborar un programilla de prueba en C++, arrancar desde DOS el programa y ver si sirve el puerto, deberias referirte tambien al manual de tu tarjeta para revisar la direccion correcta.
Espero que haya sido de ayuda.
Salu2

    Pregunta:  49799 - COMO ABRIR UN LA BD ACCESS CON CONTRASEñA CON CRYSTAL 9
Autor:  angel arevalo
Hola como están me gustaría saber si me puede ayudar con el problema que tengo con los reportes de crystal 9 por que no puedo abrir la base de datos Access con contraseña anterior mente no tenia contraseña y no tenia problemas ahora que le puse no puedo establecer bien las tablas de la vista visual Basic

El código de la vista es el siguiente

Public Report As New DiseOficial
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
With Report

.Database.Tables(1).Location = Ruta '.ParameterFields(1).AddCurrentValue (Val(QuitaSignos(AltaReciboOfi.TxtRecibo.Text)))

End With
Oficial.ReportSource = Report
Oficial.ViewReport
Screen.MousePointer = vbDefault

End Sub
Private Sub Form_Resize()

With Oficial
.Top = 0
.Left = 0
.Height = ScaleHeight
.Width = ScaleWidth
End With
End Sub

El código de la RUTA es la siguiente

Public Function ObtieneRuta() As String
Dim TmpNum As Integer
Dim Cadena As String

TmpNum = FreeFile

Open "SCN.INI" For Input As #TmpNum
Line Input #TmpNum, Cadena
Close #TmpNum

ObtieneRuta = Cadena
End Function
Ruta es una baria global
Ruta=ObtieneRuta

Es te el código para abrir la base con contraseña

Public Sub ConectaDB()

Set DBNotaria = OpenDatabase((Ruta), False, False, ";pwd=X")
DBNotaria.Recordsets.Refresh

End Sub

Gracias
  Respuesta:  jose manuel garcia lopez
Eso es por que tienes que especificarle la contraseña a cada tabla, a mi me pasó lo mismo espero q el codigo te ayude

Dim crapp As New CRAXDRT.Application
Dim crreport As New CRAXDRT.Report
Set crreport = crapp.OpenReport(establecerInforme, 1)
crreport.Database.LogOnServerEx "p2soledb.dll", App.Path & "\cursos.mdb", "", "", "", "OLE DB", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=K:\Cursos v.3.0\cursos.mdb;Persist Security Info=False;Jet OLEDB:Database Password=gestioncurso"

crreport.DiscardSavedData

'Para poder imprimir tenemos que recorrer previamente todas las tablas e introducir la pass de la BD

For cont = 1 To crreport.Database.Tables.Count
crreport.Database.Tables(cont).ConnectionProperties.Item("password") = "la pass que tenga la bd"
Next

    Pregunta:  49843 - ARRASTRAR Y SOLTAR UN OBJETO
Autor:  juan sanchez
necesito saber que códigos o instrucciones debo utilizar para que un objeto se quede en el lugar donde yo lo mueva
  Respuesta:  Carlos Piña
Hola. La solución a esto la obtuve en una semana de investigación, probando códigos. Es muy eficiente. El código es el siguiente:

'Variables públicas a nivel de formulario:

Dim Mover as Boolean, P1 as Single, P2 as Single

'En el código del objeto que deseas mover debes colocar estas líneas:
'Tomaré como ejemplo un PictureBox.

Private Sub Picture1_MouseDown(Button as Integer, Shift as Integer, X as Single, Y as Single)
Mover = True: P1 = X: P2 = Y
End Sub

Private Sub Picture1_MouseMove(Button as Integer, Shift as Integer, X as Single, Y as Single)
If Mover Then Picture1.Move Picture1.Left + X - P1, Picture1.Top + Y - P2
End Sub

Private Sub Picture1_MouseUp(Button as Integer, Shift as Integer, X as Single, Y as Single)
Mover = False
End Sub

Un consejo que te doy es que no uses los eventos DragDrop ni DragOver, esos funcionan usando propiedades del objeto a arrastrar y es más confuso. Yo no los uso, pero pueden ser una opción también.
Coloca un PictureBox en un formulario y pega este código en el módulo de formulario y ejecuta el programa. Espero que te sirva de mucho como a mí.

    Pregunta:  49846 - CERRAR ACTIVEX
Autor:  Nuria
Holaaa!! Hice un programa en visual y solo me queda esta duda para terminarlo, asi que ojala me podais echar una mano.

Hay un programa principal que actua sobre otro que es un ActiveX, el principal se comunica con este por medio de un objeto creado; queria saber como puedo hacer para que al cerrar el principal se cierre tambien el active. No se si existe algun metodo para hacerlo, con el Close y con el End me da error.

Si podeis darme alguna idea os lo agradezco!!
  Respuesta:  Esus Vimen
Hola
No acabo entender muy bien el esquema que has planteado, ni veo el
error que produce, prueba:

En..... Sub Unload(Cancel As Integer, etc.........)
Cancel = True

Set................. = Nothing
End Sub

    Pregunta:  49861 - ESTABLECER COLOR DE TEXTO Y FONDO DE UN TEXTO SELECCIONADO
Autor:  Carlos Piña
Hola. Quiero saber si se puede cambiar el color del cursor en una caja de texto y si un texto seleccionado puede cambiar de color. Así como en el editor de código de Visual Basic, que uno puede cambiar el color de letra de un texto seleccionado y el color del fondo del texto seleccionado. Gracias por su ayuda.
  Respuesta:  Jorge
Eso se puede hacer con una RichTextBox en lugar de una TextBox normal, hay que cargar el control Microsoft RichText Box Control y puedes usarlo de esta manera

Private Sub RichTextBox1_SelChange()
RichTextBox1.SelColor = &HFF&
End Sub

funciona mejor que una TextBox por que es mas completo y no es necesario registrar controles adicionales en maquinas que no tienen VB instalado.

con el cambio de fondo en la parte seleccionada no puedo darte una solucion, sorry :( espero esto te sirva.

saludos

|<  <<  269 270 271 272 273 274 275 276 277 278 279  >>  >|