Cara Mengetahui Versi Windows yang di pakai

Berikut adalah kode sederhana VB.Net dan VB 6.0 untuk mengetahui versi windows yang sobat gunakan.

Buat Project baru dengan sebuah Form didalamnya, kemudian tambahkan kontrol Label (untuk menampung hasilnya) ke dalam Form tersebut. Lalu ketikkan kode berikut di bagian 'Form_Load' :



[ VB 6.0 ]

Dim Win As Object

For Each Win In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")

Label1.Caption = Win.Caption & vbCrLf & Win.CSDVersion & vbCrLf & "Version : " & Win.Version & vbCrLf & "Build : " & Win.BuildNumber

Next

[ VB .NET ]

For Each Win As Object In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")

Label1.Text = Win.Caption & vbCrLf & Win.CSDVersion & vbCrLf & "Version : " & Win.Version & vbCrLf & "Build : " & Win.BuildNumber

Next

Mendeteksi Versi MS Office

Cara termudah untuk mendeteksi versi MS Office yang ter-install di komputer, yaitu dengan cara membaca nilai registry. Berikut kodenya :



Tulis kode function ini di Module baru :

Function VersiOffice(ByVal Aplikasi As String) As String

    On Error GoTo Ero

    Dim Reg As Object

    Dim s As String

      

    Set Reg = CreateObject("Wscript.Shell")

    s = Reg.RegRead("HKCR\" & Aplikasi & ".Application\CurVer\")

    VersiOffice = Replace(s, Aplikasi & ".Application.", "", , , 1)

  

Ero:

End Function

Kode penggunaannya seperti ini :

Dim v As String

v = VersiOffice("Word")

If v <> "" Then

    MsgBox ("Microsoft Word versi " & v)

Else

    MsgBox ("Microsoft Word tidak ter-install")

End If

Dapat dilihat contoh diatas digunakan untuk mendeteksi Word, maka juga bisa digunakan untuk Excel, PowerPoint, Access, dll

Cara Membuat ListBox yang bisa di Edit

Cara Membuat ListBox yang bisa di Edit - Agar item yang terdapat di ListBox bisa di edit, maka diperlukan cara khusus dengan mengkombinasikannya dengan TextBox. Berikut caranya :

1. Tambahkan 1 ListBox, kemudian 1 TextBox (properti Visible=False) ke dalam Form.




2. Ketikkan kode ini di event ListBox1_MouseDoubleClick :
   
   
   Dim i As Integer = ListBox1.SelectedIndex
   
   If i < 0 Then Exit Sub
   
   
   
   With TextBox1
   
     .Top = ListBox1.GetItemRectangle(i).Top + ListBox1.Top
   
     .Left = ListBox1.GetItemRectangle(i).Left + ListBox1.Left
   
   
   
     .Text = ListBox1.Items(i)
   
     .Visible = True
   
     .Focus()
   
   End With




3. Ketikkan kode ini di event TextBox1_KeyPress :
   
   
   If e.KeyChar = Chr(Keys.Enter) Then
   
     ListBox1.Items(ListBox1.SelectedIndex) = TextBox1.Text
   
     TextBox1.Visible = False
   
   ElseIf e.KeyChar = Chr(Keys.Escape) Then
   
     TextBox1.Visible = False
   
   End If




4. Ketikkan kode ini di event TextBox1_LostFocus :
   
   
   TextBox1.Visible = False




5. Untuk percobaan, Anda bisa mengisi item dengan cara mengetikkan kode ini di event Form1_Load :
   
   
   Dim i As Integer
   
   For i = 1 To 100
   
     ListBox1.Items.Add("Item ke " & i)
   
   Next

 Jalankan aplikasi, lalu dobel klik item yang akan di edit.

Cara Menata Form Child di Form MDI

Jika Anda sedang membuat Project yang menggunakan Form MDI, ada baiknya ditambahkan kode untuk menata Form Child-nya agar terlihat rapi.

• Cascade
  
  
  
  Kode :
  
  [ VB 6.0 ] Me.Arrange vbCascade
  
  [ VB .NET ] Me.LayoutMdi(MdiLayout.Cascade)
  




• Tile Horizontal
  
  
  
  Kode :
  
  [ VB 6.0 ] Me.Arrange vbTileHorizontal
  
  [ VB .NET ] Me.LayoutMdi(MdiLayout.TileHorizontal)
  




• Tile Vertical
  
  
  
  Kode :
  
  [ VB 6.0 ] Me.Arrange vbTileVertical
  
  [ VB .NET ] Me.LayoutMdi(MdiLayout.TileVertical)
  

Untuk mempermudah User untuk menggunakannya, Anda bisa membuat menu khusus seperti ini :