ch04\PlaySnd.vbp {

{eG
~~~~~~~~~~~

Private Sub Command1_Click()
Dim wavFile As String, soundFlag As Long

wavFile = File1.Path
If Right(File1.Path, 1) <> "\" Then wavFile = wavFile & "\"
wavFile = File1.filename

soundFlag = IIf(optASYNC.Value, SND_ASYNC, SND_SYNC)
If chkLOOP Then soundFlag = soundFlag Or SND_LOOP
If chkNOSTOP Then soundFlag = soundFlag Or SND_NOSTOP

txtReturn = sndPlaySound(wavFile, soundFlag)
End Sub

󥿵GG
~~~~~~~~~~~

Private Sub Command1_Click()
Dim wavFile As String, soundFlag As Long

wavFile = File1.Path
If Right(File1.Path, 1) <> "\" Then wavFile = wavFile & "\"
wavFile = wavFile & File1.filename

soundFlag = IIf(optASYNC.Value, SND_ASYNC, SND_SYNC)
If chkLOOP Then soundFlag = soundFlag Or SND_LOOP
If chkNOSTOP Then soundFlag = soundFlag Or SND_NOSTOP

txtReturn = sndPlaySound(wavFile, soundFlag)
End Sub

ch08\ScrCap.vbp {
ch15\ScrCap.vbp {
ch15\ScrCap2.vbp {
ch15\ScrCap3.vbp {
ch15\ScrCap4.vbp {

{eG
~~~~~~~~~~~

Private Sub mSaveFile_Click()
   On Error Resume Next
   With CommonDialog1
      .DialogTitle = "xsɮ"
      .Filter = "I}(*.bmp)|*.bmp"
      .CancelError = True
      .ShowOpen
      If Err.Number <> cdlCancel Then
         SavePicture picCopy.Picture, .filename
      End If
   End With
End Sub

{eG
~~~~~~~~~~~

Private Sub mSaveFile_Click()
   On Error Resume Next
   With CommonDialog1
      .DialogTitle = "xsɮ"
      .Filter = "I}(*.bmp)|*.bmp"
      .CancelError = True
      .ShowSave
      If Err.Number <> cdlCancel Then
         SavePicture picCopy.Image, .filename
      End If
   End With
End Sub