home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD1094710252000.psc / help.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-10-25  |  15.6 KB  |  462 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
  3. Begin VB.Form HelpForm 
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "IRC Filetool Help"
  6.    ClientHeight    =   11790
  7.    ClientLeft      =   45
  8.    ClientTop       =   285
  9.    ClientWidth     =   11625
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   11790
  14.    ScaleWidth      =   11625
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin VB.Frame Frame2 
  18.       Height          =   5355
  19.       Left            =   6000
  20.       TabIndex        =   6
  21.       Top             =   6120
  22.       Width           =   5500
  23.       Begin VB.Label Label26 
  24.          Caption         =   $"help.frx":0000
  25.          Height          =   615
  26.          Left            =   240
  27.          TabIndex        =   13
  28.          Top             =   4500
  29.          Width           =   5000
  30.       End
  31.       Begin VB.Label Label25 
  32.          Caption         =   $"help.frx":00BC
  33.          Height          =   615
  34.          Left            =   240
  35.          TabIndex        =   12
  36.          Top             =   3840
  37.          Width           =   5000
  38.       End
  39.       Begin VB.Label Label21 
  40.          Caption         =   "Find. Lets you find a specific word in the offer list."
  41.          Height          =   255
  42.          Left            =   240
  43.          TabIndex        =   11
  44.          Top             =   1740
  45.          Width           =   5000
  46.       End
  47.       Begin VB.Label Label14 
  48.          Caption         =   $"help.frx":0162
  49.          Height          =   1035
  50.          Left            =   240
  51.          TabIndex        =   10
  52.          Top             =   660
  53.          Width           =   4995
  54.       End
  55.       Begin VB.Label Label13 
  56.          Caption         =   "Main Window"
  57.          BeginProperty Font 
  58.             Name            =   "MS Sans Serif"
  59.             Size            =   9.75
  60.             Charset         =   0
  61.             Weight          =   700
  62.             Underline       =   0   'False
  63.             Italic          =   0   'False
  64.             Strikethrough   =   0   'False
  65.          EndProperty
  66.          Height          =   255
  67.          Left            =   240
  68.          TabIndex        =   9
  69.          Top             =   360
  70.          Width           =   5000
  71.       End
  72.       Begin VB.Label Label16 
  73.          Caption         =   $"help.frx":0282
  74.          Height          =   855
  75.          Left            =   240
  76.          TabIndex        =   8
  77.          Top             =   2040
  78.          Width           =   5000
  79.       End
  80.       Begin VB.Label Label15 
  81.          Caption         =   $"help.frx":0374
  82.          Height          =   795
  83.          Left            =   240
  84.          TabIndex        =   7
  85.          Top             =   2940
  86.          Width           =   5000
  87.       End
  88.    End
  89.    Begin VB.Frame Frame4 
  90.       Height          =   5355
  91.       Left            =   6000
  92.       TabIndex        =   5
  93.       Top             =   480
  94.       Width           =   5500
  95.       Begin VB.Label Label31 
  96.          Caption         =   $"help.frx":0494
  97.          Height          =   675
  98.          Left            =   240
  99.          TabIndex        =   37
  100.          Top             =   4080
  101.          Width           =   4875
  102.       End
  103.       Begin VB.Label Label30 
  104.          Caption         =   "Save Offers. Save the main window's offer list to a text file in the download directory."
  105.          Height          =   495
  106.          Left            =   240
  107.          TabIndex        =   36
  108.          Top             =   3540
  109.          Width           =   4995
  110.       End
  111.       Begin VB.Label Label29 
  112.          Caption         =   "Save Log. Saves the main window's log to a text file in the download directory."
  113.          Height          =   435
  114.          Left            =   240
  115.          TabIndex        =   35
  116.          Top             =   3000
  117.          Width           =   4875
  118.       End
  119.       Begin VB.Label Label19 
  120.          Caption         =   $"help.frx":0530
  121.          Height          =   855
  122.          Left            =   240
  123.          TabIndex        =   34
  124.          Top             =   2100
  125.          Width           =   5055
  126.       End
  127.       Begin VB.Label Label20 
  128.          Caption         =   "Open After Download. IRCFT will automatically open the download once it has finished downloading."
  129.          Height          =   495
  130.          Left            =   240
  131.          TabIndex        =   33
  132.          Top             =   1560
  133.          Width           =   4995
  134.       End
  135.       Begin VB.Label Label28 
  136.          Caption         =   $"help.frx":0627
  137.          Height          =   855
  138.          Left            =   240
  139.          TabIndex        =   32
  140.          Top             =   660
  141.          Width           =   4995
  142.       End
  143.       Begin VB.Label Label18 
  144.          Caption         =   "Preferences"
  145.          BeginProperty Font 
  146.             Name            =   "MS Sans Serif"
  147.             Size            =   9.75
  148.             Charset         =   0
  149.             Weight          =   700
  150.             Underline       =   0   'False
  151.             Italic          =   0   'False
  152.             Strikethrough   =   0   'False
  153.          EndProperty
  154.          Height          =   255
  155.          Left            =   240
  156.          TabIndex        =   31
  157.          Top             =   360
  158.          Width           =   1875
  159.       End
  160.    End
  161.    Begin VB.Frame Frame3 
  162.       Height          =   5355
  163.       Left            =   240
  164.       TabIndex        =   2
  165.       Top             =   6120
  166.       Width           =   5500
  167.       Begin VB.Label Label27 
  168.          Caption         =   $"help.frx":070C
  169.          Height          =   855
  170.          Left            =   240
  171.          TabIndex        =   24
  172.          Top             =   4140
  173.          Width           =   4995
  174.       End
  175.       Begin VB.Label Label11 
  176.          Caption         =   "Channel Details. Add and remove channels you wish to join here."
  177.          Height          =   255
  178.          Left            =   240
  179.          TabIndex        =   23
  180.          Top             =   3780
  181.          Width           =   4995
  182.       End
  183.       Begin VB.Label Label12 
  184.          Caption         =   $"help.frx":07EB
  185.          Height          =   675
  186.          Left            =   240
  187.          TabIndex        =   22
  188.          Top             =   3060
  189.          Width           =   4995
  190.       End
  191.       Begin VB.Label Label10 
  192.          Caption         =   "Delay Between Nags. Hundredths of seconds between nagging bots for an offer. Minimum 30 seconds."
  193.          Height          =   435
  194.          Left            =   240
  195.          TabIndex        =   21
  196.          Top             =   2520
  197.          Width           =   4995
  198.       End
  199.       Begin VB.Label Label9 
  200.          Caption         =   "Download Path. Sets the path that files will be downloaded to."
  201.          Height          =   255
  202.          Left            =   240
  203.          TabIndex        =   20
  204.          Top             =   2640
  205.          Width           =   4995
  206.       End
  207.       Begin VB.Label Label8 
  208.          Caption         =   "IRC Server Port. Sets the port of the server to connect to (usually 6666 or 6667)"
  209.          Height          =   435
  210.          Left            =   240
  211.          TabIndex        =   19
  212.          Top             =   1980
  213.          Width           =   4995
  214.       End
  215.       Begin VB.Label Label7 
  216.          Caption         =   "IRC Server. Sets the server name to connect to."
  217.          Height          =   255
  218.          Left            =   240
  219.          TabIndex        =   18
  220.          Top             =   1620
  221.          Width           =   4995
  222.       End
  223.       Begin VB.Label Label6 
  224.          Caption         =   "Nickname. Sets the name that IRCFT attempts to log on the server with."
  225.          Height          =   435
  226.          Left            =   240
  227.          TabIndex        =   17
  228.          Top             =   1140
  229.          Width           =   4995
  230.       End
  231.       Begin VB.Label Label5 
  232.          Caption         =   "Version Reply. If you feel the need to pretend you client is something other than IRC Filetool, enter the name of it here."
  233.          Height          =   435
  234.          Left            =   240
  235.          TabIndex        =   16
  236.          Top             =   660
  237.          Width           =   4995
  238.       End
  239.       Begin VB.Label Label3 
  240.          Caption         =   "Preferences"
  241.          BeginProperty Font 
  242.             Name            =   "MS Sans Serif"
  243.             Size            =   9.75
  244.             Charset         =   0
  245.             Weight          =   700
  246.             Underline       =   0   'False
  247.             Italic          =   0   'False
  248.             Strikethrough   =   0   'False
  249.          EndProperty
  250.          Height          =   255
  251.          Left            =   240
  252.          TabIndex        =   14
  253.          Top             =   360
  254.          Width           =   4995
  255.       End
  256.    End
  257.    Begin VB.Frame Frame1 
  258.       Height          =   5355
  259.       Left            =   240
  260.       TabIndex        =   1
  261.       Top             =   480
  262.       Width           =   5500
  263.       Begin VB.CommandButton OkayButton 
  264.          Caption         =   "Okay"
  265.          Height          =   375
  266.          Left            =   2160
  267.          TabIndex        =   38
  268.          Top             =   4740
  269.          Width           =   1275
  270.       End
  271.       Begin VB.CommandButton Command2 
  272.          Caption         =   "Web Site"
  273.          Height          =   375
  274.          Left            =   3300
  275.          TabIndex        =   26
  276.          Top             =   3480
  277.          Width           =   1815
  278.       End
  279.       Begin VB.TextBox Text1 
  280.          Height          =   285
  281.          Left            =   660
  282.          TabIndex        =   25
  283.          Text            =   "http://members.tripod.com/~IRC_Filetool/index.html"
  284.          Top             =   4200
  285.          Width           =   3855
  286.       End
  287.       Begin VB.Label Label17 
  288.          Caption         =   "Bugs and Suggestions"
  289.          BeginProperty Font 
  290.             Name            =   "MS Sans Serif"
  291.             Size            =   9.75
  292.             Charset         =   0
  293.             Weight          =   700
  294.             Underline       =   0   'False
  295.             Italic          =   0   'False
  296.             Strikethrough   =   0   'False
  297.          EndProperty
  298.          Height          =   255
  299.          Left            =   240
  300.          TabIndex        =   30
  301.          Top             =   2340
  302.          Width           =   3735
  303.       End
  304.       Begin VB.Label Label22 
  305.          Caption         =   "Bugs and suggestions can be e-mailed to me by going to my webpage or by e-mailing me direct at ircft@hotmail.com"
  306.          Height          =   495
  307.          Left            =   240
  308.          TabIndex        =   29
  309.          Top             =   2640
  310.          Width           =   4755
  311.       End
  312.       Begin VB.Label Label23 
  313.          Caption         =   "Updates"
  314.          BeginProperty Font 
  315.             Name            =   "MS Sans Serif"
  316.             Size            =   9.75
  317.             Charset         =   0
  318.             Weight          =   700
  319.             Underline       =   0   'False
  320.             Italic          =   0   'False
  321.             Strikethrough   =   0   'False
  322.          EndProperty
  323.          Height          =   255
  324.          Left            =   240
  325.          TabIndex        =   28
  326.          Top             =   3240
  327.          Width           =   1935
  328.       End
  329.       Begin VB.Label Label24 
  330.          Caption         =   "News and Updates are a button push away. "
  331.          Height          =   495
  332.          Left            =   240
  333.          TabIndex        =   27
  334.          Top             =   3480
  335.          Width           =   2895
  336.       End
  337.       Begin VB.Label Label2 
  338.          Caption         =   $"help.frx":08A4
  339.          Height          =   1245
  340.          Left            =   240
  341.          TabIndex        =   4
  342.          Top             =   660
  343.          Width           =   5000
  344.       End
  345.       Begin VB.Label Label1 
  346.          Caption         =   "IRC Filetool"
  347.          BeginProperty Font 
  348.             Name            =   "MS Sans Serif"
  349.             Size            =   9.75
  350.             Charset         =   0
  351.             Weight          =   700
  352.             Underline       =   0   'False
  353.             Italic          =   0   'False
  354.             Strikethrough   =   0   'False
  355.          EndProperty
  356.          Height          =   375
  357.          Left            =   240
  358.          TabIndex        =   3
  359.          Top             =   360
  360.          Width           =   2295
  361.       End
  362.    End
  363.    Begin ComctlLib.TabStrip TabStrip1 
  364.       Height          =   5865
  365.       Left            =   120
  366.       TabIndex        =   0
  367.       Top             =   120
  368.       Width           =   5805
  369.       _ExtentX        =   10239
  370.       _ExtentY        =   10345
  371.       _Version        =   327682
  372.       BeginProperty Tabs {0713E432-850A-101B-AFC0-4210102A8DA7} 
  373.          NumTabs         =   4
  374.          BeginProperty Tab1 {0713F341-850A-101B-AFC0-4210102A8DA7} 
  375.             Caption         =   "Overview"
  376.             Key             =   ""
  377.             Object.Tag             =   ""
  378.             ImageVarType    =   2
  379.          EndProperty
  380.          BeginProperty Tab2 {0713F341-850A-101B-AFC0-4210102A8DA7} 
  381.             Caption         =   "Main Window"
  382.             Key             =   ""
  383.             Object.Tag             =   ""
  384.             ImageVarType    =   2
  385.          EndProperty
  386.          BeginProperty Tab3 {0713F341-850A-101B-AFC0-4210102A8DA7} 
  387.             Caption         =   "Preferences Part 1"
  388.             Key             =   ""
  389.             Object.Tag             =   ""
  390.             ImageVarType    =   2
  391.          EndProperty
  392.          BeginProperty Tab4 {0713F341-850A-101B-AFC0-4210102A8DA7} 
  393.             Caption         =   "Preferences Part 2"
  394.             Key             =   ""
  395.             Object.Tag             =   ""
  396.             ImageVarType    =   2
  397.          EndProperty
  398.       EndProperty
  399.    End
  400.    Begin VB.Label Label4 
  401.       Caption         =   "Label4"
  402.       Height          =   495
  403.       Left            =   5160
  404.       TabIndex        =   15
  405.       Top             =   5520
  406.       Width           =   1215
  407.    End
  408. Attribute VB_Name = "HelpForm"
  409. Attribute VB_GlobalNameSpace = False
  410. Attribute VB_Creatable = False
  411. Attribute VB_PredeclaredId = True
  412. Attribute VB_Exposed = False
  413. Private Sub Command2_Click()
  414. Dim iret As Long
  415. iret = ShellExecute(Me.hwnd, vbNullString, "http://members.tripod.com/~IRC_Filetool/index.html", vbNullString, "c:\", SW_SHOWNORMAL)
  416. End Sub
  417. Private Sub Form_Load()
  418.     HelpForm.Width = 6150
  419.     HelpForm.Height = 6400
  420.     Frame1.Left = 240
  421.     Frame2.Left = 240
  422.     Frame3.Left = 240
  423.     Frame4.Left = 240
  424.     Frame1.Top = 480
  425.     Frame2.Top = 480
  426.     Frame3.Top = 480
  427.     Frame4.Top = 480
  428.     Frame4.Visible = False
  429.     Frame3.Visible = False
  430.     Frame2.Visible = False
  431.     Frame1.Visible = True
  432. End Sub
  433. Private Sub OkayButton_Click()
  434. HelpForm.Hide
  435. End Sub
  436. Private Sub TabStrip1_Click()
  437. If TabStrip1.SelectedItem.Index = 1 Then
  438.     Frame4.Visible = False
  439.     Frame2.Visible = False
  440.     Frame3.Visible = False
  441.     Frame1.Visible = True
  442. End If
  443. If TabStrip1.SelectedItem.Index = 2 Then
  444.     Frame4.Visible = False
  445.     Frame1.Visible = False
  446.     Frame3.Visible = False
  447.     Frame2.Visible = True
  448. End If
  449. If TabStrip1.SelectedItem.Index = 3 Then
  450.     Frame4.Visible = False
  451.     Frame1.Visible = False
  452.     Frame2.Visible = False
  453.     Frame3.Visible = True
  454. End If
  455. If TabStrip1.SelectedItem.Index = 4 Then
  456.     Frame4.Visible = True
  457.     Frame1.Visible = False
  458.     Frame2.Visible = False
  459.     Frame3.Visible = False
  460. End If
  461. End Sub
  462.