Skip to content

VB snippet folder cleanup #11717

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 7 commits into from
Aug 21, 2025
Merged

VB snippet folder cleanup #11717

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
7 commits
Select commit Hold shift + click to select a range
8ef1e4e
delete unneeded snippet folders VS_Snippets_CLR
gewarren Aug 20, 2025
ef12ac4
delete unused vb snippets
gewarren Aug 21, 2025
16c5959
move some snippets
gewarren Aug 21, 2025
8ee2426
reinstate and move
gewarren Aug 21, 2025
ddefeda
fix snippets 5000 errors
gewarren Aug 21, 2025
f8753e2
fix path typo
gewarren Aug 21, 2025
88fd430
fix snippets 5000 errors
gewarren Aug 21, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
0 ...Info.CurrentCulture2/VB/currentculture.vb → ...tureInfo/CurrentCulture/currentculture.vb
View file
Open in desktop
File renamed without changes.
0 ....CurrentCulture2/VB/currentculture.vbproj → ...Info/CurrentCulture/currentculture.vbproj
View file
Open in desktop
File renamed without changes.
8 changes: 8 additions & 0 deletions snippets/visualbasic/System.Reflection.Emit/ILGenerator/EmitCall/Project.vbproj
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,8 @@
<Project Sdk="Microsoft.NET.Sdk">

<PropertyGroup>
<OutputType>Exe</OutputType>
<TargetFramework>net481</TargetFramework>
</PropertyGroup>

</Project>
0 ...nippets_CLR/Emit.ArgIterator/vb/source.vb → ...ction.Emit/ILGenerator/EmitCall/source.vb
View file
Open in desktop
File renamed without changes.
8 changes: 8 additions & 0 deletions snippets/visualbasic/System.Runtime.InteropServices/Marshal/GetActiveObject/Project.vbproj
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,8 @@
<Project Sdk="Microsoft.NET.Sdk">

<PropertyGroup>
<OutputType>Exe</OutputType>
<TargetFramework>net481</TargetFramework>
</PropertyGroup>

</Project>
0 ...ctiveobject/vb/marshal.getactiveobject.vb → ...etActiveObject/marshal.getactiveobject.vb
View file
Open in desktop
File renamed without changes.
2 changes: 1 addition & 1 deletion snippets/visualbasic/System/Array/Clear/Project.vbproj
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@

<PropertyGroup>
<OutputType>Exe</OutputType>
<TargetFramework>net8.0</TargetFramework>
<TargetFramework>net9.0</TargetFramework>
</PropertyGroup>

</Project>
0 ...VS_Snippets_CLR/exception.data/VB/data.vb → ...visualbasic/System/Exception/Data/data.vb
View file
Open in desktop
File renamed without changes.
2 changes: 1 addition & 1 deletion ...tography.RC2.Create.Memory/project.csproj → ...asic/System/Exception/Data/project.vbproj
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@

<PropertyGroup>
<OutputType>Library</OutputType>
<TargetFramework>net6.0</TargetFramework>
<TargetFrameworks>net9.0</TargetFrameworks>
</PropertyGroup>

</Project>
8 changes: 8 additions & 0 deletions snippets/visualbasic/System/Object/Finalize/Project.vbproj
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,8 @@
<Project Sdk="Microsoft.NET.Sdk">

<PropertyGroup>
<OutputType>Exe</OutputType>
<TargetFramework>net9.0</TargetFramework>
</PropertyGroup>

</Project>
0 ...em/system.object.finalize/vb/finalize1.vb → ...basic/System/Object/Finalize/finalize1.vb
View file
Open in desktop
File renamed without changes.
2 changes: 1 addition & 1 deletion snippets/visualbasic/System/Object/MemberwiseClone/Project.vbproj
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@

<PropertyGroup>
<OutputType>Exe</OutputType>
<TargetFramework>net6.0</TargetFramework>
<TargetFramework>net9.0</TargetFramework>
</PropertyGroup>

