New Site

Visit our new site at http://lab-informatika.com

Add Item Combobox

Combo box di gunakan untuk menampilkan daftar-daftar item yang akan digunakan, dan di pilih salah satu secara drop-down. Sebuah Combo Box merupakan suatu cara untuk membatasi pilihan pengguna. Untuk menambahkan Combo Box pada project, klik dua kali ikon Combo Box atau Drag ke dalam form project anda.

 

Untuk menambahkan data pada combobox, tuliskan kode di bawah ini pada form_load.

With Combobox1
     .Items.Add(”US”)
    .Items.Add(”India″)
    .Items.Add(”japan″)
     .Items.Add(”london″)
End With

Cara mendapatkan dolar dari easy cash di facebook

FACEBOOK selain menjadi salah satu situs JEJARING SOSIAL yang paling digemari juga memiliki banyak APLIKASI sumber uang. Salah satunya Aplikasi tersebut adalah EASY CASH. Situs ini berbasis : PAY PER LEAD (dibayar hanya untuk mengundang orang untuk bergabung). Cara kerjanya sebagai berikut :

1.JOIN saja (GRATIS), klik link disini
Anda harus punya account Facebook dan Izinkan Aplikasi tersebut di Account FaceBook anda

2. Ajak orang untuk bergabung melalui URL anda :
– URL bisa anda dapatkan dengan mengklik menu : “Refer Friends” (Cari URL dengan pola seperti point : 1 diatas)– ada juga bisa klik menu “PUBLISH TO WALL ”

3. Jumlah KOMISI :Saat Mendaftar anda langsung Dapat $.1 dan bila mengajak orang untuk mendaftar secara gratis anda dapat $.0.01 + 10% penghasilan orang yang anda ajak(4). PEMBAYARAN :Anda akan dibayar setiap tanggal 1 dan 16 setiap bulannya setelah komisi anda mencapai minimal $.5 , pembayaran melalui account paypal.

Hapus item Listbox

Kali ini saya akan menerangkan bagaimana cara menghapus item yang ada di listbox., baik menghapus salah satu atau pun semua item. Berikut ini kode program yang dapat teman-teman gunakan untuk menghapus item.

Menghapus item yang di pilih

ListBox1.Items.Remove(ListBox1.SelectedItem)

Menghapus semua item di listbox

ListBox1.Items.Clear()

Kalo belum mengerti silahkan di sedot saja..

Ubah urutan item listbox dengan Drag Drop

Aduuh , lagi males basa-basi nih. Langsung ke TKP saja iya ??
hhe

Kode program di bawah ini adalah untuk mengubah urutan item pada listbox dengan cara drag n drop .

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ListBox1.AllowDrop = True
ListBox2.AllowDrop = True

End Sub

Private Sub listbox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown, ListBox2.MouseDown

Dim lst As ListBox = DirectCast(sender, ListBox)

If e.Button = Windows.Forms.MouseButtons.Left Then
Dim index As Integer = lst.IndexFromPoint(e.X, e.Y)
If index <> ListBox.NoMatches Then
Dim item As String = lst.Items(index)
Dim drop_effect As DragDropEffects = lst.DoDragDrop(lst.Items(index), DragDropEffects.Move Or DragDropEffects.Copy)

If drop_effect = DragDropEffects.Move Then
If lst.Items(index) = item Then
lst.Items.RemoveAt(index)
Else
lst.Items.RemoveAt(index + 1)
End If
End If
End If
End If

End Sub

Private Sub listbox1_DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragOver, ListBox2.DragOver

If Not (e.Data.GetDataPresent(GetType(System.String))) Then
e.Effect = DragDropEffects.None
ElseIf (e.AllowedEffect And DragDropEffects.Move) = DragDropEffects.Move Then
e.Effect = DragDropEffects.Move
End If

End Sub

Private Sub listbox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop, ListBox2.DragDrop

If e.Data.GetDataPresent(GetType(System.String)) Then
If (e.Effect = DragDropEffects.Copy) Or (e.Effect = DragDropEffects.Move) Then
Dim lst As ListBox = DirectCast(sender, ListBox)
Dim item As Object = CType(e.Data.GetData(GetType(System.String)), System.Object)
Dim pt As Point = lst.PointToClient(New Point(e.X, e.Y))
Dim index As Integer = lst.IndexFromPoint(pt.X, pt.Y)
If index = ListBox.NoMatches Then
lst.Items.Add(item)
Else
lst.Items.Insert(index, item)
End If
End If
End If

End Sub

Kurang lebih itulah kode nya. Selamat mencoba ...

Menampilkan menu pada form dengan klik kanan

Salah seorang teman saya bertanya "bagaimana cara menampilkan sebuah menu ketika klik kanan pada form ?? " .
VB.Net menyediakan banyak pilihan menu, salah satunya adalah Context MenuStrip dan menu inilah yang akan kita pakai pada program ini.

Karena kita memerlukan tool Context MenuStrip pada form , maka langkah pertama adalah memasukan tool ini pada project kita, lalu masukan menu dan sub menu yang akan di pakai.
Dan terakhir ketikan kode berikut pada form mousedown.

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

If e.Button = Windows.Forms.MouseButtons.Right Then
ContextMenuStrip1.Show(Cursor.Position, ToolStripDropDownDirection.AboveRight)
End If

End Sub

Kata yang warna biru artinya posisi menu akan mengikuti posisi dari mouse dan Kata yang saya warnai merah adalah posisi menu dari mouse, pada script di atas saya menampilkan menu di kanan atas posisi kursor.
Jika temen-temen tidak suka dengan posisi tersebut , temen-temen bisa ganti kode tersebut dengan ToolStripDropDownDirection.AboveLeft (kiri atas), atau ToolStripDropDownDirection.BottomRight (bawah kanan) , dll.

Sekian dulu artikel ini , mudah-mudahan bermanfaat. Selamat Berkreasi ..

Menampilkan File Properties di VB.Net

Ketika kita melihat properti suatu file melalui Windows, kita bisa mendapatkan informasi seperti tipe file, dapat dibuka dengan program apa, lokasi, ukuran, dibuat dan dimodifikasi tanggal berapa, serta atribut file.
Artikel kali ini menjelaskan bagaimana cara membuat suatu aplikasi yang dapat menampilkan informasi dari file itu sendiri.

langkah-langkah dalam pembuatan aplikasi ini :
1. Kita tambahkan Reference Microsoft scripting runtime

• pilih menu project - add reference - pilih tab com - lalu cari microsoft scripting runtime dan tambahkan ke dalam project

2. Ketikan kode berikut pada form load

Dim objFSO As New Scripting.FileSystemObject
Dim objFile As Scripting.File
objFSO = New Scripting.FileSystemObject
objFile = objFSO.GetFile("E:\†† kuliaa ††\VB.net Project\Alfa\Alfa.sln")
Label1.Text = objFile.Size & " bytes "
Label2.Text = objFile.Type
Label3.Text = objFile.Name
Label4.Text = objFile.DateCreated
Label5.Text = objFile.DateLastAccessed
Label6.Text = objFile.DateLastModified

Kata yang di cetak merah ganti dengan lokasi file yang akan di tampilkan informasi file nya ..

3. Selesai ...

ini hanyalah potongan program sederhana yang saya buat , temen-temen bisa kembangkan lagi lebih baik.