PREGUNTAS CONTESTADAS -

 Hay un total de 3030 Preguntas.<<  >> 

    Pregunta:  11070 - ADO PARA VB EMBEDDED (LISTAS-TABSTRIPS)
Autor:  S.O.S
Me gustaría saber cómo se selecciona un item de una lista en VB Embedded.También cómo se programan los tabstrips.
Si me puedes decir alguna página de internet que tenga información sobre esto también te lo agradecería.
Gracias.
  Respuesta:  Mauricio Leyzaola
Hay una que tiene código de mucha calidad, pero el problema es que no explica nada, te tendrás que buscar la vida creo... Saludos.

www.freevbcode.com

    Pregunta:  11073 - SERVICIO EN WNT
Autor:  david gómez gómez
estoy intentando hacer un servicio en Windows NT 4.0 Server, hasta ahora lo más que he conseguido es instalar y desinstalar, pero no consiguo que arranque y cuando me voy al panel de control\servicios, y lo intento iniciar me dice siempre lo mismo, <>.

estoy intentando que el servicio arranque un pequeño programa EXE y lo ejecute.
¿Estoy equivocado?, ¿ es posible?.
por favor contesten en la medida de lo posible
  Respuesta:  Arturo González E.
Por medio de la presente envio este archivo zipiado donde contiene un pequeño ejemplo de solución

resp11073.zip
  Respuesta:  Arturo González E.
David, Saludos!!!

Por la largada de la respuesta, esta en el archivo resp11073.txt
Para mayor información enviame tu email y te envio un pequeño ejemplo con el codigo integrado. Espero te haya ayudado en algo.

    Pregunta:  11075 - IMPLEMENTACIóN DE MODULOS EN UNA APLICACIóN
Autor:  Carlos Vicente
Desearia saber si existe alguna forma de agregar un nuevo modulo o sección a una aplicación desarolada en Visual Basic y si debe ser un nuevo .EXE o no, actualmente creo una APLICACION.EXE y luego un MODULO.EXE y lo llamo desde la aplicación, pero esto me trae algunas dificultades.
  Respuesta:  Juan Carlos Galvan
No se si lo que quieres es hacer un modulo. pero que modulo hablas, porque si es como un modulo donde se tienes las rutinas para el sistema, es demaciado sencillo,

Si tienes el codigo solamente tienes que posicionar el raton sobre la Explorador del Proyecto (este lo sacas del menu ver en donde dice explorador del proyecto, hablando que tu vb sea en español) ya estando en esa ventana, presiona con el boton derecho de tu rato, y aparecerá un menu emergente en le cual seleccionas agregar. a su vez este tiene un submenu y aqui esta lo que deseas, solamente tienes que tener que elegir un modulo, y asi asignas un nuevo modulo a tu aplicacion.

Lo siente si no entendi bien tu pregunta es que te conteste como si no supieras casi nada de VB, pero si te ofendi lo siento, pero si te ayude en algo me da mucho gusto. si esta no era la respuesta a tu pregunta, hazla nueva mente y mas entendida.

Adios

    Pregunta:  11079 - AL CERRAR WINDOWS, EJECUTAR UN COMANDO
Autor:  Alex Mauri
Muy buenas a todos.

Mi pregunta es la siguiente:
Tengo una aplicación en memoria durante la ejecución de Windows. Entonces, quiero que si se cierra Windows, mi programa lo sepa y aparezca un mensaje haciendo una preguntita. Si la respuesta es afirmativa, quiero que se grabe una registro en una base de datos Access. Pues bien, yo he puesto la pregunta en el QueryUnLoad y el programa sabe, por la variable que me devuelve este evento, si se está cerrando Windows. El mensaje se muestra correctamente, pero si la respuesta es afirmativa, por lo tanto graba un registro, hay un error numero 5. ¿Porque sucede esto? ¿Es posible que sea porque Windows ya ha empezado a apagarse y no sea posible ejecutar ningún comando? ¿Puedo hacer algo para pausar el cierre de Windows?
Bueno, no se si me he explicado bien. Si alguien no me entiende, por favor enviarme un email.

