PREGUNTAS CONTESTADAS - Visual Basic

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	28413 - COMO BUSCO UNA CADENA EN UN ARCHIVO .DOC Y LA MUESTRO AL USA
Autor:	Pascual de leon Genao
tengo que hacer una aplicacion que cargue un documento word en un browser ó en un rich textbox y necesito que el usuario escriba el texto a buscar y me muestre en el lado derecho las las diferentes paginas donde se encuentra y algun texto relacionado

Respuesta:	Dhymitri
Hola: si usar Richtext puedes usar la siguiente función del control Function Find(bstrString As String, [vStart], [vEnd], [vOptions]) As Long Member of RichTextLib.RichTextBox Searches the text in a RichTextBox control for a given string.

Contestar

Pregunta:	28453 - COMO PUEDO BUSCAR TODOS LAS VENTANAS(HANDLES) CON APIS?
Autor:	Raúl Muñoz
Como puedo hacer un bucle para usar todos los handles de todas las ventanas que haya en ese momento?

Respuesta:

Enrique Gondra Churruca

Puedes hacerlo utilizadon la API de Windows EnumWindows. Aquí va un ejemplo:

Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
Dim slength As Long, buffer As String ' title bar text length and buffer
Dim retval As Long ' return value
Static winnum As Integer ' counter keeps track of how many windows have been enumerated

winnum = winnum + 1 ' one more window enumerated....
slength = GetWindowTextLength(hwnd) + 1 ' get length of title bar text

If slength > 1 Then ' if return value refers to non-empty string
buffer = Space(slength) ' make room in the buffer
retval = GetWindowText(hwnd, buffer, slength) ' get title bar text
Debug.Print "Window #"; winnum; " : "; ' display number of enumerated window
Debug.Print Left(buffer, slength - 1) ' display title bar text of enumerated window
End If

EnumWindowsProc = 1 ' return value of 1 means continue enumeration
End Function

Private Sub Command1_Click()
Dim retval As Long ' return value
retval = EnumWindows(AddressOf EnumWindowsProc, 0)
End Sub

Espero que te sirva,
Enrique

Contestar

Pregunta:	28457 - CREAR CONEXION ODBC CON DSN EN VISUAL BASIC
Autor:	Vinicio Diaz
Necesito el codigo de como crear una coneccion ODBC utilizando un DSN en Visual Basic. Gracias

Respuesta:	Vinicio Diaz
La manera mas facil que e encontrado para coneccion odbc utilizando un DSN es: Set dbs = CreateObject("ADODB.Connection") dbs.Open "dsn=Nombre_dsn" dbs ----> es el nombre de la coneccion que se podra utilizar en todo el aplicativo Nombre_dsn ---> es el nombre del DSN creado con ODBC

Respuesta:

Roberto S. Gutiérrez Sáez

estimado espero que lo entiendas, esta es una funcion que te permite conectar mediante un dsn a la base de datos y que ademas te indica si la conexion se establecio correctamente o no

tu llamas a la funcion de la siguiente manera

If FPB_Conectar Then
MsgBox "CONEXION OK!"
else
MsgBox "CONEXION NO OK!"
End IF

Y la Funcion seria

Function FPB_Conectar() As Boolean
Dim str_Conexion As String
On Error GoTo E_SQL
Set VGW_wrkODBC = CreateWorkspace("NuevoWorkspaceODBC", "admin", "", dbUseODBC)
VGW_wrkODBC.DefaultCursorDriver = dbUseClientBatchCursor
str_Conexion = "ODBC;DATABASE=DF_P;UID=sa;PWD=;DSN=Base de Datos"
Set VGC_Conexion = VGW_wrkODBC.OpenConnection("conexion1", dbDriverNoPrompt, , str_Conexion)
FPB_Conectar = True
Exit Function
E_SQL:
MsgBox Err.Description
FPB_Conectar = False
End Function

sin mas y esperando tu correo

Contestar

Pregunta:	28467 - SLIDER PROGRAMADO PARA REGULAR EL VOLUMEN
Autor:	Luis Miguel Vázquez
Muy buenas a todos mi problema es el siguiente quiero insertar en mi aplicación un slider para que controle el volumen de sonido pero no se como enlazarlo a las funciones del sistema. No se si se puede programar de una forma normal o usando algun Api en lazado al slider.Tambien se me ocurre que puede realizarse enlazando el slider para que cuando este se mueva en una posicion el mezclador del sistema realize lo que tu le mandes. Espero que alguien se le ocurra o me pueda orientar o ayudar. Gracias y saludos de antemano.

Respuesta:	SuNcO
Aqui hay un ejemplo de como manipular el sonido http://www.elguille.info/vb/utilidades/volumen.htm Para lo de que funcione con un slider pues pones el min a 0 y el max a 65500 y usas un poco de cabeza =P

Contestar

Pregunta:	28493 - COMO CAPTURAR LA LINEA DE AUDIO DE UN MODEM DE VOZ
Autor:	Manuel
Hola, estoy haciendo un programa para llamar por telefono, y necesito poder grabar la conversación, El modem tiene una linea de audio como la tarjeta de sonido, pero como puedo capturarla, para poder grabar la conversación?

Respuesta:

Pablo. No

Si, si puedes grabar la conversacion. Si el modem te figura como disp. de sonido podras grabar la conversacion. Para probar que todo anda bien pone al modem como disp de sonido predeterminado y marca el tilde para que windows use solo dispositivos predeterminados. Luego establecida la comunicacion pone a andar la grabadora de sonidos. Si te graba es que esta todo bien. No se que herramienta de programacion usas pero imagino que tenes algun componente para grabar, seteale que grabe del disp en cuestion y listo.

