Form Berlatar Gambar Background

Mungkin judul di atas cukup membingungkan sobat, Judul di atas maksudnya adalah Latarbelakang atau Background image Form aplikasi sobat akan sama dengan Wallpaper yang sobat pasang di komputer sobat.
Kalau masih pusing , Langsung di coba aja biar ngerti..he..he

Asset : Form

'Tempatkan kode berikut di atas Form Class
Private Declare Function PaintDesktop Lib "user32" (ByVal hdc As Integer) As IntegerPrivate Declare Function GetDC Lib "user32" (ByVal hwnd As Integer) As Integer

'Masukan kode di bawah di Timer
PaintDesktop(GetDC(Me.Handle.ToInt32))

Sekarang coba RUN aplikasi sobat , Gimana..Udah ngerti-kan

 Sumber : PutraVB

Drag Drop File Text ke TextBox

Fungsi code ini yaitu, Membaca isi File TXT ke TextBox dengan cara Drag Drop

Asset : 1 TextBox

'Masukan kode ini di Form

Private _DraggingFileName As String

'Masukan Kode ini di TextBox dengan Event DragDrop
 Me.TextBox1.Text = My.Computer.FileSystem.ReadAllText(_DraggingFileName)

'Masukan Kode ini di TextBox dengan Event DragLeave
 _DraggingFileName = String.Empty

MenDisable atau Mematikan Fungsi Key Alt + F4

Fungsi dari kode di bawah adalah, Supaya aplikasi yang sobat buat tidak bisa dimatikan memakai Fungsi tombol Alt + F4.
Fungsi bisa di rubah sesuai keinginan sobat

Aseet : Form

'Masukan kode berikut ke dalam Form (bukan form load)
Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
        If keyData = (Keys.Alt Or Keys.F4) Then
            Return True
        Else
            Return MyBase.ProcessCmdKey(msg, keyData)
        End If
    End Function

Sekarang RUN aplikasi sobat, Lalu tekan Alt + F4 , Fungsi ini berhasil Jika aplikasi tidak tertutup

Copy File VB.net

Menyalin/MengCopy file dalam satu folder ke folder lain :

Asset : 1 Button

'Masukan code di bawah ini ke Button1

Dim Fs, Fd As String
        Fs = "C:\Users\user\Desktop\FolderA"
        Fd = "D:\FolderB"
        My.Computer.FileSystem.CopyDirectory(Fs, Fd, False)

Ket : Fs : Adalah lokasi dimana tempat/lokasi folder yang ingin di Copy (FolderA)
               File2 di dalam folderA, akan di Copy ke Fd : yaitu di Drive D (FolderB)

Menghapus URL/Situs

Bila sobat ingin menghapus Halaman/Situs yang tidak di sukai pada komputer Sobat,
Mungkin karena situs tersebut berbau Porno atau mengandung unsur SARA, Jadi layak di bersihkan...
Pembersihan/Penghapusan ini tidak menyeluruh, Artinya jika sobat memakai komputer dengan
Jaringan yang berbeda, Halaman tersebut masih bisa di Akses.
Untuk menghapus Situs, Sobat bisa klik link di bawah ini :

https://www.google.com/webmasters/tools/removals










0. Syarat, sobat harus punya Akun Google dulu
1. Klik Create a new  removal request
2. Isikan pada kolom, Situs yang ingin di hapus
3. Klik Continue
4. Masukan situsnya kembali/ pilih URL halamanya
5. Klik Removal


Sekian Terimakasih, Semoga Bermanfaat

CAP Manifest File

Untuk membuat Visual Styles pada Visual Basic 6.0
Supaya Sesuai dengan Visual Styles yang ada pada Komputer
 
   
     1. Pada VB6.0, Pilih menu Project - Properties (paling bawah)
     2. Pilih TAB Make, Pada Version Information - Type
     3. Cari File Description dan isikan selera anda (Misal FD)
     4. Pada Type cari Product Name dan isikan       (Misal PN)
     5. Lalu Ok
                                                      
     >> Pada Aplikasi CAP Manifest File :
      - Isikan PN pada Kolom Product Name"
      - Dan Isikan FD pada Kolom File Description
      - Lalu Save, Dan Nama sesuai nama Aplikasi anda
      - Dan letakan/simpan di satu folder dengan Aplikasi anda

ScreenShot :

Download di sini

CAP Gif Viewer

Aplikasi saya yang satu ini berfungsi untuk menjalankan file yang berExtension (*.gif), Atau file Animasi
Aplikasi ini di khususkan untuk win Vista n Seven karena ke 2 OS tersebut tidak bisa menjalankan File Gif dengan baik,
Alias gambarnya diam tidak bergerak.
Mungkin bisa file Gif di jalankan di OS tersebut, Tapi menggunakan Internet Explorer, Kalau komputernya Cepet tidak apa2, Tapi kalau lambat, Membuka satu file Gif akan makan waktu.
Aplikasi ini hanya berukuran 51 KB , Sangat kecil sekali, Jadi saat meload File juga Cepat.
Tidak usah menginstal, Karena file-nya cuma satu.

Download di sini

Cara Penggunaan :

SERIAL NUMBER WINDOWS SEVEN

Windows 7 Ultimate x86/x64

FJGCP-4DFJD-GJY49-VJBQ7-HYRR2 (ACER/GATEWAY/PACKARD BELL)
2Y4WT-DHTBF-Q6MMK-KYK6X-VKM6G (ASUS)
342DG-6YJR8-X92GV-V7DCV-P4K27 (DELL)
22TKD-F8XX6-YG69F-9M66D-PMJBM (IBM-LENOVO / OLD)
6K2KY-BFH24-PJW6W-9GK29-TMPWP (IBM-LENOVO / NEW)
49PB6-6BJ6Y-KHGCQ-7DDY6-TF7CD (SAMSUNG)
VQ3PY-VRX6D-CBG4J-8C6R2-TCVBD (Alienware)


Windows 7 Professional x86/x64