frmviewfileinfo.frm

vb发送文件,检查邮件,串口操作,查看文件等关于socket的源代码!

VERSION 5.00
Begin VB.Form FrmViewFileInfo 
   Caption         =   "Form1"
   ClientHeight    =   5745
   ClientLeft      =   1635
   ClientTop       =   1530
   ClientWidth     =   6420
   LinkTopic       =   "Form1"
   ScaleHeight     =   5745
   ScaleWidth      =   6420
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   510
      Left            =   2475
      TabIndex        =   0
      Top             =   1755
      Width           =   2115
   End
End
Attribute VB_Name = "FrmViewFileInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Type SHELLEXECUTEINFO
     cbSize As Long
     fMask As Long
     hwnd As Long
     lpVerb As String
     lpFile As String
     lpParameters As String
     lpDirectory As String
     nShow As Long
     hInstApp As Long
     lpIDList As Long
     lpClass As String
     hkeyClass As Long
     dwHotKey As Long
     hIcon As Long
     hProcess As Long
End Type

Private Const SEE_MASK_INVOKEIDLIST = &HC
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
Private Const SEE_MASK_FLAG_NO_UI = &H400
   
Private Declare Function ShellExecuteEX Lib "shell32.dll" Alias _
     "ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long
   
Private Sub ShowProps(FileName As String, OwnerhWnd As Long)
   
     Dim SEI As SHELLEXECUTEINFO
     Dim r As Long
   
     With SEI
        .cbSize = Len(SEI)
        .fMask = SEE_MASK_NOCLOSEPROCESS Or _
        SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI
        .hwnd = OwnerhWnd
        .lpVerb = "share"  ' properties
        .lpFile = FileName
        .lpParameters = vbNullChar
        .lpDirectory = vbNullChar
        .nShow = 0
        .hInstApp = 0
        .lpIDList = 0
     End With

     r = ShellExecuteEX(SEI)
End Sub



Private Sub Command1_Click()
    Call ShowProps("D:\Win98", Me.hwnd)
End Sub