home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 27 / IOPROG_27.ISO / SOFT / ADSDK.ZIP / Samples / WinNT / Computer / App / Share.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1999-03-17  |  2.5 KB  |  85 lines
  1. VERSION 5.00
  2. Begin VB.Form frmShare 
  3.    Caption         =   "New Share"
  4.    ClientHeight    =   1695
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4215
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   1695
  10.    ScaleWidth      =   4215
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.TextBox txtPath 
  13.       Height          =   330
  14.       Left            =   1290
  15.       TabIndex        =   3
  16.       Top             =   645
  17.       Width           =   2745
  18.    End
  19.    Begin VB.CommandButton cmdCancel 
  20.       Cancel          =   -1  'True
  21.       Caption         =   "Cancel"
  22.       Height          =   375
  23.       Left            =   2205
  24.       TabIndex        =   5
  25.       Top             =   1200
  26.       Width           =   1050
  27.    End
  28.    Begin VB.CommandButton cmdOK 
  29.       Caption         =   "OK"
  30.       Default         =   -1  'True
  31.       Height          =   375
  32.       Left            =   975
  33.       TabIndex        =   4
  34.       Top             =   1185
  35.       Width           =   1050
  36.    End
  37.    Begin VB.TextBox txtNewShare 
  38.       Height          =   315
  39.       Left            =   1290
  40.       TabIndex        =   1
  41.       Top             =   150
  42.       Width           =   2715
  43.    End
  44.    Begin VB.Label Label2 
  45.       Caption         =   "&Path:"
  46.       Height          =   210
  47.       Left            =   105
  48.       TabIndex        =   2
  49.       Top             =   705
  50.       Width           =   1080
  51.    End
  52.    Begin VB.Label Label1 
  53.       Caption         =   "&Share Name:"
  54.       Height          =   300
  55.       Left            =   75
  56.       TabIndex        =   0
  57.       Top             =   195
  58.       Width           =   1170
  59.    End
  60. Attribute VB_Name = "frmShare"
  61. Attribute VB_GlobalNameSpace = False
  62. Attribute VB_Creatable = False
  63. Attribute VB_PredeclaredId = True
  64. Attribute VB_Exposed = False
  65. '----------------------------------------------------------------------------
  66. '  Microsoft Active Directory 2.5 Sample Code
  67. '  Copyright (C) Microsoft Corporation, 1996 - 1999
  68. '  File:       frmShare.frm
  69. '  Contents:   Accepting Share Information
  70. '----------------------------------------------------------------------------
  71. Private Sub cmdCancel_Click()
  72.  Hide
  73. End Sub
  74. Private Sub cmdOK_Click()
  75.  If (txtNewShare = "" Or txtPath = "") Then
  76.      MsgBox ("Must enter share name and path name")
  77.      Exit Sub
  78.  End If
  79.  Hide
  80. End Sub
  81. Private Sub Form_Load()
  82.   txtNewShare = ""
  83.   txtPath = ""
  84. End Sub
  85.