VB.Net 2010: Aero Form

Dear KompKnowledge Readers,

Saya termasuk orang yang menggilai Aero, semenjak pertama kali Aero muncul di Windows 7, itulah fitur yang paling saya cari dari sistem operasi tersebut. Wow adalah kesan pertama saya.

Kali ini kita akan belajar bagaimana cara membuat “full aero form”.

Aero form hanya berjalan pada Windows Vista Home Premium dan keatas dan Windows 7 Home Premium dan keatas. Untuk versi lainnya, misalnya Windows 7 Starter, harus tweaking dulu baru bisa menikmati Aero. Kodenya cukup panjang dan saya sarankan untuk co-pas ke VB Anda agar tidak terjadi kesalahan pengetikan. Ini bukan kode yang saya buat sendiri, sehingga saya tidak bisa menjelaskan secara detail, maaf dan selamat mencoba!

Imports System.Runtime.InteropServices
Public Class Aero
#Region "Aero Style"
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure MARGINS
        Public cxLeftWidth As Integer
        Public cxRightWidth As Integer
        Public cyTopHeight As Integer
        Public cyButtomheight As Integer
    End Structure
    <DllImport("dwmapi.dll")> _
    Public Shared Function _
    DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, _
                                 ByRef pMarinset As MARGINS) As Integer
End Function
#End Region
    Private Sub Aero_Load(sender As System.Object, e As System.EventArgs) _
        Handles MyBase.Load
        On Error Resume Next
        Dim margins As MARGINS = New MARGINS
        margins.cxLeftWidth = -1
        margins.cxRightWidth = -1
        margins.cyTopHeight = -1
        margins.cyButtomheight = -1
        Dim hwnd As IntPtr = Me.Handle
        Dim result As Integer = DwmExtendFrameIntoClientArea(hwnd, margins)
    End Sub
End Class

KK_AeroForm.png 

Unduh sourcecode: KK_AeroForm.rar @ Mediafire (v2)

——————————————————————————————————————————————————————————

Ditulis oleh: William Darian, KompKnowledge Administrator

Iklan

Posted on 30 September 2011, in VB.Net 2010 and tagged , , , , . Bookmark the permalink. Tinggalkan komentar.

Beri Komentar

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: