PREGUNTAS CONTESTADAS - PhotoShop

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	17237 - CREAR/ELIMINAR UNA CLAVE DEL REGISTRO
Autor:	Sahid Ra Gutierrez Cruz
Pregunta de el Registro de Windows Alguien me puede enviar algún ejemplo de cómo poder Crear/Eliminar una llave y una clave dentro del Registro de Windows. Un saludo

Respuesta:	SuNcO
Para eso yo uso un OCX, es muy facil, muchos me lo han pedido y a nadie le falla, lo tengo en www.chakasteam.n3.net/winsock.html Si algo no entiendes (ke no creo) con gusto ahi esta mi mail

Contestar

Pregunta:	17258 - PROBLEMAS CON EL EVENTO ONCOM DEL CONTROL MSCOMM
Autor:	Montse Morancho Ciutat
Estoy desarollando una aplicación donde necesito capturar información de un dispositivo conectado en un puerto serie. He desarrollado la aplicación basándome en el evento ONCOM para interceptar la información que me llega del puerto, y en mi ordenador funciona sin ningún tipo de problema. El problema ha aparecido cuando he instalado el programa (el ejecutable) en otros ordenadores y aunque aparentemente el programa se ejecuta sin problemas, después de muchas pruebas, he llegado a la conclusión que el evento ONCOM no se ejecuta. Se seguro que no es problema de puerto, porque lo he probado en varios ordenadores y en todos ellos si se utiliza un programa para acceder al puerto, por ejemplo el hyperterminal (con la misma configuración en que se abre el puerto en el programa), veo perfectamente todos los datos que me van llegando. Había pensado que no fuera un problema de versiones del MSCOMM32.OCX, pero por este lado no consigo nada. Si hay alguien que tenga una solución o sugerencias acerca de este tema se lo agradecería muchisimo. PD. La solución de ir consultando periódicamente, mediante un timer, si tengo algo en el puerto ya la he pensado, y aunque lo he utilizado como solución provisional, no me sirve porque necesito recibir la información en el momento en que se genera, y no de forma retardada. Gracias anticipadas.

Respuesta:

El problema que te sucede es de velocidades de los distintos ordenadores donde ejecutas tu aplicación. Cuando mandas una consulta hacia el exterior y esperas una respuesta debes de detener unos milisegundos la ejecución de tu ordenador para dar tiempo al periférico que te ha de responder, esto lo logras con la API Sleep. Te mando un pequeño ejemplo de una aplicación propia donde un ordenador esta conectado a un autómata programable y se comunican a trav´´es del puertosérie. Espero que te sirva de ayuda.

Public Function Plc(ByVal Text As String) As String
Dim Strg As String
Dim Salir As Byte
Dim DatosRecibidos As String

Salir = 0: CountLoop = 0: DatosRecibidos = ""
Strg = "Mi pregunta al autómata"
MSComm1.InBufferCount = 0
MSComm1.InputLen = 0
MSComm1.Output = Strg
Do
Sleep 60
RetDoEv = DoEvents()
If MSComm1.InBufferCount > 0 Then
DatosRecibidos = DatosRecibidos & MSComm1.Input
Else
MSComm1.Output = Strg
End If
CountLoop = CountLoop + 1
Loop Until InStr(DatosRecibidos, Chr(13)) Or CountLoop = 10
'En mi caso la respuesta del autómata devuelve al final un Chr(13)
Plc = DatosRecibidos
End Function

Saludos

Respuesta:	Fredy Ramirez
Podrias utilizar una Sub( ) en donde manipules el buffer de entrada, ya que me sucidio una vez lo mismo que a ti y fue debido a que la comunicacion por diversas causas no se efectua a la misma velocidad en todas las computadoras. Es probable que nececites la ayuda de un reloj para poder estar seguro de que el buffer contiene todos los datos que requeridos. Espero que esto te sirva de algo.

Contestar

Pregunta:	17278 - ERROR 0 EN CONEXION CON SQL SERVER
Autor:	Jose Luis Atanasio
Cuando me conecto a una base de SQL Server desde Visual me da el error nro. 0. Quisiera saber que significa este error ya que no tiene descripcion y como puedo solucionarlo. Desde ya muchas gracias.

Respuesta:	Alexis Aravena Silva
Hola que tal Mira el numero 0 indica que no tienes errores, a lo mejor no estas controlando bien los errores, debieras mandarme el codigo de la conexion con SQl, ya que yo programo con Vb y SQL Server 6.5 y tal vez te pueda ayudar. Un cordial saludo

