PREGUNTAS CONTESTADAS - Visual Basic

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

Contestar

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.

Contestar

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

Contestar

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

Contestar

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

Contestar

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.

Contestar

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

Contestar

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!!

Contestar

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.

Contestar

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.

Contestar

|< << 244 245 246 247 248 249 250 251 252 253 254 >> >|