home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / View_HTML_47064172002.psc / mod_ViewStyle.bas < prev   
Encoding:
BASIC Source File  |  2002-01-06  |  1.5 KB  |  67 lines
  1. Attribute VB_Name = "mod_ViewStyle"
  2. 'Default Page Variables
  3. Global lBGCOLOR As Long
  4. Global lTextColor As Long
  5. Global lLinkColor As Long
  6. Global lActiveColor As Long
  7. Global lVisitedColor As Long
  8. Global sBGImage As String
  9. Global sHTML As String
  10. Global lFontSize As Long
  11. Global sFontFace As String
  12. Global sPageTitle As String
  13. Global sDir As String
  14. Global lAlign As Long
  15.  
  16. 'Variables for Rendering the HTML
  17. Global TCurrentX As Single
  18. Global TCurrentY As Single
  19. Global TOldX As Single
  20. Global TOldY As Single
  21.  
  22. 'Link Type Delcaration
  23. Type HTMLLink
  24. sLink As String 'where it links to
  25. rBounds As RECT 'the x1,y1,x2,y2 area of the screen the link is on (in twips)
  26. End Type
  27. Global AllLinks() As HTMLLink
  28. Public Sub SetDefaultColors(Optional bReset As Boolean)
  29. lBGCOLOR = &HFFFFFF
  30. lTextColor = &H0
  31.  
  32.  
  33. lFontSize = 9
  34. sFontFace = "Arial"
  35. If bReset = False Then
  36. sBGImage = ""
  37. sPageTitle = ""
  38. lLinkColor = &HFF0000
  39. lActiveColor = &HFF8080
  40. lVisitedColor = &H800000
  41. End If
  42. End Sub
  43.  
  44. Public Sub SetBold(Obj As PictureBox, bBold As Boolean)
  45. Obj.FontBold = bBold
  46. End Sub
  47.  
  48. Public Sub SetItalic(Obj As PictureBox, bItalic As Boolean)
  49. Obj.FontItalic = bItalic
  50. End Sub
  51.  
  52. Public Sub SetUnderLine(Obj As PictureBox, bUnderLine As Boolean)
  53. Obj.FontUnderline = bUnderLine
  54. End Sub
  55.  
  56. Public Sub SetFontColor(Obj As PictureBox, lColor As Long)
  57. Obj.ForeColor = lColor
  58. End Sub
  59.  
  60. Public Sub SetFontSize(Obj As PictureBox, lSize As Long)
  61. Obj.FontSize = lSize
  62. End Sub
  63.  
  64. Public Sub SetFontFace(Obj As PictureBox, sFont As String)
  65. Obj.Font.Name = sFont
  66. End Sub
  67.