Mengetahui Informasi Regional Di Visual Basic

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

Setiap komputer memiliki pengaturan regional yang berbeda (Control Panel > Regional and Language Options). Jika Anda membutuhkan informasi regional tersebut untuk kebutuhan aplikasi, berikut contoh penggunaannya.
Buat Project baru dengan sebuah Form didalamnya. Di dalam Form buatlah sebuah kontrol TextBox (Multiline=True). Lalu di bagian 'Form_Load' ketikkan kode berikut :

Pada VB 6.0

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

Pada VB.NET

Dim Reg As Object = CreateObject("WScript.Shell")
Dim s As Strings = "Negara = " & Reg.RegRead("HKCU\Control Panel\International\sCountry") & vbCrLfs &= "Simbol Mata Uang = " & Reg.RegRead("HKCU\Control Panel\International\sCurrency") & vbCrLfs &= "Pemisah Ribuan = " & Reg.RegRead("HKCU\Control Panel\International\sThousand") & vbCrLfs &= "Pemisah Desimal = " & Reg.RegRead("HKCU\Control Panel\International\sDecimal") & vbCrLfs &= "Pemisah Tanggal = " & Reg.RegRead("HKCU\Control Panel\International\sDate") & vbCrLfs &= "Pemisah Jam = " & Reg.RegRead("HKCU\Control Panel\International\sTime") & vbCrLf
TextBox1.Text = s

Semoga dapat membantu teman-teman semua .
Bila ada kesulitan, boleh berkomentar di bawah ini atau juga bisa dari email saya di ciscoagus99@gmail.com
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Mengetahui Informasi Regional Di Visual Basic, Diterbitkan oleh scodeaplikasi pada Minggu, 09 Desember 2012. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.