Ganti Text AM dan PM



AM / PM adalah tanda penunjuk waktu yang berada di windows, bisa dilihat di sudut kanan bawah pada layar monitor pc sobat. AM singkatan dari Ante Meridiem"(before noon = sebelum tengah hari) dan PM singkatan dari "Post Meridiem "(after noon = setelah tengah hari), kedua kata itu berasal dari bahasa latin.



Kedua Text tersebut (AM dan PM) yang berada di monitor kita bisa diganti tulisannya melalui badan registry di :

HKEY_CURRENT_USER\Control Panel\International\s1159
dan
HKEY_CURRENT_USER\Control Panel\International\s2359


Dengan aplikasi/tool ini, bisa membantu sobat untuk mengedit text nya, cukup inputkan kata-kata yang diinginkan tanpa harus membuka registry.

Untuk sourcenya bisa dilihat di bagian bawah ini :


Sub check_Text1()
On Error Resume Next
Set codetan = CreateObject("WScript.Shell")
Versionss = codetan.regread("HKEY_CURRENT_USER\Control Panel\International\s1159")
Text1.Text = Versionss
End Sub
Sub check_Text2()
On Error Resume Next
Set codetan = CreateObject("WScript.Shell")
Versionss = codetan.regread("HKEY_CURRENT_USER\Control Panel\International\s2359")
Text2.Text = Versionss
End Sub
Private Sub Form_Load()
header
check_Text1
check_Text2
End Sub
Private Sub Command1_Click()
On Error Resume Next
Set codetan = CreateObject("WScript.Shell")
codetan.RegWrite "HKEY_CURRENT_USER\Control Panel\International\s1159", Text1, "REG_SZ"
codetan.RegWrite "HKEY_CURRENT_USER\Control Panel\International\s2359", Text2, "REG_SZ"
End Sub
Sub header()
On Error Resume Next
Me.Caption = " • " & App.Title & " - " & App.LegalTrademarks
End Sub


Dengan sedikit modifikasi icon dan warna agar bisa tampil cantik. Sedangkan untuk aplikasi dimaksud yang telah siap saji tersebut diatas bisa di download di sini

Selamat berkarya.

No comments:

Post a Comment