</Project>
8 changes: 8 additions & 0 deletions snippets/visualbasic/System/String/Intern/Project.vbproj
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,8 @@
<Project Sdk="Microsoft.NET.Sdk">

<PropertyGroup>
<OutputType>Exe</OutputType>
<TargetFramework>net9.0</TargetFramework>
</PropertyGroup>

</Project>
0 ...ets_CLR/string.intern/VB/string_intern.vb → ...sic/System/String/Intern/string_intern.vb
View file
Open in desktop
File renamed without changes.
8 changes: 8 additions & 0 deletions snippets/visualbasic/System/String/IsNullOrEmpty/Project.vbproj
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,8 @@
<Project Sdk="Microsoft.NET.Sdk">

<PropertyGroup>
<OutputType>Exe</OutputType>
<TargetFramework>net9.0</TargetFramework>
</PropertyGroup>

</Project>
0 ...ppets_CLR/string.isNullOrEmpty/VB/inoe.vb → ...basic/System/String/IsNullOrEmpty/inoe.vb
View file
Open in desktop
File renamed without changes.
2 changes: 1 addition & 1 deletion ...ography.3DES.Create.Memory/project.vbproj → ...asic/System/String/ToLower/Project.vbproj
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@

<PropertyGroup>
<OutputType>Library</OutputType>
<TargetFramework>net6.0</TargetFramework>
<TargetFramework>net9.0</TargetFramework>
</PropertyGroup>

</Project>
49 changes: 49 additions & 0 deletions snippets/visualbasic/System/String/ToLower/stringtolower.vb
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,49 @@
Public Class ToLowerTest

Public Shared Sub Run()
'<snippet1>
Dim info As String() = {"Name", "Title", "Age", "Location", "Gender"}

Console.WriteLine("The initial values in the array are:")

Dim s As String
For Each s In info
Console.WriteLine(s)
Next

Console.WriteLine("{0}The lowercase of these values is:", Environment.NewLine)

For Each s In info
Console.WriteLine(s.ToLower())
Next

Console.WriteLine("{0}The uppercase of these values is:", Environment.NewLine)

For Each s In info
Console.WriteLine(s.ToUpper())
Next

' The example displays the following output:
' The initial values in the array are:
' Name
' Title
' Age
' Location
' Gender
'
' The lowercase of these values is:
' name
' title
' age
' location
' gender
'
' The uppercase of these values is:
' NAME
' TITLE
' AGE
' LOCATION
' GENDER
'</snippet1>
End Sub
End Class
67 changes: 67 additions & 0 deletions snippets/visualbasic/System/String/ToLower/tolower.vb
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,67 @@
Imports System.Globalization

Class Sample
'<snippet1>
Public Shared Sub Run()
Dim str1 As [String] = "INDIGO"
' str2 = str1, except each 'I' is '\u0130' (Unicode LATIN CAPITAL I WITH DOT ABOVE).
Dim str2 As New [String](New [Char]() {ChrW(&H130), "N"c, "D"c, ChrW(&H130), "G"c, "O"c})
Dim str3, str4 As [String]

Console.WriteLine()
Console.WriteLine("str1 = '{0}'", str1)

Console.WriteLine()
Console.WriteLine("str1 is {0} to str2.",
IIf(0 = [String].CompareOrdinal(str1, str2), "equal", "not equal"))
CodePoints("str1", str1)
CodePoints("str2", str2)

Console.WriteLine()
' str3 is a lower case copy of str2, using English-United States culture.
Console.WriteLine("str3 = Lower case copy of str2 using English-United States culture.")
str3 = str2.ToLower(New CultureInfo("en-US", False))

' str4 is a lower case copy of str2, using Turkish-Turkey culture.
Console.WriteLine("str4 = Lower case copy of str2 using Turkish-Turkey culture.")
str4 = str2.ToLower(New CultureInfo("tr-TR", False))

