home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Visual_Bas650563242002.psc / frmHelp.frm (.txt) next >
Encoding:
Visual Basic Form  |  2002-03-26  |  3.3 KB  |  103 lines
  1. VERSION 5.00
  2. Begin VB.Form frmHelp 
  3.    Appearance      =   0  'Flat
  4.    AutoRedraw      =   -1  'True
  5.    BackColor       =   &H80000005&
  6.    BorderStyle     =   3  'Fixed Dialog
  7.    Caption         =   "Help"
  8.    ClientHeight    =   4275
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   5910
  12.    Icon            =   "frmHelp.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   285
  17.    ScaleMode       =   3  'Pixel
  18.    ScaleWidth      =   394
  19.    ShowInTaskbar   =   0   'False
  20.    StartUpPosition =   1  'CenterOwner
  21. Attribute VB_Name = "frmHelp"
  22. Attribute VB_GlobalNameSpace = False
  23. Attribute VB_Creatable = False
  24. Attribute VB_PredeclaredId = True
  25. Attribute VB_Exposed = False
  26. Private Sub Form_Load()
  27.     WriteHelp
  28. End Sub
  29. Sub drawback()
  30.     Dim i As Integer
  31.     Dim c As Integer
  32.     c = 50
  33.     For i = 0 To 15
  34.         Me.Line (0, i)-(Me.ScaleWidth, i), RGB(c, c, c)
  35.         c = c + (i * 5 / 2)
  36.     Next i
  37.     c = 0
  38.     For i = Me.ScaleHeight To Me.ScaleHeight - 15 Step -1
  39.         Me.Line (0, i)-(Me.ScaleWidth, i), RGB(c, c, c)
  40.         Debug.Print Me.ScaleHeight - i
  41.         c = c + ((Me.ScaleHeight - i) * 5 / 2)
  42.     Next i
  43. End Sub
  44. Sub WriteHelp()
  45.     Me.Cls
  46.     drawback
  47.     Me.CurrentY = 15
  48.     Me.CurrentX = 15
  49.     Me.FontBold = True
  50.     Me.Font = "verdana"
  51.     Me.FontSize = 12
  52.     Me.ForeColor = QBColor(4)
  53.     Me.Print "Quick Reference"
  54.     Me.FontSize = 8
  55.     Me.ForeColor = QBColor(0)
  56.     Me.Line (15, 35)-(Me.ScaleWidth - 15, 35)
  57.     Me.Print
  58.     Me.FontBold = True
  59.     '48
  60.     Me.CurrentX = 15: Me.Print "File"
  61.     Me.CurrentX = 15: Me.Print "Output"
  62.     Me.CurrentX = 15: Me.Print "Bitrate"
  63.     Me.CurrentX = 15: Me.Print "Frequency"
  64.     Me.CurrentX = 15: Me.Print "Mode"
  65.     Me.Print
  66.     Me.CurrentX = 15: Me.Print "Use VBR"
  67.     Me.CurrentX = 25: Me.Print "Max Bitrate"
  68.     Me.CurrentX = 25: Me.Print "Quality"
  69.     Me.Print
  70.     Me.CurrentX = 15: Me.Print "Insert ID3 Tag"
  71.     '97
  72.     Me.FontBold = False
  73.     Me.CurrentY = 48
  74.     Me.CurrentX = 120: Me.Print "WAVE file to be encoded."
  75.     Me.CurrentX = 120: Me.Print "MP3 file to be saved."
  76.     Me.CurrentX = 120: Me.Print "Quality of the saved MP3 file."
  77.     Me.CurrentX = 120: Me.Print "Sampling rate of the saved MP3 file."
  78.     Me.CurrentX = 120: Me.Print "Sets encoding mode. (Stereo, Mono, etc)"
  79.     Me.Print
  80.     Me.CurrentX = 120: Me.Print "Enables/Disables Variable Bitrate Encoding."
  81.     Me.CurrentX = 130: Me.Print "The Maximum Bitrate when using VBR."
  82.     Me.CurrentX = 130: Me.Print "The quality of VBR encoding."
  83.     Me.Print
  84.     Me.CurrentX = 120: Me.Print "Enables/Disables saving of ID3 tag."
  85.     Me.Print
  86.     Me.Print
  87.     Me.Print
  88.     Dim CT As String
  89.     Me.FontSize = 7
  90.     CT = App.Title & " Version " & App.Major & "." & App.Minor & "." & App.Revision & " by Jayvee Tensuan 
  91.  2002"
  92.     Me.CurrentX = (Me.ScaleWidth / 2) - (Me.TextWidth(CT) / 2)
  93.     Me.Print CT
  94.        
  95.     CT = "This program uses L.A.M.E. MP3 encoding technology."
  96.     Me.CurrentX = (Me.ScaleWidth / 2) - (Me.TextWidth(CT) / 2)
  97.     Me.Print CT
  98.     Me.ForeColor = QBColor(1)
  99.     CT = "(http://www.mp3dev.org/)"
  100.     Me.CurrentX = (Me.ScaleWidth / 2) - (Me.TextWidth(CT) / 2)
  101.     Me.Print CT
  102. End Sub
  103.