Format codes based on .editorconfig, Part 10

samples/snippets/visualbasic/VS_Snippets_CLR/conceptual.isolatedstorage/vb/source5.vb

@@ -22,8 +22,8 @@ Module Module1
                     Console.WriteLine("You have written to the file.")
                 End Using
             End Using
-        End If 
+        End If
     End Sub
 
 End Module
-'</snippet5>
+'</snippet5>

samples/snippets/visualbasic/VS_Snippets_CLR/conceptual.isolatedstorage/vb/source8.vb

@@ -29,7 +29,7 @@ Public class FindingExistingFilesAndDirectories
 
         GetAllDirectories("*", isoStore)
         For Each directory As String In directoryList
-           Console.WriteLine(directory)
+            Console.WriteLine(directory)
         Next
 
         Console.WriteLine()

samples/snippets/visualbasic/VS_Snippets_CLR/conceptual.localizability/vb/ismetric1.vb

@@ -5,15 +5,15 @@ Option Strict On
 Imports System.Globalization
 
 Module Example
-   Public Sub Main()
-      Dim cultureNames() As String = { "en-US", "en-GB", "fr-FR", 
-                                       "ne-NP", "es-BO", "ig-NG" }
-      For Each cultureName In cultureNames
-         Dim region As New RegionInfo(cultureName)
-         Console.WriteLine("{0} {1} the metric system.", region.EnglishName,
-                           If(region.IsMetric, "uses", "does not use"))
-      Next                                       
-   End Sub
+    Public Sub Main()
+        Dim cultureNames() As String = {"en-US", "en-GB", "fr-FR",
+                                         "ne-NP", "es-BO", "ig-NG"}
+        For Each cultureName In cultureNames
+            Dim region As New RegionInfo(cultureName)
+            Console.WriteLine("{0} {1} the metric system.", region.EnglishName,
+                              If(region.IsMetric, "uses", "does not use"))
+        Next
+    End Sub
 End Module
 ' The example displays the following output:
 '       United States does not use the metric system.

samples/snippets/visualbasic/VS_Snippets_CLR/conceptual.observerdesign.howto/vb/data.vb

@@ -1,23 +1,23 @@
 ' <Snippet1>
 Public Structure Temperature
-   Private temp As Decimal
-   Private tempDate As DateTime
+    Private temp As Decimal
+    Private tempDate As DateTime
 
-   Public Sub New(ByVal temperature As Decimal, ByVal dateAndTime As DateTime)
-      Me.temp = temperature
-      Me.tempDate = dateAndTime
-   End Sub
+    Public Sub New(ByVal temperature As Decimal, ByVal dateAndTime As DateTime)
+        Me.temp = temperature
+        Me.tempDate = dateAndTime
+    End Sub
 
-   Public ReadOnly Property Degrees As Decimal
-      Get
-         Return Me.temp
-      End Get
-   End Property
+    Public ReadOnly Property Degrees As Decimal
+        Get
+            Return Me.temp
+        End Get
+    End Property
 
-   Public ReadOnly Property [Date] As DateTime
-      Get
-         Return tempDate
-      End Get
-   End Property
+    Public ReadOnly Property [Date] As DateTime
+        Get
+            Return tempDate
+        End Get
+    End Property
 End Structure
 ' </Snippet1>

samples/snippets/visualbasic/VS_Snippets_CLR/conceptual.observerdesign.howto/vb/module1.vb

@@ -1,10 +1,10 @@
 Module Module1
-   Sub Main()
-      Dim provider As New TemperatureMonitor()
-      Dim observer1 As New TemperatureReporter()
-      observer1.Subscribe(provider)
-      Dim observer2 As New TemperatureReporter()
-      observer2.Subscribe(provider)
-      provider.GetTemperature()
-   End Sub
+    Sub Main()
+        Dim provider As New TemperatureMonitor()
+        Dim observer1 As New TemperatureReporter()
+        observer1.Subscribe(provider)
+        Dim observer2 As New TemperatureReporter()
+        observer2.Subscribe(provider)
+        provider.GetTemperature()
+    End Sub
 End Module

samples/snippets/visualbasic/VS_Snippets_CLR/conceptual.observerdesign.howto/vb/observer.vb

@@ -2,42 +2,42 @@
 ' <Snippet9>
 ' <Snippet8>
 Public Class TemperatureReporter : Implements IObserver(Of Temperature)
-   ' </Snippet8>
+    ' </Snippet8>
 
-   Private unsubscriber As IDisposable
-   Private first As Boolean = True
-   Private last As Temperature
+    Private unsubscriber As IDisposable
+    Private first As Boolean = True
+    Private last As Temperature
 
