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

Листинг 4

Private Sub TabsOnScreen()
      Dim iTop As Integer


      'Формирование выходной формы из двух вкладок:
      iTop = (dvTabPage1.Style.posTop -_
              dvTab1Sel.Style.posHeight) + 2
      dvTab1Sel.Style.Top = iTop
      dvTab2Sel.Style.Top = dvTab1Sel.Style.Top
      dvTabPage2.Style.Top = dvTabPage1.Style.Top


      dvTab2Sel.Style.Height = dvTab1Sel.Style.Height
      dvTab2Sel.Style.Left = dvTab1Sel.Style.posLeft +_
                dvTab1Sel.Style.posWidth


      tblPerInfo.Style.Top = tblEmp.Style.Top


      ' изображение в красивом 3D-виде
      With dvTab1Sel
              .Style.fontWeight = "bold"
              .Style.cursor = "hand"
              .Style.backgroundColor = "lightgrey"
              .Style.borderLeftStyle = "outset"
              .Style.borderLeft = "whitesmoke solid 2px"
              .Style.borderRight = "darkgray solid 2px"
              .Style.borderTop = "whitesmoke solid 2px"
              .Style.visibility = "visible"
      End With

      With dvTab2Sel
              .Style.cursor = "hand"
              .Style.backgroundColor = "lightgrey"
              .Style.borderLeft = "whitesmoke solid 1px"
              .Style.borderRight = "darkgray solid 2px"
              .Style.borderTop = "whitesmoke solid 2px"
              .Style.borderBottom = "whitesmoke solid 2px"
      End With
      
       With dvTabPage1
                .Style.backgroundColor = "lightgrey"
                .Style.Left = dvTab1Sel.Style.Left
                .Style.visibility = "Visible"
                .Style.borderTop = "whitesmoke solid 2px"
                .Style.borderLeft = "whitesmoke solid 2px"
                .Style.borderRight = "darkgray solid 3px"
                .Style.borderBottom = "darkgray solid 3px"
                .Style.zIndex = "-1"
        End With
        
        With dvTabPage2
                .Style.backgroundColor = "lightgrey"
                .Style.Left = dvTab1Sel.Style.Left
                .Style.visibility = "Hidden"
                .Style.Height = dvTabPage1.Style.Height
                .Style.Width = dvTabPage1.Style.Width
                .Style.borderTop = "whitesmoke solid 2px"
                .Style.borderLeft = "whitesmoke solid 2px"
                .Style.borderRight = "darkgray solid 3px"
                .Style.borderBottom = "darkgray solid 3px"
         End With
  End Sub

Возврат

Наш канал на 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
Популярные статьи
КомпьютерПресс использует