ActiveX Programming Unleashed CD

home *** CD-ROM | disk | FTP | other *** search

/ ActiveX Programming Unleashed CD / AXU.iso / activex / demos / oletrial / samples / vb / mhinvi / mhinvis.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-11-30 | 29.2 KB | 932 lines

VERSION 4.00 Begin VB.Form frmMhInvisibleDemo Caption = "MicroHelp MhInvisible Example" ClientHeight = 4572 ClientLeft = 1680 ClientTop = 1908 ClientWidth = 5640 BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 7.8 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 5184 Icon = "MHINVIS.frx":0000 Left = 1632 LinkMode = 1 'Source LinkTopic = "Form1" ScaleHeight = 4572 ScaleWidth = 5640 Top = 1344 Width = 5736 Begin VB.CommandButton cmdClose Appearance = 0 'Flat BackColor = &H80000005& Caption = "Close" Height = 372 Left = 4320 MousePointer = 1 'Arrow TabIndex = 0 Top = 4104 Width = 1212 End Begin Mh3dlblLib.Mh3dLabel Label1 Height = 840 Left = 72 TabIndex = 2 Top = 72 Width = 5448 _Version = 65536 _ExtentX = 9610 _ExtentY = 1482 _StockProps = 77 ForeColor = -2147483630 TintColor = 16711935 Caption = $"MHINVIS.frx":0442 BorderStyle = 0 LightColor = 7364767 ShadowColor = 14473447 Picture = "MHINVIS.frx":052D Multiline = -1 'True End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 1344 Index = 56 Left = 3744 TabIndex = 3 Top = 2520 Width = 624 _Version = 65536 _ExtentX = 1101 _ExtentY = 2371 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 2388 Index = 55 Left = 5220 TabIndex = 56 Top = 1548 Width = 264 _Version = 65536 _ExtentX = 466 _ExtentY = 4212 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 264 Index = 51 Left = 3636 TabIndex = 55 Tag = "Asia" Top = 2268 Width = 948 _Version = 65536 _ExtentX = 1672 _ExtentY = 466 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 192 Index = 50 Left = 3060 TabIndex = 54 Tag = "Europe" Top = 1836 Width = 228 _Version = 65536 _ExtentX = 402 _ExtentY = 339 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 372 Index = 49 Left = 2988 TabIndex = 53 Tag = "Europe" Top = 1476 Width = 408 _Version = 65536 _ExtentX = 720 _ExtentY = 656 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 408 Index = 48 Left = 4500 TabIndex = 52 Tag = "Australia" Top = 3024 Width = 660 _Version = 65536 _ExtentX = 1164 _ExtentY = 720 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 264 Index = 47 Left = 3924 TabIndex = 51 Tag = "China" Top = 1584 Width = 912 _Version = 65536 _ExtentX = 1609 _ExtentY = 466 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 228 Index = 46 Left = 3528 TabIndex = 50 Tag = "Asia" Top = 2052 Width = 1056 _Version = 65536 _ExtentX = 1863 _ExtentY = 402 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 156 Index = 45 Left = 2952 TabIndex = 49 Tag = "Mediteranean" Top = 2016 Width = 372 _Version = 65536 _ExtentX = 656 _ExtentY = 275 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 444 Index = 44 Left = 1944 TabIndex = 48 Tag = "The Atlantic Ocean" Top = 1512 Width = 696 _Version = 65536 _ExtentX = 1228 _ExtentY = 783 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 192 Index = 43 Left = 1692 TabIndex = 47 Tag = "The Atlantic Ocean" Top = 2124 Width = 876 _Version = 65536 _ExtentX = 1545 _ExtentY = 339 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 192 Index = 42 Left = 1800 TabIndex = 46 Tag = "The Atlantic Ocean" Top = 1944 Width = 804 _Version = 65536 _ExtentX = 1418 _ExtentY = 339 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 156 Index = 41 Left = 108 TabIndex = 45 Tag = "The Antartic Circle" Top = 3816 Width = 5376 _Version = 65536 _ExtentX = 9483 _ExtentY = 275 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 156 Index = 40 Left = 108 TabIndex = 44 Tag = "The Artic Circle" Top = 1332 Width = 5340 _Version = 65536 _ExtentX = 9419 _ExtentY = 275 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 1344 Index = 39 Left = 108 TabIndex = 43 Top = 2556 Width = 1596 _Version = 65536 _ExtentX = 2815 _ExtentY = 2371 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 1236 Index = 38 Left = 2304 TabIndex = 42 Top = 2628 Width = 624 _Version = 65536 _ExtentX = 1101 _ExtentY = 2180 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 192 Index = 37 Left = 1368 TabIndex = 41 Tag = "North America" Top = 2052 Width = 192 _Version = 65536 _ExtentX = 339 _ExtentY = 339 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 228 Index = 36 Left = 1512 TabIndex = 40 Tag = "North America" Top = 1872 Width = 264 _Version = 65536 _ExtentX = 466 _ExtentY = 402 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 156 Index = 35 Left = 1260 TabIndex = 39 Tag = "Central America" Top = 2376 Width = 264 _Version = 65536 _ExtentX = 466 _ExtentY = 275 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 156 Index = 34 Left = 1512 TabIndex = 38 Tag = "Central America" Top = 2412 Width = 156 _Version = 65536 _ExtentX = 275 _ExtentY = 275 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 156 Index = 33 Left = 1728 TabIndex = 37 Tag = "Central America" Top = 2340 Width = 120 _Version = 65536 _ExtentX = 212 _ExtentY = 275 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 228 Index = 32 Left = 1548 TabIndex = 36 Tag = "North America" Top = 2088 Width = 120 _Version = 65536 _ExtentX = 212 _ExtentY = 402 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 120 Index = 31 Left = 1584 TabIndex = 35 Tag = "Central America" Top = 2376 Width = 264 _Version = 65536 _ExtentX = 466 _ExtentY = 212 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 228 Index = 30 Left = 2592 TabIndex = 34 Tag = "West Africa" Top = 2412 Width = 372 _Version = 65536 _ExtentX = 656 _ExtentY = 402 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 120 Index = 29 Left = 2556 TabIndex = 33 Tag = "West Africa" Top = 2304 Width = 336 _Version = 65536 _ExtentX = 593 _ExtentY = 212 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 300 Index = 28 Left = 2988 TabIndex = 32 Tag = "South Africa" Top = 3060 Width = 228 _Version = 65536 _ExtentX = 402 _ExtentY = 529 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 228 Index = 27 Left = 3204 TabIndex = 31 Tag = "South Africa" Top = 3060 Width = 156 _Version = 65536 _ExtentX = 275 _ExtentY = 402 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 156 Index = 26 Left = 2628 TabIndex = 30 Tag = "North Africa" Top = 2160 Width = 660 _Version = 65536 _ExtentX = 1164 _ExtentY = 275 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 264 Index = 25 Left = 2592 TabIndex = 29 Tag = "Europe" Top = 1764 Width = 480 _Version = 65536 _ExtentX = 847 _ExtentY = 466 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 156 Index = 24 Left = 2664 TabIndex = 28 Tag = "North Africa" Top = 2088 Width = 264 _Version = 65536 _ExtentX = 466 _ExtentY = 275 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 264 Index = 23 Left = 3204 TabIndex = 27 Tag = "East Africa" Top = 2304 Width = 156 _Version = 65536 _ExtentX = 275 _ExtentY = 466 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 300 Index = 22 Left = 3240 TabIndex = 26 Tag = "East Africa" Top = 2556 Width = 264 _Version = 65536 _ExtentX = 466 _ExtentY = 529 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 516 Index = 21 Left = 2916 TabIndex = 25 Tag = "Central Africa" Top = 2556 Width = 300 _Version = 65536 _ExtentX = 529 _ExtentY = 910 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 192 Index = 20 Left = 3168 TabIndex = 24 Tag = "Central Africa" Top = 2808 Width = 264 _Version = 65536 _ExtentX = 466 _ExtentY = 339 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 372 Index = 19 Left = 3456 TabIndex = 23 Tag = "Madagasgar" Top = 2952 Width = 156 _Version = 65536 _ExtentX = 275 _ExtentY = 656 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 228 Index = 18 Left = 396 TabIndex = 22 Tag = "Alaska" Top = 1440 Width = 984 _Version = 65536 _ExtentX = 1736 _ExtentY = 402 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 840 Index = 17 Left = 108 TabIndex = 21 Tag = "The Pacific Ocean" Top = 1728 Width = 768 _Version = 65536 _ExtentX = 1355 _ExtentY = 1482 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 768 Index = 16 Left = 864 TabIndex = 20 Tag = "The Pacific Ocean" Top = 1800 Width = 120 _Version = 65536 _ExtentX = 212 _ExtentY = 1355 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 408 Index = 15 Left = 936 TabIndex = 19 Tag = "The Pacific Ocean" Top = 2160 Width = 156 _Version = 65536 _ExtentX = 275 _ExtentY = 720 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 156 Index = 14 Left = 1404 TabIndex = 18 Tag = "Gulf Of Mexico" Top = 2232 Width = 120 _Version = 65536 _ExtentX = 212 _ExtentY = 275 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 228 Index = 13 Left = 1080 TabIndex = 17 Tag = "The Pacific Ocean" Top = 2340 Width = 192 _Version = 65536 _ExtentX = 339 _ExtentY = 402 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 228 Index = 12 Left = 1656 TabIndex = 16 Tag = "South America" Top = 2520 Width = 264 _Version = 65536 _ExtentX = 466 _ExtentY = 402 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 228 Index = 11 Left = 1620 TabIndex = 15 Tag = "South America" Top = 2628 Width = 408 _Version = 65536 _ExtentX = 720 _ExtentY = 402 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 228 Index = 10 Left = 1656 TabIndex = 14 Tag = "South America" Top = 2772 Width = 624 _Version = 65536 _ExtentX = 1101 _ExtentY = 402 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 228 Index = 9 Left = 1728 TabIndex = 13 Tag = "South America" Top = 2988 Width = 516 _Version = 65536 _ExtentX = 910 _ExtentY = 402 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 480 Index = 8 Left = 1692 TabIndex = 12 Tag = "South America" Top = 3204 Width = 300 _Version = 65536 _ExtentX = 529 _ExtentY = 847 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 192 Index = 7 Left = 3348 TabIndex = 11 Tag = "The Arabian Peninsula" Top = 2160 Width = 156 _Version = 65536 _ExtentX = 275 _ExtentY = 339 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 264 Index = 6 Left = 3420 TabIndex = 10 Tag = "The Arabian Peninsula" Top = 2232 Width = 192 _Version = 65536 _ExtentX = 339 _ExtentY = 466 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 228 Index = 5 Left = 3420 TabIndex = 9 Tag = "Syberia" Top = 1368 Width = 552 _Version = 65536 _ExtentX = 974 _ExtentY = 402 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 228 Index = 4 Left = 3420 TabIndex = 8 Tag = "Russia" Top = 1584 Width = 516 _Version = 65536 _ExtentX = 910 _ExtentY = 402 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 228 Index = 3 Left = 3276 TabIndex = 7 Tag = "Asia" Top = 1836 Width = 1524 _Version = 65536 _ExtentX = 2688 _ExtentY = 402 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 156 Index = 2 Left = 972 TabIndex = 6 Tag = "North America" Top = 1944 Width = 588 _Version = 65536 _ExtentX = 1037 _ExtentY = 275 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 228 Index = 1 Left = 1080 TabIndex = 5 Tag = "North America" Top = 2088 Width = 264 _Version = 65536 _ExtentX = 466 _ExtentY = 402 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin MhinvisLib.MhInvisible MhInvisLocation Height = 300 Index = 0 Left = 936 TabIndex = 4 Tag = "North America" Top = 1656 Width = 840 _Version = 65536 _ExtentX = 1482 _ExtentY = 529 _StockProps = 64 TintColor = 16711935 MousePointer = 99 End Begin VB.Image imgMap BorderStyle = 1 'Fixed Single Height = 2748 Left = 72 MouseIcon = "MHINVIS.frx":0549 MousePointer = 99 'Custom Picture = "MHINVIS.frx":098B Tag = "North America" Top = 1260 Width = 5448 End Begin VB.Label lblStatus BorderStyle = 1 'Fixed Single Height = 252 Left = 72 TabIndex = 1 Top = 936 Width = 5448 End Begin VB.Menu mnuFile Caption = "&File" Begin VB.Menu mnuFileExit Caption = "E&xit" End End Begin VB.Menu mnuAbout Caption = "&About..." End Attribute VB_Name = "frmMhInvisibleDemo" Attribute VB_Creatable = False Attribute VB_Exposed = False Option Explicit Private Sub cmdClose_Click() Unload Me End Sub Public Sub TellPosition(sNewLocation As String) Static sCurrentLocation As String If sNewLocation = "" Or sNewLocation = sCurrentLocation Then Exit Sub sCurrentLocation = sNewLocation ' tell user where they are lblStatus.Caption = "You are flying over " & sCurrentLocation & "." End Sub Private Sub Form_Load() ' center the form to the screen Move Abs(Screen.Width - Width) \ 2, Abs(Screen.Height - Height) \ 2 MouseIcon = imgMap.MouseIcon MousePointer = vbCustom End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ' tell user that they are in outer space! lblStatus.Caption = "You are in outer space (in a plane?). Hold your breath!" End Sub Private Sub Form_Unload(Cancel As Integer) End End Sub Private Sub MhInvisLocation_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) ' tell user where they are flying Call TellPosition(MhInvisLocation(Index).Tag) End Sub Private Sub mnuAbout_Click() ' show about box Screen.MousePointer = vbHourglass frmAbout.Show Screen.MousePointer = vbDefault End Sub Private Sub mnuFileExit_Click() ' exit demo Unload Me End Sub