post-feature-image

Membuat Tampilan VB Tampil Kereeeen

randomposts

Terkadang tampilan program yang kita buat terkesan biasa ato standart2 aja meskipun isi dari program kita terbilang program besar,nah unt...

Darktrek FX Project Theme SImple
Bahasa Pemograman
Hacking SQL Injection for admin
Shutdown Timer menggunakan VB
Terkadang tampilan program yang kita buat terkesan biasa ato standart2 aja meskipun isi dari program kita terbilang program besar,nah untuk melengkapi program yang kita buat bisa tampil lebih kereen dan pastinya bisa menambah daya jual program kita menjadi lebih tinggi,alangkah baiknya kita beri themes ato skins.
berikut tampilan form yang sudah diberi skins..




Gimana?? keren kan?? untuk bisa membuat skin seperti ini silakan anda download programnya disini

Untuk menggunakan skin tersebut kamu harus mengaktifkan act43.ocx dulu pada program VB nah setelah diaktifkan tinggal anda buat form dan masukkan code script sperti dibawah ini

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Const EM_UNDO = &HC7
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)


Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OpenFilename) As Long
Private Type OpenFilename
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
iFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
Flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Private Function ShowFileDialog() As String
Dim ofn As OpenFilename
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = hwnd
ofn.lpstrFilter = "Skin files (*.skn)" & Chr$(0) & "*.skn" & Chr$(0) & Chr(0) & Chr(0)
ofn.lpstrFile = String(256, 0)
ofn.nMaxFile = 255
ofn.lpstrTitle = "Open Skin"
ofn.Flags = &H800000 + &H1000 + &H8 + &H4
ofn.lpstrDefExt = "skn" + Chr(0)
GetOpenFileName ofn
If Mid(ofn.lpstrFile, 1, 1) <> Chr(0) Then ShowFileDialog = ofn.lpstrFile
End Function


Private Sub Form_Load()
Skin1.ApplySkin Me.hwnd
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)

End Sub

Private Sub Form_Unload(Cancel As Integer)
If Me.WindowState <> vbMinimized Then
SaveSetting App.Title, "Settings", "MainLeft", Me.Left
SaveSetting App.Title, "Settings", "MainTop", Me.Top
SaveSetting App.Title, "Settings", "MainWidth", Me.Width
SaveSetting App.Title, "Settings", "MainHeight", Me.Height
End If
End Sub
Selamat mencoba dan berkreasi dengan program program yang lebih kereen...
Name

.Net Framework Activator Adobe Adventure Afesubs Alt Code Anak SMA Android Android Emulator Android Games Anime Anime Skin Anime Subtitle Indonesia AnimeIndo AnimePack Anti Virus Antispyware Apk Aplikasi Aplikasi Pemesanan Taksi Artis Artis Indonesia Audisi Auto Connect Awenz Bahasa Pemograman Batch Berita Anime Biography Bisnis Online Blackberry BLockquote Blogger Blue Bird Group Blue Bird Semarang Botloop Browser Button Cheat Code Cheat Computer Converter Converter Video Crack And Patch Criminal Case CSS Design Developer Districk MC Download Download Anime Downloader Drawing Ebook Eminem Encoding Episode Event Blogging Facebook Facebook Game Fairy Tail Firmware Flashing For Developper Fort Minor Full Episode Game Offline Game Online Game PC Games Google Trends Grand Theft Auto Greenday GTA San Andreas History Hover HTML Humor Icon Pack Image Editor Indonesia News Instagram Internet ISO JavaScript jQuery Jumper Link Kedokteran Kenzen Robo Daimidaler Keygen Lenovo Lil Gucci Lil-O Linkin Park Lirik Lagu Indonesia Lyrics Macro Setting MeGUI Methosa Crew Movie Multimedia My Blue Bird Networking And Messaging Operating Systems Ost Music Anime Payment ADS Pemograman Visual Basic Perangkat Komputer Photography Point Blank Pokemon Go Portable PPC Proggraming Program SQL Programing Editor PSD File Search Google SEO Seputar Berita Sequrity Serial Key Serial Number Seseputar Berita Sitemap Skin App Skinpacks Snapshot water Software Software program Softwares Streaming Streaming Anime Subbed Indo Surat Terbuka Symbol Character Template Text Area Theme Pack Tips Games TIps Komputer tips N Trics Trainer Game Facebook Trainer Game PC Tutorial Tutorial Blog TV Series Twitter Uncategories Video Video Editor Wallpapers Widget Windows Windows 10 Windows 7 Windows 8 Windows 8.1 Windows Server 2012 R2 Windows Vista Windows XP Young Lex
false
ltr
item
Blogs PalmaHutabarat : Membuat Tampilan VB Tampil Kereeeen
Membuat Tampilan VB Tampil Kereeeen
http://i103.photobucket.com/albums/m144/depris/gb1.jpg
Blogs PalmaHutabarat
http://palmahutabarat.blogspot.com/2012/06/membuat-tampilan-vb-tampil-kereeeen.html
http://palmahutabarat.blogspot.com/
http://palmahutabarat.blogspot.com/
http://palmahutabarat.blogspot.com/2012/06/membuat-tampilan-vb-tampil-kereeeen.html
true
6437582955972537617
UTF-8
Not found any posts VIEW ALL Readmore Reply Cancel reply Delete By Home PAGES POSTS View All RECOMMENDED FOR YOU LABEL ARCHIVE SEARCH ALL POSTS Not found any post match with your request Back Home Sunday Monday Tuesday Wednesday Thursday Friday Saturday Sun Mon Tue Wed Thu Fri Sat January February March April May June July August September October November December Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec just now 1 minute ago $$1$$ minutes ago 1 hour ago $$1$$ hours ago Yesterday $$1$$ days ago $$1$$ weeks ago more than 5 weeks ago Followers Follow THIS CONTENT IS PREMIUM Please share to unlock Copy All Code Select All Code All codes were copied to your clipboard Can not copy the codes / texts, please press [CTRL]+[C] (or CMD+C with Mac) to copy