Assalamu’alaikum Para bloggers Kali ini Hamzah Fansyuri 14™ mau berbagi Untuk para programmer newbie yang masih baru baru Menguasai pemograman VB patut liat ini dan langsung bisa di praktekkan Oke langsung aja Ke kodingya
Untuk Para programmer VB.Net Ini Cara Caranya
- Buat Label dengan Nama Default (Asli)
- Lalu Masukkan Code ini Kedalam Form
Private Sub Form1_Load(ByValsender As System.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load
For EachWin As Object In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
Label1.Text = Win.Caption & vbCrLf & Win.CSDVersion & vbCrLf & "Version : " & Win.Version & vbCrLf & "Build : " & Win.BuildNumber
Next
End Sub
- Langsung Jalankan aja gan Pasti bisa Soalnya Udah Admin Test juga
Untuk Programmer VB 6.0
- Buat Juga Label dengan nama Default (Asli)
- Lalu Masukkan Code ini Kedalam Form
Private Sub Form_Load()
Dim Win As Object
For Each Win InGetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
Label1.Caption = Win.Caption & vbCrLf & Win.CSDVersion & vbCrLf & "Version : " & Win.Version & vbCrLf & "Build : " & Win.BuildNumber
Next
End Sub
NB : Kali mau ganti nama Label1 ganti juga yang ada di Form_Load
Oke sampai disini dulu informasi yang dapat admin sampaikan Kalau ada yang gagal coba lagi karena Code yang diatas sudah Saya test Baca Juga Cara Membuat Form Transparan Dengan VB
