PREGUNTAS CONTESTADAS - Visual Basic

 Hay un total de 3030 Preguntas.<<  >> 

    Pregunta:  1048 - EJECUTAR ARCHIVOS DE MP3 EN VISUAL BASIC
Autor:  Nancy Godoy
Hola a todos, mi consulta es la siguiente:¿Como podria hacer para que, asociando el evento clic a un boton pueda escuchar un archivo en formato MP3, AU u otro diferente de WAV o MID?.
He probado una funcion llamada Call PlaySnd que ejecuta archivos de sonido pero solo sirve para el formato WAV.
  Respuesta:  Gabriel Memmel
Esta es una forma muy simple de reproducir un mp3 en vb, es solo insertar el control WindowsMediaPlayer y volverlo invisible que el hace todo el trabajo, solo debes especificarle cual es el archivo y darle los comandos de ´open´ y ´play´. Espero que te sirva esta resepuesta.
  Respuesta:  Jacinto Gómez Cárdenas
Una forma de hacerlo es tener el programa Winamp.
Que lo puedes encontrar en la Red.
Si lo tienes crea un lista con todos los temas que quieras.
Si sabes crear una lista, que normalmente tiene una extension - m3u
Una vez que tenga la lista.
Crea un formulario de VBasic
inserta un Ole y en el mismo formulario
_______________
Ole1.Doverb
______________________
Lo ejecutas y empezara funcionando El Reproductor
Winamp. con todos los temas seleccionados.
______________________
No se si te he solucionado el problema, yo he hecho un Cd que se autoejecuta y empieza a reproducir las canciones y ademas con el programa PowerPoint ejecuta todas las fotos que le incorporo mientras estoy escuchando musica, voy viendo fotografias.
  Respuesta:  F. Bernal
Hay dos formas, la rustica que es buscar el nombre del reproductor asociado com mp3 y hacer un vulgar "Shell" colocando como parámetros la palicación y el archivo y el atributo de ejecutar minimizado, la otra forma es que bajes de internet un dll que tenga funciones para reproducir mp3 y lo incluyas en tu aplicación.

    Pregunta:  1051 - CONEXION ATRAVES DE ODBC CON LAS API´S
Autor:  Antonio Diaz Ly
Necesito, código de ejemplo para Visual Basic 5.0 de conexión a base de datos con API ODBC, sin usar RDO.

Gracias

  Respuesta:  LM Caballero
Con gusto te puedo enseñar a hacerla

Dim sCadena as string ´para la cadena de conexion
scadena = "DSN=;Driver={SQL Server};Server=[TU SERVER];Login=sa;Password=;Database=[TU BD]"

Reemplaza el Login y el Password si es que son distintos

Luego asocia la cadena a la Propiedad Conection que manejes. Como no se si estas en DAO, RDO o ADO no puedo darte el ejemplo pero creo que a partir de aqui ya esto es facil. Esto se llama Conexion sin DSN (DSN-less conection) y normalmente funciona bien, excepto por un problema que tengo justo ahora... No se como usar Crystal Reports con conexiones sin DSN!!!

    Pregunta:  1058 - MANIPULAR EL BRILLO Y CONTRASTE EN IMAGENES
Autor:  Jose Luis
Hola.
Estoy programando una aplicación "simulador de rayos X" que tendrá carácter divulgativo o educativo para estudiantes de rayos X y técnicos. Estoy utilizando VB 5. He conseguido compaginar muchos parámetros que influyen en la imagen final pero lo que me falta es precisamente eso. ¿Cómo manipulo el contraste y la densidad de color de una imagen BMP o JPG según esos parámetros? ¿Se puede hacer? ¿Puedo controlar contraste y densidad de color de una imagen y que se muestre, ya manipulada y abierta, en la aplicación? (equivaldría a la placa de rayos X ya revelada)
  Respuesta:  Mike
Para realizar procesamiento de imagenes bmp, usted debe abrir los archivos por medio de la instruccion open y realizar los cambios a la matriz de la imagen utilizando archivos temporales, en la actualidad me encunentro realizando un proyecto similar. Los algoritmos de procesamiento se los puedo enviar.

