home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / estenw_1 / mainmenu.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-04-25  |  4.0 KB  |  138 lines
  1. VERSION 5.00
  2. Begin VB.Form Menu 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    BorderStyle     =   0  'None
  6.    ClientHeight    =   9000
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   12000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    PaletteMode     =   1  'UseZOrder
  14.    Picture         =   "MainMenu.frx":0000
  15.    ScaleHeight     =   9000
  16.    ScaleWidth      =   12000
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    WindowState     =   2  'Maximized
  20.    Begin VB.Timer Timer1 
  21.       Interval        =   8400
  22.       Left            =   15
  23.       Top             =   0
  24.    End
  25.    Begin VB.Image newgame 
  26.       Height          =   450
  27.       Left            =   4560
  28.       MouseIcon       =   "MainMenu.frx":75742
  29.       MousePointer    =   99  'Custom
  30.       Picture         =   "MainMenu.frx":7600C
  31.       Top             =   2025
  32.       Width           =   3000
  33.    End
  34.    Begin VB.Image saveactive 
  35.       Height          =   450
  36.       Left            =   4560
  37.       MouseIcon       =   "MainMenu.frx":77BBE
  38.       MousePointer    =   99  'Custom
  39.       Picture         =   "MainMenu.frx":78488
  40.       Top             =   2760
  41.       Visible         =   0   'False
  42.       Width           =   3000
  43.    End
  44.    Begin VB.Image saveinactive 
  45.       Height          =   450
  46.       Left            =   4560
  47.       MousePointer    =   99  'Custom
  48.       Picture         =   "MainMenu.frx":7A03A
  49.       Top             =   2760
  50.       Width           =   3000
  51.    End
  52.    Begin VB.Image restoreactive 
  53.       Height          =   450
  54.       Left            =   4560
  55.       MouseIcon       =   "MainMenu.frx":7BBEC
  56.       MousePointer    =   99  'Custom
  57.       Picture         =   "MainMenu.frx":7C4B6
  58.       Top             =   3480
  59.       Visible         =   0   'False
  60.       Width           =   3000
  61.    End
  62.    Begin VB.Image restoreinactive 
  63.       Height          =   450
  64.       Left            =   4560
  65.       MousePointer    =   99  'Custom
  66.       Picture         =   "MainMenu.frx":7E068
  67.       Top             =   3480
  68.       Width           =   3000
  69.    End
  70.    Begin VB.Image OptionsButton 
  71.       Height          =   450
  72.       Left            =   4560
  73.       MouseIcon       =   "MainMenu.frx":7FC1A
  74.       MousePointer    =   99  'Custom
  75.       Picture         =   "MainMenu.frx":804E4
  76.       Top             =   4725
  77.       Width           =   3000
  78.    End
  79.    Begin VB.Image exit 
  80.       Height          =   450
  81.       Left            =   4560
  82.       MouseIcon       =   "MainMenu.frx":82096
  83.       MousePointer    =   99  'Custom
  84.       Picture         =   "MainMenu.frx":82960
  85.       Top             =   7530
  86.       Width           =   3000
  87.    End
  88. Attribute VB_Name = "Menu"
  89. Attribute VB_GlobalNameSpace = False
  90. Attribute VB_Creatable = False
  91. Attribute VB_PredeclaredId = True
  92. Attribute VB_Exposed = False
  93. Private Sub view_Click()
  94.   End
  95. End Sub
  96. Private Sub Image2_Click()
  97.   Form1.Visible = False
  98.   Form2.Visible = True
  99. End Sub
  100. Private Sub Image7_Click()
  101.   Form3.Visible = True
  102. End Sub
  103. Private Sub exit_Click()
  104. End Sub
  105. Private Sub Form_Load()
  106. OLEform.Domotozje.DoVerb
  107. End Sub
  108. Private Sub newgame_Click()
  109.  CharGen.Show
  110.  CharGen.Visible = True
  111.  Unload Menu
  112. End Sub
  113. Private Sub Options_Click()
  114. main.Visible = False
  115. Options.Visible = True
  116. End Sub
  117. Private Sub OptionsButton_Click()
  118.   Options.Visible = True
  119. End Sub
  120. Private Sub Timer1_Timer()
  121. OLEform.Domotozje.DoVerb
  122. End Sub
  123. Private Sub Timer2_Timer()
  124.   If Timer2.Interval = 1 Then
  125.      CAL
  126.      Line1.Visible = True And Line2.Visible = True
  127.   ElseIf Timer2.Interval = 3 Then
  128.      CAL
  129.      Line3.Visible = True And Line4.Visible = True
  130.   ElseIf Timer2.Interval = 5 Then
  131.      CAL
  132.      Line5.Visible = True And Line6.Visible = True
  133.   ElseIf Timer2.Interval = 7 Then
  134.      CAL
  135.      Line7.Visible = True And Line8.Visible = True
  136.   End If
  137. End Sub
  138.