home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD80447232000.psc / PSSC1 / frmMain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-07-13  |  4.2 KB  |  131 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Personal Screen Saver Wizard "
  6.    ClientHeight    =   1590
  7.    ClientLeft      =   45
  8.    ClientTop       =   615
  9.    ClientWidth     =   4590
  10.    Icon            =   "frmMain.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    ScaleHeight     =   1590
  14.    ScaleWidth      =   4590
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.Label Label3 
  17.       BackStyle       =   0  'Transparent
  18.       Caption         =   "mail me with any questions or comments:  Aedseed@aol.com"
  19.       ForeColor       =   &H00FFFFFF&
  20.       Height          =   255
  21.       Left            =   120
  22.       TabIndex        =   2
  23.       Top             =   1320
  24.       Width           =   4335
  25.    End
  26.    Begin VB.Label Label2 
  27.       BackStyle       =   0  'Transparent
  28.       Caption         =   "SeeD"
  29.       BeginProperty Font 
  30.          Name            =   "Tahoma"
  31.          Size            =   36
  32.          Charset         =   0
  33.          Weight          =   700
  34.          Underline       =   0   'False
  35.          Italic          =   0   'False
  36.          Strikethrough   =   0   'False
  37.       EndProperty
  38.       ForeColor       =   &H000000FF&
  39.       Height          =   855
  40.       Left            =   1560
  41.       TabIndex        =   1
  42.       Top             =   360
  43.       Width           =   1695
  44.    End
  45.    Begin VB.Label Label1 
  46.       BackStyle       =   0  'Transparent
  47.       Caption         =   "by:"
  48.       BeginProperty Font 
  49.          Name            =   "Tahoma"
  50.          Size            =   18
  51.          Charset         =   0
  52.          Weight          =   700
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       ForeColor       =   &H0000FFFF&
  58.       Height          =   615
  59.       Left            =   960
  60.       TabIndex        =   0
  61.       Top             =   240
  62.       Width           =   975
  63.    End
  64.    Begin VB.Menu mnuFile 
  65.       Caption         =   "&File"
  66.       Begin VB.Menu mnuNew 
  67.          Caption         =   "New"
  68.          Begin VB.Menu mnuPicBasedScrSaver 
  69.             Caption         =   "Picture-Based Screen Saver"
  70.          End
  71.          Begin VB.Menu mnuTxtBasedScrSaver 
  72.             Caption         =   "Text-Based Screen Saver"
  73.          End
  74.       End
  75.       Begin VB.Menu mnuBltInScrSavers 
  76.          Caption         =   "&About"
  77.       End
  78.       Begin VB.Menu mnuFuture 
  79.          Caption         =   "Future?"
  80.       End
  81.       Begin VB.Menu mnuLine1 
  82.          Caption         =   "-"
  83.       End
  84.       Begin VB.Menu mnuExit 
  85.          Caption         =   "&Exit"
  86.       End
  87.    End
  88. Attribute VB_Name = "frmMain"
  89. Attribute VB_GlobalNameSpace = False
  90. Attribute VB_Creatable = False
  91. Attribute VB_PredeclaredId = True
  92. Attribute VB_Exposed = False
  93. Private Sub Label4_DblClick()
  94. frm2.Show
  95. Me.Hide
  96. End Sub
  97. Private Sub mnuBltInScrSavers_Click()
  98. frmSBI.Show
  99. Me.Hide
  100. End Sub
  101. Private Sub mnuExit_Click()
  102. 'unload all the forms!
  103. Unload Me
  104. Unload frmSelectPicBasedScrSaver
  105. Unload frmOpenPicsForOpt2
  106. Unload frmOpenPicForOpt1
  107. Unload frmHMHL
  108. Unload frmOpt1Final
  109. Unload frmOpt2Final
  110. Unload frmSBI
  111. Unload frmopt3final
  112. Unload frmOpt4Final
  113. Unload frmDir
  114. Unload frmOpenPicForOpt3
  115. Unload frmST
  116. End Sub
  117. Private Sub mnuFuture_Click()
  118. MsgBox "i hope you like this program.  it was not hard to make but there was a lot of coding to it and i  made it all myself from scratch.  i use vb6 LE and win95 and this program works good on my computer.  if you like this program or have any questions or comments then mail me at aedseed@aol.com.  If this program gets good response, i'll add to it.  i hope to add things like password protection and other stuff too.  if you have any ideas then email me at aedseed@aol.com.  please vote for this at planet source code if you like it!  i might add more options and user defined features to this.  thanks!    -SeeD", vbOKOnly, "Future:"
  119. End Sub
  120. Private Sub mnuPicBasedScrSaver_Click()
  121. frmSelectPicBasedScrSaver.Show
  122. Me.Hide
  123. End Sub
  124. Private Sub mnuStTxt_Click()
  125. frmST.Show
  126. Me.Hide
  127. End Sub
  128. Private Sub mnuTxtBasedScrSaver_Click()
  129. frmST.Show
  130. End Sub
  131.