diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.Globalization.CultureInfo.CurrentCulture2/VB/currentculture.vb b/snippets/visualbasic/System.Globalization/CultureInfo/CurrentCulture/currentculture.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_CLR_System/system.Globalization.CultureInfo.CurrentCulture2/VB/currentculture.vb rename to snippets/visualbasic/System.Globalization/CultureInfo/CurrentCulture/currentculture.vb diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.Globalization.CultureInfo.CurrentCulture2/VB/currentculture.vbproj b/snippets/visualbasic/System.Globalization/CultureInfo/CurrentCulture/currentculture.vbproj similarity index 100% rename from snippets/visualbasic/VS_Snippets_CLR_System/system.Globalization.CultureInfo.CurrentCulture2/VB/currentculture.vbproj rename to snippets/visualbasic/System.Globalization/CultureInfo/CurrentCulture/currentculture.vbproj diff --git a/snippets/visualbasic/System.Reflection.Emit/ILGenerator/EmitCall/Project.vbproj b/snippets/visualbasic/System.Reflection.Emit/ILGenerator/EmitCall/Project.vbproj new file mode 100644 index 00000000000..908027db5b9 --- /dev/null +++ b/snippets/visualbasic/System.Reflection.Emit/ILGenerator/EmitCall/Project.vbproj @@ -0,0 +1,8 @@ + + + + Exe + net481 + + + \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_CLR/Emit.ArgIterator/vb/source.vb b/snippets/visualbasic/System.Reflection.Emit/ILGenerator/EmitCall/source.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_CLR/Emit.ArgIterator/vb/source.vb rename to snippets/visualbasic/System.Reflection.Emit/ILGenerator/EmitCall/source.vb diff --git a/snippets/visualbasic/System.Runtime.InteropServices/Marshal/GetActiveObject/Project.vbproj b/snippets/visualbasic/System.Runtime.InteropServices/Marshal/GetActiveObject/Project.vbproj new file mode 100644 index 00000000000..eec32deb298 --- /dev/null +++ b/snippets/visualbasic/System.Runtime.InteropServices/Marshal/GetActiveObject/Project.vbproj @@ -0,0 +1,8 @@ + + + + Exe + net481 + + + diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.runtime.interopservices.marshal.getactiveobject/vb/marshal.getactiveobject.vb b/snippets/visualbasic/System.Runtime.InteropServices/Marshal/GetActiveObject/marshal.getactiveobject.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_CLR_System/system.runtime.interopservices.marshal.getactiveobject/vb/marshal.getactiveobject.vb rename to snippets/visualbasic/System.Runtime.InteropServices/Marshal/GetActiveObject/marshal.getactiveobject.vb diff --git a/snippets/visualbasic/System/Array/Clear/Project.vbproj b/snippets/visualbasic/System/Array/Clear/Project.vbproj index a269962b552..92e46ddaccf 100644 --- a/snippets/visualbasic/System/Array/Clear/Project.vbproj +++ b/snippets/visualbasic/System/Array/Clear/Project.vbproj @@ -2,7 +2,7 @@ Exe - net8.0 + net9.0 diff --git a/snippets/visualbasic/VS_Snippets_CLR/exception.data/VB/data.vb b/snippets/visualbasic/System/Exception/Data/data.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_CLR/exception.data/VB/data.vb rename to snippets/visualbasic/System/Exception/Data/data.vb diff --git a/snippets/visualbasic/VS_Snippets_CLR/Cryptography.RC2.Create.Memory/project.csproj b/snippets/visualbasic/System/Exception/Data/project.vbproj similarity index 71% rename from snippets/visualbasic/VS_Snippets_CLR/Cryptography.RC2.Create.Memory/project.csproj rename to snippets/visualbasic/System/Exception/Data/project.vbproj index 9ab42fef7a0..303bba94010 100644 --- a/snippets/visualbasic/VS_Snippets_CLR/Cryptography.RC2.Create.Memory/project.csproj +++ b/snippets/visualbasic/System/Exception/Data/project.vbproj @@ -2,7 +2,7 @@ Library - net6.0 + net9.0 diff --git a/snippets/visualbasic/System/Object/Finalize/Project.vbproj b/snippets/visualbasic/System/Object/Finalize/Project.vbproj new file mode 100644 index 00000000000..325ccd545c2 --- /dev/null +++ b/snippets/visualbasic/System/Object/Finalize/Project.vbproj @@ -0,0 +1,8 @@ + + + + Exe + net9.0 + + + \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.object.finalize/vb/finalize1.vb b/snippets/visualbasic/System/Object/Finalize/finalize1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_CLR_System/system.object.finalize/vb/finalize1.vb rename to snippets/visualbasic/System/Object/Finalize/finalize1.vb diff --git a/snippets/visualbasic/System/Object/MemberwiseClone/Project.vbproj b/snippets/visualbasic/System/Object/MemberwiseClone/Project.vbproj index aa9fd2ecaaf..325ccd545c2 100644 --- a/snippets/visualbasic/System/Object/MemberwiseClone/Project.vbproj +++ b/snippets/visualbasic/System/Object/MemberwiseClone/Project.vbproj @@ -2,7 +2,7 @@ Exe - net6.0 + net9.0 \ No newline at end of file diff --git a/snippets/visualbasic/System/String/Intern/Project.vbproj b/snippets/visualbasic/System/String/Intern/Project.vbproj new file mode 100644 index 00000000000..92e46ddaccf --- /dev/null +++ b/snippets/visualbasic/System/String/Intern/Project.vbproj @@ -0,0 +1,8 @@ + + + + Exe + net9.0 + + + diff --git a/snippets/visualbasic/VS_Snippets_CLR/string.intern/VB/string_intern.vb b/snippets/visualbasic/System/String/Intern/string_intern.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_CLR/string.intern/VB/string_intern.vb rename to snippets/visualbasic/System/String/Intern/string_intern.vb diff --git a/snippets/visualbasic/System/String/IsNullOrEmpty/Project.vbproj b/snippets/visualbasic/System/String/IsNullOrEmpty/Project.vbproj new file mode 100644 index 00000000000..92e46ddaccf --- /dev/null +++ b/snippets/visualbasic/System/String/IsNullOrEmpty/Project.vbproj @@ -0,0 +1,8 @@ + + + + Exe + net9.0 + + + diff --git a/snippets/visualbasic/VS_Snippets_CLR/string.isNullOrEmpty/VB/inoe.vb b/snippets/visualbasic/System/String/IsNullOrEmpty/inoe.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_CLR/string.isNullOrEmpty/VB/inoe.vb rename to snippets/visualbasic/System/String/IsNullOrEmpty/inoe.vb diff --git a/snippets/visualbasic/VS_Snippets_CLR/Cryptography.3DES.Create.Memory/project.vbproj b/snippets/visualbasic/System/String/ToLower/Project.vbproj similarity index 72% rename from snippets/visualbasic/VS_Snippets_CLR/Cryptography.3DES.Create.Memory/project.vbproj rename to snippets/visualbasic/System/String/ToLower/Project.vbproj index 9ab42fef7a0..fc3f09ab482 100644 --- a/snippets/visualbasic/VS_Snippets_CLR/Cryptography.3DES.Create.Memory/project.vbproj +++ b/snippets/visualbasic/System/String/ToLower/Project.vbproj @@ -2,7 +2,7 @@ Library - net6.0 + net9.0 diff --git a/snippets/visualbasic/System/String/ToLower/stringtolower.vb b/snippets/visualbasic/System/String/ToLower/stringtolower.vb new file mode 100644 index 00000000000..568221175ef --- /dev/null +++ b/snippets/visualbasic/System/String/ToLower/stringtolower.vb @@ -0,0 +1,49 @@ +Public Class ToLowerTest + + Public Shared Sub Run() + ' + 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 + ' + End Sub +End Class diff --git a/snippets/visualbasic/System/String/ToLower/tolower.vb b/snippets/visualbasic/System/String/ToLower/tolower.vb new file mode 100644 index 00000000000..5cf3d999bf7 --- /dev/null +++ b/snippets/visualbasic/System/String/ToLower/tolower.vb @@ -0,0 +1,67 @@ +Imports System.Globalization + +Class Sample + ' + 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 + ' +End Class diff --git a/snippets/visualbasic/System/String/ToLowerInvariant/Project.vbproj b/snippets/visualbasic/System/String/ToLowerInvariant/Project.vbproj new file mode 100644 index 00000000000..92e46ddaccf --- /dev/null +++ b/snippets/visualbasic/System/String/ToLowerInvariant/Project.vbproj @@ -0,0 +1,8 @@ + + + + Exe + net9.0 + + + diff --git a/snippets/visualbasic/System/String/ToUpper/Project.vbproj b/snippets/visualbasic/System/String/ToUpper/Project.vbproj new file mode 100644 index 00000000000..92e46ddaccf --- /dev/null +++ b/snippets/visualbasic/System/String/ToUpper/Project.vbproj @@ -0,0 +1,8 @@ + + + + Exe + net9.0 + + + diff --git a/snippets/visualbasic/System/String/ToUpper/ToUpperEx.vb b/snippets/visualbasic/System/String/ToUpper/ToUpperEx.vb new file mode 100644 index 00000000000..34a3111b2ba --- /dev/null +++ b/snippets/visualbasic/System/String/ToUpper/ToUpperEx.vb @@ -0,0 +1,85 @@ +' Visual Basic .NET Document +Option Strict On + +Module Example2 + Public Sub Main1() + ' + 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) + ' + End Sub +End Module diff --git a/snippets/visualbasic/System/String/ToUpper/toupper.vb b/snippets/visualbasic/System/String/ToUpper/toupper.vb new file mode 100644 index 00000000000..666a5b6469c --- /dev/null +++ b/snippets/visualbasic/System/String/ToUpper/toupper.vb @@ -0,0 +1,40 @@ +Option Strict On +Option Infer On + +Imports System.Globalization + +Public Module Example1 + ' + 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. + ' +End Module diff --git a/snippets/visualbasic/System/String/ToUpperInvariant/Project.vbproj b/snippets/visualbasic/System/String/ToUpperInvariant/Project.vbproj new file mode 100644 index 00000000000..92e46ddaccf --- /dev/null +++ b/snippets/visualbasic/System/String/ToUpperInvariant/Project.vbproj @@ -0,0 +1,8 @@ + + + + Exe + net9.0 + + + diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.string.toupperinvariant/vb/toupperinvariant.vb b/snippets/visualbasic/System/String/ToUpperInvariant/toupperinvariant.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_CLR_System/system.string.toupperinvariant/vb/toupperinvariant.vb rename to snippets/visualbasic/System/String/ToUpperInvariant/toupperinvariant.vb diff --git a/snippets/visualbasic/System/TimeSpan/Parse/Project.vbproj b/snippets/visualbasic/System/TimeSpan/Parse/Project.vbproj new file mode 100644 index 00000000000..92e46ddaccf --- /dev/null +++ b/snippets/visualbasic/System/TimeSpan/Parse/Project.vbproj @@ -0,0 +1,8 @@ + + + + Exe + net9.0 + + + diff --git a/snippets/visualbasic/System/TimeSpan/Parse/parse1.vb b/snippets/visualbasic/System/TimeSpan/Parse/parse1.vb new file mode 100644 index 00000000000..40e063e41cd --- /dev/null +++ b/snippets/visualbasic/System/TimeSpan/Parse/parse1.vb @@ -0,0 +1,55 @@ +' Visual Basic .NET Document +Option Strict On + +Imports System.Globalization +Imports System.Threading + +Module Example1 + Public Sub Main() + ' + Dim values() As String = {"6", "6:12", "6:12:14", "6:12:14:45", + "6.12:14:45", "6:12:14:45.3448", + "6:12:14:45,3448", "6:34:14:45"} + Dim cultureNames() As String = {"hr-HR", "en-US"} + + ' Change the current culture. + For Each cultureName As String In cultureNames + Thread.CurrentThread.CurrentCulture = New CultureInfo(cultureName) + Console.WriteLine("Current Culture: {0}", + Thread.CurrentThread.CurrentCulture.Name) + For Each value As String In values + Try + Dim ts As TimeSpan = TimeSpan.Parse(value) + Console.WriteLine("{0} --> {1}", value, ts.ToString("c")) + Catch e As FormatException + Console.WriteLine("{0}: Bad Format", value) + Catch e As OverflowException + Console.WriteLine("{0}: Overflow", value) + End Try + Next + Console.WriteLine() + Next + + ' The example displays the following output: + ' Current Culture: hr-HR + ' 6 --> 6.00:00:00 + ' 6:12 --> 06:12:00 + ' 6:12:14 --> 06:12:14 + ' 6:12:14:45 --> 6.12:14:45 + ' 6.12:14:45 --> 6.12:14:45 + ' 6:12:14:45.3448: Bad Format + ' 6:12:14:45,3448 --> 6.12:14:45.3448000 + ' 6:34:14:45: Overflow + ' + ' Current Culture: en-US + ' 6 --> 6.00:00:00 + ' 6:12 --> 06:12:00 + ' 6:12:14 --> 06:12:14 + ' 6:12:14:45 --> 6.12:14:45 + ' 6.12:14:45 --> 6.12:14:45 + ' 6:12:14:45.3448 --> 6.12:14:45.3448000 + ' 6:12:14:45,3448: Bad Format + ' 6:34:14:45: Overflow + ' + End Sub +End Module diff --git a/snippets/visualbasic/System/TimeSpan/Parse/parse2.vb b/snippets/visualbasic/System/TimeSpan/Parse/parse2.vb new file mode 100644 index 00000000000..e019235c89a --- /dev/null +++ b/snippets/visualbasic/System/TimeSpan/Parse/parse2.vb @@ -0,0 +1,53 @@ +' Visual Basic .NET Document +Option Strict On + +Imports System.Globalization + +Module Example2 + Public Sub Main2() + ' + Dim values() As String = {"6", "6:12", "6:12:14", "6:12:14:45", + "6.12:14:45", "6:12:14:45.3448", + "6:12:14:45,3448", "6:34:14:45"} + Dim cultures() As CultureInfo = {New CultureInfo("en-US"), + New CultureInfo("ru-RU"), + CultureInfo.InvariantCulture} + + Dim header As String = String.Format("{0,-17}", "String") + For Each culture As CultureInfo In cultures + header += If(culture.Equals(CultureInfo.InvariantCulture), + String.Format("{0,20}", "Invariant"), + String.Format("{0,20}", culture.Name)) + Next + Console.WriteLine(header) + Console.WriteLine() + + For Each value As String In values + Console.Write("{0,-17}", value) + For Each culture As CultureInfo In cultures + Try + Dim ts As TimeSpan = TimeSpan.Parse(value, culture) + Console.Write("{0,20}", ts.ToString("c")) + Catch e As FormatException + Console.Write("{0,20}", "Bad Format") + Catch e As OverflowException + Console.Write("{0,20}", "Overflow") + End Try + Next + Console.WriteLine() + Next + + ' The example displays the following output: + ' String en-US ru-RU Invariant + ' + ' 6 6.00:00:00 6.00:00:00 6.00:00:00 + ' 6:12 06:12:00 06:12:00 06:12:00 + ' 6:12:14 06:12:14 06:12:14 06:12:14 + ' 6:12:14:45 6.12:14:45 6.12:14:45 6.12:14:45 + ' 6.12:14:45 6.12:14:45 6.12:14:45 6.12:14:45 + ' 6:12:14:45.3448 6.12:14:45.3448000 Bad Format 6.12:14:45.3448000 + ' 6:12:14:45,3448 Bad Format 6.12:14:45.3448000 Bad Format + ' 6:34:14:45 Overflow Overflow Overflow + ' + End Sub +End Module diff --git a/snippets/visualbasic/System/TimeSpan/TryParse/Project.vbproj b/snippets/visualbasic/System/TimeSpan/TryParse/Project.vbproj new file mode 100644 index 00000000000..92e46ddaccf --- /dev/null +++ b/snippets/visualbasic/System/TimeSpan/TryParse/Project.vbproj @@ -0,0 +1,8 @@ + + + + Exe + net9.0 + + + diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.TimeSpan.TryParse/vb/TryParse1.vb b/snippets/visualbasic/System/TimeSpan/TryParse/TryParse1.vb similarity index 69% rename from snippets/visualbasic/VS_Snippets_CLR_System/system.TimeSpan.TryParse/vb/TryParse1.vb rename to snippets/visualbasic/System/TimeSpan/TryParse/TryParse1.vb index 9b86d753ffe..dfb23dcb8bc 100644 --- a/snippets/visualbasic/VS_Snippets_CLR_System/system.TimeSpan.TryParse/vb/TryParse1.vb +++ b/snippets/visualbasic/System/TimeSpan/TryParse/TryParse1.vb @@ -1,35 +1,32 @@ -' Example of the TimeSpan.Parse( String ) and TimeSpan.ToString( ) -' methods. - -' +' Module TryParse - Sub ParseTimeSpan( intervalStr As String ) + Sub ParseTimeSpan(intervalStr As String) ' Write the first part of the output line. - Console.Write( "{0,20} ", intervalStr ) + Console.Write("{0,20} ", intervalStr) ' Parse the parameter, and then convert it back to a string. - Dim intervalVal As TimeSpan - If TimeSpan.TryParse( intervalStr, intervalVal ) Then - Dim intervalToStr As String = intervalVal.ToString( ) - + Dim intervalVal As TimeSpan + If TimeSpan.TryParse(intervalStr, intervalVal) Then + Dim intervalToStr As String = intervalVal.ToString() + ' Pad the end of the TimeSpan string with spaces if it ' does not contain milliseconds. - Dim pIndex As Integer = intervalToStr.IndexOf( ":"c ) - pIndex = intervalToStr.IndexOf( "."c, pIndex ) - If pIndex < 0 Then intervalToStr &= " " - - Console.WriteLine( "{0,21}", intervalToStr ) - ' Handle failure of TryParse method. - Else + Dim pIndex As Integer = intervalToStr.IndexOf(":"c) + pIndex = intervalToStr.IndexOf("."c, pIndex) + If pIndex < 0 Then intervalToStr &= " " + + Console.WriteLine("{0,21}", intervalToStr) + ' Handle failure of TryParse method. + Else Console.WriteLine("Parse operation failed.") End If - End Sub + End Sub - Public Sub Main( ) - Console.WriteLine( "{0,20} {1,21}", _ - "String to Parse", "TimeSpan" ) - Console.WriteLine( "{0,20} {1,21}", _ - "---------------", "---------------------" ) + Public Sub Run() + Console.WriteLine("{0,20} {1,21}", + "String to Parse", "TimeSpan") + Console.WriteLine("{0,20} {1,21}", + "---------------", "---------------------") ParseTimeSpan("0") ParseTimeSpan("14") @@ -40,12 +37,12 @@ Module TryParse ParseTimeSpan("0023:0059:0059.0099") ParseTimeSpan("23:0:0") ParseTimeSpan("24:0:0") - ParseTimespan("0:59:0") + ParseTimeSpan("0:59:0") ParseTimeSpan("0:60:0") - ParseTimespan("0:0:59") + ParseTimeSpan("0:0:59") ParseTimeSpan("0:0:60") ParseTimeSpan("10:") - ParsetimeSpan("10:0") + ParseTimeSpan("10:0") ParseTimeSpan(":10") ParseTimeSpan("0:10") ParseTimeSpan("10:20:") @@ -55,8 +52,9 @@ Module TryParse ParseTimeSpan("10.") ParseTimeSpan("10.12") ParseTimeSpan("10.12:00") - End Sub -End Module + End Sub +End Module + ' This example generates the following output: ' String to Parse TimeSpan ' --------------- --------------------- diff --git a/snippets/visualbasic/System/TimeSpan/TryParse/tryparse2.vb b/snippets/visualbasic/System/TimeSpan/TryParse/tryparse2.vb new file mode 100644 index 00000000000..068b96122c9 --- /dev/null +++ b/snippets/visualbasic/System/TimeSpan/TryParse/tryparse2.vb @@ -0,0 +1,51 @@ +' Visual Basic .NET Document +Option Strict On + +Imports System.Globalization + +Module Example + Public Sub Main() + ' + Dim values() As String = {"6", "6:12", "6:12:14", "6:12:14:45", + "6.12:14:45", "6:12:14:45.3448", + "6:12:14:45,3448", "6:34:14:45"} + Dim cultures() As CultureInfo = {New CultureInfo("en-US"), + New CultureInfo("ru-RU"), + CultureInfo.InvariantCulture} + + Dim header As String = String.Format("{0,-17}", "String") + For Each culture As CultureInfo In cultures + header += If(culture.Equals(CultureInfo.InvariantCulture), + String.Format("{0,20}", "Invariant"), + String.Format("{0,20}", culture.Name)) + Next + Console.WriteLine(header) + Console.WriteLine() + + For Each value As String In values + Console.Write("{0,-17}", value) + For Each culture As CultureInfo In cultures + Dim interval As New TimeSpan() + If TimeSpan.TryParse(value, culture, interval) Then + Console.Write("{0,20}", interval.ToString("c")) + Else + Console.Write("{0,20}", "Unable to Parse") + End If + Next + Console.WriteLine() + Next + + ' The example displays the following output: + ' String en-US ru-RU Invariant + ' + ' 6 6.00:00:00 6.00:00:00 6.00:00:00 + ' 6:12 06:12:00 06:12:00 06:12:00 + ' 6:12:14 06:12:14 06:12:14 06:12:14 + ' 6:12:14:45 6.12:14:45 6.12:14:45 6.12:14:45 + ' 6.12:14:45 6.12:14:45 6.12:14:45 6.12:14:45 + ' 6:12:14:45.3448 6.12:14:45.3448000 Unable to Parse 6.12:14:45.3448000 + ' 6:12:14:45,3448 Unable to Parse 6.12:14:45.3448000 Unable to Parse + ' 6:34:14:45 Unable to Parse Unable to Parse Unable to Parse + ' + End Sub +End Module diff --git a/snippets/visualbasic/VS_Snippets_CLR/Cryptography.DES.Create.Memory/project.csproj b/snippets/visualbasic/System/Type/GetProperty/Project.vbproj similarity index 72% rename from snippets/visualbasic/VS_Snippets_CLR/Cryptography.DES.Create.Memory/project.csproj rename to snippets/visualbasic/System/Type/GetProperty/Project.vbproj index 9ab42fef7a0..fc3f09ab482 100644 --- a/snippets/visualbasic/VS_Snippets_CLR/Cryptography.DES.Create.Memory/project.csproj +++ b/snippets/visualbasic/System/Type/GetProperty/Project.vbproj @@ -2,7 +2,7 @@ Library - net6.0 + net9.0 diff --git a/snippets/visualbasic/VS_Snippets_CLR/Type_GetProperty1/VB/type_getproperty1.vb b/snippets/visualbasic/System/Type/GetProperty/type_getproperty1.vb similarity index 88% rename from snippets/visualbasic/VS_Snippets_CLR/Type_GetProperty1/VB/type_getproperty1.vb rename to snippets/visualbasic/System/Type/GetProperty/type_getproperty1.vb index 78e58d5097d..cd09002fb68 100644 --- a/snippets/visualbasic/VS_Snippets_CLR/Type_GetProperty1/VB/type_getproperty1.vb +++ b/snippets/visualbasic/System/Type/GetProperty/type_getproperty1.vb @@ -6,16 +6,16 @@ Class MyClass1 Public Property MyProperty() As Integer Get - Return myProperty1 + Return MyProperty1 End Get Set(ByVal Value As Integer) - myProperty1 = Value + MyProperty1 = Value End Set End Property End Class Public Class MyTypeClass - Public Shared Sub Main(ByVal args() As String) + Public Shared Sub Run(ByVal args() As String) Try ' Get Type Object corresponding to MyClass. Dim myType As Type = GetType(MyClass1) diff --git a/snippets/visualbasic/System/Type/GetProperty/type_getproperty2.vb b/snippets/visualbasic/System/Type/GetProperty/type_getproperty2.vb index ebcf7777032..3f560394756 100644 --- a/snippets/visualbasic/System/Type/GetProperty/type_getproperty2.vb +++ b/snippets/visualbasic/System/Type/GetProperty/type_getproperty2.vb @@ -4,7 +4,7 @@ Imports System.Reflection Module Module1 Public Class MyClass1 Private myProperty1 As Integer - ' Declare MyProperty. + Public Property MyProperty() As Integer Get Return myProperty1 @@ -13,7 +13,8 @@ Module Module1 myProperty1 = Value End Set End Property - Public Shared Sub Main() + + Public Shared Sub Run() Try ' Get a Type object corresponding to MyClass. Dim myType As Type = GetType(MyClass1) @@ -27,4 +28,4 @@ Module Module1 End Sub End Class End Module 'Module1 -' \ No newline at end of file +' diff --git a/snippets/visualbasic/System/Type/GetProperty/type_getproperty21.vb b/snippets/visualbasic/System/Type/GetProperty/type_getproperty21.vb index c0fe95e7391..c9599f44dcf 100644 --- a/snippets/visualbasic/System/Type/GetProperty/type_getproperty21.vb +++ b/snippets/visualbasic/System/Type/GetProperty/type_getproperty21.vb @@ -14,8 +14,8 @@ Public Class MyPropertyClass End Property End Class -Public Class MyTypeClass - Public Shared Sub Main() +Public Class MyTypeClass21 + Public Shared Sub Run() Try Dim myType As Type = GetType(MyPropertyClass) Dim myTypeArray(1) As Type @@ -25,9 +25,9 @@ Public Class MyTypeClass myTypeArray.SetValue(GetType(Integer), 1) ' Search for the indexed property whose parameters match the ' specified argument types and modifiers. - Dim myPropertyInfo As PropertyInfo = myType.GetProperty("Item", _ + Dim myPropertyInfo As PropertyInfo = myType.GetProperty("Item", GetType(Integer), myTypeArray, Nothing) - Console.WriteLine(myType.FullName + "." + myPropertyInfo.Name + _ + Console.WriteLine(myType.FullName + "." + myPropertyInfo.Name + " has a property type of " + myPropertyInfo.PropertyType.ToString()) Catch ex As Exception Console.WriteLine("An exception occurred " + ex.Message.ToString()) diff --git a/snippets/visualbasic/System/Type/GetProperty/type_getproperty3.vb b/snippets/visualbasic/System/Type/GetProperty/type_getproperty3.vb index c85b5f44dbe..fed6a6d3bc8 100644 --- a/snippets/visualbasic/System/Type/GetProperty/type_getproperty3.vb +++ b/snippets/visualbasic/System/Type/GetProperty/type_getproperty3.vb @@ -1,8 +1,8 @@ ' Imports System.Reflection -Module Module1 - Class MyClass1 +Module Module3 + Class MyClass3 Private myArray As Integer(,) = {{1, 2}, {3, 4}} ' Declare an indexer. Default Public Property Item(ByVal i As Integer, ByVal j As Integer) As Integer @@ -16,11 +16,11 @@ Module Module1 End Property End Class - Public Class MyTypeClass - Public Shared Sub Main() + Public Class MyTypeClass3 + Public Shared Sub Run() Try ' Get the Type Object. - Dim myType As Type = GetType(MyClass1) + Dim myType As Type = GetType(MyClass3) Dim myTypeArr(1) As Type ' Create an instance of a Type array. myTypeArr.SetValue(GetType(Integer), 0) @@ -28,7 +28,7 @@ Module Module1 ' Get the PropertyInfo object for the indexed property Item, which has two integer parameters. Dim myPropInfo As PropertyInfo = myType.GetProperty("Item", myTypeArr) ' Display the property. - Console.WriteLine("The {0} property exists in MyClass1.", myPropInfo.ToString()) + Console.WriteLine("The {0} property exists in MyClass3.", myPropInfo.ToString()) Catch e As NullReferenceException Console.WriteLine("An exception occurred.") Console.WriteLine("Source : {0}", e.Source.ToString()) @@ -36,5 +36,5 @@ Module Module1 End Try End Sub End Class -End Module 'Module1 -' \ No newline at end of file +End Module 'Module3 +' diff --git a/snippets/visualbasic/System/Type/GetProperty/type_getproperty_types.vb b/snippets/visualbasic/System/Type/GetProperty/type_getproperty_types.vb index 09143af137e..cd88ca510e9 100644 --- a/snippets/visualbasic/System/Type/GetProperty/type_getproperty_types.vb +++ b/snippets/visualbasic/System/Type/GetProperty/type_getproperty_types.vb @@ -1,6 +1,6 @@ ' Imports System.Reflection -Class MyClass1 +Class MyTypesClass Private myMessage As [String] = "Hello World." Public Property MyProperty1() As String Get @@ -13,13 +13,13 @@ Class MyClass1 End Class Class TestClass - Shared Sub Main() + Shared Sub Run() Try - Dim myType As Type = GetType(MyClass1) + Dim myType As Type = GetType(MyTypesClass) ' Get the PropertyInfo object representing MyProperty1. Dim myStringProperties1 As PropertyInfo = myType.GetProperty("MyProperty1", GetType(String)) - Console.WriteLine("The name of the first property of MyClass1 is {0}.", myStringProperties1.Name) - Console.WriteLine("The type of the first property of MyClass1 is {0}.", myStringProperties1.PropertyType.ToString()) + Console.WriteLine("The name of the first property of MyTypesClass is {0}.", myStringProperties1.Name) + Console.WriteLine("The type of the first property of MyTypesClass is {0}.", myStringProperties1.PropertyType.ToString()) Catch e As ArgumentNullException Console.WriteLine("ArgumentNullException :" + e.Message.ToString()) Catch e As AmbiguousMatchException @@ -28,10 +28,10 @@ Class TestClass Console.WriteLine("Source : {0}", e.Source.ToString()) Console.WriteLine("Message : {0}", e.Message.ToString()) End Try - 'Output: - 'The name of the first property of MyClass1 is MyProperty1. - 'The type of the first property of MyClass1 is System.String. + 'Output: + 'The name of the first property of MyTypesClass is MyProperty1. + 'The type of the first property of MyTypesClass is System.String. End Sub End Class ' diff --git a/snippets/visualbasic/System/Type/MakeGenericType/Project.vbproj b/snippets/visualbasic/System/Type/MakeGenericType/Project.vbproj new file mode 100644 index 00000000000..92e46ddaccf --- /dev/null +++ b/snippets/visualbasic/System/Type/MakeGenericType/Project.vbproj @@ -0,0 +1,8 @@ + + + + Exe + net9.0 + + + diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.Type.BindGenericParameters/VB/source.vb b/snippets/visualbasic/System/Type/MakeGenericType/source.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_CLR_System/system.Type.BindGenericParameters/VB/source.vb rename to snippets/visualbasic/System/Type/MakeGenericType/source.vb diff --git a/snippets/visualbasic/VS_Snippets_CLR/Type_GetProperty1/VB/Project.vbproj b/snippets/visualbasic/System/ValueType/Equals/project.vbproj similarity index 62% rename from snippets/visualbasic/VS_Snippets_CLR/Type_GetProperty1/VB/Project.vbproj rename to snippets/visualbasic/System/ValueType/Equals/project.vbproj index 29255f5f4b1..303bba94010 100644 --- a/snippets/visualbasic/VS_Snippets_CLR/Type_GetProperty1/VB/Project.vbproj +++ b/snippets/visualbasic/System/ValueType/Equals/project.vbproj @@ -2,8 +2,7 @@ Library - net6.0 - + net9.0 - - \ No newline at end of file + + diff --git a/snippets/visualbasic/VS_Snippets_CLR/ValueType.Equals Example/VB/source.vb b/snippets/visualbasic/System/ValueType/Equals/source.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_CLR/ValueType.Equals Example/VB/source.vb rename to snippets/visualbasic/System/ValueType/Equals/source.vb diff --git a/snippets/visualbasic/VS_Snippets_CLR/string.tolower1/VB/tolower.vb b/snippets/visualbasic/VS_Snippets_CLR/string.tolower1/VB/tolower.vb deleted file mode 100644 index b27ff52664f..00000000000 --- a/snippets/visualbasic/VS_Snippets_CLR/string.tolower1/VB/tolower.vb +++ /dev/null @@ -1,68 +0,0 @@ -' -' Sample for String.ToLower(CultureInfo) -Imports System.Globalization - -Class Sample - Public Shared Sub Main() - 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(&H0130), "N"c, "D"c, ChrW(&H0130), "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 -End Class -' -'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 -' diff --git a/snippets/visualbasic/VS_Snippets_CLR/string.toupper1/VB/toupper.vb b/snippets/visualbasic/VS_Snippets_CLR/string.toupper1/VB/toupper.vb deleted file mode 100644 index b83667b39eb..00000000000 --- a/snippets/visualbasic/VS_Snippets_CLR/string.toupper1/VB/toupper.vb +++ /dev/null @@ -1,39 +0,0 @@ -Option Strict On -Option Infer On - -' -Imports System.Globalization - -Public Module Example - 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 -End Module -' 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. -' diff --git a/snippets/visualbasic/VS_Snippets_CLR/stringlowerupper/VB/stringtolower.vb b/snippets/visualbasic/VS_Snippets_CLR/stringlowerupper/VB/stringtolower.vb deleted file mode 100644 index 7e6b98b8d23..00000000000 --- a/snippets/visualbasic/VS_Snippets_CLR/stringlowerupper/VB/stringtolower.vb +++ /dev/null @@ -1,48 +0,0 @@ -' -Public Class ToLowerTest - - Public Shared Sub Main() - 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 - End Sub -End Class -' 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 -' diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.Math.Log_Overloads/VB/log1.vb b/snippets/visualbasic/VS_Snippets_CLR_System/system.Math.Log_Overloads/VB/log1.vb deleted file mode 100644 index 098be198ef1..00000000000 --- a/snippets/visualbasic/VS_Snippets_CLR_System/system.Math.Log_Overloads/VB/log1.vb +++ /dev/null @@ -1,38 +0,0 @@ -' -Module Example - Sub Main() - Console.WriteLine( _ - " Evaluate this identity with selected values for X:") - Console.WriteLine(" ln(x) = 1 / log[X](B)") - Console.WriteLine() - - Dim XArgs() As Double = { 1.2, 4.9, 9.9, 0.1 } - - For Each argX As Double In XArgs - ' Find natural log of argX. - Console.WriteLine(" Math.Log({0}) = {1:E16}", _ - argX, Math.Log(argX)) - - ' Evaluate 1 / log[X](e). - Console.WriteLine(" 1.0 / Math.Log(e, {0}) = {1:E16}", _ - argX, 1.0 / Math.Log(Math.E, argX)) - Console.WriteLine() - Next - End Sub -End Module -' This example displays the following output: -' Evaluate this identity with selected values for X: -' ln(x) = 1 / log[X](B) -' -' Math.Log(1.2) = 1.8232155679395459E-001 -' 1.0 / Math.Log(e, 1.2) = 1.8232155679395459E-001 -' -' Math.Log(4.9) = 1.5892352051165810E+000 -' 1.0 / Math.Log(e, 4.9) = 1.5892352051165810E+000 -' -' Math.Log(9.9) = 2.2925347571405443E+000 -' 1.0 / Math.Log(e, 9.9) = 2.2925347571405443E+000 -' -' Math.Log(0.1) = -2.3025850929940455E+000 -' 1.0 / Math.Log(e, 0.1) = -2.3025850929940455E+000 -' diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.Math.Log_Overloads/VB/loggen.vb b/snippets/visualbasic/VS_Snippets_CLR_System/system.Math.Log_Overloads/VB/loggen.vb deleted file mode 100644 index 760859301cc..00000000000 --- a/snippets/visualbasic/VS_Snippets_CLR_System/system.Math.Log_Overloads/VB/loggen.vb +++ /dev/null @@ -1,73 +0,0 @@ -' -' Example for the Math.Log( Double ) and Math.Log( Double, Double ) methods. -Module LogDLogDD - - Sub Main() - Console.WriteLine( _ - "This example of Math.Log( Double ) and " + _ - "Math.Log( Double, Double )" & vbCrLf & _ - "generates the following output." & vbCrLf) - Console.WriteLine( _ - "Evaluate these identities with selected " & _ - "values for X and B (base):") - Console.WriteLine(" log(B)[X] = 1 / log(X)[B]") - Console.WriteLine(" log(B)[X] = ln[X] / ln[B]") - Console.WriteLine(" log(B)[X] = log(B)[e] * ln[X]") - - UseBaseAndArg(0.1, 1.2) - UseBaseAndArg(1.2, 4.9) - UseBaseAndArg(4.9, 9.9) - UseBaseAndArg(9.9, 0.1) - End Sub - - ' Evaluate logarithmic identities that are functions of two arguments. - Sub UseBaseAndArg(argB As Double, argX As Double) - - ' Evaluate log(B)[X] = 1 / log(X)[B]. - Console.WriteLine( _ - vbCrLf & " Math.Log({1}, {0}) = {2:E16}" + _ - vbCrLf & " 1.0 / Math.Log({0}, {1}) = {3:E16}", _ - argB, argX, Math.Log(argX, argB), _ - 1.0 / Math.Log(argB, argX)) - - ' Evaluate log(B)[X] = ln[X] / ln[B]. - Console.WriteLine( _ - " Math.Log({1}) / Math.Log({0}) = {2:E16}", _ - argB, argX, Math.Log(argX) / Math.Log(argB)) - - ' Evaluate log(B)[X] = log(B)[e] * ln[X]. - Console.WriteLine( _ - "Math.Log(Math.E, {0}) * Math.Log({1}) = {2:E16}", _ - argB, argX, Math.Log(Math.E, argB) * Math.Log(argX)) - - End Sub -End Module 'LogDLogDD - -' This example of Math.Log( Double ) and Math.Log( Double, Double ) -' generates the following output. -' -' Evaluate these identities with selected values for X and B (base): -' log(B)[X] = 1 / log(X)[B] -' log(B)[X] = ln[X] / ln[B] -' log(B)[X] = log(B)[e] * ln[X] -' -' Math.Log(1.2, 0.1) = -7.9181246047624818E-002 -' 1.0 / Math.Log(0.1, 1.2) = -7.9181246047624818E-002 -' Math.Log(1.2) / Math.Log(0.1) = -7.9181246047624818E-002 -' Math.Log(Math.E, 0.1) * Math.Log(1.2) = -7.9181246047624804E-002 -' -' Math.Log(4.9, 1.2) = 8.7166610085093179E+000 -' 1.0 / Math.Log(1.2, 4.9) = 8.7166610085093161E+000 -' Math.Log(4.9) / Math.Log(1.2) = 8.7166610085093179E+000 -' Math.Log(Math.E, 1.2) * Math.Log(4.9) = 8.7166610085093179E+000 -' -' Math.Log(9.9, 4.9) = 1.4425396251981288E+000 -' 1.0 / Math.Log(4.9, 9.9) = 1.4425396251981288E+000 -' Math.Log(9.9) / Math.Log(4.9) = 1.4425396251981288E+000 -' Math.Log(Math.E, 4.9) * Math.Log(9.9) = 1.4425396251981288E+000 -' -' Math.Log(0.1, 9.9) = -1.0043839404494075E+000 -' 1.0 / Math.Log(9.9, 0.1) = -1.0043839404494075E+000 -' Math.Log(0.1) / Math.Log(9.9) = -1.0043839404494075E+000 -' Math.Log(Math.E, 9.9) * Math.Log(0.1) = -1.0043839404494077E+000 -' diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.Security.Permissions.CodeAccessSecurityAttribute/VB/makefile b/snippets/visualbasic/VS_Snippets_CLR_System/system.Security.Permissions.CodeAccessSecurityAttribute/VB/makefile deleted file mode 100644 index 71ae05ac6d1..00000000000 --- a/snippets/visualbasic/VS_Snippets_CLR_System/system.Security.Permissions.CodeAccessSecurityAttribute/VB/makefile +++ /dev/null @@ -1,7 +0,0 @@ -all: NameIdPermission.dll NameIdPermissionAttribute.dll - -NameIdPermission.dll : nameidpermission.vb - vbc /t:library nameidpermission.vb - -NameIdPermissionAttribute.dll : nameidpermissionattribute.vb - vbc /t:library nameidpermissionattribute.vb /r:NameIdPermission.dll \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.String.ToUpper/vb/ToUpperEx.vb b/snippets/visualbasic/VS_Snippets_CLR_System/system.String.ToUpper/vb/ToUpperEx.vb deleted file mode 100644 index 74fba36cf7a..00000000000 --- a/snippets/visualbasic/VS_Snippets_CLR_System/system.String.ToUpper/vb/ToUpperEx.vb +++ /dev/null @@ -1,84 +0,0 @@ -' Visual Basic .NET Document -Option Strict On - -' -Module Example - Public Sub Main() - Dim n As Integer = 0 - For ctr As Integer = &h20 To &h017F - 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 - End Sub -End Module -' 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) -' diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.TimeSpan.TryParse/vb/tryparse2.vb b/snippets/visualbasic/VS_Snippets_CLR_System/system.TimeSpan.TryParse/vb/tryparse2.vb deleted file mode 100644 index 92cdc17b639..00000000000 --- a/snippets/visualbasic/VS_Snippets_CLR_System/system.TimeSpan.TryParse/vb/tryparse2.vb +++ /dev/null @@ -1,50 +0,0 @@ -' Visual Basic .NET Document -Option Strict On - -' -Imports System.Globalization - -Module Example - Public Sub Main() - Dim values() As String = { "6", "6:12", "6:12:14", "6:12:14:45", - "6.12:14:45", "6:12:14:45.3448", - "6:12:14:45,3448", "6:34:14:45" } - Dim cultures() As CultureInfo = { New CultureInfo("en-US"), - New CultureInfo("ru-RU"), - CultureInfo.InvariantCulture } - - Dim header As String = String.Format("{0,-17}", "String") - For Each culture As CultureInfo In cultures - header += If(culture.Equals(CultureInfo.InvariantCulture), - String.Format("{0,20}", "Invariant"), - String.Format("{0,20}", culture.Name)) - Next - Console.WriteLine(header) - Console.WriteLine() - - For Each value As String In values - Console.Write("{0,-17}", value) - For Each culture As CultureInfo In cultures - Dim interval As New TimeSpan() - If TimeSpan.TryParse(value, culture, interval) Then - Console.Write("{0,20}", interval.ToString("c")) - Else - Console.Write("{0,20}", "Unable to Parse") - End If - Next - Console.WriteLine() - Next - End Sub -End Module -' The example displays the following output: -' String en-US ru-RU Invariant -' -' 6 6.00:00:00 6.00:00:00 6.00:00:00 -' 6:12 06:12:00 06:12:00 06:12:00 -' 6:12:14 06:12:14 06:12:14 06:12:14 -' 6:12:14:45 6.12:14:45 6.12:14:45 6.12:14:45 -' 6.12:14:45 6.12:14:45 6.12:14:45 6.12:14:45 -' 6:12:14:45.3448 6.12:14:45.3448000 Unable to Parse 6.12:14:45.3448000 -' 6:12:14:45,3448 Unable to Parse 6.12:14:45.3448000 Unable to Parse -' 6:34:14:45 Unable to Parse Unable to Parse Unable to Parse -' diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.numerics.biginteger.log/vb/log1.vb b/snippets/visualbasic/VS_Snippets_CLR_System/system.numerics.biginteger.log/vb/log1.vb deleted file mode 100644 index 45b0489f253..00000000000 --- a/snippets/visualbasic/VS_Snippets_CLR_System/system.numerics.biginteger.log/vb/log1.vb +++ /dev/null @@ -1,26 +0,0 @@ -' Visual Basic .NET Document -Option Strict On - -' -Imports System.Numerics - -Module Example - Public Sub Main() - Dim values() As BigInteger = { 2, 100, BigInteger.Pow(1000, 100), - BigInteger.Pow(2, 64) } - For Each value In values - Console.WriteLine("The square root of {0} is {1}", value, - Math.Exp(BigInteger.Log(value) / 2)) - Next - End Sub -End Module -' The example displays the following output: -' The square root of 2 is 1.41421356237309 -' The square root of 100 is 10 -' The square root of 1000000000000000000000000000000000000000000000000000000000000 -' 00000000000000000000000000000000000000000000000000000000000000000000000000000000 -' 00000000000000000000000000000000000000000000000000000000000000000000000000000000 -' 00000000000000000000000000000000000000000000000000000000000000000000000000000000 -' is 9.99999999999988E+149 -' The square root of 18446744073709551616 is 4294967296 -' diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.timespan.parse/vb/parse1.vb b/snippets/visualbasic/VS_Snippets_CLR_System/system.timespan.parse/vb/parse1.vb deleted file mode 100644 index 2c1c5365e50..00000000000 --- a/snippets/visualbasic/VS_Snippets_CLR_System/system.timespan.parse/vb/parse1.vb +++ /dev/null @@ -1,54 +0,0 @@ -' Visual Basic .NET Document -Option Strict On - -' -Imports System.Globalization -Imports System.Threading - -Module Example - Public Sub Main() - Dim values() As String = { "6", "6:12", "6:12:14", "6:12:14:45", - "6.12:14:45", "6:12:14:45.3448", - "6:12:14:45,3448", "6:34:14:45" } - Dim cultureNames() As String = { "hr-HR", "en-US"} - - ' Change the current culture. - For Each cultureName As String In cultureNames - Thread.CurrentThread.CurrentCulture = New CultureInfo(cultureName) - Console.WriteLine("Current Culture: {0}", - Thread.CurrentThread.CurrentCulture.Name) - For Each value As String In values - Try - Dim ts As TimeSpan = TimeSpan.Parse(value) - Console.WriteLine("{0} --> {1}", value, ts.ToString("c")) - Catch e As FormatException - Console.WriteLine("{0}: Bad Format", value) - Catch e As OverflowException - Console.WriteLine("{0}: Overflow", value) - End Try - Next - Console.WriteLine() - Next - End Sub -End Module -' The example displays the following output: -' Current Culture: hr-HR -' 6 --> 6.00:00:00 -' 6:12 --> 06:12:00 -' 6:12:14 --> 06:12:14 -' 6:12:14:45 --> 6.12:14:45 -' 6.12:14:45 --> 6.12:14:45 -' 6:12:14:45.3448: Bad Format -' 6:12:14:45,3448 --> 6.12:14:45.3448000 -' 6:34:14:45: Overflow -' -' Current Culture: en-US -' 6 --> 6.00:00:00 -' 6:12 --> 06:12:00 -' 6:12:14 --> 06:12:14 -' 6:12:14:45 --> 6.12:14:45 -' 6.12:14:45 --> 6.12:14:45 -' 6:12:14:45.3448 --> 6.12:14:45.3448000 -' 6:12:14:45,3448: Bad Format -' 6:34:14:45: Overflow -' diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.timespan.parse/vb/parse2.vb b/snippets/visualbasic/VS_Snippets_CLR_System/system.timespan.parse/vb/parse2.vb deleted file mode 100644 index 94a0cdd7b71..00000000000 --- a/snippets/visualbasic/VS_Snippets_CLR_System/system.timespan.parse/vb/parse2.vb +++ /dev/null @@ -1,53 +0,0 @@ -' Visual Basic .NET Document -Option Strict On - -' -Imports System.Globalization -Imports System.Threading - -Module Example - Public Sub Main() - Dim values() As String = { "6", "6:12", "6:12:14", "6:12:14:45", - "6.12:14:45", "6:12:14:45.3448", - "6:12:14:45,3448", "6:34:14:45" } - Dim cultures() As CultureInfo = { New CultureInfo("en-US"), - New CultureInfo("ru-RU"), - CultureInfo.InvariantCulture } - - Dim header As String = String.Format("{0,-17}", "String") - For Each culture As CultureInfo In cultures - header += If(culture.Equals(CultureInfo.InvariantCulture), - String.Format("{0,20}", "Invariant"), - String.Format("{0,20}", culture.Name)) - Next - Console.WriteLine(header) - Console.WriteLine() - - For Each value As String In values - Console.Write("{0,-17}", value) - For Each culture As CultureInfo In cultures - Try - Dim ts As TimeSpan = TimeSpan.Parse(value, culture) - Console.Write("{0,20}", ts.ToString("c")) - Catch e As FormatException - Console.Write("{0,20}", "Bad Format") - Catch e As OverflowException - Console.Write("{0,20}", "Overflow") - End Try - Next - Console.WriteLine() - Next - End Sub -End Module -' The example displays the following output: -' String en-US ru-RU Invariant -' -' 6 6.00:00:00 6.00:00:00 6.00:00:00 -' 6:12 06:12:00 06:12:00 06:12:00 -' 6:12:14 06:12:14 06:12:14 06:12:14 -' 6:12:14:45 6.12:14:45 6.12:14:45 6.12:14:45 -' 6.12:14:45 6.12:14:45 6.12:14:45 6.12:14:45 -' 6:12:14:45.3448 6.12:14:45.3448000 Bad Format 6.12:14:45.3448000 -' 6:12:14:45,3448 Bad Format 6.12:14:45.3448000 Bad Format -' 6:34:14:45 Overflow Overflow Overflow -' diff --git a/snippets/visualbasic/VS_Snippets_Winforms/system.componentmodel.backgroundworkersimple/vb/my project/application.designer.vb b/snippets/visualbasic/VS_Snippets_Winforms/system.componentmodel.backgroundworkersimple/vb/my project/application.designer.vb deleted file mode 100644 index 34cd0951367..00000000000 --- a/snippets/visualbasic/VS_Snippets_Winforms/system.componentmodel.backgroundworkersimple/vb/my project/application.designer.vb +++ /dev/null @@ -1,38 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:4.0.30319.1 -' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - - -Namespace My - - 'NOTE: This file is auto-generated; do not modify it directly. To make changes, - ' or if you encounter build errors in this file, go to the Project Designer - ' (go to Project Properties or double-click the My Project node in - ' Solution Explorer), and make changes on the Application tab. - ' - Partial Friend Class MyApplication - - _ - Public Sub New() - MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) - Me.IsSingleInstance = false - Me.EnableVisualStyles = true - Me.SaveMySettingsOnExit = true - Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses - End Sub - - _ - Protected Overrides Sub OnCreateMainForm() - Me.MainForm = Global.BackgroundWorkerSimple.Form1 - End Sub - End Class -End Namespace diff --git a/snippets/visualbasic/VS_Snippets_Winforms/system.componentmodel.backgroundworkersimple/vb/my project/application.myapp b/snippets/visualbasic/VS_Snippets_Winforms/system.componentmodel.backgroundworkersimple/vb/my project/application.myapp deleted file mode 100644 index 1243847fd9b..00000000000 --- a/snippets/visualbasic/VS_Snippets_Winforms/system.componentmodel.backgroundworkersimple/vb/my project/application.myapp +++ /dev/null @@ -1,11 +0,0 @@ - - - true - Form1 - false - 0 - true - 0 - 0 - true - diff --git a/snippets/visualbasic/VS_Snippets_Winforms/system.componentmodel.backgroundworkersimple/vb/my project/assemblyinfo.vb b/snippets/visualbasic/VS_Snippets_Winforms/system.componentmodel.backgroundworkersimple/vb/my project/assemblyinfo.vb deleted file mode 100644 index d681cb7bd76..00000000000 --- a/snippets/visualbasic/VS_Snippets_Winforms/system.componentmodel.backgroundworkersimple/vb/my project/assemblyinfo.vb +++ /dev/null @@ -1,34 +0,0 @@ -Imports System.Reflection -Imports System.Runtime.InteropServices - -' General Information about an assembly is controlled through the following -' set of attributes. Change these attribute values to modify the information -' associated with an assembly. - -' Review the values of the assembly attributes - - - - - - - - - - -'The following GUID is for the ID of the typelib if this project is exposed to COM - - -' Version information for an assembly consists of the following four values: -' -' Major Version -' Minor Version -' Build Number -' Revision -' -' You can specify all the values or you can default the Build and Revision Numbers -' by using the '*' as shown below: -' - - - diff --git a/snippets/visualbasic/VS_Snippets_Winforms/system.componentmodel.backgroundworkersimple/vb/my project/resources.designer.vb b/snippets/visualbasic/VS_Snippets_Winforms/system.componentmodel.backgroundworkersimple/vb/my project/resources.designer.vb deleted file mode 100644 index b8330483b70..00000000000 --- a/snippets/visualbasic/VS_Snippets_Winforms/system.componentmodel.backgroundworkersimple/vb/my project/resources.designer.vb +++ /dev/null @@ -1,62 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:4.0.30319.1 -' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - - -Namespace My.Resources - - 'This class was auto-generated by the StronglyTypedResourceBuilder - 'class via a tool like ResGen or Visual Studio. - 'To add or remove a member, edit your .ResX file then rerun ResGen - 'with the /str option, or rebuild your VS project. - ''' - ''' A strongly-typed resource class, for looking up localized strings, etc. - ''' - _ - Friend Module Resources - - Private resourceMan As Global.System.Resources.ResourceManager - - Private resourceCulture As Global.System.Globalization.CultureInfo - - ''' - ''' Returns the cached ResourceManager instance used by this class. - ''' - _ - Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager - Get - If Object.ReferenceEquals(resourceMan, Nothing) Then - Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("BackgroundWorkerSimple.Resources", GetType(Resources).Assembly) - resourceMan = temp - End If - Return resourceMan - End Get - End Property - - ''' - ''' Overrides the current thread's CurrentUICulture property for all - ''' resource lookups using this strongly typed resource class. - ''' - _ - Friend Property Culture() As Global.System.Globalization.CultureInfo - Get - Return resourceCulture - End Get - Set(ByVal value As Global.System.Globalization.CultureInfo) - resourceCulture = value - End Set - End Property - End Module -End Namespace diff --git a/snippets/visualbasic/VS_Snippets_Winforms/system.componentmodel.backgroundworkersimple/vb/my project/resources.resx b/snippets/visualbasic/VS_Snippets_Winforms/system.componentmodel.backgroundworkersimple/vb/my project/resources.resx deleted file mode 100644 index af7dbebbace..00000000000 --- a/snippets/visualbasic/VS_Snippets_Winforms/system.componentmodel.backgroundworkersimple/vb/my project/resources.resx +++ /dev/null @@ -1,117 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_Winforms/system.componentmodel.backgroundworkersimple/vb/my project/settings.designer.vb b/snippets/visualbasic/VS_Snippets_Winforms/system.componentmodel.backgroundworkersimple/vb/my project/settings.designer.vb deleted file mode 100644 index e3427dcf225..00000000000 --- a/snippets/visualbasic/VS_Snippets_Winforms/system.componentmodel.backgroundworkersimple/vb/my project/settings.designer.vb +++ /dev/null @@ -1,73 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:4.0.30319.1 -' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - - -Namespace My - - _ - Partial Friend NotInheritable Class MySettings - Inherits Global.System.Configuration.ApplicationSettingsBase - - Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) - -#Region "My.Settings Auto-Save Functionality" -#If _MyType = "WindowsForms" Then - Private Shared addedHandler As Boolean - - Private Shared addedHandlerLockObject As New Object - - _ - Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) - If My.Application.SaveMySettingsOnExit Then - My.Settings.Save() - End If - End Sub -#End If -#End Region - - Public Shared ReadOnly Property [Default]() As MySettings - Get - -#If _MyType = "WindowsForms" Then - If Not addedHandler Then - SyncLock addedHandlerLockObject - If Not addedHandler Then - AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings - addedHandler = True - End If - End SyncLock - End If -#End If - Return defaultInstance - End Get - End Property - End Class -End Namespace - -Namespace My - - _ - Friend Module MySettingsProperty - - _ - Friend ReadOnly Property Settings() As Global.BackgroundWorkerSimple.My.MySettings - Get - Return Global.BackgroundWorkerSimple.My.MySettings.Default - End Get - End Property - End Module -End Namespace diff --git a/snippets/visualbasic/VS_Snippets_Winforms/system.componentmodel.backgroundworkersimple/vb/my project/settings.settings b/snippets/visualbasic/VS_Snippets_Winforms/system.componentmodel.backgroundworkersimple/vb/my project/settings.settings deleted file mode 100644 index 85b890b3c66..00000000000 --- a/snippets/visualbasic/VS_Snippets_Winforms/system.componentmodel.backgroundworkersimple/vb/my project/settings.settings +++ /dev/null @@ -1,7 +0,0 @@ - - - - - - - diff --git a/xml/System.Globalization/CultureInfo.xml b/xml/System.Globalization/CultureInfo.xml index f57962e3298..47a88e0448b 100644 --- a/xml/System.Globalization/CultureInfo.xml +++ b/xml/System.Globalization/CultureInfo.xml @@ -966,7 +966,7 @@ If `name` is , the constr The following example demonstrates how to change the and of the current thread. :::code language="csharp" source="~/snippets/csharp/System.Globalization/CultureInfo/CurrentCulture/currentculture.cs" id="Snippet11"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR_System/system.Globalization.CultureInfo.CurrentCulture2/VB/currentculture.vb" id="Snippet11"::: +:::code language="vb" source="~/snippets/visualbasic/System.Globalization/CultureInfo/CurrentCulture/currentculture.vb" id="Snippet11"::: ]]> The property is set to . @@ -1039,7 +1039,7 @@ The following example demonstrates how to change the and of the current thread. :::code language="csharp" source="~/snippets/csharp/System.Globalization/CultureInfo/CurrentCulture/currentculture.cs" id="Snippet11"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR_System/system.Globalization.CultureInfo.CurrentCulture2/VB/currentculture.vb" id="Snippet11"::: +:::code language="vb" source="~/snippets/visualbasic/System.Globalization/CultureInfo/CurrentCulture/currentculture.vb" id="Snippet11"::: ]]> The property is set to . diff --git a/xml/System.Reflection.Emit/ILGenerator.xml b/xml/System.Reflection.Emit/ILGenerator.xml index e7d519e5aab..815f1962a88 100644 --- a/xml/System.Reflection.Emit/ILGenerator.xml +++ b/xml/System.Reflection.Emit/ILGenerator.xml @@ -1878,7 +1878,7 @@ The method does not throw The following code example emits two methods, a `varargs` method and a method that calls the `varargs` method. The `EmitCall` method is used to emit the call to the `varargs` method. :::code language="csharp" source="~/snippets/csharp/System.Reflection.Emit/ILGenerator/EmitCall/source.cs" id="Snippet1"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR/Emit.ArgIterator/vb/source.vb" id="Snippet1"::: +:::code language="vb" source="~/snippets/visualbasic/System.Reflection.Emit/ILGenerator/EmitCall/source.vb" id="Snippet1"::: ]]> diff --git a/xml/System.Runtime.InteropServices/Marshal.xml b/xml/System.Runtime.InteropServices/Marshal.xml index 8210b886f60..63d61abbb04 100644 --- a/xml/System.Runtime.InteropServices/Marshal.xml +++ b/xml/System.Runtime.InteropServices/Marshal.xml @@ -2886,7 +2886,7 @@ The example calls . :::code language="csharp" source="~/snippets/csharp/System.Runtime.InteropServices/Marshal/GetActiveObject/marshal.getactiveobject.cs" id="Snippet1"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR_System/system.runtime.interopservices.marshal.getactiveobject/vb/marshal.getactiveobject.vb" id="Snippet1"::: +:::code language="vb" source="~/snippets/visualbasic/System.Runtime.InteropServices/Marshal/GetActiveObject/marshal.getactiveobject.vb" id="Snippet1"::: ]]> The object was not found. @@ -3991,7 +3991,7 @@ The code retrieves a reference to an instance of Microsoft Word successfully. Ho You must manually keep the delegate from being collected by the garbage collector from managed code. The garbage collector does not track references to unmanaged code. This API is unsupported in environments that don't support dynamic entry-point allocation, such as `ProcessDynamicCodePolicy` on Windows, `execmem off` in SELinux, and WebAssembly. - + It is recommended to use function pointers and instead. Function pointers are more efficient, easier to use correctly, and supported in all environments. ]]> @@ -4064,9 +4064,9 @@ The code retrieves a reference to an instance of Microsoft Word successfully. Ho The delegate `d` is converted to a function pointer that can be passed to unmanaged code by using [the default platform calling convention](/dotnet/standard/native-interop/calling-conventions#platform-default-calling-convention). You can set the calling convention by applying the to the delegate. You must manually keep the delegate from being collected by the garbage collector from managed code. The garbage collector does not track references to unmanaged code. - + This API is unsupported in environments that don't support dynamic entry-point allocation, such as `ProcessDynamicCodePolicy` on Windows, `execmem off` in SELinux, and WebAssembly. - + It is recommended to use function pointers and instead. Function pointers are more efficient, easier to use correctly, and supported in all environments. ]]> diff --git a/xml/System/Exception.xml b/xml/System/Exception.xml index b4aca621528..5d885ef3133 100644 --- a/xml/System/Exception.xml +++ b/xml/System/Exception.xml @@ -453,7 +453,7 @@ The following example demonstrates how to add and retrieve information using the :::code language="csharp" source="~/snippets/csharp/System/Exception/Data/data.cs" interactive="try-dotnet" id="Snippet1"::: :::code language="fsharp" source="~/snippets/fsharp/System/Exception/Data/data.fs" id="Snippet1"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR/exception.data/VB/data.vb" id="Snippet1"::: +:::code language="vb" source="~/snippets/visualbasic/System/Exception/Data/data.vb" id="Snippet1"::: ]]> diff --git a/xml/System/Object.xml b/xml/System/Object.xml index b6ded90702d..43f819563ae 100644 --- a/xml/System/Object.xml +++ b/xml/System/Object.xml @@ -344,7 +344,7 @@ The following example verifies that the method :::code language="csharp" source="~/snippets/csharp/System/Object/Finalize/finalize1.cs" id="Snippet1"::: :::code language="fsharp" source="~/snippets/fsharp/System/Object/Finalize/finalize1.fs" id="Snippet1"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR_System/system.object.finalize/vb/finalize1.vb" id="Snippet1"::: +:::code language="vb" source="~/snippets/visualbasic/System/Object/Finalize/finalize1.vb" id="Snippet1"::: For an additional example that overrides the method, see the method. ]]> diff --git a/xml/System/String.xml b/xml/System/String.xml index 6e7a68c8031..6664a5bf748 100644 --- a/xml/System/String.xml +++ b/xml/System/String.xml @@ -8209,7 +8209,7 @@ The following example uses three strings that are equal in value to determine wh :::code language="csharp" source="~/snippets/csharp/System/String/Intern/string_intern.cs" interactive="try-dotnet" id="Snippet1"::: :::code language="fsharp" source="~/snippets/fsharp/System/String/Intern/string_intern.fs" id="Snippet1"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR/string.intern/VB/string_intern.vb" id="Snippet1"::: +:::code language="vb" source="~/snippets/visualbasic/System/String/Intern/string_intern.vb" id="Snippet1"::: ]]> @@ -8520,7 +8520,7 @@ For a description of supported Unicode normalization forms, see @@ -15354,7 +15354,7 @@ The following example converts several mixed case strings to lowercase. :::code language="csharp" source="~/snippets/csharp/System/String/ToLower/stringtolower.cs" interactive="try-dotnet" id="Snippet1"::: :::code language="fsharp" source="~/snippets/fsharp/System/String/ToLower/stringtolower.fs" id="Snippet1"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR/stringlowerupper/VB/stringtolower.vb" id="Snippet1"::: +:::code language="vb" source="~/snippets/visualbasic/System/String/ToLower/stringtolower.vb" id="Snippet1"::: ]]> @@ -15441,7 +15441,7 @@ The following example converts two strings of uppercase characters to lowercase :::code language="csharp" source="~/snippets/csharp/System/String/ToLower/tolower.cs" interactive="try-dotnet" id="Snippet1"::: :::code language="fsharp" source="~/snippets/fsharp/System/String/ToLower/tolower.fs" id="Snippet1"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR/string.tolower1/VB/tolower.vb" id="Snippet1"::: +:::code language="vb" source="~/snippets/visualbasic/System/String/ToLower/tolower.vb" id="Snippet1"::: ]]> @@ -15752,7 +15752,7 @@ The following example calls the method to conver :::code language="csharp" source="~/snippets/csharp/System/String/ToUpper/ToUpperEx.cs" id="Snippet1"::: :::code language="fsharp" source="~/snippets/fsharp/System/String/ToUpper/ToUpperEx.fs" id="Snippet1"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR_System/system.String.ToUpper/vb/ToUpperEx.vb" id="Snippet1"::: +:::code language="vb" source="~/snippets/visualbasic/System/String/ToUpper/ToUpperEx.vb" id="Snippet1"::: ]]> @@ -15838,7 +15838,7 @@ The following example converts a string of lowercase characters to two strings o :::code language="csharp" source="~/snippets/csharp/System/String/ToUpper/toupper.cs" interactive="try-dotnet" id="Snippet1"::: :::code language="fsharp" source="~/snippets/fsharp/System/String/ToUpper/toupper.fs" id="Snippet1"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR/string.toupper1/VB/toupper.vb" id="Snippet1"::: +:::code language="vb" source="~/snippets/visualbasic/System/String/ToUpper/toupper.vb" id="Snippet1"::: ]]> @@ -15915,7 +15915,7 @@ The following example defines a string array that contains a single word in a nu :::code language="csharp" source="~/snippets/csharp/System/String/ToUpperInvariant/toupperinvariant.cs" id="Snippet1"::: :::code language="fsharp" source="~/snippets/fsharp/System/String/ToUpperInvariant/toupperinvariant.fs" id="Snippet1"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR_System/system.string.toupperinvariant/vb/toupperinvariant.vb" id="Snippet1"::: +:::code language="vb" source="~/snippets/visualbasic/System/String/ToUpperInvariant/toupperinvariant.vb" id="Snippet1"::: ]]> diff --git a/xml/System/TimeSpan.xml b/xml/System/TimeSpan.xml index 2acbbbeb05b..b943d78a8d6 100644 --- a/xml/System/TimeSpan.xml +++ b/xml/System/TimeSpan.xml @@ -4058,7 +4058,7 @@ The following example uses the method to convert :::code language="csharp" source="~/snippets/csharp/System/TimeSpan/Parse/parse1.cs" interactive="try-dotnet" id="Snippet1"::: :::code language="fsharp" source="~/snippets/fsharp/System/TimeSpan/Parse/parse1.fs" id="Snippet1"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR_System/system.timespan.parse/vb/parse1.vb" id="Snippet1"::: +:::code language="vb" source="~/snippets/visualbasic/System/TimeSpan/Parse/parse1.vb" id="Snippet1"::: ]]> @@ -4203,7 +4203,7 @@ The following example defines an array of @@ -6462,7 +6462,7 @@ The following example uses the method to crea :::code language="csharp" source="~/snippets/csharp/System/TimeSpan/TryParse/TryParse1.cs" interactive="try-dotnet" id="Snippet1"::: :::code language="fsharp" source="~/snippets/fsharp/System/TimeSpan/TryParse/TryParse1.fs" id="Snippet1"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR_System/system.TimeSpan.TryParse/vb/TryParse1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/System/TimeSpan/TryParse/TryParse1.vb" id="Snippet1"::: ]]> @@ -6585,7 +6585,7 @@ The following example defines an array of diff --git a/xml/System/Type.xml b/xml/System/Type.xml index e09aa681d65..9a727ebead8 100644 --- a/xml/System/Type.xml +++ b/xml/System/Type.xml @@ -8063,7 +8063,7 @@ The following example retrieves the `Type` object of a user-defined class, retri :::code language="csharp" source="~/snippets/csharp/System/Type/GetProperty/type_getproperty1.cs" interactive="try-dotnet" id="Snippet1"::: :::code language="fsharp" source="~/snippets/fsharp/System/Type/GetProperty/type_getproperty1.fs" id="Snippet1"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR/Type_GetProperty1/VB/type_getproperty1.vb" id="Snippet1"::: +:::code language="vb" source="~/snippets/visualbasic/System/Type/GetProperty/type_getproperty1.vb" id="Snippet1"::: ]]> More than one property is found with the specified name. @@ -9037,7 +9037,7 @@ You can use the method to obtain a If `typeName` cannot be found, the call to the method returns `null`. It does not throw an exception. To control whether an exception is thrown, call an overload of the method that has a `throwOnError` parameter. .NET Framework only: only works on assemblies loaded from disk. If you call to look up a type defined in a dynamic assembly defined using the services, you might get inconsistent behavior. The behavior depends on whether the dynamic assembly is persistent, that is, created using the `RunAndSave` or `Save` access modes of the enumeration. If the dynamic assembly is persistent and has been written to disk before `GetType` is called, the loader finds the saved assembly on disk, loads that assembly, and retrieves the type from that assembly. If the assembly has not been saved to disk when `GetType` is called, the method returns `null`. `GetType` does not understand transient dynamic assemblies; therefore, calling `GetType` to retrieve a type in a transient dynamic assembly returns `null`. - + In .NET Framework, to use `GetType` on a dynamic module, subscribe to the event and call `GetType` before saving. Otherwise, you will get two copies of the assembly in memory. On .NET Core 3.0 and later versions, assembly loads triggered by this API are affected by the current value of . @@ -9247,7 +9247,7 @@ Note: In .NET for Win You can use the method to obtain a object for a type in another assembly if you know its assembly-qualified name, which can be obtained from . causes loading of the assembly specified in `typeName`. You can also load an assembly using the method, and then use the or method to get objects. If a type is in an assembly known to your program at compile time, it's more efficient to use `typeof` in C# or the `GetType` operator in Visual Basic. .NET Framework only: only works on assemblies loaded from disk. If you call to look up a type defined in a dynamic assembly defined using the services, you might get inconsistent behavior. The behavior depends on whether the dynamic assembly is persistent, that is, created using the `RunAndSave` or `Save` access modes of the enumeration. If the dynamic assembly is persistent and has been written to disk before `GetType` is called, the loader finds the saved assembly on disk, loads that assembly, and retrieves the type from that assembly. If the assembly has not been saved to disk when `GetType` is called, the method returns `null`. `GetType` does not understand transient dynamic assemblies; therefore, calling `GetType` to retrieve a type in a transient dynamic assembly returns `null`. - + In .NET Framework, to use `GetType` on a dynamic module, subscribe to the event and call `GetType` before saving. Otherwise, you will get two copies of the assembly in memory. On .NET Core 3.0 and later versions, assembly loads triggered by this API are affected by the current value of . @@ -9484,7 +9484,7 @@ Note: In .NET for Win You can use the method to obtain a object for a type in another assembly if you know its assembly-qualified name, which can be obtained from . causes loading of the assembly specified in `typeName`. You can also load an assembly using the method, and then use the or method to get objects. If a type is in an assembly known to your program at compile time, it's more efficient to use `typeof` in C# or the `GetType` operator in Visual Basic. .NET Framework only: only works on assemblies loaded from disk. If you call to look up a type defined in a dynamic assembly defined using the services, you might get inconsistent behavior. The behavior depends on whether the dynamic assembly is persistent, that is, created using the `RunAndSave` or `Save` access modes of the enumeration. If the dynamic assembly is persistent and has been written to disk before `GetType` is called, the loader finds the saved assembly on disk, loads that assembly, and retrieves the type from that assembly. If the assembly has not been saved to disk when `GetType` is called, the method returns `null`. `GetType` does not understand transient dynamic assemblies; therefore, calling `GetType` to retrieve a type in a transient dynamic assembly returns `null`. - + In .NET Framework, to use `GetType` on a dynamic module, subscribe to the event and call `GetType` before saving. Otherwise, you will get two copies of the assembly in memory. On .NET Core 3.0 and later versions, assembly loads triggered by this API are affected by the current value of . @@ -16386,7 +16386,7 @@ The following example uses the method to c :::code language="csharp" source="~/snippets/csharp/System/Type/MakeGenericType/source.cs" interactive="try-dotnet" id="Snippet1"::: :::code language="fsharp" source="~/snippets/fsharp/System/Type/MakeGenericType/source.fs" id="Snippet1"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR_System/system.Type.BindGenericParameters/VB/source.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/System/Type/MakeGenericType/source.vb" id="Snippet1"::: ]]> The current type does not represent a generic type definition. That is, returns . diff --git a/xml/System/ValueType.xml b/xml/System/ValueType.xml index c057f1d802d..3cab6101bdf 100644 --- a/xml/System/ValueType.xml +++ b/xml/System/ValueType.xml @@ -216,7 +216,7 @@ The following example demonstrates how the met :::code language="csharp" source="~/snippets/csharp/System/ValueType/Equals/source.cs" id="Snippet1"::: :::code language="fsharp" source="~/snippets/fsharp/System/ValueType/Equals/source.fs" id="Snippet1"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR/ValueType.Equals Example/VB/source.vb" id="Snippet1"::: +:::code language="vb" source="~/snippets/visualbasic/System/ValueType/Equals/source.vb" id="Snippet1"::: ]]> @@ -289,7 +289,7 @@ The following example demonstrates how the