Headlines News :

Steven Martin ( Shim Ai QiWang ) :: Membuat Effect 3D Form Style VB 6

Written By Stephanus Bagus Saputra on Minggu, 29 Desember 2013 | 15.14

Kode animasi Form Layout VB 6.0, Effect shadow yang akan membuat form aplikasi menjadi menarik dan lebih bagus lagi. Semoga bermanfaat sobat dan berikut kodenya :

'=========================================================
' 3D Effect Form Style
' --------------------------------
' Author  : Stephanus B.S (Shim Ai QiWang)
' Website : www.shimaiqiwang.blogspot.com
' Source  : http://shimaiqiwang.blogspot.com/2013/12/membuat-effect-3d-form-style-vb-6.html
' Lisence : http://creativecommons.org/licenses/by/4.0/
' Copyleft (c)2013 Shim Ai QiWang. All Rights Reseverd.
'=========================================================

Option Explicit 
 
Private Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long 
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 
Private Const CS_DROPSHADOW As Long = &H20000 
Private Const GCL_STYLE As Long = -26 
 
Private Sub DropShadow(ByVal hWnd As Long) 
    Call SetClassLong(hWnd, GCL_STYLE, GetClassLong(hWnd, GCL_STYLE) Or CS_DROPSHADOW) 
End Sub 
 
Private Sub Form_Load() 
   DropShadow Me.hWnd 
End Sub 



Demikian selesainya Artikel diatas. Kiranya dapat menambah wawasan ilmu pengetahuan, Semoga dapat bermanfaat. Jadilah Orang yang baik dan berguna untuk menjunjung tinggi nama bangsa. Perbanyak kebaikan, maka indah pada waktunya.
Teman-Teman, Sobat Penggemar Komputer Jangan Lupa memberi Sumber di Blog atau Project Aplikasi kamu ya?
Source : http://shimaiqiwang.blogspot.com/2013/12/membuat-effect-3d-form-style-vb-6.html
Source : 
http://shimaiqiwang.blogspot.com/2013/12/membuat-effect-3d-form-style-vb-6.html

Atas Perhatian dan kunjungannya, Shim Ai QiWang™ mengucapkan terima kasih...

Dengan Hormat,
Shim Ai QiWang ™
Share this post :

Posting Komentar

 
Copyright © 2011. Steven Martin ( Shim Ai QiWang ) - All Rights Reserved
Support : 4Shared | Media Fire | Indo Webster
Created by Steven Martin
Powered by Blogger