Tips Mempercantik Tampilan Form

EFEK PERGANTIAN KURSOR

Disini anda akan mendisain kursor anda, agar tampilan lebih bagus dan terkesan tidak membosankan.

Langkah membuatnya  :

Bukalah projek kemudian tempelkan satu ComboBox pada form anda.

Kemudian isikan rumus/syntax pada jendela kode editor anda, double klik pada form. Seperti gambar dibawah ini :

Private Sub Combo1_Click ()

If Combo1.Text = "No Drop" Then

   Form1.MousePointer = 12

   Else

If Combo1.Text = "Hourglass" Then 

  Form1.MousePointer = 11

  else

If Cobo1.Text = "Up Aroow" Then

   Form1.MousePointer = 10

End If

End If

End If

Private Sub Form_Load ()

Combo1.Text = "Pilihan Kurosor"

Form1.MousePointer = 1

Combo1.AddItem "No Drop"

Combo1.AddItem "Hourglass"

combo1.AnddItem "Up Arrow"

End

jalankan aplikasi anda dan lihat kusor anda.

Download file jadinya.