Escribame si necesita mas informacion.
  Respuesta:  mabry
probaste la API BitBlt?

Si no la has probado, escribeme.

Esta api´ te permite sacar un negativo de una imagen (entre otras muchas cosas que es capas de hacer)

    Pregunta:  1071 - CORREO EN VISUAL BASIC CON OUTLOOK
Autor:  Euge
Estoy preparando una aplicación que mande correo automáticamente utilizando el Outlook. El código generado es :
Set Uno = CreateObject("Outlook.Application")
Set Dos = Uno.GetNameSpace("MAPI")
Set Tres = Uno.CreateItem(0)
Dos.BCC = "Dirección de correo cualquiera"
Dos.Subject = "Asunto cualquiera"
Dos.Body = "Texto del correo ..."
Dos.Send
El código se ejecuta sin error, pero no me genera ningún mensaje en Outlook.
¿Dónde está el fallo?
  Respuesta:  Ruben Alejandro Romero Mansilla
El problema esta en que tenes que reemplazar el Dos por un Tres luego del ultimo Set.

Set Uno = CreateObject("Outlook.Application")
Set Dos = Uno.GetNameSpace("MAPI")
Set Tres = Uno.CreateItem(0)
Tres.BCC = "Dirección de correo cualquiera"
Tres.Subject = "Asunto cualquiera"
Tres.Body = "Texto del correo ..."
Tres.Send

Y deberias colocar un If Err Then msgbox "Error"
Luego de cada set para verificar que pudo crear cada uno de los objetos correctamente. Saludos
  Respuesta:  Hernan Medrano
Para mí, lo mas conveniente es que utilices el control mapi que te proporciona vb 5.0.
Tenes el objeto mapisession y el mapimessage. Si queres que te amplie el panorama enviame un mail.

    Pregunta:  1074 - EJECUTAR APLICACION DE VB4-16 BITS
Autor:  Gerardo
tengo varios programas realizados en vb4-16 y no puedo ejecutar los programas desde el ejecutable, pero si me deja hacerlo si lo hago desde vb, creo que es por office 97, por favor alguna solucion...
Mil Gracias
  Respuesta:  HORACIO ACOSTA
PASÉ POR UNA SITUACIÓN SIMILAR. PARA DARTE UNA RESPUESTA UN POCO MAS CONCRETA, DESEARIA QUE ME DIERAS MAS DETALLES DE LA APLICACION. ESCRIBEME.
  Respuesta:  Tony Montes de Oca
Bueno, no creo que sea el office. Pero lo único que se me ocurre es que , si tienes los fuentes, los compiles con VB 32 bits

    Pregunta:  1075 - TRANSFORMAR DE DECIMAL A BINARIO
Autor:  Walter
Por favor si saben de un funcion que convierta un valor decima a binario... Gracias
  Respuesta:  Javier Bence
Yo he creado una rutina muy primitiva de cuatro variables y utilizando el MOD. Sirve para convertir números desde 0 a 255... Si te sirve, escribeme y te envío la fuente por e-mail...
Good luck!!!
  Respuesta:  Santiago Pastor
Por la largada de la respuesta, esta en el archivo resp1075.txt
  Respuesta:  Pablo Ces
Por la largada de la respuesta, esta en el archivo resp1075-2.txt
  Respuesta:  Cristobal Alberto Melara
Por la largada de la respuesta, esta en el archivo resp1075-3.txt

    Pregunta:  1079 - COMO PASAR PARAMETROS AL DATA REPORT DESIGNER
Autor:  Jonathan Rivera
Tengo una duda muy grande, me dijeron que hiciera un reporte usando el Data Report Designer de Visual Basic 6.0, pero necesito pasarle unos parametros desde codigo Visual al reporte y no se como hacer esto.

Si alguien sabe por favor digamelo.

¡Gracias!

  Respuesta:  Lisbet Gutierrez
abres el DataEnvironment y luego, si vas a tomar el parametro de algun texto se lo asignas como la segunda linea, luego mandas llamar tu reporte.
y en el command en el SQL pones: SELECT FROM tabla WHERE (campo = param1)

