Membuat Full Aero Glass Form Menggunakan Vb.Net

Membuat Full Aero Glass Form Menggunakan Vb.Net | Berhubung bulan ini sya sudah mulai mengerjakan project sekolah, saya akan membagikan cara Membuat Full Aero Glass Form Menggunakan Vb.Net . Mungkin ini bukan inti dari project saya, tapi ini buat styling form saja.. biar rada unik gitu.. B-)
oke langsung aja ikutin caranya.. B-)

1. Buka Microsoft Visual Studio anda, lalu klik file > new > project > windows form application > ok.
   
2. Klik kanan > View Code Pada form, dan masukkan kode seperti gambar berikut.
   
3. Klik start debugging atau tekan F5, maka hasilnya akan seperti gambar di bawah ini.
   

Form1 Code
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 Me.MaximizeBox = False Me.MinimizeBox = False 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
Semoga berhasil :-)

Anda baru saja membaca artikel yang berkategori Programming / VB dengan judul Membuat Full Aero Glass Form Menggunakan Vb.Net. Anda bisa bookmark halaman ini dengan URL http://rpl4rt.blogspot.com/2013/12/membuat-full-aero-glass-form.html. Terima kasih!

Ditulis oleh: Dika - Rabu, 25 Desember 2013