Создание DHTML-приложений с помощью Visual Basic 6.0

Листинг 5

Private Function dvTab1Sel_onclick() As Boolean
        'Переключение на первую вкладку
        '       
        dvTab1Sel.Style.fontWeight = "bold"
        dvTab2Sel.Style.fontWeight = "normal"
        dvTabPage1.Style.visibility = "visible"
        dvTabPage2.Style.visibility = "hidden"
        dvTab2Sel.Style.borderBottom = "whitesmoke solid 2px"
        dvTab1Sel.Style.borderBottom = "lightgrey solid 4px"
End Function
Private Function dvTab2Sel_onclick() As Boolean
         'Переключение на вторую вкладку
         dvTab2Sel.Style.fontWeight = "bold"
         dvTab1Sel.Style.fontWeight = "normal"
         dvTabPage2.Style.visibility = "visible"
         dvTabPage1.Style.visibility = "hidden"
         dvTab1Sel.Style.borderBottom = "whitesmoke solid 2px"
         dvTab2Sel.Style.borderBottom = ""
         dvTabPage2.Style.zIndex = "-1"
End Function

Возврат


Наш канал на Youtube

1999 1 2 3 4 5 6 7 8 9 10 11 12
2000 1 2 3 4 5 6 7 8 9 10 11 12
2001 1 2 3 4 5 6 7 8 9 10 11 12
2002 1 2 3 4 5 6 7 8 9 10 11 12
2003 1 2 3 4 5 6 7 8 9 10 11 12
2004 1 2 3 4 5 6 7 8 9 10 11 12
2005 1 2 3 4 5 6 7 8 9 10 11 12
2006 1 2 3 4 5 6 7 8 9 10 11 12
2007 1 2 3 4 5 6 7 8 9 10 11 12
2008 1 2 3 4 5 6 7 8 9 10 11 12
2009 1 2 3 4 5 6 7 8 9 10 11 12
2010 1 2 3 4 5 6 7 8 9 10 11 12
2011 1 2 3 4 5 6 7 8 9 10 11 12
2012 1 2 3 4 5 6 7 8 9 10 11 12
2013 1 2 3 4 5 6 7 8 9 10 11 12
Популярные статьи
КомпьютерПресс использует