گیلان،رشت ، بلوار شهید بهشتی ، کوچه حسینی نیا ، جنب نظام پزشکی

سورس Enable or Disable All Controls on All Frames ویژوال بیسیک

 سورس Enable or Disable All Controls on All Frames ویژوال بیسیک

Sub EnableDisableFrameControls()
    Dim ctl As Control
    For i = 0 To Controls.Count - 1
        Set ctl = Controls(i)
        If TypeOf ctl Is Frame Then
            For j = 0 To Controls.Count - 1
                If TypeOf Controls(j) Is Frame Then
                    If Controls(j).Container Is ctl Then
                        Controls(j).Enabled = ctl.Enabled
                    End If
                End If
            Next j
            For j = 0 To Controls.Count - 1
                On Error Resume Next
                If Controls(j).Container Is ctl Then
                    Controls(j).Enabled = ctl.Enabled
                End If
            Next j
        End If
    Next i
End Sub







جهت دریافت اطلاعات بیشتر و یا سفارش طراحی سایت با شماره های زیر تمای حاصل فرمائید

جهت تماس با پشتیبانی : 09399829424

جهت تماس با پشتیبانی : 09119852665

رمز عبور : wwww.gildata.ir

چگونه آمار بازدید و رتبه گوگل را افزایش بدهیم ؟

گروه سئو پیشرفته گیل دیتا | سئو داخلی و سئو خارجی

سئو سازی قالب سایت ، سئو سازی مطالب سایت ، تبلیغات مستقیم گوگل ، معرفی سایت به موتور جستجو گوگل