wavfile.pag

《管状换热器计算机辅助设计系统ExhCAD绘图系统(版本:1.01a Final)》为自由软件

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.PropertyPage 声音文件 
   Caption         =   "声音文件"
   ClientHeight    =   3495
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4710
   PaletteMode     =   0  'Halftone
   ScaleHeight     =   3495
   ScaleWidth      =   4710
   Begin MSComDlg.CommonDialog BrsDlg 
      Left            =   3960
      Top             =   720
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.CommandButton BrsCmd 
      Caption         =   "Browse..."
      Height          =   375
      Left            =   2880
      TabIndex        =   2
      Top             =   360
      Width           =   975
   End
   Begin VB.TextBox txtFileName 
      Height          =   330
      Left            =   90
      TabIndex        =   1
      Top             =   370
      Width           =   2700
   End
   Begin VB.Label EmailLbl 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "[e-mail]"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   480
      TabIndex        =   4
      Top             =   2280
      Width           =   3615
   End
   Begin VB.Label InfLbl 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Author :     endlessfree"
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   960
      TabIndex        =   3
      Top             =   1800
      Width           =   2415
   End
   Begin VB.Line LinkLine 
      Index           =   0
      X1              =   4440
      X2              =   120
      Y1              =   3000
      Y2              =   3000
   End
   Begin VB.Line LinkLine 
      Index           =   4
      X1              =   4440
      X2              =   120
      Y1              =   1560
      Y2              =   1560
   End
   Begin VB.Label lblFileName 
      Caption         =   "FileName:"
      Height          =   240
      Left            =   90
      TabIndex        =   0
      Top             =   120
      Width           =   2700
   End
   Begin VB.Line LinkLine 
      BorderColor     =   &H8000000E&
      BorderWidth     =   3
      Index           =   3
      X1              =   4440
      X2              =   120
      Y1              =   1560
      Y2              =   1560
   End
   Begin VB.Line LinkLine 
      BorderColor     =   &H8000000E&
      BorderWidth     =   3
      Index           =   1
      X1              =   4440
      X2              =   120
      Y1              =   3000
      Y2              =   3000
   End
End
Attribute VB_Name = "声音文件"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Private Sub BrsCmd_Click()
    BrsDlg.DialogTitle = "打开一个换热器输入数据文件"
    BrsDlg.DefaultExt = "wav"
    BrsDlg.Filter = "wav fiels|*.wav"
    BrsDlg.ShowOpen
    txtFileName.Text = BrsDlg.FileName
End Sub

Private Sub EmailLbl_Click()
    ShellExecute 0&, vbNullString, "mailto:" & "[e-mail]", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Private Sub txtFileName_Change()
    Changed = True
End Sub


Private Sub PropertyPage_ApplyChanges()
    SelectedControls(0).FileName = txtFileName.Text
End Sub


Private Sub PropertyPage_SelectionChanged()
    txtFileName.Text = SelectedControls(0).FileName
End Sub