VB初心者友の会 - はじめたばかりの人専用Q&A掲示板過去ログ

> Ｗｉｔｈステートメントを、「Ｅｎｄ Ｗｉｔｈ」の記述無しで抜けても良いのでしょうか？
> 
> ＃ With Label
> ＃     .Caption="123"
> ＃     if ×××=〇〇〇 Then
> ＃        Exit Sub '極端な例ですが、この様に抜けてもＯＫ（影響なし）？
> ＃     End If
> ＃ End With

だめです。
「こんな失敗しました」の方に、Ｋａｔａさんの失敗談があります。

> > Ｗｉｔｈステートメントを、「Ｅｎｄ Ｗｉｔｈ」の記述無しで抜けても良いのでしょうか？
> だめです。
> 「こんな失敗しました」の方に、Ｋａｔａさんの失敗談があります。

なるほどありました。ありがとうございました。m(_ _)m

> Ｗｉｔｈステートメントを、「Ｅｎｄ Ｗｉｔｈ」の記述無しで抜けても良いのでしょうか？
> 
> ＃ With Label
> ＃     .Caption="123"
> ＃     if ×××=〇〇〇 Then
> ＃        Exit Sub '極端な例ですが、この様に抜けてもＯＫ（影響なし）？
> ＃     End If
> ＃ End With

何度もすいません。「Exit Sub」の場合は抜けても良いのではないでしょうか？
（「Exit Sub」の前に「End With」は、記述出来ないですよねぇ．．．？？？）

> > Ｗｉｔｈステートメントを、「Ｅｎｄ Ｗｉｔｈ」の記述無しで抜けても良いのでしょうか？
> > 
> > ＃ With Label
> > ＃     .Caption="123"
> > ＃     if ×××=〇〇〇 Then
> > ＃        Exit Sub '極端な例ですが、この様に抜けてもＯＫ（影響なし）？
> > ＃     End If
> > ＃ End With
> 
> 何度もすいません。「Exit Sub」の場合は抜けても良いのではないでしょうか？
> （「Exit Sub」の前に「End With」は、記述出来ないですよねぇ．．．？？？）

良いと思います。
私は当たった事無いです。

−−−−−−−−−−−−−−−−
Ｇｏ！Ｇｏ！Ｖ友！　○(⌒o ⌒)。
Ｖ友応援会　お茶くみ　ちゃっぴぃ

> 何度もすいません。「Exit Sub」の場合は抜けても良いのではないでしょうか？
> （「Exit Sub」の前に「End With」は、記述出来ないですよねぇ．．．？？？）

もちろん、

    With Label
        .Caption="123"
        if ×××=〇〇〇 Then
           End With '<-- ここ
           Exit Sub
        End If
    End With

こんな風にはかけませんが、オンラインヘルプにあるように、「End With ステートメントを呼び出
さずに With 制御構造外のステートメントを呼び出すことはできない」のですから、With制御構造
内で、Ifステートメントなどを使う事がそもそもいけないのでは？
つまり、「Withステートメントを通ったら、End Withステートメントを*必ず*通らなければならな
いし、その間に別の制御構造が入ってはならない」と言う事です。

ですから、あえて書き直すなら

    With Label
        .Caption="123"
    End With
    if ×××=〇〇〇 Then
       Exit Sub
    End If

のように、Ifステートメントによる制御構造自体を、Withの外に出すしかないです。

Zeroさん、ちゃっぴぃさん、色々とご意見ありがとうございました。

そーですね。 「End With」を必ず通る様、心掛ける事が本来のルールですね。

有難うございました。

> > 何度もすいません。「Exit Sub」の場合は抜けても良いのではないでしょうか？
> > （「Exit Sub」の前に「End With」は、記述出来ないですよねぇ．．．？？？）
> 
> もちろん、
> 
>     With Label
>         .Caption="123"
>         if ×××=〇〇〇 Then
>            End With '<-- ここ
>            Exit Sub
>         End If
>     End With
> 
> こんな風にはかけませんが、オンラインヘルプにあるように、「End With ステートメントを呼び出
> さずに With 制御構造外のステートメントを呼び出すことはできない」のですから、With制御構造
> 内で、Ifステートメントなどを使う事がそもそもいけないのでは？
> つまり、「Withステートメントを通ったら、End Withステートメントを*必ず*通らなければならな
> いし、その間に別の制御構造が入ってはならない」と言う事です。
> 
> ですから、あえて書き直すなら
> 
>     With Label
>         .Caption="123"
>     End With
>     if ×××=〇〇〇 Then
>        Exit Sub
>     End If
> 
> のように、Ifステートメントによる制御構造自体を、Withの外に出すしかないです。

マニュアルの読み方間違ってました。
Zeroさんの言われる事が正しいですね。
失礼しました。
私、結構このまずいコーディングしてる気配。（苦笑）
まだ一度も、「こんな失敗」の様なエラーは出てませんけど。

それとちょっと疑問なのですが、必ずEnd Withを通らないといけないという事は
On Error GoTo XXXX を使用しているSub等ではWithは使えないのでしょうか？
With以下でランタイムエラーが発生してしまうとEnd Withは通りませんし。
うーん。私は結構安易にWithを使ってたんだなぁ。（→。←）

−−−−−−−−−−−−−−−−
Ｇｏ！Ｇｏ！Ｖ友！　○(⌒o ⌒)。
Ｖ友応援会　お茶くみ　ちゃっぴぃ

> オンラインヘルプにあるように、「End With ステートメントを呼び出さずに
>  With 制御構造外のステートメントを呼び出すことはできない」のですから、
このあたりの表現がわかりにくいということからか、
最近のヘルプだと、言い回しを換えて来たようですね。(^^;

「制御構造内（外）」という表現を止めて、「Withブロックへの（からの）ジャンプ」という表現に
変化しているようです。

MSDN Library 1999年 07月リリース版 日本語マニュアルより引用：VBS Withステートメント
≫ With ブロックの中に別の With ブロックを配置すると、With ステートメントをネストできます。
≫ ただし、外側の With ブロックのメンバは内側の With ブロックに対してはマスクされているので、
≫ 内側の With ブロックのオブジェクト参照を外側の With ブロックに含まれている
≫ オブジェクトのメンバに渡すときは、完全に修飾しなければなりません。
≫ 
≫ 重要  With ブロックへのジャンプも With ブロックからのジャンプも行わないでください。
≫ With ブロックのステートメントは実行されますが、With ステートメントまたは
≫ End With ステートメントが実行されません。その結果、エラーや予想外の動作が
≫ 発生することがあります。