home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l406 / 3.ddi / LINKS.FR_ / LINKS.bin (.txt)
Encoding:
Visual Basic Form  |  1992-10-21  |  4.4 KB  |  144 lines
  1. VERSION 2.00
  2. Begin Form LInks 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Links"
  5.    Height          =   2685
  6.    Left            =   645
  7.    LinkMode        =   1  'Source
  8.    LinkTopic       =   "Form2"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    ScaleHeight     =   2280
  12.    ScaleWidth      =   7695
  13.    Top             =   1590
  14.    Width           =   7815
  15.    Begin CommandButton cmdOK 
  16.       Caption         =   "OK"
  17.       Default         =   -1  'True
  18.       Height          =   495
  19.       Left            =   6120
  20.       TabIndex        =   1
  21.       Top             =   480
  22.       Width           =   1215
  23.    End
  24.    Begin CommandButton cmdCancel 
  25.       Cancel          =   -1  'True
  26.       Caption         =   "Cancel"
  27.       Height          =   495
  28.       Left            =   6120
  29.       TabIndex        =   2
  30.       Top             =   1080
  31.       Width           =   1215
  32.    End
  33.    Begin Frame Frame1 
  34.       Caption         =   "Update"
  35.       Height          =   860
  36.       Left            =   240
  37.       TabIndex        =   3
  38.       Top             =   1280
  39.       Width           =   5535
  40.       Begin OptionButton optUpdate 
  41.          Caption         =   "Automatic"
  42.          Height          =   495
  43.          Index           =   0
  44.          Left            =   120
  45.          TabIndex        =   4
  46.          Top             =   240
  47.          Width           =   1215
  48.       End
  49.       Begin OptionButton optUpdate 
  50.          Caption         =   "Frozen"
  51.          Height          =   495
  52.          Index           =   1
  53.          Left            =   1440
  54.          TabIndex        =   5
  55.          Top             =   240
  56.          Width           =   1095
  57.       End
  58.       Begin OptionButton optUpdate 
  59.          Caption         =   "Manual"
  60.          Height          =   495
  61.          Index           =   2
  62.          Left            =   2640
  63.          TabIndex        =   6
  64.          Top             =   240
  65.          Width           =   1095
  66.       End
  67.    End
  68.    Begin Label Label1 
  69.       Caption         =   "Links:"
  70.       Height          =   255
  71.       Left            =   120
  72.       TabIndex        =   0
  73.       Top             =   120
  74.       Width           =   615
  75.    End
  76.    Begin Label lblLinkInfo 
  77.       BorderStyle     =   1  'Fixed Single
  78.       Height          =   705
  79.       Left            =   240
  80.       TabIndex        =   7
  81.       Top             =   480
  82.       Width           =   5535
  83.    End
  84. Sub cmdCancel_Click ()
  85.   Unload Links
  86. End Sub
  87. Sub cmdOK_Click ()
  88.   If optUpdate(0).Value = True Then
  89.     'Automatic
  90.     frmMain.OleClient1.UpdateOptions = OLE_AUTOMATIC
  91.   ElseIf optUpdate(1).Value = True Then
  92.     'Frozen
  93.     frmMain.OleClient1.UpdateOptions = OLE_FROZEN
  94.   ElseIf optUpdate(2).Value = True Then
  95.     'Manual
  96.     frmMain.OleClient1.UpdateOptions = OLE_MANUAL
  97.   End If
  98.   Unload Links
  99. End Sub
  100. Sub Form_Load ()
  101.   Dim LinkDisplay As String
  102.   Screen.MousePointer = 11
  103.   Select Case frmMain.OleClient1.UpdateOptions
  104.   Case 0
  105.     optUpdate(0).Value = True
  106.     optstring$ = "Automatic"
  107.   Case 1
  108.     optUpdate(1).Value = True
  109.     optstring$ = "Frozen"
  110.   Case 2
  111.     optUpdate(2).Value = True
  112.     optstring$ = "Manual"
  113.   End Select
  114.   'create string to display in links list box
  115.   frmMain.OleClient1.ServerClass = frmMain.OleClient1.Class
  116.   DisplayName$ = frmMain.OleClient1.ServerClassesDisplay(RegIndex)
  117.   LinkDisplay = DisplayName$ + " - " + frmMain.OleClient1.SourceDoc + " - " + frmMain.OleClient1.SourceItem + " - " + optstring$
  118.   'display links string in lblLinkInfo
  119.   lblLinkInfo.Caption = LinkDisplay
  120.   Screen.MousePointer = 0
  121. End Sub
  122. Sub optUpdate_Click (Index As Integer)
  123.   Dim LinkDisplay As String
  124.   Select Case Index
  125.   Case 0
  126.     optUpdate(0).Value = True
  127.     optstring$ = "Automatic"
  128.   Case 1
  129.     optUpdate(1).Value = True
  130.     optstring$ = "Frozen"
  131.   Case 2
  132.     optUpdate(2).Value = True
  133.     optstring$ = "Manual"
  134.   End Select
  135.   ' create string to display in links list box
  136.   frmMain.OleClient1.ServerClass = frmMain.OleClient1.Class
  137.   ' Get Display Name based on RegIndex, a global variable that stores
  138.   ' the object's registration database index
  139.   DisplayName$ = frmMain.OleClient1.ServerClassesDisplay(RegIndex)
  140.   LinkDisplay = DisplayName$ + " - " + frmMain.OleClient1.SourceDoc + " - " + frmMain.OleClient1.SourceItem + " - " + optstring$
  141.   ' display links string in lblLinkInfo
  142.   lblLinkInfo.Caption = LinkDisplay
  143. End Sub
  144.