Skip to content

Commit 7ee0b16

Browse files
authored
Added missing VB project. (dotnet#28995)
1 parent 1c262c6 commit 7ee0b16

File tree

6 files changed

+19
-11
lines changed

6 files changed

+19
-11
lines changed
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,8 @@
1+
<Project Sdk="Microsoft.NET.Sdk">
2+
3+
<PropertyGroup>
4+
<OutputType>Library</OutputType>
5+
<TargetFrameworks>net6.0</TargetFrameworks>
6+
</PropertyGroup>
7+
8+
</Project>

samples/snippets/visualbasic/VS_Snippets_CLR/conceptual.conversion/vb/convert1.vb

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
Option Strict On
22

3-
Public Module Example
3+
Public Module ConvertExample
44
Public Sub Main()
55
PerformConversions()
66
Console.WriteLine("-----")

samples/snippets/visualbasic/VS_Snippets_CLR/conceptual.conversion/vb/explicit1.vb

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
' Visual Basic .NET Document
22
Option Strict On
33

4-
Module Example
4+
Module ExplicitExample
55
Public Sub Main()
66
PerformIntegerConversion()
77
Console.WriteLine("-----")

samples/snippets/visualbasic/VS_Snippets_CLR/conceptual.conversion/vb/iconvertible1.vb

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
' Visual Basic .NET Document
22
Option Strict On
33

4-
Module Example
4+
Module ConvertibleExample
55
Public Sub Main()
66
CallEII()
77
Console.WriteLine("-----")

samples/snippets/visualbasic/VS_Snippets_CLR/conceptual.conversion/vb/iconvertible2.vb

+1-1
Original file line numberDiff line numberDiff line change
@@ -227,7 +227,7 @@ Public Class TemperatureFahrenheit : Inherits Temperature : Implements IConverti
227227
End Class
228228
' </Snippet10>
229229

230-
Module Example
230+
Module ConvertibleExampleTwo
231231
Public Sub Main()
232232
' <Snippet11>
233233
Dim tempC1 As New TemperatureCelsius(0)

samples/snippets/visualbasic/VS_Snippets_CLR/conceptual.conversion/vb/implicit1.vb

+7-7
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
' Visual Basic .NET Document
22
Option Strict On
33

4-
Module Example
4+
Module ImplicitExample
55
Public Sub Main()
66
PerformDecimalConversions()
77
Console.WriteLine("-----")
@@ -49,7 +49,7 @@ Module Example
4949
Private Sub PerformCustomConversions()
5050
' <Snippet3>
5151
Dim sbyteValue As SByte = -120
52-
Dim value As ByteWithSign = sbyteValue
52+
Dim value As ImplicitByteWithSign = sbyteValue
5353
Console.WriteLine(value.ToString())
5454
value = Byte.MaxValue
5555
Console.WriteLine(value.ToString())
@@ -61,19 +61,19 @@ Module Example
6161
End Module
6262

6363
' <Snippet2>
64-
Public Structure ByteWithSign
64+
Public Structure ImplicitByteWithSign
6565
Private signValue As SByte
6666
Private value As Byte
6767

68-
Public Overloads Shared Widening Operator CType(value As SByte) As ByteWithSign
69-
Dim newValue As ByteWithSign
68+
Public Overloads Shared Widening Operator CType(value As SByte) As ImplicitByteWithSign
69+
Dim newValue As ImplicitByteWithSign
7070
newValue.signValue = CSByte(Math.Sign(value))
7171
newValue.value = CByte(Math.Abs(value))
7272
Return newValue
7373
End Operator
7474

75-
Public Overloads Shared Widening Operator CType(value As Byte) As ByteWithSign
76-
Dim NewValue As ByteWithSign
75+
Public Overloads Shared Widening Operator CType(value As Byte) As ImplicitByteWithSign
76+
Dim NewValue As ImplicitByteWithSign
7777
newValue.signValue = 1
7878
newValue.value = value
7979
Return newValue

0 commit comments

Comments
 (0)