Programmer 7500/MAX_PROGRAMMERS.iso/VISUAL_B/CODIGO_1/DDESHARE/DDESHRM.FRM

Visual Basic Form | 1992-12-31 | 5.8 KB | 195 lines

VERSION 2.00
Begin Form DDESHRM
   BackColor       =   &H00C0C0C0&
   Caption         =   "Network DDE Share Manager"
   Height          =   4215
   Icon            =   DDESHRM.FRX:0000
   Left            =   1005
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   3810
   ScaleWidth      =   6000
   Top             =   1065
   Width           =   6120
   Begin PictureBox Picture1
      Align           =   1  'Align Top
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      Height          =   3735
      Left            =   0
      ScaleHeight     =   249
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   400
      TabIndex        =   0
      Top             =   0
      Width           =   6000
      Begin CommandButton btnQuit
         Caption         =   "Quit"
         Height          =   495
         Left            =   3900
         TabIndex        =   5
         Top             =   2220
         Width           =   1695
      End
      Begin CommandButton btnNew
         Caption         =   "New Share"
         Height          =   495
         Left            =   3900
         TabIndex        =   4
         Top             =   1320
         Width           =   1695
      End
      Begin ListBox ShareList
         BackColor       =   &H00C0C0C0&
         Height          =   1395
         Left            =   360
         Sorted          =   -1  'True
         TabIndex        =   2
         Top             =   1320
         Width           =   3375
      End
      Begin Line Line4
         BorderColor     =   &H00FFFFFF&
         Index           =   1
         X1              =   384
         X2              =   384
         Y1              =   208
         Y2              =   241
      End
      Begin Line Line1
         BorderColor     =   &H00808080&
         Index           =   1
         X1              =   16
         X2              =   16
         Y1              =   208
         Y2              =   241
      End
      Begin Label lblStatus
         BackColor       =   &H00C0C0C0&
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   360
         TabIndex        =   6
         Top             =   3240
         Width           =   5295
      End
      Begin Line Line3
         BorderColor     =   &H00FFFFFF&
         Index           =   4
         X1              =   16
         X2              =   384
         Y1              =   240
         Y2              =   240
      End
      Begin Line Line3
         BorderColor     =   &H00808080&
         Index           =   3
         X1              =   16
         X2              =   384
         Y1              =   208
         Y2              =   208
      End
      Begin Line Line5
         BorderColor     =   &H00FFFFFF&
         Index           =   1
         X1              =   384
         X2              =   384
         Y1              =   56
         Y2              =   192
      End
      Begin Label Label2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Current Shares:"
         Height          =   255
         Left            =   360
         TabIndex        =   3
         Top             =   960
         Width           =   3495
      End
      Begin Line Line3
         BorderColor     =   &H00FFFFFF&
         Index           =   2
         X1              =   17
         X2              =   385
         Y1              =   192
         Y2              =   192
      End
      Begin Line Line5
         BorderColor     =   &H00808080&
         Index           =   0
         X1              =   16
         X2              =   16
         Y1              =   56
         Y2              =   192
      End
      Begin Line Line3
         BorderColor     =   &H00808080&
         Index           =   1
         X1              =   16
         X2              =   384
         Y1              =   56
         Y2              =   56
      End
      Begin Line Line4
         BorderColor     =   &H00FFFFFF&
         Index           =   0
         X1              =   384
         X2              =   384
         Y1              =   8
         Y2              =   40
      End
      Begin Line Line3
         BorderColor     =   &H00FFFFFF&
         Index           =   0
         X1              =   17
         X2              =   385
         Y1              =   40
         Y2              =   40
      End
      Begin Line Line2
         BorderColor     =   &H00808080&
         X1              =   16
         X2              =   384
         Y1              =   8
         Y2              =   8
      End
      Begin Label NodeName
         BackColor       =   &H00C0C0C0&
         Caption         =   "NodeLabel"
         Height          =   255
         Left            =   360
         TabIndex        =   1
         Top             =   240
         Width           =   2895
      End
      Begin Line Line1
         BorderColor     =   &H00808080&
         Index           =   0
         X1              =   16
         X2              =   16
         Y1              =   8
         Y2              =   41
      End
   End
Option Explicit
Sub btnNew_Click ()
    ModifyShare " "
End Sub
Sub btnQuit_Click ()
    Unload DDESHRM
End Sub
Sub Form_Load ()
    NodeName.Caption = "Node Name: " + VBGetNodeName()
    If VBShareEnum(ShareList.hWnd) Then
        MsgBox "Failed to enumerate current shares."
        End
    End If
    lblStatus.Caption = ""
End Sub
Sub Form_Unload (Cancel As Integer)
    If DDESHRD_Loaded Then Unload DDESHRD
End Sub
Sub ShareList_DblClick ()
    ModifyShare ShareList.List(ShareList.ListIndex)
End Sub