saludos.

Contestar

Pregunta:	28526 - MANEJAR LAS CABECERAS IP DESDE VB 6
Autor:	dario tamburi
Hola quiero hacer una aplicación para manejar las cabeceras ip salientes para si configurar sus distintos campos como por ejemplo: protocolo versión, TTL, etc. Y con las cabeceras entrantes mostrarlas, es decir; tomar el string de entrada y mostrar las distintas partes que componen la cabecera Ip. Desde ya muachas gracias

Respuesta:	edgar pejerrey nuñez
mira averigua todo sobre el control winsock en visual basic ese control sirve para manejar conexiones remotas ahi podras trabajar con los protocolos,ip y otros no se si se te servira de ayuda. cualquier cosa estoy para ayudarte

Contestar

Pregunta:	28562 - ERROR 3633
Autor:	liliana barreiro
Cuando quiero correr una aplicacion VB6 en una maquina con win98, no la misma donde fue creada, me da el error run-time error 3633. Sin embargo anda perfectamente en maquinas con office 2000. Mire la url de microsoft support http://support.microsoft.com/support/kb/articles/Q280/5/13.ASP?LN=NL&SD=gn&FR=0 e inclui MDAC_TYP.exe sin exito . Microsoft menciona que usando MDAC 2.6 osuperior ,necesito Jet pack, pero no se como incluirlo Tambien recibo un mensaje del asistente para instalacion que debo agregar DCOM98 Alguien puede decirme todos los pasos a seguir para que una aplicacion hecha en Visual 6.0 en una maquina con Windows 98 y office 2000 pueda funcionar en una maquina cualquiera que tenga Windows 98? Muchas gracias

Respuesta:

Mauricio Leyzaola

Hola Liliana, el problema es la versión de ADO que tienes en tus referencias en tu proyecto de VB y la versión de ADO que tienes instalada en tu directorio de ...\Microsoft Visual Studio\Vb98\Wizards\PDWizards\Redist.

Para correr en pc's con Windows 98, te recomiendo que consigas (del sitio de Microsoft) la versión de ADO 2.5 (MDAC_TYP.EXE) y la instales en tu máquina. Después, asegúrate que esa versión es la que tienes declarada como referencia en tu proyecto y vuelve a generar el ejecutable.

Al hacer el paquete del setup, en el subdirectorio \support deberá aparecer la versión correcta de ADO y será la que se instale en tus pc's clientes.

Suerte y saludos.

Contestar

Pregunta:	28587 - COMPACTAR UNA DATABASE ACCESS CON VB
Autor:	Vinicio Diaz
Hola a todos, gracias de antemano. Necesito saber como puedo compactar una database Access pero con instrucciones de Visual Basic. Gracias

Respuesta:	Mauricio Leyzaola
'no olvides hacer referencia a la librería de DAO 2.5/3.51 Public Function DAO_CompactDatabase(ByVal CompactFrom As String, ByVal CompactTo As String) As Boolean On Error GoTo ErrHnd DBEngine.CompactDatabase CompactFrom, CompactTo DAO_CompactDatabase = TRUE Exit Function ErrHnd: DAO_CompactDatabase = FALSE End Function

Contestar

Pregunta:	28624 - COMO GRABAR EN BLANCO UN CAMPO FECHA DE ACCESS??
Autor:	Javier Urra
Tengo un campo fecha en access vinculado con un text de vb6.0. Al eliminar el dato (no el registro), marca error de coversion de datos. No acepta el dato de longitud cero. La idea es simplemente poder borrar la fecha desde el mantenedor de vb o actualizarla por otra, cuando la cambio por otra fecha no hay problem pero cuando la elimino .... error de coversion de datos o algo asi. Será que no acepta que un campo fecha está vacio??? sin embargo si borro la fecha directamente desde access si se elimina, esto me indica que se puede, pero ,,, como lo hago desde VB??? Gracias!!!!.....

Respuesta:

Genaro N. Condori Estaca

Te sugiero que insertes el siguiente codigo antes de grabar los datos en la tabla

.....
.....

' Verificamos que el valor en txtFechaVencimiento.Text sea de tipo fecha
if cdate(txtFechaVencimiento.Text) then
Recordset.("FechaVenvimiento").Value = txtFechaVencimiento.Text
else
' Si no es fecha le asignamos el Null al campo fecha Recordset.("FechaVenvimiento").Value = Null
end if

.............
..............

Recorset.Update

Espero te sirva

Saludos

Respuesta:	Miguel Angel Islas
Si te sirve de algo ,te recomiendo, que cuando quieras eleminar un campo fecha, este lo cambies por la expresion "12:00", asi lo he estado utilizando

Contestar

Pregunta:	28626 - IMPRIMIR EPSON POR EL PUERTO SERIE
Autor:	Rafael Morales Lara
hola compañeros necesito imprimir en una epson de tiket pero en puerto serie, redirigiendo el lpt1 a com1, el problema es que el codigo de impresion hecho con el objeto printer, va bien en una epson paralela, pero en la epson por serie me da errores en la escritura, osea imprime de forma aleatoria y codigo raros. Me pueden ayudar Gracias de antemano

Respuesta:	Wirley Rivas Garcia
Men, yo tuve el mismo problema, lo puedes solucionar de dos formas, una es usando la instruccion OPEN, en este momento no tengo las rutinas a mi mano, pero si aun las necesitas, escribeme a [email protected] y te las envio

Contestar

|< << 206 207 208 209 210 211 212 213 214 215 216 >> >|