' Compare the code points in str3 and str4.
Console.WriteLine()
Console.WriteLine("str3 is {0} to str4.",
IIf(0 = [String].CompareOrdinal(str3, str4), "equal", "not equal"))
CodePoints("str3", str3)
CodePoints("str4", str4)
End Sub

Public Shared Sub CodePoints(title As [String], s As [String])
Console.Write("{0}The code points in {1} are: {0}", Environment.NewLine, title)
Dim c As Char
For Each c In s
Console.Write("{0:x4} ", AscW(c))
Next c
Console.WriteLine()
End Sub

'str1 = 'INDIGO'
'
'str1 is not equal to str2.
'
'The code points in str1 are:
'0049 004e 0044 0049 0047 004f
'
'The code points in str2 are:
'0130 004e 0044 0130 0047 004f
'
'str3 = Lower case copy of str2 using English-United States culture.
'str4 = Lower case copy of str2 using Turkish-Turkey culture.
'
'str3 is equal to str4.
'
'The code points in str3 are:
'0069 006e 0064 0069 0067 006f
'
'The code points in str4 are:
'0069 006e 0064 0069 0067 006f
'</snippet1>
End Class
8 changes: 8 additions & 0 deletions snippets/visualbasic/System/String/ToLowerInvariant/Project.vbproj
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,8 @@
<Project Sdk="Microsoft.NET.Sdk">

<PropertyGroup>
<OutputType>Exe</OutputType>
<TargetFramework>net9.0</TargetFramework>
</PropertyGroup>

</Project>
8 changes: 8 additions & 0 deletions snippets/visualbasic/System/String/ToUpper/Project.vbproj
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,8 @@
<Project Sdk="Microsoft.NET.Sdk">

<PropertyGroup>
<OutputType>Exe</OutputType>
<TargetFramework>net9.0</TargetFramework>
</PropertyGroup>

</Project>
85 changes: 85 additions & 0 deletions snippets/visualbasic/System/String/ToUpper/ToUpperEx.vb
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,85 @@
' Visual Basic .NET Document
Option Strict On

Module Example2
Public Sub Main1()
' <Snippet1>
Dim n As Integer = 0
For ctr As Integer = &H20 To &H17F
Dim string1 As String = ChrW(ctr).ToString()
Dim upperString As String = string1.ToUpper()
If string1 <> upperString Then
Console.Write("{0} (\u+{1}) --> {2} (\u+{3}) ",
string1,
Convert.ToUInt16(string1.Chars(0)).ToString("X4"),
upperString,
Convert.ToUInt16(upperString.Chars(0)).ToString("X4"))
n += 1
If n Mod 2 = 0 Then Console.WriteLine()
End If
Next

