Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| Hay un total de 3030 Preguntas. | << >> |
| Pregunta: | 42674 - COMO EJECUTO UN DOCUMENTO DESDE VISUAL BASIC 6.0 |
| Autor: | Enrique Casaverde |
| Hola como puedo abrir un documento de Autocad desde mi programa, se que con Shell solo puedo ejecutar el programa pero como hago para cargar Autocad con un archivo que yo le indique? | |
| Respuesta: | SuNcO |
| A mi me funciono muy bien asi
Private Sub Command1_Click() algo = Shell("notepad d:\windows\win.ini", vbNormalFocus) End Sub Si vez, d:\windows\win.ini contiene el Path completo | |
| Pregunta: | 42705 - COMO USAR MAPINFO CON VISUAL BASIC |
| Autor: | Carolina Nutter |
| Querría saber a qué archivo/os tengo que hacer referencia desde VB, para poder manejar los objetos de MapInfo.
O si alguien tiene algún manual ... Gracias | |
| Respuesta: | Jorge Alvarez |
| Saludos.
para poder manupular archivos de mapinfo, requires de tener instalado el ocx Mpax30.ocx, es un control que viene en el mismo cd de instalacion de mapinfo, ahi vienen todos los metodos, funciones y eventos que requieras, úedes busar un manual en internet buscando mapx tutorial. hay varios que pueden servirte. | |
| Pregunta: | 42733 - COMO REFRESCAR LA IMAGEN DE FONDO DE UN FORM MDI |
| Autor: | juan manuel sanchez |
| Hola a todos
Quiero saber la manera de refrescar el fondo de un formulario MDI cuàndo este esta en ejecuciòn. Mi intenciòn es poder modificar la imagen de fondo del mismo, pero al hacerlo, queda como residuo la imagen anterior. | |
| Respuesta: | SuNcO |
| Pues a mi de Prueba me funciono bien asi
Private Sub Picture1_Click() MDI1.Picture = LoadPicture("d:\agenda.jpg") End Sub | |
| Pregunta: | 42836 - COMO PUEDO INGRESAR DATOS DE UNA BASE DE DATOS EN UN DBGRID |
| Autor: | Claudio Rojas Ibarra |
| Favor enviar un pequeño ejemplo para tomarlo como referencia y asi poder ingresar datos de una base acces en un dbgrid, la idea es poder reflejas una base de datos en pantalla. | |
| Respuesta: | Alfonso Garcia |
| Bueno claudio si te sirve de algo este ej: lo puedes hacer asi
nota: con es el string de tu coneccion Dim Tabla as adodb.recordset set tabla=new adodb.recordset tabla.cursorlocation=adUseClient tapa.open "Select * from clientes where empresa=1",con,adOpenStatic, adLockoptimistic set grid.datasource=tabla | |
| Pregunta: | 42844 - AGREGAR ARCHIVOS AVI EN EL SET UP PARA KE CORRAN EN EL PROG |
| Autor: | Jair de Jesus Salazar Alamillo |
| De antemano se agradece la atencion prestada a esta duda que es la siguiente, por medio de la barra de herramientas agregue el boton show ke es un vinculo con power point, y por medio de este agregue un archivo de extension avi, pero al hacer el ejecutable y el set up a la hora de correr el programa donde estan estas animaciones no corren, la duda es que como agrego estos avis en el set up para ke los instale y se pueda ver la animaciòn | |
| Respuesta: | SuNcO |
| Casi al final del creador de instalaciones, en VB5, antes de crear el Setup.exe aparece una parte con una lista de los archivos que va a ocupar, solo dale click en Agregar y elige los archivos uno por uno, hasta puedes Configurar donde se van a poner una vez instalada la Aplicacion | |
| Pregunta: | 42873 - LEER Y GRABAR SONIDO EN VB |
| Autor: | Sergio M. Albornoz |
| Hola, Me gustaria saber si alguien me puede orientar en como puedo a través de la tarjeta de sonido leer y grabar los datos (de sonido) que se estan recibiendo a traves de la Linea de Entrada de esta.
Agradeceria sus aportes | |
| Respuesta: | José Z |
| Para trabajar con la targeta de sonido tienes que usar las funciones API de Windows.
Consulta la siguiente página Web: http://allapi.mentalis.org/apilist/apilist.php Concretamente la función: WaveInOpen Hay bastante información e incluso un ejemplo que te puede servir. Hay más gente buscando este tipo de información, pásalo. Hasta la vista. | |
| Pregunta: | 42875 - PUERTOS SERIE |
| Autor: | Emilio Vélez |
| Hola,
¿como puedo hacer para saber el número de puertos serie disponibles en mi equipo, y rellenar con ello un combo? | |
| Respuesta: | Pedro Padilla |
| Mira esta puede ser la solución de tu problema, revisalo.
Saludos!!!! Private Type PORT_INFO_2 pPortName As String pMonitorName As String pDescription As String fPortType As Long Reserved As Long End Type Private Type API_PORT_INFO_2 pPortName As Long pMonitorName As Long pDescription As Long fPortType As Long Reserved As Long End Type Private Declare Function EnumPorts Lib "winspool.drv" Alias "EnumPortsA" (ByVal pName As String, ByVal Level As Long, ByVal lpbPorts As Long, ByVal cbBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (pTo As Any, uFrom As Any, ByVal lSize As Long) Private Declare Function HeapAlloc Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, ByVal dwBytes As Long) As Long Private Declare Function GetProcessHeap Lib "kernel32" () As Long Private Declare Function HeapFree Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any) As Long Dim Ports(0 To 100) As PORT_INFO_2 Public Function TrimStr(strName As String) As String 'Finds a null then trims the string Dim x As Integer x = InStr(strName, vbNullChar) If x > 0 Then TrimStr = Left(strName, x - 1) Else TrimStr = strName End Function Public Function LPSTRtoSTRING(ByVal lngPointer As Long) As String Dim lngLength As Long 'Get number of characters in string lngLength = lstrlenW(lngPointer) * 2 'Initialize string so we have something to copy the string into LPSTRtoSTRING = String(lngLength, 0) 'Copy the string CopyMem ByVal StrPtr(LPSTRtoSTRING), ByVal lngPointer, lngLength 'Convert to Unicode LPSTRtoSTRING = TrimStr(StrConv(LPSTRtoSTRING, vbUnicode)) End Function 'Use ServerName to specify the name of a Remote Workstation i.e. "//WIN95WKST" 'or leave it blank "" to get the ports of the local Machine Public Function GetAvailablePorts(ServerName As String) As Long Dim ret As Long Dim PortsStruct(0 To 100) As API_PORT_INFO_2 Dim pcbNeeded As Long Dim pcReturned As Long Dim TempBuff As Long Dim i As Integer 'Get the amount of bytes needed to contain the data returned by the API call ret = EnumPorts(ServerName, 2, TempBuff, 0, pcbNeeded, pcReturned) 'Allocate the Buffer TempBuff = HeapAlloc(GetProcessHeap(), 0, pcbNeeded) ret = EnumPorts(ServerName, 2, TempBuff, pcbNeeded, pcbNeeded, pcReturned) If ret Then 'Convert the returned String Pointer Values to VB String Type CopyMem PortsStruct(0), ByVal TempBuff, pcbNeeded For i = 0 To pcReturned - 1 Ports(i).pDescription = LPSTRtoSTRING(PortsStruct(i).pDescription) Ports(i).pPortName = LPSTRtoSTRING(PortsStruct(i).pPortName) Ports(i).pMonitorName = LPSTRtoSTRING(PortsStruct(i).pMonitorName) Ports(i).fPortType = PortsStruct(i).fPortType Next End If GetAvailablePorts = pcReturned 'Free the Heap Space allocated for the Buffer If TempBuff Then HeapFree GetProcessHeap(), 0, TempBuff End Function Private Sub Form_Load() Dim NumPorts As Long Dim i As Integer 'Get the Numbers of Ports in the System 'and Fill the Ports Structure NumPorts = GetAvailablePorts("") 'Show the available Ports Me.AutoRedraw = True For i = 0 To NumPorts - 1 Me.Print Ports(i).pPortName Next End Sub | |
| Pregunta: | 42885 - DESACTIVAR CTRL+ALT+DEL Y ALT+TAB EN WIN XP |
| Autor: | david santiago |
| Como desactivo la combinación de teclas ctrl+alt+del y alt+tab en windows xp, estoy realizando un programa y en las otras versiones de los windows funciona perfectamente con los codigos que baje de esta pagina pero en el xp no funciona, si alguien me puede ayudar desde ya muchas gracias... | |
| Respuesta: | Stock Corp. |
| Unicamente necesitas crear una clave en el registro de windows exactamente aqui:
"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System" DobleWord "DisableTaskMgr" Valor = 1 creas "DisableTaskMgr" le asignas un 1 para bloquer y un 0 para desbloquer, para accesar alregistro necesitas saber usar algunas API's necesarias, osea estas: Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal lngRootKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal lngRootKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Declare Function RegCloseKey Lib "advapi32.dll" (ByVal lngRootKey As Long) As Long Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal lngRootKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal lngRootKey As Long, ByVal lpValueName As String) As Long there you go man!! ahi esta todo lo que necesitas, suerte!! | |
| Pregunta: | 42898 - FORMATO DE MDB NO RECONOCIDO |
| Autor: | Orzowei |
| Cuando hago la sentencia Opendatabase de una BBDD Access 2000 no me reconoce el formato. Sin embargo si me lo hace bien con versiones anteriores de Access. ¿Como lo puedo solucionar?
Gracias de antemano. | |
| Respuesta: | Gustavo Ascencio |
| Simplemente tienes que cambiar en referencias Microsoft DAO 3.6 Object Library | |
| Respuesta: | Ricardo Sierra |
| Lo que sucede es que DAO ya no reconoce la version del access de tu base de datos.
La solucion es que accedas a tu base de datos por medio de RDO y configurar una entrada de ODBC que apunte a tu MDB. | |
| Respuesta: | xavi |
| Hola amigo, para ello, instala el service pack 6 del VB, o VS, en el viene el controlador para access 2000. | |
| Pregunta: | 42907 - PUEDO CAMBIAR EL COLOR DE DIA EN UN MONTHVIEW EN VB6 |
| Autor: | fernando torres |
| Estoy haciendo un programa de calendario con el monthview.
Pero quiero que los dias en los que tengo eventos pendientes , aparescan con color diferente a los demas. Como puedo hacerlo? Gracias. | |
| Respuesta: | Santiago Oliver |
| Yo tenía el mismo problema y al final creé un control active x para resolverme el problema en una aplicación que estoy haciendo. De paso coloqué el control en mi página web:
http://www.oliware.com/CalMes/CalMes.htm Prueba a ver si te va bien este control (tiene muchas propiedades para colorear días, puede socultar los botones de navegación (para agrupar meses en semestres, trimestres o como quieras), etc Un saludo. | |
| |< << 244 245 246 247 248 249 250 251 252 253 254 >> >| |
