home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / ahtmlle2.exe / MAINDIR / Menu.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-08-09  |  3.7 KB  |  117 lines
  1. VERSION 5.00
  2. Object = "{E4D5D928-FD35-4D0A-92CD-F3CE02D68455}#1.1#0"; "ahtmlle2.ocx"
  3. Begin VB.Form frmMenu 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Ariad HTML Controls Lite Edition Demonstration"
  6.    ClientHeight    =   6645
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   6270
  10.    BeginProperty Font 
  11.       Name            =   "Tahoma"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "Menu.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   443
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   418
  26.    StartUpPosition =   2  'CenterScreen
  27.    Begin HTMLCtlsLE.HTMLLabel hlbDemonstrations 
  28.       Height          =   4695
  29.       Left            =   1710
  30.       TabIndex        =   3
  31.       Top             =   1170
  32.       Width           =   4335
  33.       _extentx        =   7646
  34.       _extenty        =   8281
  35.       font            =   "Menu.frx":0E42
  36.       borderstyle     =   1
  37.       backcolor       =   -2147483643
  38.       forecolor       =   -2147483640
  39.       margin          =   4
  40.       text            =   "HTMLLabel1"
  41.    End
  42.    Begin VB.CommandButton cmdClose 
  43.       Cancel          =   -1  'True
  44.       Caption         =   "E&xit"
  45.       Default         =   -1  'True
  46.       Height          =   330
  47.       Left            =   4905
  48.       TabIndex        =   2
  49.       Top             =   6075
  50.       Width           =   1140
  51.    End
  52.    Begin VB.CommandButton cmdAbout 
  53.       Caption         =   "&About..."
  54.       Height          =   330
  55.       Left            =   3690
  56.       TabIndex        =   1
  57.       Top             =   6075
  58.       Width           =   1140
  59.    End
  60.    Begin HTMLCtlsLE.HTMLLabel hlbMenu 
  61.       Height          =   765
  62.       Left            =   1710
  63.       TabIndex        =   0
  64.       Top             =   180
  65.       Width           =   4335
  66.       _extentx        =   7646
  67.       _extenty        =   1349
  68.       autosize        =   -1
  69.       font            =   "Menu.frx":0E6A
  70.       borderstyle     =   12
  71.       backstyle       =   0
  72.       backcolor       =   -2147483624
  73.       forecolor       =   -2147483625
  74.       text            =   $"Menu.frx":0E92
  75.    End
  76.    Begin HTMLCtlsLEDemo.pucLogoPane pucLogoPane1 
  77.       Align           =   3  'Align Left
  78.       Height          =   6645
  79.       Left            =   0
  80.       Top             =   0
  81.       Width           =   1500
  82.       _extentx        =   2646
  83.       _extenty        =   11721
  84.       picture         =   "Menu.frx":0F35
  85.    End
  86. Attribute VB_Name = "frmMenu"
  87. Attribute VB_GlobalNameSpace = False
  88. Attribute VB_Creatable = False
  89. Attribute VB_PredeclaredId = True
  90. Attribute VB_Exposed = False
  91. Option Explicit
  92. Private Sub cmdAbout_Click()
  93.     hlbMenu.About
  94. End Sub
  95. Private Sub cmdClose_Click()
  96.     Unload Me
  97. End Sub
  98. Private Sub Form_Load()
  99.     hlbDemonstrations.Load App.Path & "\Menu.htm"
  100. End Sub
  101. Private Sub hlbDemonstrations_AnchorClick(ByVal Id As Long, ByVal hRef As String)
  102.     Dim Browser     As frmSimpleBrowser
  103.     Select Case hRef
  104.         Case "general": frmGeneral.Show 1
  105.         Case "data": frmDataAccess.Show 1
  106.         Case "lite"
  107.             Set Browser = New frmSimpleBrowser
  108.             Browser.Load App.Path & "\lite.htm"
  109.         Case "tags"
  110.             Set Browser = New frmSimpleBrowser
  111.             Browser.Load App.Path & "\tags.htm"
  112.         Case "oledrag": frmOLEDragAndDrop.Show 1
  113.         Case Else
  114.             MsgBox "Unrecognised anchor: " & hRef, vbExclamation
  115.     End Select
  116. End Sub
  117.