DataEnvironment1.Connection1.Open
DataEnvironment1.Command1 Text1.Text
DataReport3.Show vbModal
DataEnvironment1.Connection1.Close

si funciona, yo me la quebre un rato pero salio
  Respuesta:  Alex
Por la largada de la respuesta, esta en el archivo resp1079.txt.

    Pregunta:  1086 - BARRA DE PROGRESO
Autor:  Cristóbal Melara
LO QUE HAGO ACTUALMENTE ES ABRIR UNA BASES DE DATOS Y HAGO UN APPEND FROM file.txt TYPE DELIMITED.

LO QUE DESEO HACER ES AGREGAR EL CONTROL ACTIVEX QUE TE MUESTRA EL PROGRESO DE UN PROCESO.

SI FUERA EN UN BUCLE NO HABRIA PROBLEMA, PUES VAS ACTUALIZANDO LA PROPIEDAD VALUE DEL CONTROL CON EL RECNO(), PERO EN UN APPEND NO SE COMO CONTROLAR EL VALOR ACTUAL DEL RECNO() PARA HACER QUE ACTUALIZE LA PROPIEDAD VALUE DEL CONTROL.

  Respuesta:  Rasta X
Esto se hace usando el GaugeControl.
Debes crear un Gauge en una ventana individual,
luego debes calcular o saber previamente la cantidad de registros a procesar (los que se "appendearan"), esto es para calcular el valor de progreso del Gauge.

Después de realizar el Append, debes colocar lo siguiente:
Form_individual.Gauge1.value=(cont_reg/TOT_reg)*100
Form_individual.Gauge1.Refresh

si quieres agregas esto:
Form_individual.Refresh

    Pregunta:  1087 - CAPTURAR EL TECLADO DESDE UN MODULO
Autor:  Pilar Training Center
Estor desarrolando mi aplicacion bajo VB5, y realmente he intentado muchas maneras para poder capturar el teclado desde un modulo sin la intervencion de un Form, aunque he probado haciendolo invisible, pero en cuanto pierdo el foco del Form adios!, ya no sirve. Entiendo el funcionamiento de la API de Windows pero me confundo con los parametros que requieren algunas de las funciones, es tema aparte y ya aprendere.

Mil Gracias

  Respuesta:  ivan c.
ESTO SE LOGRA CON UN API , TE DARE SOLO LA BASE, LO DEMAS DEPENDE DE TI.
Pon un Timer En tu Form:
Un Text box:
Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim buffer As Integer

Private Sub Timer1_Timer()

Dim intAscii

For intAscii = 1 To 255
buffer = 0
buffer = GetAsyncKeyState(intAscii)

If buffer <> 0 Then
Text1.Text = Text1.Text & Chr(intAscii)
End If

Next

End Sub

    Pregunta:  1089 - DETERMINAR EL NOMBRE DE LOS CAMPOS DE UNA TABLA
Autor:  Felix Fuenpe
¿como puedo conseguir los nombres de capos de las tablas a las que entro?
Estoy haciendo una busqueda en muchisimas tablas, accedo a ellas, consigo el numero de campos de cada una de ellas pero me kedo en lo fundamental, como no se si dicha tabla contiene el campo ke necesito la sentencia SQL ke genero me produce un error, el cual podria resolverlo si no accedo a la consulta al no tener la tabla dicho campo, dios mio ke rollo os estoy soltando ;)
La verdad ke tampoko se si estoy haciendo bien generando instrucciones SQL, en fin ke soy un mar de dudas ;)
Gracias
  Respuesta:  Santiago Pastor
El siguiente ejemplo muestra los nombres de los campos de la tabla "Authors" de la base de datos MS Access "biblio.mdb" que viene como ejemplo.
Dim mibd As Database
Dim mitd As TableDef
Dim a As Integer

´ Abrimos la base de datos de Ms Access
Set mibd = OpenDatabase("c:\biblio.mdb")

Set mitd = mibd.TableDefs("Authors")

´ Mostramos los nombres de los campos
For a = 0 To mitd.Fields.Count - 1
MsgBox mitd.Fields(a).Name
Next a

|<  <<  17 18 19 20 21 22 23 24 25 26 27  >>  >|