04-01-2011, 02:27 PM
(This post was last modified: 04-02-2011, 09:19 PM by Resistance.)
Hello there. Today I am going to be running through how to get your program to look transparent. Tired of seeing this all the time?
And want to see something new... Something more 2011? Like this?
Well since it wasn't posted here, I thought I would share with you guys this super awesome glassy-GUI.
Instructions:
Recommendations:
Then it starts getting difficult, so you will have to follow along.
The color black = the sexy, transparency we want.
Any other color other than white should not be used.
White will show brilliantly, depending which font you use, Veranda is the best. You will change the ForeColor to white to show. Bolding is not recommended, it will look sloppy and messy. For every object you use, from buttons to progressbars, you would want to set the backcolor to "0" or "Transparent" without quotes. And for the Text, you would want to set it to white in order to show. Remember, no other color than white should be used for your objects or else it will look glitchy. Follow all of the recommendations I have provided and you will be fine. Enjoy, don't forget to say thanks or something at least
Results FTW:
Sexy Glass GUI
Peace and Comment !!
And want to see something new... Something more 2011? Like this?
Well since it wasn't posted here, I thought I would share with you guys this super awesome glassy-GUI.
Instructions:
- Put all of this code into your form.
Code:
Imports System.Runtime.InteropServices
Public Class Form1
<DllImport("dwmapi.dll")> Public Shared Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef pMarinset As MARGINS) As Integer
End Function
<StructLayout(LayoutKind.Sequential)> _
Public Structure MARGINS
Public Left As Integer
Public Right As Integer
Public Top As Integer
Public Bottom As Integer
End Structure
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Margins As MARGINS = New MARGINS
Dim hwnd As IntPtr = Handle
margins.Left = -1
margins.Top = -1
margins.Right = -1
margins.Bottom = -1
Dim result As Integer = DwmExtendFrameIntoClientArea(hwnd, margins)
BackColor = Color.Black
End Sub
End Class
Recommendations:
Then it starts getting difficult, so you will have to follow along.
The color black = the sexy, transparency we want.
Any other color other than white should not be used.
White will show brilliantly, depending which font you use, Veranda is the best. You will change the ForeColor to white to show. Bolding is not recommended, it will look sloppy and messy. For every object you use, from buttons to progressbars, you would want to set the backcolor to "0" or "Transparent" without quotes. And for the Text, you would want to set it to white in order to show. Remember, no other color than white should be used for your objects or else it will look glitchy. Follow all of the recommendations I have provided and you will be fine. Enjoy, don't forget to say thanks or something at least
Results FTW:
Sexy Glass GUI
Peace and Comment !!