Jump to content
Forum Windows-az.com

[VB2008] Aero Glass Form Effekti


On_LiNe

Recommended Posts

[VB2008] Aero Glass Form Effekti

 

Video dərslik

 

Kod:

 

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

Link to comment
Share on other sites

Proqramlar telegramda

Sohbete katıl

Şimdi mesajını gönderebilir ve daha sonra kayıt olabilirsin. Bir hesabın varsa, hesabınla göndermek için şimdi oturum aç.

Misafir
Bu konuya yanıt ver...

×   Zengin metin olarak yapıştırıldı.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Önceki içeriğiniz geri yüklendi.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • loading...
×
×
  • Create New...