Android Live wallpaper Maker 1.3.1

Membuat Live Wallpaper pada Android...
- Membuat Live Wallpaper dengan cara menyisipkan file animasi GIF
- Dengan format save akhir APK
- APK bisa langsung di install ke Android

Download

Download kumpulan tema WinRAR

Link Download tema WinRAR

Cara Mengganti Huruf pada Partisi HardDisk

Mengganti huruf partisi, Misal Disk(E:) di ganti Hurufnya menjadi Disk(D:) , Atau huruf lainya, asal tidak sama dengan huruf di partisi lain...

1. Start - pada Search ketik "Computer Management" , tanpa tanda petik - klik Enter
2. Klik Computer Management (Local) - klik "Storage" - klik lagi "Disk Management (Local)"
3. Cari partisi yang inggin di ubah Huruf-nya (di kotak2 bawah warna biru)- Klik kanan, Misal pada Disk (E:) 
4. Lalu pilih "Change Drive Latter and Paths..."
5. Dan akan keluar Kotak Dialog "Change Drive Latter and Paths'' - Pilih :E - Klik Change
6. Akan terbuka lagi Kotak Dialog  "Change Drive Latter or Paths" 
7. Di sebelah kanan Dialog, Pilih Huruf yang di Kehendaki - Dan Klik OK
8. Buka My Computer, Maka Huruf di partisi sobat sudah berubah

Semoga Bermanfaat

Memasukan Berbagai File di Resource VB.net

Langkah Memasukan File Resources

1. Buka VB.NET, Buat Project baru

2. Pada Solution Explorer, Letak (pojok kanan atas)

3. Double Klik My Project

4. Klik/Pilih TAB Resources

5. Pilih kategori yang diinginkan (Strings, Images, Icons, Audio, Files, Other)

6. Klik Add Resource untuk membuat resource sendiri
   dan Klik tanda panah di Add Resource, Pilih Add Existing File, Untuk menambah Resource dari          File/Folder Lain

Mengganti Nama pada Aplikasi yang terbuka

Kali ini saya akan posting sedikit kode jail dengan VB.net, Kode ini berfungsi mengganti nama Semua File yang terbuka pada komputer sobat, dengan nama yang sudah di tentukan...

Asset : Timer

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Integer, ByVal wCmd As Integer) As IntegerPrivate Declare Function GetDesktopWindow Lib "user32" () As IntegerPrivate Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Integer, ByVal lpString As String) As Integer
 Dim i As Integer


'ketik pada tombol atau timer
        i = GetWindow(GetDesktopWindow(), 5)
        Do While i <> 0
        SetWindowText(i, "TULIS NAMA DI SINI")
        i = GetWindow(i, 2)
        Loop

Sumber : PutraVB

Mengetahui Ukuran Suatu File

Asset : 4 Button


'KETIK PADA MASING2 TOMBOL UNTUK MENCOBA


'Cek ukuran file dengan satuan Byte
 Dim l As Long
 l = FileLen("D:\C.A.P\OTHER\ASSETVB\VIDEO ASSET\FLV VIDEO.flv")
 MsgBox(l)


'Cek ukuran file dengan satuan Kilo Byte
 Dim l As Long
 l = ((FileLen("D:\C.A.P\OTHER\ASSETVB\VIDEO ASSET\SWF VIDEO.swf") / 1024))
 MsgBox(l & " KB")


'Cek ukuran file dengan satuan Mega Byte
 Dim l As Long
 l = ((FileLen("D:\C.A.P\OTHER\ASSETVB\VIDEO ASSET\WMV VIDEO.wmv") / 1024) / 1024)
 MsgBox(l & " MB")


'Cek ukuran file dengan satuan Giga Byte
 Dim l As Long
 l = ((FileLen("D:\C.A.P\SWR\OFFICE_PRG_SOFTWARE\OFFICE 2010.rar") / 1024) / 1024 / 1024)
 MsgBox(l & " GB")

Meload File Text tanpa membuka Aplikasi

Fungsi ini sangat penting untuk membuat aplikasi pada VB.net.
Yaitu dimana saat Sobat, misalkan membuat Aplikasi Notepad, Sobat tidak perlu membuka Aplikasi Notepad Sobat dan Klik Open File untuk membaca File Text.
Cukup dengan Klik 2x atau Double Klik pada file Text, Dan otomatis Aplikasi Notepad sobat akan terbuka dan membaca File text yang sobat Klik tadi...mudah-mudahan sobat gak pusing...he..he


Asset : 2 TextBox

'Masukan Kode di bawah di Form Load
      
Try

            If Microsoft.VisualBasic.Command <> "" Then

Membuat BackColor Gradient pada Form

Asset : Form & Module

'Buat modul baru, Dan isikan kode di bawah ini
Dim a As New System.Drawing.Drawing2D.LinearGradientBrush(New RectangleF(0, 0, Frm.Width, Frm.Height), StartColor, EndColor, Mode)
        Dim g As Graphics = Frm.CreateGraphics
        g.FillRectangle(a, New RectangleF(0, 0, Frm.Width, Frm.Height))
        g.Dispose()


'Ketik di form resize atau tombol juga bisa

GradientForm(Me, Color.Red, Color.Blue, 0)

'Ketik di area kosong pada Form
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        GradientForm(Me, Color.Red, Color.Blue, 0)
    End Sub

Ket : Modul berfungsi untuk membuat warna Bacground dan mengatur bentuk Gradient
        Form ReSize, Menentukan warna yang akan di buat dan mengatur ukuran Gradient sesuai skala pada    Form
        Fungsi kode terakhir, yaitu untuk menentukan warna yang akan dijadikan BackColor pada form (bisa di ganti)