Mensajes

El que tengo yo es un módulo y un módulo de clase, luego en el formulario defines la función con el nombre que quieras (Set) y trabajas con el. Google o busca en los foros, al menos léete de que va, que el copypasting no es lo más recomendable .

Un saludo,

dPix

[dPix]

Muy buenas a todos, a ver, tal y como se indica en el asunto del tema, la pregunta es fácil. Antagónicamente, la respuesta no lo es. Será posible hacer un autorun en un PC con una memoria USB? Tal y como se hace con un CD no se puede, pero debe de existir otra manera posible de hacerlo. La cuestión es que googleando no he encontrado nada, y encontré solo un mensaje en este foro (de nada me sirvió). No me explayo más, si alguien sabe como hacerlo o simplemente puede dar ideas que lo diga, este tema me lleva fascinando algún tiempo y es un dilema que se me ha opuesto continuamente. Espero vuestra ayuda.

Un saludo ,

dPix


PD: Pongo el mensaje en esta sección porque el código lo necesito en VB, aunque si se da la idea globalizada, se puede transformar al lenguaje.

Supongo que querrá anular el "checked" de uno cuando el otro esté checkeado. Es decir, si uno esta checkeado el otro no lo está, para eso te haces un option, aunque no se cual es el fin de tu pregunta.

Efectivamente, IP3, era un control de usuario, aqui le dejo el código que googleando encontré (espero que sea esto lo que buscas).

Esto a un módulo:

Option Explicit

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function UpdateLayeredWindow Lib "user32" (ByVal hWnd As Long, ByVal hdcDst As Long, pptDst As Any, psize As Any, ByVal hdcSrc As Long, pptSrc As Any, crKey As Long, ByVal pblend As Long, ByVal dwFlags As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_EXSTYLE = (-20)
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2
Private Const ULW_COLORKEY = &H1
Private Const ULW_ALPHA = &H2
Private Const ULW_OPAQUE = &H4
Private Const WS_EX_LAYERED = &H80000

Public Function isTransparent(ByVal hWnd As Long) As Boolean
On Error Resume Next
Dim Msg As Long
Msg = GetWindowLong(hWnd, GWL_EXSTYLE)
If (Msg And WS_EX_LAYERED) = WS_EX_LAYERED Then
  isTransparent = True
Else
  isTransparent = False
End If
If Err Then
  isTransparent = False
End If
End Function

Public Function MakeTransparent(ByVal hWnd As Long, Perc As Integer) As Long
Dim Msg As Long
On Error Resume Next
If Perc < 0 Or Perc > 255 Then
  MakeTransparent = 1
Else
  Msg = GetWindowLong(hWnd, GWL_EXSTYLE)
  Msg = Msg Or WS_EX_LAYERED
  SetWindowLong hWnd, GWL_EXSTYLE, Msg
  SetLayeredWindowAttributes hWnd, 0, Perc, LWA_ALPHA
  MakeTransparent = 0
End If
If Err Then
  MakeTransparent = 2
End If
End Function

Public Function MakeOpaque(ByVal hWnd As Long) As Long
Dim Msg As Long
On Error Resume Next
Msg = GetWindowLong(hWnd, GWL_EXSTYLE)
Msg = Msg And Not WS_EX_LAYERED
SetWindowLong hWnd, GWL_EXSTYLE, Msg
SetLayeredWindowAttributes hWnd, 0, 0, LWA_ALPHA
MakeOpaque = 0
If Err Then
  MakeOpaque = 2
End If
End Function

Donde quieres que funcione la transparencia pones:

MakeTransparent Me.hWnd, x

Donde x es un nº entre 0 y 255. Espero que sea esto. Codigo bastante interesante.

Un saludo,

dPix

Imagino que se referiría a la libreria user32.dll, es lo único que se me ocurre, con eso quizás puedas modificar la transferencia del form.

Salu2,

dPix

Castord, estoy interesado en hacerlo por USB, ¿me podría decir cómo?

Gracias de antemano y enhorabuena por el foro compis.

dPix

Pués eso, que si alguien tiene algún manual de fractales, una introducción o algún documento para iniciarse que lo diga, es que me estoy empezando a interesar por el tema y me gustaría iniciarme. Un saludo,

dPix

tienes que hacer la operación contraria a cifrar, cuando digo contraria me refiero a que has de llevar a cabo los pasos en el sentido contrario.

Un saludo,

dPix

Wenas EON, creo que tu problema se crea al poner los paréntesis, dejalo así:

Código [Seleccionar] Expandir

SetCursorPos "x", "y"

Imagino que será cómo un InputBox, que al poner paréntesis te pide que lo iguales a una variable en la que almacenará lo datos que eliges. Cuéntame a ver si te funciona,

Un saludo,

dPix

Muy interesante , además el AV/FW por lo visto no pide autorización.