home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Visual Basic.60 / COMMON / TOOLS / VCM / VCM.MDB / VcmComponentContainer / 06_Cabinet / Styles.Dsr < prev    next >
Encoding:
Text File  |  1998-05-18  |  2.0 KB  |  74 lines
  1. VERSION 5.00
  2. Begin {90290CCD-F27D-11D0-8031-00C04FB6C701} Styles 
  3.    ClientHeight    =   4770
  4.    ClientLeft      =   0
  5.    ClientTop       =   0
  6.    ClientWidth     =   5985
  7.    _ExtentX        =   10557
  8.    _ExtentY        =   8414
  9.    SourceFile      =   "C:\Program Files\Microsoft Visual Studio\MSDN98\98VS\1033\Samples\VB98\DHShowMe\Styles.htm"
  10.    BuildFile       =   "c:\dhtml\Styles.htm"
  11.    BuildMode       =   0
  12.    TypeLibCookie   =   125
  13.    AsyncLoad       =   0   'False
  14.    id              =   "DHTMLPage2"
  15.    ShowBorder      =   -1  'True
  16.    ShowDetail      =   -1  'True
  17.    AbsPos          =   0   'False
  18. End
  19. Attribute VB_Name = "Styles"
  20. Attribute VB_GlobalNameSpace = False
  21. Attribute VB_Creatable = True
  22. Attribute VB_PredeclaredId = False
  23. Attribute VB_Exposed = True
  24.  
  25. Private Sub colorme_onmouseout()
  26. 'Change the color of the colorme element back to black when
  27. 'the user mouses out.
  28.     colorme.Style.Color = "black"
  29. End Sub
  30.  
  31. Private Sub colorme_onmouseover()
  32.  'On mouseover, change the color of the colorme element
  33.  'to red and bold.
  34.     colorme.Style.Color = "red"
  35.     colorme.Style.fontWeight = "bold"
  36.  
  37. End Sub
  38.  
  39. Private Sub sizeme_onmouseout()
  40. 'Reduce the size of the sizeme element to 15 on mouseout.
  41.     sizeme.Style.FontSize = 15
  42. End Sub
  43.  
  44. Private Sub sizeme_onmouseover()
  45. 'Enlarge the sizeme list element to 30 on mouseover.
  46.     sizeme.Style.FontSize = 30
  47. End Sub
  48.  
  49.  
  50. Private Sub strike_onmouseout()
  51. 'Remove the line through the strike element on mouseout
  52.     strike.Style.textDecorationLineThrough = False
  53.     
  54. End Sub
  55.  
  56. Private Sub strike_onmouseover()
  57. 'Put a line through the strike element on mouseover.
  58.      strike.Style.textDecorationLineThrough = True
  59. End Sub
  60.  
  61.  
  62. Private Sub underline_onmouseout()
  63. 'Remove the underline from the underline element on mouseout
  64.     underline.Style.textDecorationUnderline = False
  65. End Sub
  66.  
  67. Private Sub underline_onmouseover()
  68. 'Underline the underline element on mouseover
  69.     underline.Style.textDecorationUnderline = True
  70.     
  71. End Sub
  72.  
  73.  
  74.