Gracias por todo, y que paseis un buen día.

Adios.
  Respuesta:  SuNcO
Tarde un poco pero ya encontre como hacerlo y es con una API

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Esa linea ya sabes, se pone hasta arriba de tu proyecto

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If Form1.Tag <> "ya" Then
Cancel = True
variable = ExitWindowsEx(1, 1) ' este es para ke no se cierre Windows
' aki proceso de guardar o no se ke kieres
Form1.Tag = "ya"
End ' aki va a volver al QueryUnload
End If
variable = ExitWindowsEx(1, 0) ' ahora ke si se cierre, aunke es linea opcional

fin:
End Sub

    Pregunta:  11103 - CARACTERES DE CONTROL DE IMPRESORAS
Autor:  Mauricio Iacopini
Tengo problemas con el uso de caracteres de control de una impresora matricial. Tengo el manual de la impresora (Epson LX 300), pero no puedo hacer que el papel avance hasta la linea de troquelado una vez finalizada la impresión, y tampoco que se reposicione el papel antes de comenzar una nueva impresión. Evidentemente algo estoy haciendo mal. Uso las siguientes instrucciones:

Open LPT1 For Output As #1

Print #1, Chr(27) & "@"; 'inicializar impresora
Print #1, Chr(27) & "!" & Chr(0); '10 cpi
Print #1, Chr(18); 'cancelar modo condensado
Print #1, Chr(27) & "F"; 'cancelar modo resaltado
Print #1, Chr(27) & "H"; 'cancelar modo doble trazo
.
.
Print #1, .......... 'Texto a imprimir
.
.
.
Close #1

Muchas gracias por adelantado.
  Respuesta:  EDGAR CHURATA FERNANDEZ
primero teines que poner el caracter de avance de pagina
Print #1, Chr(12)

luego haz entrado al setup de la impresora hay una opcion para el corte de hoja para que avance y vuelva a su lugar en la siguite impresion

si no es esto mira si tu impresora es de antes del año 95
entonces pueda ser que sea el bios de la impresora
chau
  Respuesta:  Guillermo Molina
si el impresor lo has definido como texto
enviale el caracter de avance de página

    Pregunta:  11116 - SERVICIO EN WNT
Autor:  david gómez
Estoy realizando un servicio en Windows NT 4.0 Server y ahora he conseguido instalar y desintalarlo con normalidad, pero a la hora de arrancar el servicio, me dice siempre el mismo problema.
<> este es el mensaje repetitivo que me da el código que utilizo es el article Q170883,que lo podemos encontrar en la página de microsoft, creo que en la MSDN online. si alguien me puede ayuder le estaré muy agradecido.
  Respuesta:  Juanjo .
David.

El Visual basic no está preparado para funcionar como servicio NT. Si has creado un instalador con el control NTService, la instalación y la desinstalación te funcionarán correctamente, pero si para iniciar y parar usas propiedades que has almacenedo en el control no te funcionará el arranque paro. Esto es debido a que VB funciona de tañ manera que se ejecuta en una instancia separada cada vez que relaiza una función, es decir, crea un nuvo objeto de NTService, con lo que las propiedades que has puesto te han desaparecido.

Otro problema es que, si logras arrancarlo, en VB no podrás detectar el 'suth down', ya que VB no detecta todos los mensajes de MS, entre ellos este, y tu programa sera 'abortado por la brava'. Para instale/desisntalar un programa te sugiero que uses los programa XYNTservice (o algo así), que te solucionan (con técnicas extrañas) los problemas con VB en servicios.

Un saludo

    Pregunta:  11124 - COMO PUEDO SABER COMPONENTES DEL COLOR
Autor:  Pedro Mass
Quiero hacer un programa para visualizar gráficos pero no he podido empatarme con la forma de saber la cantidad de rojo,verde y azul de un pixel para aplicar un algoritmo para convertir una imagen en colores a escala de grises.Si alguien tiene una respuesta la apreciaré mucho su ayuda.
Gracias.
  Respuesta:  Juan Cecconi
