home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / ddeshare / ddeshrm.frm < prev    next >
Text File  |  1992-12-31  |  6KB  |  202 lines

  1. VERSION 2.00
  2. Begin Form DDESHRM 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Network DDE Share Manager"
  5.    Height          =   4215
  6.    Icon            =   DDESHRM.FRX:0000
  7.    Left            =   1005
  8.    LinkTopic       =   "Form1"
  9.    MaxButton       =   0   'False
  10.    ScaleHeight     =   3810
  11.    ScaleWidth      =   6000
  12.    Top             =   1065
  13.    Width           =   6120
  14.    Begin PictureBox Picture1 
  15.       Align           =   1  'Align Top
  16.       BackColor       =   &H00C0C0C0&
  17.       BorderStyle     =   0  'None
  18.       Height          =   3735
  19.       Left            =   0
  20.       ScaleHeight     =   249
  21.       ScaleMode       =   3  'Pixel
  22.       ScaleWidth      =   400
  23.       TabIndex        =   0
  24.       Top             =   0
  25.       Width           =   6000
  26.       Begin CommandButton btnQuit 
  27.          Caption         =   "Quit"
  28.          Height          =   495
  29.          Left            =   3900
  30.          TabIndex        =   5
  31.          Top             =   2220
  32.          Width           =   1695
  33.       End
  34.       Begin CommandButton btnNew 
  35.          Caption         =   "New Share"
  36.          Height          =   495
  37.          Left            =   3900
  38.          TabIndex        =   4
  39.          Top             =   1320
  40.          Width           =   1695
  41.       End
  42.       Begin ListBox ShareList 
  43.          BackColor       =   &H00C0C0C0&
  44.          Height          =   1395
  45.          Left            =   360
  46.          Sorted          =   -1  'True
  47.          TabIndex        =   2
  48.          Top             =   1320
  49.          Width           =   3375
  50.       End
  51.       Begin Line Line4 
  52.          BorderColor     =   &H00FFFFFF&
  53.          Index           =   1
  54.          X1              =   384
  55.          X2              =   384
  56.          Y1              =   208
  57.          Y2              =   241
  58.       End
  59.       Begin Line Line1 
  60.          BorderColor     =   &H00808080&
  61.          Index           =   1
  62.          X1              =   16
  63.          X2              =   16
  64.          Y1              =   208
  65.          Y2              =   241
  66.       End
  67.       Begin Label lblStatus 
  68.          BackColor       =   &H00C0C0C0&
  69.          ForeColor       =   &H00FF0000&
  70.          Height          =   255
  71.          Left            =   360
  72.          TabIndex        =   6
  73.          Top             =   3240
  74.          Width           =   5295
  75.       End
  76.       Begin Line Line3 
  77.          BorderColor     =   &H00FFFFFF&
  78.          Index           =   4
  79.          X1              =   16
  80.          X2              =   384
  81.          Y1              =   240
  82.          Y2              =   240
  83.       End
  84.       Begin Line Line3 
  85.          BorderColor     =   &H00808080&
  86.          Index           =   3
  87.          X1              =   16
  88.          X2              =   384
  89.          Y1              =   208
  90.          Y2              =   208
  91.       End
  92.       Begin Line Line5 
  93.          BorderColor     =   &H00FFFFFF&
  94.          Index           =   1
  95.          X1              =   384
  96.          X2              =   384
  97.          Y1              =   56
  98.          Y2              =   192
  99.       End
  100.       Begin Label Label2 
  101.          BackColor       =   &H00C0C0C0&
  102.          Caption         =   "Current Shares:"
  103.          Height          =   255
  104.          Left            =   360
  105.          TabIndex        =   3
  106.          Top             =   960
  107.          Width           =   3495
  108.       End
  109.       Begin Line Line3 
  110.          BorderColor     =   &H00FFFFFF&
  111.          Index           =   2
  112.          X1              =   17
  113.          X2              =   385
  114.          Y1              =   192
  115.          Y2              =   192
  116.       End
  117.       Begin Line Line5 
  118.          BorderColor     =   &H00808080&
  119.          Index           =   0
  120.          X1              =   16
  121.          X2              =   16
  122.          Y1              =   56
  123.          Y2              =   192
  124.       End
  125.       Begin Line Line3 
  126.          BorderColor     =   &H00808080&
  127.          Index           =   1
  128.          X1              =   16
  129.          X2              =   384
  130.          Y1              =   56
  131.          Y2              =   56
  132.       End
  133.       Begin Line Line4 
  134.          BorderColor     =   &H00FFFFFF&
  135.          Index           =   0
  136.          X1              =   384
  137.          X2              =   384
  138.          Y1              =   8
  139.          Y2              =   40
  140.       End
  141.       Begin Line Line3 
  142.          BorderColor     =   &H00FFFFFF&
  143.          Index           =   0
  144.          X1              =   17
  145.          X2              =   385
  146.          Y1              =   40
  147.          Y2              =   40
  148.       End
  149.       Begin Line Line2 
  150.          BorderColor     =   &H00808080&
  151.          X1              =   16
  152.          X2              =   384
  153.          Y1              =   8
  154.          Y2              =   8
  155.       End
  156.       Begin Label NodeName 
  157.          BackColor       =   &H00C0C0C0&
  158.          Caption         =   "NodeLabel"
  159.          Height          =   255
  160.          Left            =   360
  161.          TabIndex        =   1
  162.          Top             =   240
  163.          Width           =   2895
  164.       End
  165.       Begin Line Line1 
  166.          BorderColor     =   &H00808080&
  167.          Index           =   0
  168.          X1              =   16
  169.          X2              =   16
  170.          Y1              =   8
  171.          Y2              =   41
  172.       End
  173.    End
  174. End
  175. Option Explicit
  176.  
  177. Sub btnNew_Click ()
  178.     ModifyShare " "
  179. End Sub
  180.  
  181. Sub btnQuit_Click ()
  182.     Unload DDESHRM
  183. End Sub
  184.  
  185. Sub Form_Load ()
  186.     NodeName.Caption = "Node Name: " + VBGetNodeName()
  187.     If VBShareEnum(ShareList.hWnd) Then
  188.         MsgBox "Failed to enumerate current shares."
  189.         End
  190.     End If
  191.     lblStatus.Caption = ""
  192. End Sub
  193.  
  194. Sub Form_Unload (Cancel As Integer)
  195.     If DDESHRD_Loaded Then Unload DDESHRD
  196. End Sub
  197.  
  198. Sub ShareList_DblClick ()
  199.     ModifyShare ShareList.List(ShareList.ListIndex)
  200. End Sub
  201.  
  202.