diff --git a/snippets/csharp/System/IDisposable/Overview/base1.cs b/snippets/csharp/System/IDisposable/Overview/base1.cs index 12c4d02c721..d36a0356ad8 100644 --- a/snippets/csharp/System/IDisposable/Overview/base1.cs +++ b/snippets/csharp/System/IDisposable/Overview/base1.cs @@ -1,14 +1,14 @@ // -using Microsoft.Win32.SafeHandles; using System; +using System.IO; using System.Runtime.InteropServices; class BaseClass1 : IDisposable { // Flag: Has Dispose already been called? bool disposed = false; - // Instantiate a SafeHandle instance. - SafeHandle handle = new SafeFileHandle(IntPtr.Zero, true); + // Instantiate a FileStream instance. + FileStream fs = new FileStream("test.txt", FileMode.OpenOrCreate); // Public implementation of Dispose pattern callable by consumers. public void Dispose() @@ -25,7 +25,7 @@ protected virtual void Dispose(bool disposing) if (disposing) { - handle.Dispose(); + fs.Dispose(); // Free any other managed objects here. // } diff --git a/snippets/csharp/System/IDisposable/Overview/derived1.cs b/snippets/csharp/System/IDisposable/Overview/derived1.cs index 96368903bef..a31a5b55085 100644 --- a/snippets/csharp/System/IDisposable/Overview/derived1.cs +++ b/snippets/csharp/System/IDisposable/Overview/derived1.cs @@ -1,14 +1,14 @@ // -using Microsoft.Win32.SafeHandles; using System; +using System.IO; using System.Runtime.InteropServices; class MyDerivedClass : MyBaseClass { // Flag: Has Dispose already been called? bool disposed = false; - // Instantiate a SafeHandle instance. - SafeHandle handle = new SafeFileHandle(IntPtr.Zero, true); + // Instantiate a FileStream instance. + FileStream fs = new FileStream("test.txt", FileMode.OpenOrCreate); // Protected implementation of Dispose pattern. protected override void Dispose(bool disposing) @@ -18,7 +18,7 @@ protected override void Dispose(bool disposing) if (disposing) { - handle.Dispose(); + fs.Dispose(); // Free any other managed objects here. // } diff --git a/snippets/fsharp/System/IDisposable/Overview/base1.fs b/snippets/fsharp/System/IDisposable/Overview/base1.fs index 11a1b13200c..00a9713d498 100644 --- a/snippets/fsharp/System/IDisposable/Overview/base1.fs +++ b/snippets/fsharp/System/IDisposable/Overview/base1.fs @@ -1,15 +1,15 @@ module base1 // -open Microsoft.Win32.SafeHandles open System +open System.IO type BaseClass1() = // Flag: Has Dispose already been called? let mutable disposed = false - // Instantiate a SafeHandle instance. - let handle = new SafeFileHandle(IntPtr.Zero, true) + // Instantiate a FileStream instance. + let fs = new FileStream("test.txt", FileMode.OpenOrCreate) interface IDisposable with // Public implementation of Dispose pattern callable by consumers. @@ -22,8 +22,8 @@ type BaseClass1() = override _.Dispose(disposing) = if not disposed then if disposing then - handle.Dispose() + fs.Dispose() // Free any other managed objects here. disposed <- true -// \ No newline at end of file +// diff --git a/snippets/fsharp/System/IDisposable/Overview/derived1.fs b/snippets/fsharp/System/IDisposable/Overview/derived1.fs index 352c5a9c439..c3ecd78d5fa 100644 --- a/snippets/fsharp/System/IDisposable/Overview/derived1.fs +++ b/snippets/fsharp/System/IDisposable/Overview/derived1.fs @@ -1,5 +1,6 @@ module derived1 open System +open System.IO type MyBaseClass() = // Flag: Has Dispose already been called? @@ -30,18 +31,18 @@ type MyDerivedClass() = // Flag: Has Dispose already been called? let mutable disposed = false - // Instantiate a SafeHandle instance. - let handle = new SafeFileHandle(IntPtr.Zero, true) + // Instantiate a FileStream instance. + let fs = new FileStream("test.txt", FileMode.OpenOrCreate) // Implementation of Dispose pattern. override _.Dispose(disposing) = if not disposed then if disposing then - handle.Dispose() + fs.Dispose() // Free any other managed objects here. // Free any unmanaged objects here. disposed <- true // Call base class implementation. base.Dispose disposing -// \ No newline at end of file +// diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.idisposable/vb/IDisposableSnippets.vbproj b/snippets/visualbasic/VS_Snippets_CLR_System/system.idisposable/vb/IDisposableSnippets.vbproj new file mode 100644 index 00000000000..dbc151713b6 --- /dev/null +++ b/snippets/visualbasic/VS_Snippets_CLR_System/system.idisposable/vb/IDisposableSnippets.vbproj @@ -0,0 +1,7 @@ + + + + net6.0 + + + diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.idisposable/vb/base1.vb b/snippets/visualbasic/VS_Snippets_CLR_System/system.idisposable/vb/base1.vb index 2a0a882453d..f0e4b14ce75 100644 --- a/snippets/visualbasic/VS_Snippets_CLR_System/system.idisposable/vb/base1.vb +++ b/snippets/visualbasic/VS_Snippets_CLR_System/system.idisposable/vb/base1.vb @@ -2,14 +2,14 @@ Option Strict On ' -Imports Microsoft.Win32.SafeHandles +Imports System.IO Imports System.Runtime.InteropServices -Class BaseClass : Implements IDisposable +Class BaseClass1 : Implements IDisposable ' Flag: Has Dispose already been called? Dim disposed As Boolean = False - ' Instantiate a SafeHandle instance. - Dim handle As SafeHandle = New SafeFileHandle(IntPtr.Zero, True) + ' Instantiate a FileStream instance. + Dim fs As FileStream = New FileStream("test.txt", FileMode.OpenOrCreate) ' Public implementation of Dispose pattern callable by consumers. Public Sub Dispose() _ @@ -23,7 +23,7 @@ Class BaseClass : Implements IDisposable If disposed Then Return If disposing Then - handle.Dispose() + fs.Dispose() ' Free any other managed objects here. ' End If diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.idisposable/vb/calling2.vb b/snippets/visualbasic/VS_Snippets_CLR_System/system.idisposable/vb/calling2.vb index d1e788de6ca..75957b80d32 100644 --- a/snippets/visualbasic/VS_Snippets_CLR_System/system.idisposable/vb/calling2.vb +++ b/snippets/visualbasic/VS_Snippets_CLR_System/system.idisposable/vb/calling2.vb @@ -5,7 +5,7 @@ Option Strict On Imports System.IO Imports System.Text.RegularExpressions -Public Class WordCount +Public Class WordCount2 Private filename As String Private nWords As Integer Private pattern As String = "\b\w+\b" @@ -47,9 +47,9 @@ Public Class WordCount End Class ' -Public Module Example +Public Module Example2 Public Sub Main() - Dim wc As New WordCount("C:\users\ronpet\documents\Fr_Mike_Mass.txt") + Dim wc As New WordCount2("C:\users\ronpet\documents\Fr_Mike_Mass.txt") Console.WriteLine("File {0} ({1}) has {2} words", wc.Name, wc.FullName, wc.Count) End Sub diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.idisposable/vb/derived1.vb b/snippets/visualbasic/VS_Snippets_CLR_System/system.idisposable/vb/derived1.vb index d907941b029..1bf423286cd 100644 --- a/snippets/visualbasic/VS_Snippets_CLR_System/system.idisposable/vb/derived1.vb +++ b/snippets/visualbasic/VS_Snippets_CLR_System/system.idisposable/vb/derived1.vb @@ -2,21 +2,21 @@ Option Strict On ' -Imports Microsoft.Win32.SafeHandles +Imports System.IO Imports System.Runtime.InteropServices -Class DerivedClass : Inherits BaseClass +Class DerivedClass2 : Inherits BaseClass2 ' Flag: Has Dispose already been called? Dim disposed As Boolean = False - ' Instantiate a SafeHandle instance. - Dim handle As SafeHandle = New SafeFileHandle(IntPtr.Zero, True) + ' Instantiate a FileStream instance. + Dim fs As FileStream = New FileStream("test.txt", FileMode.OpenOrCreate) ' Protected implementation of Dispose pattern. Protected Overrides Sub Dispose(disposing As Boolean) If disposed Then Return If disposing Then - handle.Dispose() + fs.Dispose() ' Free any other managed objects here. ' End If @@ -31,7 +31,7 @@ Class DerivedClass : Inherits BaseClass End Class ' -Class BaseClass : Implements IDisposable +Class BaseClass2 : Implements IDisposable ' Flag: Has Dispose already been called? Dim disposed As Boolean = False diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.idisposable/vb/derived2.vb b/snippets/visualbasic/VS_Snippets_CLR_System/system.idisposable/vb/derived2.vb index 7ecf14c85b6..51ab6a3f872 100644 --- a/snippets/visualbasic/VS_Snippets_CLR_System/system.idisposable/vb/derived2.vb +++ b/snippets/visualbasic/VS_Snippets_CLR_System/system.idisposable/vb/derived2.vb @@ -2,7 +2,7 @@ Option Strict On ' -Class DerivedClass : Inherits BaseClass +Class DerivedClass : Inherits BaseClass3 ' Flag: Has Dispose already been called? Dim disposed As Boolean = False @@ -29,7 +29,7 @@ Class DerivedClass : Inherits BaseClass End Class ' -Class BaseClass : Implements IDisposable +Class BaseClass3 : Implements IDisposable ' Flag: Has Dispose already been called? Dim disposed As Boolean = False