-   Public Overridable Sub Subscribe(ByVal provider As IObservable(Of Temperature))
-      unsubscriber = provider.Subscribe(Me)
-   End Sub
-   ' </Snippet9>
+    Public Overridable Sub Subscribe(ByVal provider As IObservable(Of Temperature))
+        unsubscriber = provider.Subscribe(Me)
+    End Sub
+    ' </Snippet9>
 
-   ' <Snippet10>
-   Public Overridable Sub Unsubscribe()
-      unsubscriber.Dispose()
-   End Sub
-   ' </Snippet10>
+    ' <Snippet10>
+    Public Overridable Sub Unsubscribe()
+        unsubscriber.Dispose()
+    End Sub
+    ' </Snippet10>
 
-   ' <Snippet11>
-   Public Overridable Sub OnCompleted() Implements System.IObserver(Of Temperature).OnCompleted
-      Console.WriteLine("Additional temperature data will not be transmitted.")
-   End Sub
+    ' <Snippet11>
+    Public Overridable Sub OnCompleted() Implements System.IObserver(Of Temperature).OnCompleted
+        Console.WriteLine("Additional temperature data will not be transmitted.")
+    End Sub
 
-   Public Overridable Sub OnError(ByVal [error] As System.Exception) Implements System.IObserver(Of Temperature).OnError
-      ' Do nothing.
-   End Sub
+    Public Overridable Sub OnError(ByVal [error] As System.Exception) Implements System.IObserver(Of Temperature).OnError
+        ' Do nothing.
+    End Sub
 
-   Public Overridable Sub OnNext(ByVal value As Temperature) Implements System.IObserver(Of Temperature).OnNext
-      Console.WriteLine("The temperature is {0}°C at {1:g}", value.Degrees, value.Date)
-      If first Then
-         last = value
-         first = False
-      Else
-         Console.WriteLine("   Change: {0}° in {1:g}", value.Degrees - last.Degrees,
-                                                       value.Date.ToUniversalTime - last.Date.ToUniversalTime)
-      End If
-   End Sub
-   ' </Snippet11>
+    Public Overridable Sub OnNext(ByVal value As Temperature) Implements System.IObserver(Of Temperature).OnNext
+        Console.WriteLine("The temperature is {0}°C at {1:g}", value.Degrees, value.Date)
+        If first Then
+            last = value
+            first = False
+        Else
+            Console.WriteLine("   Change: {0}° in {1:g}", value.Degrees - last.Degrees,
+                                                          value.Date.ToUniversalTime - last.Date.ToUniversalTime)
+        End If
+    End Sub
+    ' </Snippet11>
 End Class
 ' </Snippet12>

samples/snippets/visualbasic/VS_Snippets_CLR/conceptual.observerdesign.howto/vb/provider.vb

@@ -6,69 +6,69 @@ Imports System.Collections.Generic
 
 
 Public Class TemperatureMonitor : Implements IObservable(Of Temperature)
-   ' </Snippet2>
-   Dim observers As List(Of IObserver(Of Temperature))
+    ' </Snippet2>
+    Dim observers As List(Of IObserver(Of Temperature))
 
-   Public Sub New()
-      observers = New List(Of IObserver(Of Temperature))
-   End Sub
-   ' </Snippet3>
+    Public Sub New()
+        observers = New List(Of IObserver(Of Temperature))
+    End Sub
+    ' </Snippet3>
 
-   ' <Snippet4>
-   Private Class Unsubscriber : Implements IDisposable
-      Private _observers As List(Of IObserver(Of Temperature))
-      Private _observer As IObserver(Of Temperature)
+    ' <Snippet4>
+    Private Class Unsubscriber : Implements IDisposable
+        Private _observers As List(Of IObserver(Of Temperature))
+        Private _observer As IObserver(Of Temperature)
 
-      Public Sub New(ByVal observers As List(Of IObserver(Of Temperature)), ByVal observer As IObserver(Of Temperature))
-         Me._observers = observers
-         Me._observer = observer
-      End Sub
+        Public Sub New(ByVal observers As List(Of IObserver(Of Temperature)), ByVal observer As IObserver(Of Temperature))
+            Me._observers = observers
+            Me._observer = observer
+        End Sub
 
-      Public Sub Dispose() Implements IDisposable.Dispose
-         If _observer IsNot Nothing Then _observers.Remove(_observer)
-      End Sub
-   End Class
-   ' </Snippet4>
+        Public Sub Dispose() Implements IDisposable.Dispose
+            If _observer IsNot Nothing Then _observers.Remove(_observer)
+        End Sub
+    End Class
+    ' </Snippet4>
 
