home *** CD-ROM | disk | FTP | other *** search
/ Super Net 1 / SUPERNET_1.iso / PC / OTROS / EXTRAS / WINWAIS / VB / LINKEDIT.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-11-15  |  16.1 KB  |  449 lines
  1. VERSION 2.00
  2. Begin Form link_edit_form 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Link Names Editor"
  6.    ClientHeight    =   4260
  7.    ClientLeft      =   1725
  8.    ClientTop       =   1980
  9.    ClientWidth     =   5520
  10.    ControlBox      =   0   'False
  11.    Height          =   4665
  12.    Left            =   1665
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   4260
  18.    ScaleWidth      =   5520
  19.    Top             =   1635
  20.    Width           =   5640
  21.    Begin SSPanel Panel3D1 
  22.       Align           =   1  'Align Top
  23.       BackColor       =   &H00C0C0C0&
  24.       Caption         =   "Panel3D1"
  25.       Font3D          =   1  'Raised w/light shading
  26.       ForeColor       =   &H00000000&
  27.       Height          =   3735
  28.       Left            =   0
  29.       TabIndex        =   21
  30.       Top             =   0
  31.       Width           =   5520
  32.       Begin SSPanel Panel3D4 
  33.          BackColor       =   &H00C0C0C0&
  34.          BevelOuter      =   1  'Inset
  35.          Caption         =   "TCP/IP Address"
  36.          Font3D          =   0  'None
  37.          ForeColor       =   &H00000000&
  38.          Height          =   345
  39.          Left            =   1770
  40.          TabIndex        =   25
  41.          Top             =   90
  42.          Width           =   3645
  43.       End
  44.       Begin SSPanel Panel3D3 
  45.          BackColor       =   &H00C0C0C0&
  46.          BevelOuter      =   1  'Inset
  47.          Caption         =   "Link Name"
  48.          Font3D          =   0  'None
  49.          ForeColor       =   &H00000000&
  50.          Height          =   345
  51.          Left            =   120
  52.          TabIndex        =   24
  53.          Top             =   90
  54.          Width           =   1605
  55.       End
  56.       Begin SSPanel Panel3D2 
  57.          BackColor       =   &H00C0C0C0&
  58.          BevelOuter      =   1  'Inset
  59.          Font3D          =   1  'Raised w/light shading
  60.          ForeColor       =   &H00000000&
  61.          Height          =   3105
  62.          Left            =   120
  63.          TabIndex        =   23
  64.          Top             =   450
  65.          Width           =   5295
  66.          Begin TextBox link_edit_name 
  67.             BackColor       =   &H00FFFFFF&
  68.             FontBold        =   0   'False
  69.             FontItalic      =   0   'False
  70.             FontName        =   "Terminal"
  71.             FontSize        =   9
  72.             FontStrikethru  =   0   'False
  73.             FontUnderline   =   0   'False
  74.             Height          =   315
  75.             Index           =   0
  76.             Left            =   30
  77.             TabIndex        =   0
  78.             Text            =   "Text1"
  79.             Top             =   30
  80.             Width           =   1575
  81.          End
  82.          Begin TextBox link_edit_address 
  83.             BackColor       =   &H00FFFFFF&
  84.             FontBold        =   0   'False
  85.             FontItalic      =   0   'False
  86.             FontName        =   "Terminal"
  87.             FontSize        =   9
  88.             FontStrikethru  =   0   'False
  89.             FontUnderline   =   0   'False
  90.             Height          =   315
  91.             Index           =   0
  92.             Left            =   1620
  93.             TabIndex        =   1
  94.             Text            =   "Text2"
  95.             Top             =   30
  96.             Width           =   3615
  97.          End
  98.          Begin TextBox link_edit_name 
  99.             BackColor       =   &H00FFFFFF&
  100.             FontBold        =   0   'False
  101.             FontItalic      =   0   'False
  102.             FontName        =   "Terminal"
  103.             FontSize        =   9
  104.             FontStrikethru  =   0   'False
  105.             FontUnderline   =   0   'False
  106.             Height          =   315
  107.             Index           =   1
  108.             Left            =   30
  109.             TabIndex        =   2
  110.             Text            =   "Text1"
  111.             Top             =   330
  112.             Width           =   1575
  113.          End
  114.          Begin TextBox link_edit_address 
  115.             BackColor       =   &H00FFFFFF&
  116.             FontBold        =   0   'False
  117.             FontItalic      =   0   'False
  118.             FontName        =   "Terminal"
  119.             FontSize        =   9
  120.             FontStrikethru  =   0   'False
  121.             FontUnderline   =   0   'False
  122.             Height          =   315
  123.             Index           =   1
  124.             Left            =   1620
  125.             TabIndex        =   3
  126.             Text            =   "Text2"
  127.             Top             =   330
  128.             Width           =   3615
  129.          End
  130.          Begin TextBox link_edit_name 
  131.             BackColor       =   &H00FFFFFF&
  132.             FontBold        =   0   'False
  133.             FontItalic      =   0   'False
  134.             FontName        =   "Terminal"
  135.             FontSize        =   9
  136.             FontStrikethru  =   0   'False
  137.             FontUnderline   =   0   'False
  138.             Height          =   315
  139.             Index           =   2
  140.             Left            =   30
  141.             TabIndex        =   4
  142.             Text            =   "Text1"
  143.             Top             =   630
  144.             Width           =   1575
  145.          End
  146.          Begin TextBox link_edit_address 
  147.             BackColor       =   &H00FFFFFF&
  148.             FontBold        =   0   'False
  149.             FontItalic      =   0   'False
  150.             FontName        =   "Terminal"
  151.             FontSize        =   9
  152.             FontStrikethru  =   0   'False
  153.             FontUnderline   =   0   'False
  154.             Height          =   315
  155.             Index           =   2
  156.             Left            =   1620
  157.             TabIndex        =   5
  158.             Text            =   "Text2"
  159.             Top             =   630
  160.             Width           =   3615
  161.          End
  162.          Begin TextBox link_edit_name 
  163.             BackColor       =   &H00FFFFFF&
  164.             FontBold        =   0   'False
  165.             FontItalic      =   0   'False
  166.             FontName        =   "Terminal"
  167.             FontSize        =   9
  168.             FontStrikethru  =   0   'False
  169.             FontUnderline   =   0   'False
  170.             Height          =   315
  171.             Index           =   3
  172.             Left            =   30
  173.             TabIndex        =   6
  174.             Text            =   "Text1"
  175.             Top             =   930
  176.             Width           =   1575
  177.          End
  178.          Begin TextBox link_edit_address 
  179.             BackColor       =   &H00FFFFFF&
  180.             FontBold        =   0   'False
  181.             FontItalic      =   0   'False
  182.             FontName        =   "Terminal"
  183.             FontSize        =   9
  184.             FontStrikethru  =   0   'False
  185.             FontUnderline   =   0   'False
  186.             Height          =   315
  187.             Index           =   3
  188.             Left            =   1620
  189.             TabIndex        =   7
  190.             Text            =   "Text2"
  191.             Top             =   930
  192.             Width           =   3615
  193.          End
  194.          Begin TextBox link_edit_name 
  195.             BackColor       =   &H00FFFFFF&
  196.             FontBold        =   0   'False
  197.             FontItalic      =   0   'False
  198.             FontName        =   "Terminal"
  199.             FontSize        =   9
  200.             FontStrikethru  =   0   'False
  201.             FontUnderline   =   0   'False
  202.             Height          =   315
  203.             Index           =   4
  204.             Left            =   30
  205.             TabIndex        =   8
  206.             Text            =   "Text1"
  207.             Top             =   1230
  208.             Width           =   1575
  209.          End
  210.          Begin TextBox link_edit_address 
  211.             BackColor       =   &H00FFFFFF&
  212.             FontBold        =   0   'False
  213.             FontItalic      =   0   'False
  214.             FontName        =   "Terminal"
  215.             FontSize        =   9
  216.             FontStrikethru  =   0   'False
  217.             FontUnderline   =   0   'False
  218.             Height          =   315
  219.             Index           =   4
  220.             Left            =   1620
  221.             TabIndex        =   9
  222.             Text            =   "Text2"
  223.             Top             =   1230
  224.             Width           =   3615
  225.          End
  226.          Begin TextBox link_edit_name 
  227.             BackColor       =   &H00FFFFFF&
  228.             FontBold        =   0   'False
  229.             FontItalic      =   0   'False
  230.             FontName        =   "Terminal"
  231.             FontSize        =   9
  232.             FontStrikethru  =   0   'False
  233.             FontUnderline   =   0   'False
  234.             Height          =   315
  235.             Index           =   5
  236.             Left            =   30
  237.             TabIndex        =   10
  238.             Text            =   "Text1"
  239.             Top             =   1530
  240.             Width           =   1575
  241.          End
  242.          Begin TextBox link_edit_address 
  243.             BackColor       =   &H00FFFFFF&
  244.             FontBold        =   0   'False
  245.             FontItalic      =   0   'False
  246.             FontName        =   "Terminal"
  247.             FontSize        =   9
  248.             FontStrikethru  =   0   'False
  249.             FontUnderline   =   0   'False
  250.             Height          =   315
  251.             Index           =   5
  252.             Left            =   1620
  253.             TabIndex        =   11
  254.             Text            =   "Text2"
  255.             Top             =   1530
  256.             Width           =   3615
  257.          End
  258.          Begin TextBox link_edit_name 
  259.             BackColor       =   &H00FFFFFF&
  260.             FontBold        =   0   'False
  261.             FontItalic      =   0   'False
  262.             FontName        =   "Terminal"
  263.             FontSize        =   9
  264.             FontStrikethru  =   0   'False
  265.             FontUnderline   =   0   'False
  266.             Height          =   315
  267.             Index           =   6
  268.             Left            =   30
  269.             TabIndex        =   12
  270.             Text            =   "Text1"
  271.             Top             =   1830
  272.             Width           =   1575
  273.          End
  274.          Begin TextBox link_edit_address 
  275.             BackColor       =   &H00FFFFFF&
  276.             FontBold        =   0   'False
  277.             FontItalic      =   0   'False
  278.             FontName        =   "Terminal"
  279.             FontSize        =   9
  280.             FontStrikethru  =   0   'False
  281.             FontUnderline   =   0   'False
  282.             Height          =   315
  283.             Index           =   6
  284.             Left            =   1620
  285.             TabIndex        =   13
  286.             Text            =   "Text2"
  287.             Top             =   1830
  288.             Width           =   3615
  289.          End
  290.          Begin TextBox link_edit_name 
  291.             BackColor       =   &H00FFFFFF&
  292.             FontBold        =   0   'False
  293.             FontItalic      =   0   'False
  294.             FontName        =   "Terminal"
  295.             FontSize        =   9
  296.             FontStrikethru  =   0   'False
  297.             FontUnderline   =   0   'False
  298.             Height          =   315
  299.             Index           =   7
  300.             Left            =   30
  301.             TabIndex        =   14
  302.             Text            =   "Text1"
  303.             Top             =   2130
  304.             Width           =   1575
  305.          End
  306.          Begin TextBox link_edit_address 
  307.             BackColor       =   &H00FFFFFF&
  308.             FontBold        =   0   'False
  309.             FontItalic      =   0   'False
  310.             FontName        =   "Terminal"
  311.             FontSize        =   9
  312.             FontStrikethru  =   0   'False
  313.             FontUnderline   =   0   'False
  314.             Height          =   315
  315.             Index           =   7
  316.             Left            =   1620
  317.             TabIndex        =   15
  318.             Text            =   "Text2"
  319.             Top             =   2130
  320.             Width           =   3615
  321.          End
  322.          Begin TextBox link_edit_name 
  323.             BackColor       =   &H00FFFFFF&
  324.             FontBold        =   0   'False
  325.             FontItalic      =   0   'False
  326.             FontName        =   "Terminal"
  327.             FontSize        =   9
  328.             FontStrikethru  =   0   'False
  329.             FontUnderline   =   0   'False
  330.             Height          =   315
  331.             Index           =   8
  332.             Left            =   30
  333.             TabIndex        =   16
  334.             Text            =   "Text1"
  335.             Top             =   2430
  336.             Width           =   1575
  337.          End
  338.          Begin TextBox link_edit_address 
  339.             BackColor       =   &H00FFFFFF&
  340.             FontBold        =   0   'False
  341.             FontItalic      =   0   'False
  342.             FontName        =   "Terminal"
  343.             FontSize        =   9
  344.             FontStrikethru  =   0   'False
  345.             FontUnderline   =   0   'False
  346.             Height          =   315
  347.             Index           =   8
  348.             Left            =   1620
  349.             TabIndex        =   17
  350.             Text            =   "Text2"
  351.             Top             =   2430
  352.             Width           =   3615
  353.          End
  354.          Begin TextBox link_edit_name 
  355.             BackColor       =   &H00FFFFFF&
  356.             FontBold        =   0   'False
  357.             FontItalic      =   0   'False
  358.             FontName        =   "Terminal"
  359.             FontSize        =   9
  360.             FontStrikethru  =   0   'False
  361.             FontUnderline   =   0   'False
  362.             Height          =   315
  363.             Index           =   9
  364.             Left            =   30
  365.             TabIndex        =   18
  366.             Text            =   "Text1"
  367.             Top             =   2730
  368.             Width           =   1575
  369.          End
  370.          Begin TextBox link_edit_address 
  371.             BackColor       =   &H00FFFFFF&
  372.             FontBold        =   0   'False
  373.             FontItalic      =   0   'False
  374.             FontName        =   "Terminal"
  375.             FontSize        =   9
  376.             FontStrikethru  =   0   'False
  377.             FontUnderline   =   0   'False
  378.             Height          =   315
  379.             Index           =   9
  380.             Left            =   1620
  381.             TabIndex        =   19
  382.             Text            =   "Text2"
  383.             Top             =   2730
  384.             Width           =   3615
  385.          End
  386.       End
  387.    End
  388.    Begin CommandButton link_edit_cancel 
  389.       Caption         =   "Cancel"
  390.       Height          =   375
  391.       Left            =   2850
  392.       TabIndex        =   22
  393.       Top             =   3810
  394.       Width           =   975
  395.    End
  396.    Begin CommandButton link_edit_ok 
  397.       Caption         =   "OK"
  398.       Height          =   375
  399.       Left            =   1680
  400.       TabIndex        =   20
  401.       Top             =   3810
  402.       Width           =   975
  403.    End
  404. Sub Form_Load ()
  405. Dim ln As String * 80
  406.     For x = 0 To 9
  407.       link_edit_name(x).Text = " "
  408.       link_edit_address(x).Text = " "
  409.     Next x
  410.     For x = 0 To 9
  411.       fn$ = "Link" + Trim$(Str$(x + 1))
  412.       lnsz = GetINIString("Links", fn$, "", ln, 80, "wais.ini")
  413.       If lnsz > 0 Then
  414.         c = InStr(ln, " ")
  415.         If c > 1 Then
  416.           link_edit_name(x).Text = LCase$(Left$(ln, c - 1))
  417.           link_edit_address(x).Text = LCase$(LTrim$(Mid$(ln, c + 1, lnsz - c)))
  418.         End If
  419.       End If
  420.     Next x
  421. End Sub
  422. Sub link_edit_cancel_Click ()
  423.     link_edit_form.Hide
  424. End Sub
  425. Sub link_edit_ok_Click ()
  426.     For x = 0 To 9
  427.       l1$ = UCase$(Trim$(link_edit_name(x).Text))
  428.       l2$ = UCase$(Trim$(link_edit_address(x).Text))
  429.       If l1$ = "" Or l2$ = "" Then
  430.         If l1$ <> "" Or l2$ <> "" Then
  431.           msg$ = l1$ + l2$ + " is an incomplete entry, please fix it"
  432.           MsgBox msg$, MB_WARN
  433.           Exit Sub
  434.         End If
  435.       End If
  436.     Next x
  437.     For x = 0 To 9
  438.       l1$ = UCase$(LTrim$(link_edit_name(x).Text))
  439.       l2$ = UCase$(LTrim$(link_edit_address(x).Text))
  440.       fn$ = "Link" + Trim$(Str$(x + 1))
  441.       If l1$ = "" Then
  442.         z = PutINIString("Links", fn$, 0&, "wais.ini")
  443.       Else
  444.         z = PutINIString("Links", fn$, l1$ + " " + l2$ + Chr$(0), "wais.ini")
  445.       End If
  446.     Next x
  447.     link_edit_form.Hide
  448. End Sub
  449.