this line of the code makes the form see-through "User32Wrappers.SetLayeredWindowAttributes(Me.Handle, 0, _
255 * 0.4, User32Wrappers.LWA.Alpha)"
if i adjust 0.4 to 0.6 it will become less see-through.
i would like to know if i can control this variable through a trackbar and how!
Public Class Form1
Private _InitialStyle As Integer Private Sub Form_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles MyBase.Load Form2.Show() ' Grab the Extended Style information ' for this window and store it. _InitialStyle = User32Wrappers.GetWindowLong(Me.Handle, User32Wrappers.GWL.ExStyle) ' Set this window to Transparent ' (to the mouse that is!) SetFormToTransparent() ' Just for giggles, set this window ' to stay on top of all others so we ' can see what's happening. Me.TopMost = True End Sub Private Sub SetFormToTransparent() ' This creates a new Extended Style ' for our window, which takes effect ' immediately upon being set, that ' combines the initial style of our window ' (saved in Form.Load) and adds the ability ' to be Transparent to the mouse. ' Both Layered and Transparent must be ' turned on for this to work AND have ' the window render properly! User32Wrappers.SetWindowLong(Me.Handle, User32Wrappers.GWL.ExStyle, _ _InitialStyle Or User32Wrappers.WS_EX.Layered Or User32Wrappers.WS_EX.Transparent) ' Don't forget to set the Alpha ' for the window or else you won't be able ' to see the window! Possible values ' are 0 (visibly transparent) ' to 255 (visibly opaque). I'll set ' it to 20% visible here for show. ' The second parameter is 0, because ' we're not using a ColorKey! User32Wrappers.SetLayeredWindowAttributes(Me.Handle, 0, _ 255 * 0.4, User32Wrappers.LWA.Alpha) End Sub Private Sub SetFormToOpaque() ' Turn off the Transparent Extended Style. User32Wrappers.SetWindowLong(Me.Handle, User32Wrappers.GWL.ExStyle, _ _InitialStyle Or User32Wrappers.WS_EX.Layered) ' Set the Alpha back to 100% opaque. User32Wrappers.SetLayeredWindowAttributes(Me.Handle, _ 0, 255, User32Wrappers.LWA.Alpha) End Sub Public Class User32Wrappers Public Enum GWL As Integer ExStyle = -20 End Enum Public Enum WS_EX As Integer Transparent = &H20 Layered = &H80000 End Enum Public Enum LWA As Integer ColorKey = &H1 Alpha = &H2 End Enum <DllImport("user32.dll", EntryPoint:="GetWindowLong")> _ Public Shared Function GetWindowLong( _ ByVal hWnd As IntPtr, _ ByVal nIndex As GWL _ ) As Integer End Function <DllImport("user32.dll", EntryPoint:="SetWindowLong")> _ Public Shared Function SetWindowLong( _ ByVal hWnd As IntPtr, _ ByVal nIndex As GWL, _ ByVal dwNewLong As WS_EX _ ) As Integer End Function <DllImport("user32.dll", _ EntryPoint:="SetLayeredWindowAttributes")> _ Public Shared Function SetLayeredWindowAttributes( _ ByVal hWnd As IntPtr, _ ByVal crKey As Integer, _ ByVal alpha As Byte, _ ByVal dwFlags As LWA _ ) As Boolean End Function End Class Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End End Sub End Class