' The example displays the following output:
' a (\u+0061) --> A (\u+0041) b (\u+0062) --> B (\u+0042)
' c (\u+0063) --> C (\u+0043) d (\u+0064) --> D (\u+0044)
' e (\u+0065) --> E (\u+0045) f (\u+0066) --> F (\u+0046)
' g (\u+0067) --> G (\u+0047) h (\u+0068) --> H (\u+0048)
' i (\u+0069) --> I (\u+0049) j (\u+006A) --> J (\u+004A)
' k (\u+006B) --> K (\u+004B) l (\u+006C) --> L (\u+004C)
' m (\u+006D) --> M (\u+004D) n (\u+006E) --> N (\u+004E)
' o (\u+006F) --> O (\u+004F) p (\u+0070) --> P (\u+0050)
' q (\u+0071) --> Q (\u+0051) r (\u+0072) --> R (\u+0052)
' s (\u+0073) --> S (\u+0053) t (\u+0074) --> T (\u+0054)
' u (\u+0075) --> U (\u+0055) v (\u+0076) --> V (\u+0056)
' w (\u+0077) --> W (\u+0057) x (\u+0078) --> X (\u+0058)
' y (\u+0079) --> Y (\u+0059) z (\u+007A) --> Z (\u+005A)
' à (\u+00E0) --> À (\u+00C0) á (\u+00E1) --> Á (\u+00C1)
' â (\u+00E2) --> Â (\u+00C2) ã (\u+00E3) --> Ã (\u+00C3)
' ä (\u+00E4) --> Ä (\u+00C4) å (\u+00E5) --> Å (\u+00C5)
' æ (\u+00E6) --> Æ (\u+00C6) ç (\u+00E7) --> Ç (\u+00C7)
' è (\u+00E8) --> È (\u+00C8) é (\u+00E9) --> É (\u+00C9)
' ê (\u+00EA) --> Ê (\u+00CA) ë (\u+00EB) --> Ë (\u+00CB)
' ì (\u+00EC) --> Ì (\u+00CC) í (\u+00ED) --> Í (\u+00CD)
' î (\u+00EE) --> Î (\u+00CE) ï (\u+00EF) --> Ï (\u+00CF)
' ð (\u+00F0) --> Ð (\u+00D0) ñ (\u+00F1) --> Ñ (\u+00D1)
' ò (\u+00F2) --> Ò (\u+00D2) ó (\u+00F3) --> Ó (\u+00D3)
' ô (\u+00F4) --> Ô (\u+00D4) õ (\u+00F5) --> Õ (\u+00D5)
' ö (\u+00F6) --> Ö (\u+00D6) ø (\u+00F8) --> Ø (\u+00D8)
' ù (\u+00F9) --> Ù (\u+00D9) ú (\u+00FA) --> Ú (\u+00DA)
' û (\u+00FB) --> Û (\u+00DB) ü (\u+00FC) --> Ü (\u+00DC)
' ý (\u+00FD) --> Ý (\u+00DD) þ (\u+00FE) --> Þ (\u+00DE)
' ÿ (\u+00FF) --> Ÿ (\u+0178) ā (\u+0101) --> Ā (\u+0100)
' ă (\u+0103) --> Ă (\u+0102) ą (\u+0105) --> Ą (\u+0104)
' ć (\u+0107) --> Ć (\u+0106) ĉ (\u+0109) --> Ĉ (\u+0108)
' ċ (\u+010B) --> Ċ (\u+010A) č (\u+010D) --> Č (\u+010C)
' ď (\u+010F) --> Ď (\u+010E) đ (\u+0111) --> Đ (\u+0110)
' ē (\u+0113) --> Ē (\u+0112) ĕ (\u+0115) --> Ĕ (\u+0114)
' ė (\u+0117) --> Ė (\u+0116) ę (\u+0119) --> Ę (\u+0118)
' ě (\u+011B) --> Ě (\u+011A) ĝ (\u+011D) --> Ĝ (\u+011C)
' ğ (\u+011F) --> Ğ (\u+011E) ġ (\u+0121) --> Ġ (\u+0120)
' ģ (\u+0123) --> Ģ (\u+0122) ĥ (\u+0125) --> Ĥ (\u+0124)
' ħ (\u+0127) --> Ħ (\u+0126) ĩ (\u+0129) --> Ĩ (\u+0128)
' ī (\u+012B) --> Ī (\u+012A) ĭ (\u+012D) --> Ĭ (\u+012C)
' į (\u+012F) --> Į (\u+012E) ı (\u+0131) --> I (\u+0049)
' ij (\u+0133) --> IJ (\u+0132) ĵ (\u+0135) --> Ĵ (\u+0134)
' ķ (\u+0137) --> Ķ (\u+0136) ĺ (\u+013A) --> Ĺ (\u+0139)
' ļ (\u+013C) --> Ļ (\u+013B) ľ (\u+013E) --> Ľ (\u+013D)
' ŀ (\u+0140) --> Ŀ (\u+013F) ł (\u+0142) --> Ł (\u+0141)
' ń (\u+0144) --> Ń (\u+0143) ņ (\u+0146) --> Ņ (\u+0145)
' ň (\u+0148) --> Ň (\u+0147) ŋ (\u+014B) --> Ŋ (\u+014A)
' ō (\u+014D) --> Ō (\u+014C) ŏ (\u+014F) --> Ŏ (\u+014E)
' ő (\u+0151) --> Ő (\u+0150) œ (\u+0153) --> Œ (\u+0152)
' ŕ (\u+0155) --> Ŕ (\u+0154) ŗ (\u+0157) --> Ŗ (\u+0156)
' ř (\u+0159) --> Ř (\u+0158) ś (\u+015B) --> Ś (\u+015A)
' ŝ (\u+015D) --> Ŝ (\u+015C) ş (\u+015F) --> Ş (\u+015E)
' š (\u+0161) --> Š (\u+0160) ţ (\u+0163) --> Ţ (\u+0162)
' ť (\u+0165) --> Ť (\u+0164) ŧ (\u+0167) --> Ŧ (\u+0166)
' ũ (\u+0169) --> Ũ (\u+0168) ū (\u+016B) --> Ū (\u+016A)
' ŭ (\u+016D) --> Ŭ (\u+016C) ů (\u+016F) --> Ů (\u+016E)
' ű (\u+0171) --> Ű (\u+0170) ų (\u+0173) --> Ų (\u+0172)
' ŵ (\u+0175) --> Ŵ (\u+0174) ŷ (\u+0177) --> Ŷ (\u+0176)
' ź (\u+017A) --> Ź (\u+0179) ż (\u+017C) --> Ż (\u+017B)
' ž (\u+017E) --> Ž (\u+017D)
' </Snippet1>
End Sub
End Module
40 changes: 40 additions & 0 deletions snippets/visualbasic/System/String/ToUpper/toupper.vb
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,40 @@
Option Strict On
Option Infer On

