C# と VB.NET の質問掲示板

> 基になるstreamを閉じないようにする方法はあるのでしょうか？

↓つくればあるもーん...てゆーおためし

Imports System.IO

Namespace Trial
    Public Class NonCloseStreamRader : Inherits StreamReader
        Public Sub New(ByVal strm As Stream)
            MyBase.New(strm)
        End Sub
        Public Overrides Sub Close()
            Console.WriteLine("CloseしないYO!")
        End Sub
        Public Sub DoClose()
            MyBase.Close()
        End Sub
    End Class
End Namespace

Module Module1

    Sub Main()
        Dim strm As FileStream = File.OpenRead("Module1.vb")
        Dim reader As New Trial.NonCloseStreamRader(strm)
        Dim line As String

        Console.WriteLine("--- first 10 line")
        For I AS Integer = 1 To 10
          line = reader.ReadLine()
          Console.WriteLine(line)
        Next
        reader.Close() ' ---- Closeしなーい

        Console.WriteLine("--- rest of lines")
        Do
            line = reader.ReadLine()
            If line Is Nothing Then Exit Do
            Console.WriteLine(line)
        Loop

        reader.DoClose()

    End Sub

End Module

■No45190 (lain さん) に返信
> ただ、そうなると疑問に残る点はどうやれば自分のVBのバージョンを調べることができるのでしょう？

Visual Studio をお使いなら、そのバージョンが VB のバージョンを表しています。

Visual Studio 97        なら、VB5.0
Visual Studio 6.0       なら、VB6.0
Visual Studio .NET(2002)なら、VB2002 (VB 7.0)
Visual Studio .NET 2003 なら、VB2003 (VB 7.1)
Visual Studio 2005      なら、VB2005 (VB 8.0)
Visual Studio 2008      なら、VB2008 (VB 9.0)
Visual Studio 2010      なら、VB2010 (VB 10.0)

# 一応 VB6 にも、Stream と呼ばれるものは幾つかありますが、
# VB6 で使われるオブジェクトは、.NET Framework のクラスではありません。


もし、プログラム的に判断したいのであれば、さほど正確ではありませんが、
 MsgBox( ScriptEngine & ":" _
       & CStr(ScriptEngineMajorVersion) & "." _
       & CStr(ScriptEngineMinorVersion) & "." _
       & CStr(ScriptEngineBuildVersion) )
を実行して、バージョン番号を調べる事ができます。

≪実行結果の例≫

VB.NET 2002 以降     … "VB:7.10.0" とか "VB:8.0.50727" など。(2005 と 2008 は区別できません)
VBScript 2.0 以降    … "VBScript:5.8.18702" など。(VBScript 1.0 ではエラー)
VB6以下 あるいは VBA … エラー。(ScriptEngine 等が未定義変数として扱われる)