[TuT] Glass Window !

[konrad2904]

Witam dzisiaj zaprezentuje wam glass window

 

To mój pierwszy TuT.

 

 

Krok .1 New Project (Ctrl+N)

 

Krok .2 Wybieramy Windows Forms Application.

 

Krok .3 Klikamy 2 razy w formę.

 

Teraz Musicie Uważać...

 

Kliknęliśmy na formę wyszedł taki kod:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

 

Usuwamy ten na górze kod i wklejamy ten:

Imports System.Runtime.InteropServices
Public Class Form1
<StructLayout(LayoutKind.Sequential)> _
Public Structure MARGINS
	Public Left As Integer
	Public Right As Integer
	Public Top As Integer
	Public Bottom As Integer
End Structure
<DllImport("dwmapi.dll")> Public Shared Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef pMarinset As MARGINS) As Integer
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	Dim margins As MARGINS = New MARGINS
	margins.Left = -1
	margins.Right = -1
	margins.Top = -1
	margins.Bottom = -1
	Dim hwnd As IntPtr = Handle
	Dim result As Integer = DwmExtendFrameIntoClientArea(hwnd, margins)
	Me.BackColor = Color.Black
End Sub
End Class

[konrad2904]

@ref

[Sopelek997]

jakbyś jeszcze wytłumaczył poszczególne linie to było by git.

I może jakiś screen

[TheObst]

@up dokladnie!

[tsdek]

Prosze screen:

 

http://scr.hu/0x6r/7vzau

Ladnie to wyglada ;3 Dzieki za tuta wlasnie sie zastanawialem jak takie cos zrobic ;3

[Gość]

Pod Windowsem 8 już tak ładnie nie jest

[tsdek]

Wiesz @Miszczu to może wina tego W-8 .. ;3

[xDeStRuCtx]

To programista podporządkowuje się pod system, nie odwrotnie. Takie zycie.

[Skr.]

No na Windows7 efekt jest bardzo zadowalający

[WellyPL]

Pod Windowsem 8 już tak ładnie nie jest

Jaka wersja W8? (chodzi mi o to, czy home premium czy jaka)

Ja mam W7 Home Basic i niestety nie mam Aero ;( A wiąże się to z brakiem "Glass Window'ów"

 

 

P.S

Na W7 też fajnie wygląda Takie paaaaaaski

[Myszka2010]

Welly huj rob dzien z zycia kutasa

[Symeg]

Bo na W8 nie ma aero i dlatego.

Tutaj jest poradnik w którym jest wszystko wytłumaczone (C#): http://www.windows7.pl/forum/index.php?topic=4680.0

[viamrimar]

ten efekt jest jednorazywy, znaczy do pierwszego wylaczenia czy na stale?

[Symeg]

Dopóki jest w kodzie to dopóty go będziesz miał lol.

[Gość]

labele znikły ... mi  jak to naprawić?

@Edit już wiem