Imports System.Globalization

Public Module Example1
' <Snippet1>
Public Sub Main()
Dim str1 As String = "indigo"
Dim str2, str3 As String

' str2 is an uppercase copy of str1, using English-United States culture.
str2 = str1.ToUpper(New CultureInfo("en-US", False))

' str3 is an uppercase copy of str1, using Turkish-Turkey culture.
str3 = str1.ToUpper(New CultureInfo("tr-TR", False))

' Compare the code points and compare the uppercase strings.
ShowCodePoints("str1", str1)
ShowCodePoints("str2", str2)
ShowCodePoints("str3", str3)
Console.WriteLine("str2 is {0} to str3.",
IIf(String.CompareOrdinal(str2, str3) = 0, "equal", "not equal"))
End Sub

Public Sub ShowCodePoints(varName As String, s As String)
Console.Write("{0} = {1}: ", varName, s)
For Each c In s
Console.Write("{0:X4} ", AscW(c))
Next
Console.WriteLine()
End Sub

' The example displays the following output:
' str1 = indigo: 0069 006E 0064 0069 0067 006F
' str2 = INDIGO: 0049 004E 0044 0049 0047 004F
' str3 = İNDİGO: 0130 004E 0044 0130 0047 004F
' str2 is not equal to str3.
' </Snippet1>
End Module
8 changes: 8 additions & 0 deletions snippets/visualbasic/System/String/ToUpperInvariant/Project.vbproj
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,8 @@
<Project Sdk="Microsoft.NET.Sdk">

<PropertyGroup>
<OutputType>Exe</OutputType>
<TargetFramework>net9.0</TargetFramework>
</PropertyGroup>

</Project>
0 ...g.toupperinvariant/vb/toupperinvariant.vb → ...ring/ToUpperInvariant/toupperinvariant.vb
View file
Open in desktop
File renamed without changes.
8 changes: 8 additions & 0 deletions snippets/visualbasic/System/TimeSpan/Parse/Project.vbproj
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,8 @@
<Project Sdk="Microsoft.NET.Sdk">

<PropertyGroup>
<OutputType>Exe</OutputType>
<TargetFramework>net9.0</TargetFramework>
</PropertyGroup>

</Project>
Loading