• [Demo P1] Tạo Thông báo bằng form thay thế Msgbox
  • [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_Loiva 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
  • RE: Demo Tạo Thông báo bằng form thay thế Msgbox

    maidinhdan > 07-05-21, 03:48 PM

    (29-03-21, 08:23 PM)mrtoanbin Đã viết: nguyentrungtoan0288@gmail.com

    Đã gửi