(誤) ■Win32 API宣言について　本書で使用しているAPI関数の宣言などは、ひとつのファイルにまとめてあります。

(正) ■Win32 API宣言について　本書で使用しているAPI関数の宣言などは、ひとつのファイル(本書付録のCD-ROM \declare\VB300ACW.bas)にまとめてあります。

(誤) Win32 APIを利用するためには、C言語で記述された宣言を、Visual Basic向けに宣言し直さなければなりません。その際には、いくつかの規則に従う必要があります。

(正) Win32 APIを利用するためには、C言語で記述された宣言を、Visual Basic向けに宣言し直さなければなりません。その際には、いくつかの規則に従う必要があります。本書で使用しているAPI関数の宣言などは、本書付録のCD-ROM \declare\VB300ACW.basにまとめてありますので、参考にしてください。

162{中}フォルダ選択ダイアログの初期フォルダを設定する

    ' 選択するフォルダを指定
    strSelectFolder = _
        StrConv(strFolderName, _
                vbFromUnicode)

    ' 選択するフォルダを指定
    strSelectFolder = strFolderName

162{中}フォルダ選択ダイアログの初期フォルダを設定する

    ' 選択状態にするフォルダを示すアドレスを指定
    .lParam = StrPtr(strSelectFolder)

    ' 選択状態にするフォルダを示すアドレスを指定
    .lParam = StrPtr(StrConv(strSelectFolder, _
                             vbFromUnicode))

　　　　　　　　　　(誤)　　　　　(正)
ndw092.vbp　ndw099.frm　ndw092.frm
ndw093.vbp　ndw100.frm　ndw093.frm
ndw094.vbp　ndw092.frm　ndw094.frm
ndw095.vbp　ndw093.frm　ndw095.frm
ndw096.vbp　ndw094.frm　ndw096.frm
ndw097.vbp　ndw095.frm　ndw097.frm
ndw100.vbp　ndw098.frm　ndw100.frm

Private Sub Form_Load()
     ' Activateイベントで処理を行うためのフラグを設定
     Me.Tag = "Loading"
End Sub
 
Private Sub Form_Activate()
    ' 初回起動時のみ、Activateイベントで処理を行う
    If Me.Tag = "Loading" Then
        With Data1.Recordset
            .MoveLast
            lTotalRecords = .RecordCount
            .MoveFirst
        End With
        updateButtons True
        ' フラグをクリア
        Me.Tag = ""
    End If
End Sub

' 1文字ずつ確認する例
Function SrchReplace(ByVal sStringToFix As String) As String
     Dim iPosition As Integer        '問題のある文字の位置
     Dim sCharToReplace As String    '探す文字
     Dim sReplaceWith As String      '置き換える文字
     Dim sTempChar As String         '検査する文字
     Dim sTempString As String       '加工後の文字列
 
     sCharToReplace = "'"
     sReplaceWith = "''"
 
     For iPosition = 1 To Len(sStringToFix)
         sTempChar = Mid(sStringToFix, iPosition, 1)
         If sTempChar = sCharToReplace Then
             sTempString = sTempString & sReplaceWith
         Else
             sTempString = sTempString & sTempChar
         End If
     Next iPosition
     
     SrchReplace = sTempString
End Function
 
' Replace()関数を利用する例
Function SrchReplace(ByVal sStringToFix As String) As String
     SrchReplace = Replace(sStringToFix, "'", "''")
End Function