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(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
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
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 In
GetObject("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