引数を省略なんてしていないんですが…。

解決

肌水 2005-09-01 20:04:52 No: 124659

質問です。
「すべての対象の置換をする」というボタンをつくろうとしているのですが

まず、１つを置換するコード
Private Sub cmdReplace_Click(Index As Integer)
    Dim InputStr As String
    Dim SearchStr As String
    Dim ReplaceStr As String
    Dim SearchStart As Long
    Dim FindStrStart As Long

    SearchStr = txtSearch.Text
    ReplaceStr = txtReplace.Text

    '置換の処理
    If frmMDI.ActiveForm.txtEdit.SelText = SearchStr Then
        frmMDI.ActiveForm.txtEdit.SelText = ReplaceStr
        SearchStart = frmMDI.ActiveForm.txtEdit.SelStart + Len(ReplaceStr) + 1
    Else
        SearchStart = frmMDI.ActiveForm.txtEdit.SelStart + 1
    End If

    '検索の開始
    InputStr = frmMDI.ActiveForm.txtEdit.Text
    FindStrStart = InStr(SearchStart, InputStr, SearchStr)

    '検索結果の処理
    If FindStrStart > 0 Then
        frmMDI.ActiveForm.txtEdit.SelStart = FindStrStart - 1
        frmMDI.ActiveForm.txtEdit.SelLength = Len(SearchStr)
        ReplaceAllFlag = True

    Else
        MsgBox "文章の検索と置換が終りました。", vbInformation
        ReplaceAllFlag = False

    End If

    frmMDI.ActiveForm.SetFocus

End Sub

で、こっちが全ての対象を置換するコード

Private Sub cmdReplaceAll_Click(Index As Integer)
    'カーソル位置の初期化
    frmMDI.ActiveForm.txtEdit.SelStart = 0

    '置換の開始
    ReplaceAllFlag = True
    Do Until ReplaceAllFlag = False
    cmdReplace_Click  'ここにエラーが出ます
    Loop

End Sub

cmdReplace_Click 'ここにエラーが出ます
に対して「引数は省略できません」とでます。
自分的には、エラーが出るところのイベント名が「cmdReplaceAll_Click」
の為、「cmdReplace_Click」が「All」を省略しているとみなされ
このようなエラーが出ると思うのですが、参考書ではこれでできているので
疑問に思い質問しました。
コードの書き写しはないと思います。
低レベルな質問ですが、よろしかったら教えてください！

Blue 2005-09-01 20:09:35 No: 124660

> cmdReplace_Click 'ここにエラーが出ます
cmdReplace_Clickは
> Private Sub cmdReplace_Click(Index As Integer)
なので引数が必要です。

>引数を省略なんてしていないんですが…。
思いっきり省略しまいますが。

肌水 2005-09-01 20:15:31 No: 124661

なるほど！！！
たしかにしてますね…おはずかしい＞＜

即効レスありがとうございました！
感謝ですm(_)m

いな 2005-09-01 20:24:36 No: 124662

>先のレスでBlueさんが回答していますが、

おそらく、
cmdReplaceAll_Clickがコントロール配列になっているので、
コピーして名前を変更したんでしょうなぁ〜

コントロール配列を意識できていないということは、
余りお勧めできないやり方ですが、
Call cmdReplace_Click(0)

で動くはずです。が、私ならば絶対にやら無いやり方です。

肌水 2005-09-01 21:59:17 No: 124663

cmdReplace_Click(0)
で動きました！

Integerだから数字を入れようって安易な発想ですが…。
やっぱりよくなさそうですねorz

コントロール配列についてダッシュで調べてきました！
コントロール配列にするためには…一度コマンドボタン消してから作らないといけなさそうですね…。
コードはコピーでとっておけるし、作り直してみます！
助言ありがとうございました＾＾

Cpon 2005-09-01 23:05:28 No: 124664

作り直さなくても、プロパティウィンドウのIndexに0から順番に値を入れていけばOKのはず。

いな 2005-09-01 23:37:36 No: 124665

>一度コマンドボタン消してから作らないといけなさそうですね…。
コマンドボタンではなく、コマンドボタンのIndexプロパティの値を削除して
後は、
Private Sub cmdReplace_Click(Index As Integer)
を
Private Sub cmdReplace_Click
に変更すれば良かったと思う。

肌水 2005-09-01 23:48:54 No: 124666

解決しました！
逆にコントロール配列になっていると、引数が省略できず、参考書のようなコードじゃエラーがでてしまうみたいです。
Indexと、引数の関係がわかっておらず・・上司に熱弁されましたorz

Cponさんの方法で、INDEXはいれることができました！
本当にいろいろ勉強になりました、ありがとうございますm(_)m

ああ・・いまになって上の
>自分的には、エラーが出るところのイベント名が「cmdReplaceAll_Click」
の為、「cmdReplace_Click」が「All」を省略しているとみなされ
このようなエラーが出ると思うのですが、参考書ではこれでできているので
疑問に思い質問しました。
が恥ずかしくてしかたないorz