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. |
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 |
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 |
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 |
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. |
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 |
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. |
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 |
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 |
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 |
|< << 206 207 208 209 210 211 212 213 214 215 216 >> >| |