-   ' <Snippet5>
-   Public Function Subscribe(ByVal observer As System.IObserver(Of Temperature)) As System.IDisposable Implements System.IObservable(Of Temperature).Subscribe
-      If Not observers.Contains(observer) Then
-         observers.Add(observer)
-      End If
-      Return New Unsubscriber(observers, observer)
-   End Function
-   ' </Snippet5>
+    ' <Snippet5>
+    Public Function Subscribe(ByVal observer As System.IObserver(Of Temperature)) As System.IDisposable Implements System.IObservable(Of Temperature).Subscribe
+        If Not observers.Contains(observer) Then
+            observers.Add(observer)
+        End If
+        Return New Unsubscriber(observers, observer)
+    End Function
+    ' </Snippet5>
 
-   ' <Snippet6>
-   Public Sub GetTemperature()
-      ' Create an array of sample data to mimic a temperature device.
-      Dim temps() As Nullable(Of Decimal) = {14.6D, 14.65D, 14.7D, 14.9D, 14.9D, 15.2D, 15.25D, 15.2D,
-                                            15.4D, 15.45D, Nothing}
-      ' Store the previous temperature, so notification is only sent after at least .1 change.
-      Dim previous As Nullable(Of Decimal)
-      Dim start As Boolean = True
+    ' <Snippet6>
+    Public Sub GetTemperature()
+        ' Create an array of sample data to mimic a temperature device.
+        Dim temps() As Nullable(Of Decimal) = {14.6D, 14.65D, 14.7D, 14.9D, 14.9D, 15.2D, 15.25D, 15.2D,
+                                              15.4D, 15.45D, Nothing}
+        ' Store the previous temperature, so notification is only sent after at least .1 change.
+        Dim previous As Nullable(Of Decimal)
+        Dim start As Boolean = True
 
-      For Each temp In temps
-         System.Threading.Thread.Sleep(2500)
+        For Each temp In temps
+            System.Threading.Thread.Sleep(2500)
 
-         If temp.HasValue Then
-            If start OrElse Math.Abs(temp.Value - previous.Value) >= 0.1 Then
-               Dim tempData As New Temperature(temp.Value, Date.Now)
-               For Each observer In observers
-                  observer.OnNext(tempData)
-               Next
-               previous = temp
-               If start Then start = False
+            If temp.HasValue Then
+                If start OrElse Math.Abs(temp.Value - previous.Value) >= 0.1 Then
+                    Dim tempData As New Temperature(temp.Value, Date.Now)
+                    For Each observer In observers
+                        observer.OnNext(tempData)
+                    Next
+                    previous = temp
+                    If start Then start = False
+                End If
+            Else
+                For Each observer In observers.ToArray()
+                    If observer IsNot Nothing Then observer.OnCompleted()
+                Next
+                observers.Clear()
+                Exit For
             End If
-         Else
-            For Each observer In observers.ToArray()
-               If observer IsNot Nothing Then observer.OnCompleted()
-            Next
-            observers.Clear()
-            Exit For
-         End If
-      Next
-   End Sub
-   ' </Snippet6>
+        Next
+    End Sub
+    ' </Snippet6>
 End Class
-' </Snippet7>
+' </Snippet7>

samples/snippets/visualbasic/VS_Snippets_CLR/conceptual.observerdesignpattern/vb/module1.vb

@@ -1,22 +1,22 @@
 ' <Snippet5>
 Module Example
-   Public Sub Main()
-      Dim provider As New BaggageHandler()
-      Dim observer1 As New ArrivalsMonitor("BaggageClaimMonitor1")
-      Dim observer2 As New ArrivalsMonitor("SecurityExit")
+    Public Sub Main()
+        Dim provider As New BaggageHandler()
+        Dim observer1 As New ArrivalsMonitor("BaggageClaimMonitor1")
+        Dim observer2 As New ArrivalsMonitor("SecurityExit")
 
-      provider.BaggageStatus(712, "Detroit", 3)
-      observer1.Subscribe(provider)
-      provider.BaggageStatus(712, "Kalamazoo", 3)
-      provider.BaggageStatus(400, "New York-Kennedy", 1)
-      provider.BaggageStatus(712, "Detroit", 3)
-      observer2.Subscribe(provider)
-      provider.BaggageStatus(511, "San Francisco", 2)
-      provider.BaggageStatus(712)
-      observer2.Unsubscribe()
-      provider.BaggageStatus(400)
-      provider.LastBaggageClaimed()
-   End Sub
+        provider.BaggageStatus(712, "Detroit", 3)
+        observer1.Subscribe(provider)
+        provider.BaggageStatus(712, "Kalamazoo", 3)
+        provider.BaggageStatus(400, "New York-Kennedy", 1)
+        provider.BaggageStatus(712, "Detroit", 3)
+        observer2.Subscribe(provider)
+        provider.BaggageStatus(511, "San Francisco", 2)
+        provider.BaggageStatus(712)
+        observer2.Unsubscribe()
+        provider.BaggageStatus(400)
+        provider.LastBaggageClaimed()
+    End Sub
 End Module
 ' The example displays the following output:
 '      Arrivals information from BaggageClaimMonitor1