Contestar

Pregunta:	17292 - COMO CAPTURAR EL DOMINIO O DOMINIOS EN UNA RED LOCAL
Autor:	Miguel Zarate Chipana
hola a todos, estoy buscando la manera de capturar el Dominio de una red local en Visual Basic, dicha red tiene diferentes dominios, esto es para reguistralo en mi sistema, espero tener el apoyo de Uds.

Respuesta:	Carlos Christian Molina Vega
Vas a tener que buscar informacion acerca de la siguiente funcion de la API WNetOpenEnum en www.allapi.net encontraras todo

Contestar

Pregunta:	17304 - POLIGONOS IRREGULARES
Autor:	Marlon Villaverde
Tengo un mapa politico sobre el cual me gustaria que, al mover el mouse sobre el el, me sobrealte el estado en el cual esta el mouse. Pense en recortar el mapa en estados y luego distribuirlos en el formulario a traves de controles de imagenes. El problema es que los estados contienes formas irregulares y los objetos imagen son cuadrados. Como hago, para colocar POLIGONOS IRREGULARES en un formulario, y que se puedan diferenciar entre si, aun cuando esten sobrepuestos uno de otro ?

Respuesta:	SuNcO
Lo ke yo haria es poner ese mapa con codigo HTML, osea como un MAP, solo es cuestion de insertar el componente de HTML del Internet Explorer y saber manejar los mapas Si no, lo ke yo haria es ponerle un color diferente a cada estado y con el mouse move y un getpixel saber en ke estado esta el mouse encima El getpixel te regresa el numro de color de X y Y

Contestar

Pregunta:	17314 - COMO USAR LA REFERENCIA DE LOTUS 123
Autor:	Jorge Parreño López
Asi como se puede manejar excel desde VB 6.0 utilizando la referencia de excel, como puedo hacer lo mismo con Lotus 123, o un programa de ejemplo que exporte información de un grid a un hoja de lotus 123.

Respuesta:

Jorge Parreño López

Abrir un proyecto .exe
Agregar la referencia a Lotus 123 (Project / References / Lotus 123)
Agregar un botón a la forma con el siguiente código

Private Sub Command1_Click()
Dim L123App As Lotus123.Application
Dim L123Doc As Lotus123.Document
Dim curRange As Lotus123.Range
On Error Resume Next

Set L123Doc = CreateObject("Lotus123.Workbook")

If Err.Number <> 0 Then
MsgBox "No se puede abrir Lotus 123", vbError, "Exportar Información"
Exit Sub
End If

Set L123App = L123Doc.Parent
Set L123Doc = L123App.NewDocument
L123Doc.Activate

'Este es el proceso que pasa información a un Rango de Celdas
Set curRange = L123Doc.Ranges(A1)
curRange.Contents = 523

'Esto es para hacer visible la hoja electrónica
L123App.Visible = True
L123App.ApplicationWindow.Activate
L123App.ApplicationWindow.Maximize
L123Doc.Show
End Sub

Contestar

Pregunta:	17354 - IMPEDIR USO DE PRINT SCREEN ALT_PRINTSCREEN, COPIAR Y PEGAR
Autor:	bruno oab
Que tal amigos: Por favor si alguien sabe como hacer para que dentro de una aplicaciòn vb, que muestra textos y graficos tipo acrobat yo pueda impedir que el usuario pueda capturar ya sea el texto o la imagen mostrada. Gracias por anticipado

Respuesta:

Le_Chuck Yop

No lo he probado mucho, pero podrias probar con algo de esto:

Const VK_CAPITAL = &H14
Const VK_NUMLOCK = &H90
Const VK_SCROLL = &H91
Const VK_USED = VK_SCROLL

Private Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long
Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Private Declare Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Dim kbArray As KeyboardBytes, CapsLock As Boolean, kbOld As KeyboardBytes

Private Sub Form_Load()
'Obtiene el estado actual del teclado
GetKeyboardState kbOld
'Desactiva Bloq Mayus, NumLock, ScrollLock
TurnOff VK_CAPITAL
TurnOff VK_NUMLOCK
TurnOff VK_SCROLL

Private Sub TurnOn(vkKey As Long)
'Obtiene el estado del teclado
GetKeyboardState kbArray
'Cambia una tecla
kbArray.kbByte(vkKey) = 1
'Setea una tecla
SetKeyboardState kbArray
End Sub

