Informasi Regional and Language Options

Melanjutkan postingan di waktu senggang saya ini, saya akan membagikan kode program untuk mengecek Regional and Language Options melalui vb 6.0.

Berikut adalah caranya:

1. Tambahkan sebuah Textbox ke dalam Form yang aktif.
2. Atur properties Textbox - Multiline=True.
3. Setelah itu masukkan kode di bawah ini ke Form_Load.

Dim Reg As Object
Set Reg = CreateObject("WScript.Shell")

Dim s As String
s = "Negara = " & Reg.RegRead("HKCU\Control Panel\International\sCountry") & vbCrLf
s = s & "Simbol Mata Uang = " & Reg.RegRead("HKCU\Control Panel\International\sCurrency") & vbCrLf
s = s & "Pemisah Ribuan = " & Reg.RegRead("HKCU\Control Panel\International\sThousand") & vbCrLf
s = s & "Pemisah Desimal = " & Reg.RegRead("HKCU\Control Panel\International\sDecimal") & vbCrLf
s = s & "Pemisah Tanggal = " & Reg.RegRead("HKCU\Control Panel\International\sDate") & vbCrLf
s = s & "Pemisah Jam = " & Reg.RegRead("HKCU\Control Panel\International\sTime") & vbCrLf
   
Text1.Text = s

Download contoh programnya disini atau disini.