home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / lcocxweb / samples.exe / ShellExec / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-08-04  |  3.4 KB  |  109 lines
  1. VERSION 5.00
  2. Object = "{B190576C-254A-11D2-B61E-C80424DEEF17}#51.0#0"; "LCocx.ocx"
  3. Begin VB.Form form1 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Shell Execute"
  6.    ClientHeight    =   2088
  7.    ClientLeft      =   36
  8.    ClientTop       =   324
  9.    ClientWidth     =   5172
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2088
  14.    ScaleWidth      =   5172
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin LCocx98.LCocx LCocx1 
  17.       Left            =   4680
  18.       Top             =   1680
  19.       _ExtentX        =   656
  20.       _ExtentY        =   656
  21.    End
  22.    Begin VB.CommandButton cmdweb 
  23.       Caption         =   "Web"
  24.       Height          =   372
  25.       Left            =   360
  26.       TabIndex        =   2
  27.       Top             =   1320
  28.       Width           =   972
  29.    End
  30.    Begin VB.CommandButton cmdemail 
  31.       Caption         =   "Email"
  32.       Height          =   372
  33.       Left            =   360
  34.       TabIndex        =   1
  35.       Top             =   840
  36.       Width           =   972
  37.    End
  38.    Begin VB.CommandButton cmdtext 
  39.       Caption         =   "Text"
  40.       Height          =   372
  41.       Left            =   360
  42.       TabIndex        =   0
  43.       Top             =   360
  44.       Width           =   972
  45.    End
  46.    Begin VB.Label Label4 
  47.       AutoSize        =   -1  'True
  48.       Caption         =   "Process ID or Error Found"
  49.       Height          =   192
  50.       Left            =   2040
  51.       TabIndex        =   6
  52.       Top             =   120
  53.       Width           =   1848
  54.    End
  55.    Begin VB.Label Label3 
  56.       AutoSize        =   -1  'True
  57.       Caption         =   "Label3"
  58.       Height          =   192
  59.       Left            =   1560
  60.       TabIndex        =   5
  61.       Top             =   1560
  62.       Width           =   492
  63.    End
  64.    Begin VB.Label Label2 
  65.       AutoSize        =   -1  'True
  66.       Caption         =   "Label2"
  67.       Height          =   192
  68.       Left            =   1560
  69.       TabIndex        =   4
  70.       Top             =   1020
  71.       Width           =   492
  72.    End
  73.    Begin VB.Label Label1 
  74.       AutoSize        =   -1  'True
  75.       Caption         =   "Label1"
  76.       Height          =   192
  77.       Left            =   1560
  78.       TabIndex        =   3
  79.       Top             =   480
  80.       Width           =   492
  81.    End
  82. Attribute VB_Name = "form1"
  83. Attribute VB_GlobalNameSpace = False
  84. Attribute VB_Creatable = False
  85. Attribute VB_PredeclaredId = True
  86. Attribute VB_Exposed = False
  87. Private Sub cmdemail_Click()
  88. ret2 = LCocx1.Execute("mailto:lc-enterprises@usa.net")
  89. 'or ret = LCocx1.Execute("mailto:lc-enterprises@usa.net?Subject=Hello") 'would fill the subject with the word "Hello"
  90. Label2 = ret2
  91. 'the function returns the Porcess ID or the error found
  92. End Sub
  93. Private Sub cmdtext_Click()
  94. Dim FileName As String
  95. FileName = InputBox("Please Enter the Path and the Name of the File to Open", , "C:\")
  96. ret1 = LCocx1.Execute(FileName)
  97. 'If the file is not found or doesn't have an association
  98. 'nothing happens
  99. Label1 = ret1
  100. 'the function returns the Porcess ID or the error found
  101. End Sub
  102. Private Sub cmdweb_Click()
  103. ret3 = LCocx1.Execute("http://send-a-teddy.com/lc")
  104. 'The Internet address MUST have the prefix "http://" or "ftp://"
  105. 'in order to work
  106. Label3 = ret3
  107. 'the function returns the Porcess ID or the error found
  108. End Sub
  109.