Private Sub TurnOff(vkKey As Long)
'Obtiene el estado del eclado
GetKeyboardState kbArray
'Cambia una tecla
kbArray.kbByte(vkKey) = 0
'Setea el estado del teclado
SetKeyboardState kbArray
End Sub

Private Sub Form_Unload(Cancel As Integer)
'Reestablece el teclado
SetKeyboardState kbOld
End Sub

Contestar

Pregunta:	17389 - ERROR 1004 EN TIEMPO DE EJECUCIóN CON VISUAL EN EXCEL
Autor:	Luis del Campo Oñate
Hola, os cuento mi problema. Simplemente lo que trato de hacer es seleccionar varias celdas de una hoja de excel, el problema es que con la opción A, si las puedo seleccionar, pero con la opción B no puedo, y la única diferencia es que en la opción B, antes de ponerle las celdas que quiero seleccionar, le doy valor a la celda a8, sin embargo en la opción A no le doy valor a la celda a8. Estoy haciendo pruebas, y si selecciono nada más abrir la hoja si que puedo, pero si hago cualquier cosa en la hoja, ya no puedo seleccionar las celdas, aunque si en vez de varias celdas sólo selecciono una, se puede de las dos formas. El error que me da es "Error 1004 en Tiempo de Ejecución Fallo en el método Range del objeto _Application" Gracias Opción A Private sub Command_Click() Dim Hoja as New excel.application Hoja.visible=True Hoja.Workbooks.open "C:\Hoja.xls" Hoja.Range("A2,B4,C8").Select End Sub Opción B Private sub Command_Click() Dim Hoja as New excel.application Hoja.visible=True Hoja.Workbooks.open "C:\Hoja.xls" Hoja.Range("A8").Value="VALOR" (Sin esta línea sí funciona) Hoja.Range("A2,B4,C8").Select End Sub

Respuesta:

Pedro Serrano Baizabal

Luis

El análisis de tu problema radica en que deseas abrir un libro de excels llamado Hoja.xls que se encuentra en "C:\" si este no esta ubicado en este directorio es por eso que te manda el mensaje de error 1004 en tiempo de ejecución.Comprobe esto con el codigo siguiente:

Private Sub CommandButton1_Click()
Dim Hoja As New Excel.Application
Hoja.Visible = True
Hoja.Workbooks.Open "C:\mis documentos\Hoja.xls"
'Sheets("Hoja1").Range("A8").Value = "VALOR"
'Sheets("Hoja1").Range("A2,B4,C8").Select
Hoja.Range("A8").Value = "VALOR"
Hoja.Range("A2,B4,C8").Select
End Sub

Como puedes observar se ordena abrir el libro Hoja.xls que se encuentra en el subdirectorio mis documentos
Las líneas de sheets("Hoja1").range pueden sustituir a Hoja.range para especificar en que hoja deseas hacer tus actividades.
Espero comentarios
Saludos

Contestar

Pregunta:	17394 - IMáGENES PANORáMICAS
Autor:	Alberto Palacios
¿Alguien podría indicarme como mostrar (realizar un programa, información sobre como se consigue dicho fin) imágenes 3D, desde las que a partir de una foto panorámica, te puedes introducir en ella, girar a la derecha, a la izquierda, mirar ariba, abajo...? Aunque no sea en VB, da igual. Gracias.

Respuesta:	Javier López
Hay un ejemplo en una página web de código fuente: http://www.planet-source-code.com/vb Busca en Quick search panoramic view o algo así...

Contestar

Pregunta:	17396 - PROBLEMAS EN LA INSTALACION
Autor:	andres restrepo
realice la instalacion de una aplicacion por el asistente de empacado y distribucion y al istalarlo me aparecedn errores como estos: infraccion de acceso al copiar el archivo C.\windows\systems\riched32.dll, error al registrar el archivo c:\windows\systems\msado20.tlb error al regustrar el archivo c:\windows\systems\msftqws.pdw Mi pregunta es ¿porque suceden y como puedo solucionarlos? gracias por su ayuda

Respuesta:	Sergio Brillo
Los errores de registro puedes eliminarlos, quitando desde el asistente de empaquetado la misma dll, en el momento q salen las casillas para marcarlas o desmarcarlas, las quitas y los programas funcionan correctamente y ya no da error al registrar, pq se debe a problemas de dependencias, quitalas y mira a ver si se te solucionan, a mi si, un saludo

Contestar

|< << 153 154 155 156 157 158 159 160 161 162 163 >> >|