Buenas, la forma de saber el compoente RGB de un pixel es utilizar la API llamada "GetPixel" que figura en el Help (SDK) , donde recibe el hDC y las coordenadas del pixel y devuelve un tipo de dato COLORREF (long) con las componentes RGB del pixel de la forma 0x00BBGGRR (RGB al reves, el ultimo byte es 00 pues no se uitliza)

    Pregunta:  11149 - MODELO CLIENTE/SERVIDOR VISUAL BASIC-ACCESS 97
Autor:  Alcides Frank Pimienta Florez
Aclaro un poco mi pregunta con respecto a la anterior.

He creado grupos, usuarios con sus respectivas claves desde access 97 y no se como utilizar este mismo esquema de seguridad desde un programa de Visual Basic 5, tengo entendido que existe un archivo llamado System.mdw pero no se como utilizarlo.

Por favor si alguien me puede aclarar esta duda, le estaré muy agradecido.
  Respuesta:  Luis Fernando Melo
Por la largada de la respuesta esta en el archivo resp11149.txt.

    Pregunta:  11164 - CAMBIAR DE TAMñO DE PAGINA EN DATA REPORT DE VB 6.0.
Autor:  Luis B V.
Actualmente estoy haciendo un sitema en VB 6.0 conectado a una BD Access 2000. Los Reportes los estoy haciendo con DAta Report de VB 6.0.
Sin embargo no encuentro la manera de que el programa me acepte un informe en una pagina A4 Horizontal porque si aumento los margenes del informe me bota un error.
Alguien sabria como hacer esto?.

Gracias.
  Respuesta:  Joan Molina Jordá
Hay una dll de Microsoft que te permite hacer lo que tú quieres.
Se llama PageSet.dll

Y lo que tendrias que hacer es crear un objeto PrinterControl del Miembro PageSet y ya está

Set objPC = New PageSet.PrinterControl
objPC.ChngOrientationLandscape

    Pregunta:  11177 - PRESENCIA DE WORD, INSTANCIA CON TEXTO Y TABLA
Autor:  Melchor Ranchal Migallón
Esencialmente, lo que me gustaría es que mi aplicación detectara si Word se ha inciciado para luego crear una instancia que me permita dar formato a un texto y una tabla que he rellenado desde mi aplicación. Lo que quiero es evitar el uso del objeto Printer.
  Respuesta:  Antonio Quintela
Creo que para lo que quieres hacer no es necesario que detectes si Word está iniciado. En el siguiente ejemplo se utiliza Word para imprimir un texto con formato desde VB.

Public Sub Imprimir_Texto(sTexto as string)
Dim oHoja As Word.Application
Dim oDoc As Word.Document

Set oHoja = New Word.Application
Set oDoc = oHoja.Documents.Add

oDoc.PageSetup.LeftMargin = 71 ' 2,5 cm.
oDoc.PageSetup.RightMargin = 71
oDoc.ActiveWindow.Selection.InsertAfter Text1.Text
oDoc.ActiveWindow.Selection.Paragraphs(1).Alignment = wdAlignParagraphCenter
oDoc.ActiveWindow.Selection.Paragraphs(1).Range.Font.Name = "Times New Roman"
oDoc.ActiveWindow.Selection.Paragraphs(1).Range.Font.Size = 18
oDoc.ActiveWindow.Selection.Paragraphs(1).Range.Font.Bold = True
oDoc.ActiveWindow.Selection.Paragraphs(1).Range.Font.Underline = True
oDoc.ActiveWindow.Selection.Paragraphs(1).Range.Font.Italic = True
oDoc.ActiveWindow.Selection.EndOf
oDoc.Activate
oDoc.PrintOut (0)
oDoc.Close (0)
oHoja.Quit
Set oDoc = Nothing
Set oHoja = Nothing

Espero que te haya servido de ayuda.

Saludos.

|<  <<  116 117 118 119 120 121 122 123 124 125 126  >>  >|