Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| Hay un total de 3030 Preguntas. | << >> |
| Pregunta: | 64762 - INSTALAR PROGRAMA VB6 EN WINDOWS 7 |
| Autor: | Cesar Ambrossio |
| Hola Buenos días, Como andan?.
Mi pregunta viene en como instalar una aplicación hecha en Visual Basic 6 en windows 7, ya que tengo un programa realizado y en WinXP funciona perfectamente pero al instalarlo en Win7 no anda!!. Necesito una ayuda urgente!!. Desde ya Muchisimas Gracias!!.. Saludos!.. | |
| Respuesta: | Adolfo Diaz |
| Tienes actualizada la version del VB6? Además de haberlo instalado en tu PC, instalaste el servipack 6.0 de VB? Ahí están todos los archivos necesarios para que al empaquetar, te funcione en windows 7.0. Espero haberte ayudado | |
| Pregunta: | 64987 - ERROR 445 |
| Autor: | guillermo arias |
| Set fs = Application.FileSearch
With fs .LookIn = "C:Program FilesComputers and StructuresSAP2000 14" '.LookIn = "C:" '.FileName = "sap2000.exe" If .Execute > 0 Then '''MsgBox "There were " & .FoundFiles.Count & _ tengo este codigo para abrir una plicacion, pero me un error, por favor me podrian ayudar '''For i = 1 To .FoundFiles.Count 'MsgBox .FoundFiles(1) '''Next i ruta = ThisWorkbook.FullName todo = "C:Program FilesComputers and StructuresSAP2000 14Sap2000.exe " + ruta Shell todo, vbHide Else '''MsgBox "no se encontraron archivos." ruta = ThisWorkbook.FullName todo = "C:Program Files (x86)Computers and StructuresSAP2000 14Sap2000.exe " + ruta Shell todo, vbHide End If | |
| Respuesta: | Gonzalo Quintana |
| Hola Guillermo:
Si lo que quieres es abrir el archivo Sap2000.exe, deberías utilizar el siguiente código: Private Declare Function ShellExecute _ Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Dim RuTa as String RuTa = "C:Program FilesComputers and StructuresSAP2000 14Sap2000.exe" ShellExecute hwnd, "Open", ruta, "", "", 1 Cualquier cosa, mandame un mail... Saludos, Gonzalo | |
| Pregunta: | 65053 - REGISTROS EN ARCHIVO .TXT |
| Autor: | VIctor Hormazábal |
| Hola.
Alguien me puede comentar cómo, desde VB6, puedo contar la cantidad de registros que tiene un archivo.txt y cómo puedo saber si ese artívo .txt tiene registros repetidos ? (digamos que el dato que existe en un registro de la primera columna del .txt (separados po comas) se encuentra repetido en otro registro) Gracias. Victor Hugo | |
| Respuesta: | Carlos Díaz |
| mándame tu txt y yo te enseño como | |
| Pregunta: | 65096 - VINCULAR C++ Y C |
| Autor: | ingersirius |
| Hola.. a todosss...
el que conozca del caso y pueda brindar su ayuda... se agradece. XD Como puedo Vincular un proyecto de c++ a un proyecto de C. utilizo visual 2010. lo que quiero es que dentro de mi proyecto creado con formularios y POO exista un boton que me habra el proyecto c++... que se pueda agregar. es esto posible? ya tengo dias en ello... grax x la atencion prestada. ^^ datos Extras:Lo quise hacer por agregar proyecto-->Consola win 32 --> pero al crear un codigo cuando lo intento correr en c++ me sale el error que no encu entra el archivo .exe en la carpeta debug | |
| Respuesta: | Maryori Leal |
| Bueno si de tanto darle vueltas al asunto ya se como agregar un proyecto de c++ a un proyecto de visual basic. por un momento dude de que esto fuera posible, pero realmente si se puede la confusion que se me presentaba era de llevar un proyecto de c++ hasta visual y cuando realizaba la depuracion del proyecto en c++ este me generaba un error de ejecutable. por ello, en una de las pruebas locas y ya desesperadas en darle solucion al problema decidi aplicar el proceso inverso. pense... si el proyecto en visual corre a la perfeccion porque no llevarme mejor el proyecto de visual hasta c++, y amigos mios os ha funcionado a la perfeccion. hice cualquier prueba q me generara error al realizar las funciones de la programacion orientada a objetos y nada todo se encuentra bien. por tanto ha sido simple la vinculacion.
att. Ing Leal Os espero haberos ayudado. ^^ | |
| Pregunta: | 65097 - MODIFICAR REGISTROS DE UNA SOLA VEZ |
| Autor: | Jesus Arias |
| Buenas mi consulta es la siguiente ya estoy terminando una aplicacion para ventas y control de stock de una ferreteria pero quiero agregar una funcion que me permita cambiar el precio a todos los articulos de una sola vez. Supongamos aumentarles el 20% y que ese aumento se le aplique a todos los articulos de una sola vez.
Bueno espero a ver sido claro en lo que necesito y espero puedan ayudarme desde ya muchas gracias. | |
| Respuesta: | xavi |
| Hola Jesus, no se muy bien como tienes la base de datos, pero seria una consulta de actualización... algo así:
UDPATE Tabla SET Importe=Importe+(Importe*.20) De esta manera, te actualiza todos los importes con un 20%. | |
| Pregunta: | 65101 - CODIGO VB6 CAMPO "DATOS ADJUNTOS" ACCESS 2007 |
| Autor: | Javier Caballero Badiola |
| Hola,
Tengo una aplicación VB6 con la que gestiono una base de datos Access 2007. Todo me va perfectamente, excepto que no sé cómo gestionar (insertar, extraer, modificar) el nuevo tipo de campo "Datos adjuntos". Lo que necesitaría es el código de las sentencias SQL, tipo "INSERT INTO Tabla (NombreCampo) VALUES (ValorCampo)". No se cómo se trata éste tipo de campo "Datos adjuntos". Por favor, si alguien pudiera ayudarme se lo agredecería eternamente. Igualmente, si puedo ayudar a alguien con cualquier otra duda, no dudeis en contactar conmigo. Un saludo y muchas gracias | |
| Respuesta: | Javier Caballero Badiola |
| Muy buenas,
Ya he solucionado parte de mi duda. De momento he conseguido el código para insertar los datos adjuntos en la tabla : ' Instantiate the parent recordset. sSql = "SELECT INCIDENCIAS.* From INCIDENCIAS " sSql = sSql & "Where (((INCIDENCIAS.Id) = " & lintIdInc & "))" Set dtcAnexos = DBTP.OpenRecordset(sSql) ' Activate edit mode. dtcAnexos.Edit ' Instantiate the child recordset. Set rsPictures = dtcAnexos.Fiel | |
| Pregunta: | 65199 - TECLADO Y SENDMESSAGE |
| Autor: | Claudio Hellraised |
| Necesito enviar a otra aplicación el pulsado simultaneo de 2 teclas, por ejemplo Ctrl+F1, probe sendmessage y Postmessage, el tema es que la aplicación que recibe las recibe en forma secuencial y no simultaneamente, las funciones message me son útil ya que les paso el HWnd del control que debe recibir las pulsaciones, si me pueden ayudar ya que no logro el envío simultaneo para que sea detectado en el evento keyDown del control, o sea el Keycode y Shift de este evento
Desde ya gracias | |
| Respuesta: | hellraised |
| Hola Claudio:
Fijate si en el siguiente link está lo que precisas: http://msdn.microsoft.com/en-us/library/aa202943(v=office.10).aspx Yo creo que si... Saludos, Gonzalo Te agadezco pero se refiere a la sentencia sendkeys que para el caso no me sirve, el tema es referirme al control que debe recibir las pulsaciones sin necesidad de que tenga el foco y sendmessage por ejemplo sería una buena opción ya que se referencia el Hwnd del control y no tiene porque estar en foco gracia | |
| Respuesta: | Gonzalo Quintana |
| Hola Claudio:
Fijate si en el siguiente link está lo que precisas: http://msdn.microsoft.com/en-us/library/aa202943(v=office.10).aspx Yo creo que si... Saludos, Gonzalo | |
| Pregunta: | 65422 - MACRO MUY LENTA |
| Autor: | Oriol Plana |
| Tengo esta macro que lo único que pretende es copiar los campos de una hoja (pantalla de entrada) y copiarlos en otra a modo de base de datos (consulta). El problema es que me tarda unos 30s cada vez que la ejecuto y el aplicativo se vuelve muy pesado de utilizar. He aprendido visual en los últimos dos días y seguro que hay una forma más fácil de hacer lo que quiero.
Copio la macro para ver si alguien lo puede solucionar. Muchas gracias Public Sub new_client() Dim fila_1 As Integer Dim fila_2 As Integer Dim col_1 As Integer fila_1 = 2 fila_2 = 8 col_1 = 3 While fila_1 < 1000 If Hoja3.Cells(fila_1, 2) = "" Then While fila_2 < 49 Hoja3.Cells(fila_1, col_1) = Hoja16.Cells(fila_2, 5) fila_2 = fila_2 + 2 col_1 = col_1 + 1 Hoja3.Cells(fila_1, 22) = Hoja16.Cells(54, 9) Hoja3.Cells(fila_1, 23) = Hoja16.Cells(56, 9) Hoja3.Cells(fila_1, 1) = Hoja3.Cells(fila_1, 3) + "-" + Hoja3.Cells(fila_1, 14) + "-" + Hoja3.Cells(fila_1, 15) Hoja3.Cells(fila_1, 2) = Hoja3.Cells(fila_1, 3) + "-" + Hoja3.Cells(fila_1, 15) Wend End If fila_1 = fila_1 + 1 Wend End Sub | |
| Respuesta: | Gonzalo Quintana |
| Oriol Plana:
Porque no pruebas agregandole al principio del código lo siguiente: Application.ScreenUpdating = False y por ahi bajando col_1 y fila_2 a Byte, o sea Dim col_1 as Byte (Byte, valor de 0 a 255) Dim fila_2 as Byte Va a hacer que las variables ocupen menos espacio y por lo tanto más rápida Por lo demás, el código me parece bastante simple Comentás?? Saludos, Guli | |
| Pregunta: | 65490 - ENVIAR "ENTER" A UNA VENTANA DIÁLOGO DE OTRA APLICACIÓN |
| Autor: | Carlos Di Stefano |
| Saludos a todos.
Llevo gran parte del día intentando esto y no he dado con la solución. Tengo una aplicación desarrollada en Visual Basic 6 y desde esta aplicación se abre un cuadro de diálogo de otra aplicación de un tercero que tiene un cuadro de texto y un botón tipo Aceptar establecido como Default. Bien, lo que quiero hacer es, que desde mi aplicación hecha en Visual Basic 6, cuando se abra este cuadro de diálogo, enviarle cierta información de forma automática al cuadro de texto y de inmediato enviar la tecla Enter. He estado haciendo intentos al saber la clase de la ventana de diálogo con el FindWindows. Hasta allí estoy bien, pues conozco la clase de la ventana de diálogo y esta función reconoce que está abierta dicha ventana..... lo que no he logrado aún es enviarle al cuadro de texto un string y que luego se envíe el Enter de forma automática. Y aunado a todo esto, por ser una ventana de diálogo, aparentemente el código se "detiene" hasta que no se cierre. Si alguien tiene la solución a algún experto sobre el tema me puede ayudar... Saludos nuevamente. | |
| Respuesta: | Gonzalo Quintana |
| Hola Carlos:
Intenta con el siguiente código a ver si te sirve: 'Establecemos la siguiente Sub Sub Sendkey(text$, Optional wait As Boolean = False) 'wrapper for Sendkeys which does not crash in the IDE under Windows Vista Set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys text, wait Set WshShell = Nothing End Sub 'y esto lo agregas a tu codigo Sendkey "~" Espero te surva... Saludos, Gonzalo | |
| Pregunta: | 65496 - BUG O FALLO DE UN LISTVIEW DENTRO DE UN MULTIPAGE? |
| Autor: | Ismael Vicario |
| Hola, había colgado mi problemilla en consultas, aquí creo que es mas apropiado. Os comento mi fallo.
Dispongo de una macro en EXCEL, en la cual tengo un Listview dentro de una Pagina de un Multipage. En tiempo de diseño se me muestra perfectamente el Listview dentro de la Página Multipage, pero en tiempo de ejecución, se va a la posición 0,0 de la página. Además tengo activada en la vista del listview la forma lvlreport y los checkboxes, se rellena perfectamente el listview con sus checkboxes, hasta aquí todo mas o menos bien. Pero a la hora de cambiar de página del Multipage y posteriormente volver a la página en la que tengo el Listview, la lista del listview sigue estando ahí, pero por arte de magia me desaparecen todos los checkbox, hubieran estado marcados o no, si pincho donde debería de estar el checkbox aparece nuevamente, pero no todos, si no el que debería estar ahí. El método Refresh del listview tampoco soluciona nada. Espero que me podais ayudar. Muchas gracias. | |
| Respuesta: | Ismael Vicario |
| Hola, muchas gracias por vuestro interés. Al final conseguí arreglar en parte el bug, porque no hay duda que es un bug, además de todo lo que describí del fallo, también pierde su estado de checkbox, asignandole posteriormente un estado que no tiene porque ser a como estaba antes, chequeado o no chequeado, me di cuenta al hacer una función que recorriera el listview y que comprobara si el checkbox estaba marcado o no y me di cuenta que devolvia como marcados otros diferentes.
Conseguí arreglar la desaparición de los checkboxes agregandole al evento listview item check un array de booleans que guardaban todos los estados marcados o no de los check de tlos listview., y cada vez que se activa la pagina en la que se encuentra el listview, recorre los array de booleans y le vuelve a asignar el estado que tienen verdaderamente, al hacer eso, además de volverse a asignar el estado fuerza a repintar todos los checkboxex. Lo de la posición 0,0 del listview sigue apareciendo diferente al de su estado de diseño, la funcionalidad del listview es la suya, aunque se llegue a apreciar levemente la posición desubicada. Saludos. | |
| |< << 293 294 295 296 297 298 299 300 301 302 303 >> >| |
