-
[Demo P1] Tạo Thông báo bằng form thay thế Msgbox
maidinhdan > 27-03-21, 01:08 AM
Chức năng: Hiển thị tiếng việt; Chỉnh màu sắc; Chỉnh Font chữ, cỡ chữ; Nút nào hiện thông qua table [tblThongbao]
Cú pháp:
- Chỉ gọi thôi: GoiThongbao SoTTCuaThongbao
- Gọi để lấy câu trả lời Yes/No; Ok/Cancel: GoiThongbao( SoTTCuaThongbao); Trả về 1 nếu Đồng y
* Khuya quá lười viết post video giới thiệu chi tiết
Code:
Mã PHP:' --------------------------------------------------------------------------------------------------------
' Ten Modules/Class: modThongbao
' Ten ham/thu tuc : GoiThongbao
' Tao tren may PC : HENDAN
' Author/ Tac gia : maidinhdan@gmail.com , Ngay, gio tao: 26/03/2021 4:01:39 PM
' Parameters/Tham so :
' Cu phap/ Purpose :
' Pham vi ap dung : Goi thong bao bang Form
' --------------------------------------------------------------------------------------------------------
'Gia tri tra ve cua ham Goithongbao la:
'True => Tuong ung ban da nhan nut Ok/Yes
'False => Tuong ung ban da nhan nut No/Cancel
Public Function GoiThongbao(SoCanGoi As Long) As Boolean
On Error GoTo Loi
Dim cls As clsThongbao
Set cls = New clsThongbao
With cls
.SoTT = SoCanGoi
.MoFormThongbao
Do While KiemTraFormDangMo(acForm, "frmThongbao")
DoEvents
Sleep 100
Loop
End With
Set cls = Nothing
GoiThongbao = TraLoi
Exit_Loi:
Exit Function
Loi: ' Khi cac Thu tuc loi se nhay den dong duoi day
GoiThongbao 6
GoiThongbao = False
Resume Exit_Loi ' Chay nguoc len dong Exit_Loi: va thoat
End Function
'Kiem tra doi tuong dang dong hay mo
Function KiemTraFormDangMo(KieuDoiTuong As Integer, TenFormCanKiemTra As String) As Boolean
Dim i As Integer
i = SysCmd(acSysCmdGetObjectState, KieuDoiTuong, TenFormCanKiemTra)
KiemTraFormDangMo = i And acObjStateOpen
End Function
Để lại Email trong 10 ngày sẽ gửi Demo nhé! -
RE: Demo Tạo Thông báo bằng form thay thế Msgbox
mrtoanbin > 29-03-21, 08:23 PM
nguyentrungtoan0288@gmail.com