Tùy chọn hộp thoại thông báo của chương trình home Binh khí : Cần 2 nút ấn với tên CmdTest và cmdTest1, một Module Xuất xứ : www.pscode.com Đoạn mã Trong Module Option Explicit Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hwndParent As Long, ByVal hwndChildAfter As Long, ByVal lpszClass As String, ByVal lpszWindow As String) As Long Private Declare Function SetWindowText Lib "user32.dll" Alias "SetWindowTextA" (ByVal HWND As Long, ByVal lpString As String) As Long Private Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" (ByVal HWND As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal HWND As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const HCBT_ACTIVATE = 5 Private Const WH_CBT = 5 Private hHook As Long, ButtonText(3) As String, PasswordChar As Byte Private Function ChangeButtonsText(ByVal lMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim t As Integer, cName As String, Length As Long, Btn(0 To 3) As Long If lMsg = HCBT_ACTIVATE Then Btn(0) = FindWindowEx(wParam, 0, vbNullString, vbNullString) For t = 1 To 3 Btn(t) = FindWindowEx(wParam, Btn(t - 1), vbNullString, vbNullString) If Btn(t) = 0 Then Exit For Next t For t = 0 To 3 If (Btn(t) <> 0) And (Btn(t) <> wParam) Then cName = Space(255) Length = GetClassName(Btn(t), cName, 255) cName = Left(cName, Length) If UCase(cName) = "BUTTON" Then If ButtonText(t) <> vbNullString Then SetWindowText Btn(t), ButtonText(t) End If End If Next t UnhookWindowsHookEx hHook End If ChangeButtonsText = False End Function Private Function SetPasswordChar(ByVal lMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Const EM_SETPASSWORDCHAR As Long = &HCC Dim t As Integer, cName As String, Length As Long, Btn(0 To 3) As Long If lMsg = HCBT_ACTIVATE Then Btn(0) = FindWindowEx(wParam, 0, vbNullString, vbNullString) For t = 1 To 3 Btn(t) = FindWindowEx(wParam, Btn(t - 1), vbNullString, vbNullString) If Btn(t) = 0 Then Exit For Next t For t = 0 To 3 If (Btn(t) <> 0) And (Btn(t) <> wParam) Then cName = Space(255) Length = GetClassName(Btn(t), cName, 255) cName = Left(cName, Length) If LCase$(cName) = "edit" Then SendMessage Btn(t), EM_SETPASSWORDCHAR, ByVal PasswordChar, ByVal 0& End If Next t UnhookWindowsHookEx hHook End If SetPasswordChar = False End Function Public Function CustomMsgBox(ByVal zMessage As String, Optional ByVal zButtons As VbMsgBoxStyle = vbOKOnly, Optional ByVal zTitle As String = vbNullString, Optional ByVal Button1Text As String = vbNullString, Optional ByVal Button2Text As String = vbNullString, Optional ByVal Button3Text As String = vbNullString) As VbMsgBoxResult Dim Thread As Long ButtonText(0) = Button1Text ButtonText(1) = Button2Text ButtonText(2) = Button3Text Thread = GetCurrentThreadId() hHook = SetWindowsHookEx(WH_CBT, AddressOf ChangeButtonsText, ByVal 0&, Thread) If zTitle = vbNullString Then CustomMsgBox = MsgBox(zMessage, zButtons) Else CustomMsgBox = MsgBox(zMessage, zButtons, zTitle) End If End Function Public Function PasswordBox(ByVal zMessage As String, Optional ByVal zTitle As String = vbNullString, Optional ByVal zPasswordChar As Byte = 42) As String Dim Thread As Long PasswordChar = zPasswordChar Thread = GetCurrentThreadId() hHook = QUY HOC BONG THAP SANG NIEM TIN LIGHT YOUR HOPE SCHOLARSHIP FOUNDATION THONG sAo XET cAP HQC BONG Quy hoc bong Th~p Sang Ni~m Tin dai 21/05/2007 Sau gan nam hoc;~t dong hi$u qua , thang nam 2011 Quy dU'Q'C Bo Noi Vv cap giay phep ch inh thtic 1$p va cong nh$n 8ieu 1$ hoc;~t dong cua mot Quy xa hoi h6a Hi$n nay, Quy hoc bong Th~p Sang Ni~m Tin dU'Q'C quan ly va dieu hanh bai Ngan hang TMCP 8c;~i chung Vi$t Nam (PVcomBank) , Tong Cong ty Dau Vi$t Nam (PV Oil) , Tong cong ty CP Dich vv Ky thu$t Dau VN (PTSC) va Tong Cong ty CP Khoan va Dich vv Khoan Dau (PV Drilling ) Quy dU'Q'c bao trq b&i T$p doan Dau Vi$t Nam Hang nam Quy trao t~ng hoc bong toan phan cho cac em hoc sinh gioi, th i dc;~i hoc nhU'ng hoan canh gia dinh d~c bi$t kh6 khan khong du kha nang theo hoc, giup cac em VU'Q't qua kh6 khan, thl,l'c hi$n U'&c mo chinh dang cua minh Ia hoc t$p va c6ng hien cho dat nU'&c Cac em dU'Q'c nh$n hoc bong se dU'qc tham gia cac hoc;~t dong sinh hoc;~t van h·oa, tinh than ; dU'Q'C ren luy$n cac ky nang can thiet cong vi$c va CUQC song ; cOng nhU' trau doi kien thtic, kinh nghi$m hoc t$p ; dU'Q'C djnh hU'6'ng nghe nghi$p Ban 8ieu Mnh Quy tran thong bao chU'ong trinh xet cap hoc bong hang nam nhU' sau: •:• S6 IU'O'ng hoc bbng: 80 - 100 suat ·:· Ml'Pc hoc bbng: 12.000.000 dong/1 nam hoc/1 sinh vien (8 000.000 dong/1 nam hoc/1 sinh vien- d6i v&i sinh vien dc;~i hoc dU'Q'C mien hoc phi va cao dang) Hoc bong trao cho cac em su6t thai gian hoc dc;~i hoc/cao dang v&i dieu ki$n ket qua hoc t$p , ren luy$n dc;~t l oc;~i kha tr& len ·:· f>il!u kien va tieu chu~n: Sinh vien dang ky xet cap hoc bong Th~p Sang Ni~m Tin phai dap ting du cac dieu ki$n , tieu chuEm sau : •:• Sinh vien trung tuyen vao cac tmang dc;~i hoc cong 1$p, dc;~t diem xet tuyen tu 20 diem tr& len cho mon thi (khong tinh diem U'u tien , diem cho tung mon t6i thieu >=5 diem) Sinh vien trung tuyen vao cac tmang cao dang, dc;~t diem xet tuyen tu 17 diem tr& len cho mon thi (khong tinh diem u'u tien) Cac trU'ang dc;~i hoc, cao dang trq cap hoc phi, sinh hoc;~t phi cho sinh vien kh6ng thuoc di$n xet cap cua Quy Hoan canh gia dinh : sinh vien phai thuoc gia dinh c6 hoan canh d~c bi$t kh6 khan (c6 xac nh$n hQ ngheo) Gia dinh khong c6 kha nang lo cho em hoc dc;~i hoc (Quy se den nM xac minh hoan canh gia di nh) Hoc ll,YC: t6i thieu d