home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l406 / 3.ddi / REGVIEW.FR_ / REGVIEW.bin (.txt)
Encoding:
Visual Basic Form  |  1992-10-21  |  4.8 KB  |  169 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "OLE Registration Database Viewer"
  5.    Height          =   4620
  6.    Icon            =   REGVIEW.FRX:0000
  7.    Left            =   3330
  8.    LinkMode        =   1  'Source
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    ScaleHeight     =   4215
  12.    ScaleWidth      =   5655
  13.    Top             =   3630
  14.    Width           =   5775
  15.    Begin ListBox Classes 
  16.       Height          =   1980
  17.       Left            =   120
  18.       TabIndex        =   0
  19.       Top             =   360
  20.       Width           =   2415
  21.    End
  22.    Begin ListBox ClassesDisplay 
  23.       Height          =   1980
  24.       Left            =   2640
  25.       TabIndex        =   2
  26.       Top             =   360
  27.       Width           =   2895
  28.    End
  29.    Begin OleClient Client1 
  30.       Class           =   ""
  31.       Focus           =   0   'False
  32.       Height          =   495
  33.       HostName        =   ""
  34.       Left            =   840
  35.       Protocol        =   "StdFileEditing"
  36.       ServerShow      =   0   'False
  37.       ServerType      =   0  'Linked
  38.       SourceDoc       =   ""
  39.       SourceItem      =   ""
  40.       Timeout         =   32767
  41.       Top             =   1080
  42.       Verb            =   0
  43.       Visible         =   0   'False
  44.       Width           =   1215
  45.    End
  46.    Begin ListBox Protocols 
  47.       Height          =   615
  48.       Left            =   120
  49.       TabIndex        =   4
  50.       Top             =   2640
  51.       Width           =   2415
  52.    End
  53.    Begin ListBox AcceptFmts 
  54.       Height          =   615
  55.       Left            =   2640
  56.       TabIndex        =   8
  57.       Top             =   2640
  58.       Width           =   2895
  59.    End
  60.    Begin ListBox Verbs 
  61.       Height          =   615
  62.       Left            =   120
  63.       TabIndex        =   6
  64.       Top             =   3600
  65.       Width           =   2415
  66.    End
  67.    Begin ListBox GetFmts 
  68.       Height          =   615
  69.       Left            =   2640
  70.       TabIndex        =   10
  71.       Top             =   3600
  72.       Width           =   2895
  73.    End
  74.    Begin Label Label1 
  75.       Caption         =   "&Server Classes"
  76.       Height          =   195
  77.       Left            =   120
  78.       TabIndex        =   11
  79.       Top             =   120
  80.       Width           =   1275
  81.    End
  82.    Begin Label Label2 
  83.       Caption         =   "&Display Name for Classes"
  84.       Height          =   195
  85.       Left            =   2760
  86.       TabIndex        =   1
  87.       Top             =   120
  88.       Width           =   2160
  89.    End
  90.    Begin Label Label3 
  91.       Caption         =   "&Protocols"
  92.       Height          =   195
  93.       Left            =   120
  94.       TabIndex        =   3
  95.       Top             =   2400
  96.       Width           =   810
  97.    End
  98.    Begin Label Label5 
  99.       Caption         =   "&Accept Formats"
  100.       Height          =   195
  101.       Left            =   2640
  102.       TabIndex        =   7
  103.       Top             =   2400
  104.       Width           =   1335
  105.    End
  106.    Begin Label Label4 
  107.       Caption         =   "&Verbs"
  108.       Height          =   195
  109.       Left            =   120
  110.       TabIndex        =   5
  111.       Top             =   3360
  112.       Width           =   495
  113.    End
  114.    Begin Label Label6 
  115.       Caption         =   "&Get Formats"
  116.       Height          =   195
  117.       Left            =   2640
  118.       TabIndex        =   9
  119.       Top             =   3360
  120.       Width           =   1035
  121.    End
  122. Sub Classes_Click ()
  123.     ClassesDisplay.ListIndex = Classes.ListIndex
  124.     FillItems (Client1.ServerClasses(Classes.ListIndex))
  125. End Sub
  126. Sub ClassesDisplay_Click ()
  127.     Classes.ListIndex = ClassesDisplay.ListIndex
  128. End Sub
  129. Sub FillItems (S$)
  130.     Client1.ServerClass = S$
  131.     ' PROTOCOL
  132.     While Protocols.ListCount
  133.         Protocols.RemoveItem 0
  134.     Wend
  135.     For I = 0 To Client1.ServerProtocolCount - 1
  136.         Protocols.AddItem Client1.ServerProtocol(I)
  137.     Next I
  138.     ' VERBS
  139.     While Verbs.ListCount
  140.         Verbs.RemoveItem 0
  141.     Wend
  142.     For I = 0 To Client1.ServerVerbsCount - 1
  143.         Verbs.AddItem Client1.ServerVerbs(I)
  144.     Next I
  145.     ' AcceptFormats
  146.     While AcceptFmts.ListCount
  147.         AcceptFmts.RemoveItem 0
  148.     Wend
  149.     For I = 0 To Client1.ServerAcceptFormatsCount - 1
  150.         AcceptFmts.AddItem Client1.ServerAcceptFormats(I)
  151.     Next I
  152.     ' GetFormats
  153.     While GetFmts.ListCount
  154.         GetFmts.RemoveItem 0
  155.     Wend
  156.     For I = 0 To Client1.ServerGetFormatsCount - 1
  157.         GetFmts.AddItem Client1.ServerGetFormats(I)
  158.     Next I
  159. End Sub
  160. Sub Form_Load ()
  161.     For I = 0 To Client1.ServerClassCount - 1
  162.         Classes.AddItem Client1.ServerClasses(I)
  163.         ClassesDisplay.AddItem Client1.ServerClassesDisplay(I)
  164.     Next I
  165. End Sub
  166. Sub Form_Unload (Cancel As Integer)
  167.     End
  168. End Sub
  169.