• Hàm visible nút lênh
  • Hàm visible nút lênh

    nauthna > 22-02-13, 02:12 PM

    Mã PHP:
    Sub FlipVisibled(frmAny As FormctlAny As Control)
        
    Dim ctl As Control
        
        ctlAny
    .Visible True
        ctlAny
    .SetFocus
        
        
    For Each ctl In frmAny.Controls
            
    If ctl.ControlType acCommandButton Then
                
    If ctl.Name <> ctlAny.Name Then
                    ctl
    .Visible Not ctl.Visible
                End 
    If
            
    End If
        
    Next ctl    
    End Sub 


    Cach goi ham
    Call(ten form su dung, ten nut lenh)
    Vi du khi click nut lenh cmdThem thi xuat hien nut cmdLuu call(me,cmdluu)
    Luu y cmdLuu mac dinh visible la false nhe
    Thuoc tinh enable thi tuong tu nhe cac ban
    Mong giup ich cho cac ban

    Xuân Thanh : Lần sau nhớ viết Tiếng Việt có dấu bạn nhé
  • RE: Hàm visible nút lênh

    Noname > 22-02-13, 06:10 PM

    Thanks bạn đã chia sẻ! Nhưng chú ý viết tiếng Việt có dấu nhé bạn!
  • RE: Hàm visible nút lênh

    nauthna > 23-02-13, 08:58 AM

    (22-02-13, 06:10 PM)Noname Đã viết: Thanks bạn đã chia sẻ! Nhưng chú ý viết tiếng Việt có dấu nhé bạn!

    uhm lần sau mình rút kinh nghiệm
  • RE: Hàm visible nút lênh

    Xuân Thanh > 23-02-13, 10:52 AM

    (22-02-13, 02:12 PM)nauthna Đã viết:
    Mã PHP:
    Sub FlipVisibled(frmAny As FormctlAny As Control)
        
    Dim ctl As Control
        
        ctlAny
    .Visible True
        ctlAny
    .SetFocus
        
        
    For Each ctl In frmAny.Controls
            
    If ctl.ControlType acCommandButton Then
                
    If ctl.Name <> ctlAny.Name Then
                    ctl
    .Visible Not ctl.Visible
                End 
    If
            
    End If
        
    Next ctl    
    End Sub 


    Cach goi ham
    Call(ten form su dung, ten nut lenh)
    Vi du khi click nut lenh cmdThem thi xuat hien nut cmdLuu call(me,cmdluu)
    Luu y cmdLuu mac dinh visible la false nhe
    Thuoc tinh enable thi tuong tu nhe cac ban
    Mong giup ich cho cac ban

    Cám ơn đã chia sẻ, nhưng hình như là thế này mới đúng
    Function FlipVisibled(frmAny As Form, ctlAny As Control)
    Dùng Function chứ không dùng Sub
    Thân