home *** CD-ROM | disk | FTP | other *** search
/ Troubleshooting Netware Systems / CSTRIAL0196.BIN / attach / msj / v10n10 / vb40.exe / SHELLVB.EXE / SHELLI~1.FRM < prev    next >
Text File  |  1995-10-01  |  4KB  |  146 lines
  1. VERSION 4.00
  2. Begin VB.Form Shellink 
  3.    Caption         =   "MSJ Shellink Test"
  4.    ClientHeight    =   4065
  5.    ClientLeft      =   1545
  6.    ClientTop       =   1620
  7.    ClientWidth     =   6690
  8.    Height          =   4470
  9.    Left            =   1485
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4065
  12.    ScaleWidth      =   6690
  13.    Top             =   1275
  14.    Width           =   6810
  15.    Begin VB.CommandButton btnLinkBrowse 
  16.       Caption         =   "Browse..."
  17.       Height          =   375
  18.       Left            =   5160
  19.       TabIndex        =   10
  20.       Top             =   600
  21.       Width           =   975
  22.    End
  23.    Begin VB.CommandButton btnPathBrowse 
  24.       Caption         =   "Browse..."
  25.       Height          =   375
  26.       Left            =   5160
  27.       TabIndex        =   9
  28.       Top             =   120
  29.       Width           =   975
  30.    End
  31.    Begin VB.CheckBox chkDesktop 
  32.       Caption         =   "On Desktop"
  33.       Height          =   255
  34.       Left            =   2400
  35.       TabIndex        =   5
  36.       Top             =   1080
  37.       Width           =   2655
  38.    End
  39.    Begin VB.CommandButton btnResolve 
  40.       Caption         =   "Resolve Link"
  41.       Height          =   375
  42.       Left            =   120
  43.       TabIndex        =   4
  44.       Top             =   600
  45.       Width           =   1215
  46.    End
  47.    Begin VB.PictureBox picOutput 
  48.       Height          =   2295
  49.       Left            =   120
  50.       ScaleHeight     =   2205
  51.       ScaleWidth      =   4845
  52.       TabIndex        =   3
  53.       Top             =   1680
  54.       Width           =   4935
  55.    End
  56.    Begin VB.TextBox edtLink 
  57.       Height          =   285
  58.       Left            =   2400
  59.       TabIndex        =   2
  60.       Top             =   600
  61.       Width           =   2655
  62.    End
  63.    Begin VB.TextBox edtPath 
  64.       Height          =   285
  65.       Left            =   2400
  66.       TabIndex        =   1
  67.       Top             =   120
  68.       Width           =   2655
  69.    End
  70.    Begin VB.CommandButton btnCreate 
  71.       Caption         =   "Create Link"
  72.       Height          =   375
  73.       Left            =   120
  74.       TabIndex        =   0
  75.       Top             =   120
  76.       Width           =   1215
  77.    End
  78.    Begin MSComDlg.CommonDialog ComDlg 
  79.       Left            =   5640
  80.       Top             =   1800
  81.       _version        =   65536
  82.       _extentx        =   847
  83.       _extenty        =   847
  84.       _stockprops     =   0
  85.       dialogtitle     =   "MSJ Shellink Tester"
  86.    End
  87.    Begin VB.Label Label3 
  88.       Caption         =   "Output:"
  89.       Height          =   255
  90.       Left            =   120
  91.       TabIndex        =   8
  92.       Top             =   1320
  93.       Width           =   735
  94.    End
  95.    Begin VB.Label Label2 
  96.       Alignment       =   1  'Right Justify
  97.       Caption         =   "Link:"
  98.       Height          =   255
  99.       Left            =   1680
  100.       TabIndex        =   7
  101.       Top             =   600
  102.       Width           =   615
  103.    End
  104.    Begin VB.Label Label1 
  105.       Alignment       =   1  'Right Justify
  106.       Caption         =   "Real Path:"
  107.       Height          =   255
  108.       Left            =   1440
  109.       TabIndex        =   6
  110.       Top             =   120
  111.       Width           =   855
  112.    End
  113.    Begin ShellinkLibCtl.Shellink slkLink 
  114.       Left            =   5640
  115.       Top             =   1200
  116.       _version        =   65536
  117.       _extentx        =   873
  118.       _extenty        =   873
  119.       _stockprops     =   0
  120.    End
  121. End
  122. Attribute VB_Name = "Shellink"
  123. Attribute VB_Creatable = False
  124. Attribute VB_Exposed = False
  125. Private Sub btnCreate_Click()
  126.     Dim a As Variant, b As Variant
  127.     
  128.     edtLink.Text = slkLink.CreateLink(edtPath.Text, "Shortcut to " & edtPath.Text, chkDesktop.Value)
  129. End Sub
  130.  
  131.  
  132.  
  133. Private Sub btnLinkBrowse_Click()
  134.     ComDlg.Action = 2  ' Save As dialog box
  135.     edtLink.Text = ComDlg.FileName
  136. End Sub
  137.  
  138. Private Sub btnPathBrowse_Click()
  139.     ComDlg.Action = 1  ' Open File dialog box
  140.     edtPath.Text = ComDlg.FileName
  141. End Sub
  142.  
  143. Private Sub btnResolve_Click()
  144.     edtPath.Text = slkLink.ResolveLink(picOutput.hWnd, edtLink.Text)
  145. End Sub
  146.