Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| Hay un total de 3030 Preguntas. | << >> |
| Pregunta: | 20169 - PASAR DE VISUAL4 A VISUAL6 Y CRYSTAL REPORTS 8 |
| Autor: | Sergi Castells Gimenez |
| Hice hace tiempo una aplicación en Visual Basic 4.0, usando los controles más estándar incluyendo el dbgrid. Todos los informes los hice con el control Crystal Reports que incluía el paquete, usando las propiedades ReportFilename, Selectionformula, Destination, etc. Me pregunto si por una parte es posible pasar la aplicación a Visual 6.0 y por otra parte si puedo convertir los reports a Crystal Reports 8 y mantener el código que utilice con el control Crystal anterior. | |
| Respuesta: | Oswaldo Monagas |
| Tuve un problema hace varios meses donde tenia que llevar una aplicacion del VB 3 al 5 o 6, en muchas oportunidades lo intente, pero siempre salia algun error de carga. La solucion me la dio unos programadores mejicanos que ahora no tengo su direccion electronica, pero se basa en lo siguiente: Tu proyecto esta hecho en VB 4 de 16 o 32 bits? Si no sabes esto instala la version de 32 bits en tu computadora y trata de leer el programa, si no hay problemas la version 4 de 16 y 32 bits, son compatibles o sea, instala los controles, ocx, etc necesarios para que tu programa funcione correctamente. Ahora instala el VB 6, y desinstala el VB 4, como las dos versiones (4 y 6) estan o estaban instaladas en la misma maquina, no debe haber problema cuando lo leas con el VB 6, solo te pedira que si deseas actulizar al VB 6, esto se debe a que tienes todos los controles en el system, de windows. Si se presenta errores al cargar, debes anotar que controles no puede leer tu programa y luego los instalas en el system, estos controles los encuentras, o se instalan con el VB 4, como por ejemplo llevar un control .vbx a su correspondiente .ocx Hay un archivo que se llama THREED.VBX este es un ejemplo. Una vez que copies los controles que presentaron errores en el system debes registrarlos con el regsvr32 THREED.VBX y lo haces con el run del Inicio de Windows. Nunca guardes los cambios cuando hay errores, solo lo haces despues que no hay errores de carga. Una vez que cargaste tu proyecto sin errores debes sustituir manualmente los controles que son tipicos del VB 6, como por ejemplo cajas de dialogos, etc, porque el programa esta leyendo los instaldos del VB4. Hay otras cosas que quizas tengas problemas pero me escribes y te ayudo a irlos solucionando poco a poco. Aqui te envio un articulo de como hacerlo desde el VB3 donde habian mas problemas, pero creo que en tu caso deben ser muy pocos. Espero que te sea util y puedas entender este acertijo. Descargar | |
| Pregunta: | 20174 - DESPLEGAR UN COMBO EN UNA GRID DE SHERIDAN |
| Autor: | Gorka Ríos |
| Hola a todos. ¿Alguien podría indicarme cómo desplegar un combo en una dolumna de una grid de Sheridan? En la ayuda se indica de forma bastante escueta y aunque la he seguido, lo único que veo es el triangulito del combo en la celda de la columna, pero al pulsar en él no se despliega absolutamente nada. Sé que debo utilizar un datadropdown como combo y una instrucción que es: SSDBGrid1.Columns(2).DropDownHwnd = SSDBDropDown1.hWnd Por cierto, utilizo tanto el datagrid como el datadropdown en modo Unbound, es decir, todo mediante código. ¿A alguien se le ocurre algo? Gracias de antemano | |
| Respuesta: | Rod FX |
| Para que el SSDBDropDown1 se pueda ver en una Columna del SSGrid con la Opcion de AddItem tenemos que: La Propiedad DataFieldList setiarla a la columna a devolver, al momento de Diseño o en el Evento Load SSDBDropDown1.DataFieldList = "Column 0" | |
| Respuesta: | Jesus Parra |
| Estas usando un evento erróneo, tienes que programar en el evento click del grid, no te aparece nada en el combo por la sencilla razon que no tengas ningun valor en la propiedad list del combo. Tienes primero tomar lo valores de la celda elegida y tomar los valores del left y top que va a tener el objeto combo.Left = MSFlexGrid1.CellLeft + MSFlexGrid1.Left combo.Top = MSFlexGrid1.CellTop + MSFlexGrid1.Top Nunca se desplegará el combo, aun y cuando tengas algo en la propiedad list del combo como te explique, lo que podrias hecer es usar un listbox en vez de un combobox, que la lista si te despliega autoamticamente los valores que hallas insertado en la propiedad list del listbox. dentro de unos dias te daré el codigo completo. Espero que te sirva. | |
| Pregunta: | 20182 - DESDE UN FORMULARIO COMO CREAR UN DIBUJO |
| Autor: | Erick Garcia |
| HOLA GRUPO, les explico rapido como hacer una imagen por ejemplo de paint brush desde un formulario y esta imagen a su vez guardarla en una base de datos lo e intentado pero con imagenes ya guardadas en bd se activa el programa pero al añadir un nuevo registro ya no, desde ya gracias. | |
| Respuesta: | Agustín Dávila |
| La forma correcta sería haciendo una aplicación con algo de código. Por ejemplo dibujas una línea: line (1000,1300)-(4000,3400) En la base de datos lo que deberías guardar sería el 1000,1300,4000,3400. Yo hice una aplicación como el Paintbrush, si la encuentro ya te la pasaré. | |
| Pregunta: | 20187 - UNABLE TO OPEN BCP HOST DATA FILE |
| Autor: | Karina Gámez |
| Hola, Estoy manejando una interfaz en la cual pretendo seleccionar un archivo txt delimitado por pipes ya sea de cualquier drive existente. Y lo quiero importar o exportar a una tabla de "x" base dedatos, el codigo es el siguiente: Set objBCP = New SQLDMO.BulkCopy Set objServer = New SQLDMO.SQLServer Set objDB = New SQLDMO.Database If exporta.Value = False And Dir(selectedFile) = "" Then Exit Sub On Error GoTo ErrorHandler With objServer .EnableBcp = True .LoginSecure = True .Connect ServerName, UserName, Password End With Set objDB = objServer.Databases(DatabaseName) With objBCP .ColumnDelimiter = "|" .DataFilePath = selectedFile .DataFileType = SQLDMODataFile_NativeFormat .UseBulkCopyOption = True .UseExistingConnection = True End With ----- Pero marca un error de "unable to open bcp host data file" Alguien me puede ayudar? Saludos y GRacias | |
| Respuesta: | Cecilia Colalongo |
| Creo que te falta esta línea: objServer.DataBases(DatabaseName).Tables(TableName).ImportData(objBCP) Cualquier cosa preguntame. | |
| Pregunta: | 20236 - POR QUE ADO NO ABRE UN BD VISUAL FOX |
| Autor: | jorge anibal escobar |
| tengo una base de datos en visual fox pro 6.0, y una plicacionsita en visual basic 6.0 que se enlasa a esta base de datos por medio de ADO cuando varias personas acceden a la base de datos no deja acceder si no al primero en conectarse. ¿acaso las bases de datos de visual fox pro no son multiusuario? ¿si migro la base de datos a oracle 7.0 o superior tendria este mismo problema ? | |
| Respuesta: | Mauricio Leyzaola |
| Has probado a vincular la base de datos de FoxPro por medio de access? Entonces podrías hacer la conexión con access pero estarías modificando la base de FoxPro. Creo que esto solucionará en parte el problema del acceso a varios usuarios a la vez, aunque te advierto que access no es precisamente lo más profesional para este fin, mejor utiliza oracle es un mundo de diferencia con microsoft. Saludos. | |
| Pregunta: | 20239 - DETECTAR TIPO Y/O PROPIEDADES DE IMPRESORA |
| Autor: | Oscar Chico |
| Por favor, ¿alguien me podría decir que método, propiedad, API, etc. utiliza VB6 para saber las propiedades de la impresora?. Por ejemplo, saber si la impresora es láser o inyección. Muchas gracias de antemano. | |
| Respuesta: | Agustín Dávila Martín |
| La Forma más eficiente es utilizar el objeto printer con sus propiedades, por ejemplo si haces: msgbox printer.devicename, te indicará el nombre de la impresora. Mira en la ayuda sobre el objeto printer y ahí te saldrán todas las propiedades. | |
| Pregunta: | 20300 - OBTENER URL DEL INTERNET EXPLORER |
| Autor: | GOOGER |
| Hola amigos programadores. Tengo una pregunta sobre un problemilla que no logro solucionar: ¿Cómo puedo obtener, mediante código VB, la dirección URL de las ventanas que tengo abiertas con el Internet Explorer 5? He intentado hacerlo con getobject, createobject (estilo Word, Excel, con los que sí he conseguido éxitos) pero no hay forma con el Internet Explorer 5. Muchas gracias a todos y ¡¡¡felices programas!!! | |
| Respuesta: | viktor muñoz |
| Saludos : Existe un control Activex que te permite crear tu propio navegador de internet y manejar todo tipo de URL que pasa por ahi, asi como sus respectivos eventos. Esto lo he visto en Visual Basic 6.0. | |
| Pregunta: | 20352 - ACTUALIZAR EL ENTORNO WIDOWS |
| Autor: | Victor Viscarra |
| Hola amigos, Estoy desarrollando en VB 6.0 un tipo de "Temas del Escritorio" para Windows 2000, el cual cambia el fondo, el protector de panyalla, sonidos, cursores, etc. Lo hago cambiando los valores en el Registro de Windows. El problema es que no se como actualizar el escritorio con los iconos y la imagen de fondo sin tener que reiniciar el PC. | |
| Respuesta: | Dark MAC |
| Necesitas aprender a manejar las APIs de windows, una de esas APIs que se encuentra en USER32, me parece, es para actualizar el escritorio, te recomiendo que busques por ahi. | |
| Pregunta: | 20362 - PASAR UN CD A WAV EN DIGITAL |
| Autor: | juan Francisco Garcia Garcia |
| Hola amigos, Por mas que busco información sobre como ripear un CD a WAV en digital solo encuentro algunos OCX que realizan esta funcion y que considero demasiado caros ¿hay alguna manera de hacerlo directamente con codigo?, ¿ejemplos? . Gracias de antemano. | |
| Respuesta: | Mario Campos |
| Creo que te mando la solución Public Sub RecordWave(TrackNum As Integer, Filename As String) ' Tracknum: track to record ' Filename: file to save wave as On Local Error Resume Next Dim i As Long, RS As String, cb As Long, t# RS = Space$(128) i = mciSendString("stop cdaudio", RS, 128, cb) i = mciSendString("close cdaudio", RS, 128, cb) Kill filename RS = Space$(128) i = mciSendString("status cdaudio position track " & TrackNum, RS, 128, cb) i = mciSendString("open cdaudio", RS, 128, cb) i = mciSendString("set cdaudio time format milliseconds", RS, 128, cb) i = mciSendString("play cdaudio", RS, 128, cb) i = mciSendString("open new type waveaudio alias capture", RS, 128, cb) i = mciSendString("record capture", RS, 128, cb) t# = Timer + 1: Do Until Timer > t#: DoEvents: Loop i = mciSendString("save capture " & filename, RS, 128, cb) i = mciSendString("stop cdaudio", RS, 128, cb) i = mciSendString("close cdaudio", RS, 128, cb) Cualquier cosa comentame como te fue. Saludos. Mario | |
| Respuesta: | Mario Campos |
| Fijate si te anda y después comentámelo. Public Sub RecordWave(TrackNum As Integer, Filename As String) ' Tracknum: track to record ' Filename: file to save wave as On Local Error Resume Next Dim i As Long, RS As String, cb As Long, t# RS = Space$(128) i = mciSendString("stop cdaudio", RS, 128, cb) i = mciSendString("close cdaudio", RS, 128, cb) Kill filename RS = Space$(128) i = mciSendString("status cdaudio position track " & TrackNum, RS, 128, cb) i = mciSendString("open cdaudio", RS, 128, cb) i = mciSendString("set cdaudio time format milliseconds", RS, 128, cb) i = mciSendString("play cdaudio", RS, 128, cb) i = mciSendString("open new type waveaudio alias capture", RS, 128, cb) i = mciSendString("record capture", RS, 128, cb) t# = Timer + 1: Do Until Timer > t#: DoEvents: Loop i = mciSendString("save capture " & filename, RS, 128, cb) i = mciSendString("stop cdaudio", RS, 128, cb) i = mciSendString("close cdaudio", RS, 128, cb) End Sub | |
| Pregunta: | 20377 - USAR MSAGENT EN MI APLICACION |
| Autor: | Genaro Sanchez |
| Como puedo usar el Agent en mi programa hecho en Visual Basic. Ya puedo mostrar el agent, los eventos y comandos. Mi pregunta es: Como hago para que el mismo agent saque el msgbox y no lo saque Visual Basic. Asi como el Office, cuando esta el agent cargado en vez de un msgbox, lo pregunta el agent, uno le da click al boton que desee. O sea un msgbox pero lo da el agent. Como hago eso desde VB. Gracias de antemano. Saludos | |
| Respuesta: | Juan Jose Paris |
| Deberias de crear un clase que contenga todas las funcionalidades que quieras del Agente luego lo unico que tienes que hacer es en el metodo que te hayas creado para mostrar un mensaje, preguntas si esta activo el agente o no, en caso de que no este activo muestras un msgbox ejemplo de codigo para el metodo: Public Sub Speak(ByVal strOracion As String, Optional ByVal oBoton As VbMsgBoxStyle) ' Metodo utilizado para HABLAR If iaCargaAsistente.Visible = False Then MsgBox strOracion, oBoton Else iaCargaAsistente.Speak strOracion End If End Sub Saludos | |
| |< << 172 173 174 175 176 177 178 179 180 181 182 >> >| |
