diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/Aggregate1.vb b/snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/Aggregate1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/Aggregate1.vb rename to snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/Aggregate1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/Function1.vb b/snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/Function1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/Function1.vb rename to snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/Function1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/InsertCurrency.vb b/snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/InsertCurrency.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/InsertCurrency.vb rename to snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/InsertCurrency.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/Test.sql b/snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/Test.sql similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/Test.sql rename to snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/Test.sql diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/Trigger1.vb b/snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/Trigger1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/Trigger1.vb rename to snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/Trigger1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/Type1.vb b/snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/Type1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/Type1.vb rename to snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/Type1.vb diff --git a/snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/VB.vbproj b/snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/VB.vbproj new file mode 100644 index 00000000000..cfcf572daf6 --- /dev/null +++ b/snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/VB.vbproj @@ -0,0 +1,9 @@ + + + + + Library + net481 + + + diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/Form1.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/Form1.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/Form1.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/Form1.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Form1.resx b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/Form1.resx similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Form1.resx rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/Form1.resx diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/Form1.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/Form1.vb similarity index 96% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/Form1.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/Form1.vb index 4d570259e7d..fe076390244 100644 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/Form1.vb +++ b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/Form1.vb @@ -3,6 +3,10 @@ Option Strict On Public Class Form1 + Public Shared Sub Main() + + End Sub + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' SetFormTitle() ' SetFormIcon() @@ -80,7 +84,7 @@ Public Class Form1 ' Sub PlayFormGreeting() - My.Computer.Audio.Play(My.Resources.Form1Greeting, + My.Computer.Audio.Play(My.Resources.Form1Greeting, AudioPlayMode.Background) End Sub ' diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/My Project/ApplicationEvents.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/My Project/ApplicationEvents.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/My Project/ApplicationEvents.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/My Project/ApplicationEvents.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/My Project/Resources.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/My Project/Resources.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/My Project/Resources.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/My Project/Resources.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/My Project/Resources.resx b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/My Project/Resources.resx similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/My Project/Resources.resx rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/My Project/Resources.resx diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/My Project/Settings.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/My Project/Settings.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/My Project/Settings.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/My Project/Settings.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/My Project/Settings.settings b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/My Project/Settings.settings similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/My Project/Settings.settings rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/My Project/Settings.settings diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/Resources.fr-FR.resx b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/Resources.fr-FR.resx similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/Resources.fr-FR.resx rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/Resources.fr-FR.resx diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/Resources/hermes.ico b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/Resources/hermes.ico similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/Resources/hermes.ico rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/Resources/hermes.ico diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Resources/tada.wav b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/Resources/tada.wav similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Resources/tada.wav rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/Resources/tada.wav diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/Resources/tpevening.jpg b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/Resources/tpevening.jpg similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/Resources/tpevening.jpg rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/Resources/tpevening.jpg diff --git a/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/VbVbalrMyResources2.vbproj b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/VbVbalrMyResources2.vbproj new file mode 100644 index 00000000000..16d52facc37 --- /dev/null +++ b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/VbVbalrMyResources2.vbproj @@ -0,0 +1,11 @@ + + + Exe + net481-windows + true + true + + + + + diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/app.config b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/app.config similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/app.config rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/app.config diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/FakeMyEvents.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/FakeMyEvents.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/FakeMyEvents.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/FakeMyEvents.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.resx b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.resx similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.resx rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.resx diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form2.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form2.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form2.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form2.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form2.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form2.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form2.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form2.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/My Project/MyApplication.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/My Project/MyApplication.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/My Project/MyApplication.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/My Project/MyApplication.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/My Project/MyApplication.myapp b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/My Project/MyApplication.myapp similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/My Project/MyApplication.myapp rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/My Project/MyApplication.myapp diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/My Project/MyEvents.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/My Project/MyEvents.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/My Project/MyEvents.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/My Project/MyEvents.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/My Project/MyResources.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/My Project/MyResources.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/My Project/MyResources.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/My Project/MyResources.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/My Project/MyResources.resx b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/My Project/MyResources.resx similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/My Project/MyResources.resx rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/My Project/MyResources.resx diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/My Project/MyResources.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/My Project/MyResources.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/My Project/MyResources.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/My Project/MyResources.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/My Project/MySettings.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/My Project/MySettings.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/My Project/MySettings.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/My Project/MySettings.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/My Project/MySettings.settings b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/My Project/MySettings.settings similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/My Project/MySettings.settings rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/My Project/MySettings.settings diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Reflectors.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Reflectors.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Reflectors.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Reflectors.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/SplashScreen1.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/SplashScreen1.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/SplashScreen1.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/SplashScreen1.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/SplashScreen1.resx b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/SplashScreen1.resx similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/SplashScreen1.resx rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/SplashScreen1.resx diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/SplashScreen1.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/SplashScreen1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/SplashScreen1.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/SplashScreen1.vb diff --git a/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/VbVbalrMyApplication.vbproj b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/VbVbalrMyApplication.vbproj new file mode 100644 index 00000000000..ab5beeb5834 --- /dev/null +++ b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/VbVbalrMyApplication.vbproj @@ -0,0 +1,7 @@ + + + Exe + net481-windows + true + + diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/app.config b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/app.config similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/app.config rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/app.config diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/Class1.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/Class1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/Class1.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/Class1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/Form1.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/Form1.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/Form1.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/Form1.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/Form1.resx b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/Form1.resx similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/Form1.resx rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/Form1.resx diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/Form1.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/Form1.vb similarity index 88% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/Form1.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/Form1.vb index 49891fa6704..211f013370c 100644 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/Form1.vb +++ b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/Form1.vb @@ -6,9 +6,15 @@ Option Strict On Public Class Form1 + Dim loginForm As LoginForm1 + + Public Shared Sub Main() + + End Sub + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' - My.Forms.LoginForm1.ShowDialog() + loginForm.ShowDialog() ' Check if the user was authenticated. If My.User.IsAuthenticated Then Me.Label1.Text = "Authenticated " & My.User.Name diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/LoginForm1.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/LoginForm1.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/LoginForm1.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/LoginForm1.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/LoginForm1.resx b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/LoginForm1.resx similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/LoginForm1.resx rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/LoginForm1.resx diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/LoginForm1.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/LoginForm1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/LoginForm1.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/LoginForm1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/My Project/ApplicationEvents.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/My Project/ApplicationEvents.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/My Project/ApplicationEvents.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/My Project/ApplicationEvents.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/My Project/Resources.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/My Project/Resources.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/My Project/Resources.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/My Project/Resources.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/My Project/Resources.resx b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/My Project/Resources.resx similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/My Project/Resources.resx rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/My Project/Resources.resx diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/My Project/Settings.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/My Project/Settings.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/My Project/Settings.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/My Project/Settings.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/My Project/Settings.settings b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/My Project/Settings.settings similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/My Project/Settings.settings rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/My Project/Settings.settings diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/SampleIIdentity.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/SampleIIdentity.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/SampleIIdentity.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/SampleIIdentity.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/SampleIPrincipal.vb b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/SampleIPrincipal.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/SampleIPrincipal.vb rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/SampleIPrincipal.vb diff --git a/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/VbVbalrMyUser.vbproj b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/VbVbalrMyUser.vbproj new file mode 100644 index 00000000000..16d52facc37 --- /dev/null +++ b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/VbVbalrMyUser.vbproj @@ -0,0 +1,11 @@ + + + Exe + net481-windows + true + true + + + + + diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/app.config b/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/app.config similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/app.config rename to snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/app.config diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb b/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb similarity index 77% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb rename to snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb index a03c81cd05a..ce92a2a3789 100644 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb +++ b/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb @@ -1,7 +1,11 @@ Option Strict On Option Explicit On +Imports System.Windows.Forms Class Class1 + Public Shared Sub Main() + End Sub + Public Sub testClock() ' MsgBox("Current local time: " & My.Computer.Clock.LocalTime) @@ -18,18 +22,18 @@ Class Class1 Loop End Sub - Private Function IsTimeUp( - ByVal startTicks As Integer, - ByVal seconds As Integer + Private Function IsTimeUp( + ByVal startTicks As Integer, + ByVal seconds As Integer ) As Boolean ' This function throws an overflow exception if the ' tick count difference is greater than 2,147,483,647, ' about 24 days for My.Computer.Clock.TickCount. ' Use UInteger to simplify the code for roll over. - Dim uStart As UInteger = + Dim uStart As UInteger = CUInt(CLng(startTicks) - Integer.MinValue) - Dim uCurrent As UInteger = + Dim uCurrent As UInteger = CUInt(CLng(My.Computer.Clock.TickCount) - Integer.MinValue) ' Calculate the tick count difference. @@ -52,42 +56,42 @@ Class Class1 ' Sub PlaySystemSound() - My.Computer.Audio.PlaySystemSound( + My.Computer.Audio.PlaySystemSound( System.Media.SystemSounds.Asterisk) End Sub ' ' Sub PlayBackgroundSoundResource() - My.Computer.Audio.Play(My.Resources.Waterfall, + My.Computer.Audio.Play(My.Resources.Waterfall, AudioPlayMode.WaitToComplete) End Sub ' ' Sub PlayBackgroundSoundFile() - My.Computer.Audio.Play("C:\Waterfall.wav", + My.Computer.Audio.Play("C:\Waterfall.wav", AudioPlayMode.WaitToComplete) End Sub ' ' Sub PlaySoundResource() - My.Computer.Audio.Play(My.Resources.Waterfall, + My.Computer.Audio.Play(My.Resources.Waterfall, AudioPlayMode.WaitToComplete) End Sub ' ' Sub PlaySoundFile() - My.Computer.Audio.Play("C:\Waterfall.wav", + My.Computer.Audio.Play("C:\Waterfall.wav", AudioPlayMode.WaitToComplete) End Sub ' ' Sub PlayLoopingBackgroundSoundResource() - My.Computer.Audio.Play(My.Resources.Waterfall, + My.Computer.Audio.Play(My.Resources.Waterfall, AudioPlayMode.BackgroundLoop) End Sub ' @@ -95,7 +99,7 @@ Class Class1 ' ' Sub PlayLoopingBackgroundSoundFile() - My.Computer.Audio.Play("C:\Waterfall.wav", + My.Computer.Audio.Play("C:\Waterfall.wav", AudioPlayMode.BackgroundLoop) End Sub ' @@ -121,35 +125,35 @@ Class Class1 MsgBox("Computer name: " & My.Computer.Name) ' ' - MsgBox("Computer's available physical memory: " & + MsgBox("Computer's available physical memory: " & My.Computer.Info.AvailablePhysicalMemory) ' ' - MsgBox("Computer's available virtual memory: " & + MsgBox("Computer's available virtual memory: " & My.Computer.Info.AvailableVirtualMemory) ' ' - MsgBox("Computer's UI culture name: " & + MsgBox("Computer's UI culture name: " & My.Computer.Info.InstalledUICulture.DisplayName) ' ' - MsgBox("Computer's operating system name: " & + MsgBox("Computer's operating system name: " & My.Computer.Info.OSFullName) ' ' - MsgBox("Computer's operating system platform: " & + MsgBox("Computer's operating system platform: " & My.Computer.Info.OSPlatform) ' ' - MsgBox("Computer's operating system version: " & + MsgBox("Computer's operating system version: " & My.Computer.Info.OSVersion) ' ' - MsgBox("Computer's available physical memory: " & + MsgBox("Computer's available physical memory: " & My.Computer.Info.TotalPhysicalMemory) ' ' - MsgBox("Computer's available virtual memory: " & + MsgBox("Computer's available virtual memory: " & My.Computer.Info.TotalVirtualMemory) ' diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb b/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb similarity index 78% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb rename to snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb index 32129a349e7..4661bfd2afb 100644 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb +++ b/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb @@ -1,5 +1,8 @@ Option Explicit On Option Strict On +Imports System.Windows.Forms + + '''''''''''''''' ' Keyboard @@ -7,7 +10,7 @@ Option Strict On Namespace Keyboard Class Class0746a247f57e45fc93b7de462bef9206 - + Public Sub Method23() ' 0746a247-f57e-45fc-93b7-de462bef9206 ' My.Computer.Keyboard.AltKeyDown Property @@ -18,7 +21,7 @@ Namespace Keyboard MsgBox("ALT key up") End If ' - + ' 3a08efec-d444-4200-9341-fff79474d0cc ' My.Computer.Keyboard.ScrollLock Property ' @@ -121,7 +124,7 @@ Namespace Keyboard End Sub End Class - + End Namespace '''''''''''''''' @@ -136,7 +139,7 @@ Namespace Ports ' Sub DialModem() ' Dial a number via an attached modem on COM1. - Using com1 As IO.Ports.SerialPort = + Using com1 As IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort("COM1", 9600) ' com1.DtrEnable = True @@ -151,7 +154,7 @@ Namespace Ports Public Sub Method28() ' - Using com1 As IO.Ports.SerialPort = + Using com1 As IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort("COM1", 9600) End Using ' @@ -172,7 +175,7 @@ Namespace Ports ' Sub SendSerialData(ByVal data As String) ' Send strings to a serial port. - Using com1 As IO.Ports.SerialPort = + Using com1 As IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort("COM1") com1.WriteLine(data) End Using @@ -184,71 +187,71 @@ Namespace Ports ' 8371ce2c-e1c7-476b-a86d-9afc2614b6b7 ' How to: Receive Strings From Serial Ports in Visual Basic - ' - Function ReceiveSerialData() As String - ' Receive strings from a serial port. - ' - Dim returnStr As String = "" - ' - - Dim com1 As IO.Ports.SerialPort = Nothing - Try - com1 = My.Computer.Ports.OpenSerialPort("COM1") - com1.ReadTimeout = 10000 + ' + Function ReceiveSerialData() As String + ' Receive strings from a serial port. + ' + Dim returnStr As String = "" + ' + + Dim com1 As IO.Ports.SerialPort = Nothing + Try + com1 = My.Computer.Ports.OpenSerialPort("COM1") + com1.ReadTimeout = 10000 + Do + ' + Dim Incoming As String = com1.ReadLine() + ' + If Incoming Is Nothing Then + Exit Do + ' + Else + returnStr &= Incoming & vbCrLf + ' + End If + Loop + Catch ex As TimeoutException + returnStr = "Error: Serial Port read timed out." + Finally + If com1 IsNot Nothing Then com1.Close() + End Try + + ' + Return returnStr + ' + End Function + ' + + Public Sub Method39() + Dim returnStr As String + Do - ' - Dim Incoming As String = com1.ReadLine() - ' + Dim Incoming As String = "" + ' If Incoming Is Nothing Then Exit Do - ' - Else - returnStr &= Incoming & vbCrLf - ' End If + ' Loop - Catch ex As TimeoutException - returnStr = "Error: Serial Port read timed out." - Finally - If com1 IsNot Nothing Then com1.Close() - End Try - - ' - Return returnStr - ' - End Function - ' - - Public Sub Method39() - Dim returnStr As String - - Do - Dim Incoming As String = "" - ' - If Incoming Is Nothing Then - Exit Do - End If - ' - Loop - - ' - Dim com1 As IO.Ports.SerialPort = Nothing - Try - com1 = My.Computer.Ports.OpenSerialPort("COM1") - com1.ReadTimeout = 10000 - - Catch ex As TimeoutException - returnStr = "Error: Serial Port read timed out." - Finally - If com1 IsNot Nothing Then com1.Close() - End Try - ' - - ' - Do - Loop - ' - End Sub + + ' + Dim com1 As IO.Ports.SerialPort = Nothing + Try + com1 = My.Computer.Ports.OpenSerialPort("COM1") + com1.ReadTimeout = 10000 + + Catch ex As TimeoutException + returnStr = "Error: Serial Port read timed out." + Finally + If com1 IsNot Nothing Then com1.Close() + End Try + ' + + ' + Do + Loop + ' + End Sub End Class @@ -291,10 +294,10 @@ Namespace Mouse If My.Computer.Mouse.WheelExists Then Dim lines As Integer = My.Computer.Mouse.WheelScrollLines If lines > 0 Then - MsgBox("Application scrolls " & + MsgBox("Application scrolls " & lines & " line(s) for each wheel turn.") Else - MsgBox("Application scrolls " & + MsgBox("Application scrolls " & (-lines) & " page(s) for each wheel turn.") End If Else diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Form1.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Form1.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Form1.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Form1.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/Form1.resx b/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Form1.resx similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/Form1.resx rename to snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Form1.resx diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Form1.vb b/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Form1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Form1.vb rename to snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Form1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/MyResources.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/My Project/MyResources.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/MyResources.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/My Project/MyResources.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/MyResources.resx b/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/My Project/MyResources.resx similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/MyResources.resx rename to snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/My Project/MyResources.resx diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/Resources.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/My Project/Resources.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/Resources.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/My Project/Resources.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/My Project/Resources.resx b/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/My Project/Resources.resx similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/My Project/Resources.resx rename to snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/My Project/Resources.resx diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/Resources/tada.wav b/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Resources/tada.wav similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/Resources/tada.wav rename to snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Resources/tada.wav diff --git a/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/VbVbalrMyComputer.vbproj b/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/VbVbalrMyComputer.vbproj new file mode 100644 index 00000000000..7c8a39236e7 --- /dev/null +++ b/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/VbVbalrMyComputer.vbproj @@ -0,0 +1,7 @@ + + + WinExe + net481-windows + true + + diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/app.config b/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/app.config similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/app.config rename to snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/app.config diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyClipboard/VB/Class1.vb b/snippets/visualbasic/Microsoft.VisualBasic.Devices/Computer/Clipboard/Class1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyClipboard/VB/Class1.vb rename to snippets/visualbasic/Microsoft.VisualBasic.Devices/Computer/Clipboard/Class1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb b/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb rename to snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb b/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb rename to snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyRegistry/VB/Class1.vb b/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/Registry/Class1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyRegistry/VB/Class1.vb rename to snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/Registry/Class1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb b/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb rename to snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb b/snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb rename to snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefClipbd/VB/Class1.vb b/snippets/visualbasic/Microsoft.VisualBasic.MyServices/ClipboardProxy/ContainsAudio/Class1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbRefClipbd/VB/Class1.vb rename to snippets/visualbasic/Microsoft.VisualBasic.MyServices/ClipboardProxy/ContainsAudio/Class1.vb diff --git a/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Class1.vb b/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Class1.vb new file mode 100644 index 00000000000..798ea1fdba5 --- /dev/null +++ b/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Class1.vb @@ -0,0 +1,140 @@ +Public Class Class1 + + Public Shared Sub Main() + End Sub + + '**************************************************************************** + Shared Sub TestGetEnumerator() + ' + Dim customers As New Collection + ' Insert code to add elements to the customers collection. + Dim custEnum As IEnumerator = customers.GetEnumerator() + custEnum.Reset() + Dim thisCustomer As Object + While custEnum.MoveNext() + thisCustomer = custEnum.Current() + ' Insert code to process this element of the collection. + End While + ' + End Sub + + '**************************************************************************** + Shared Sub BirthdayCollection() + ' + Dim birthdays As New Collection() + birthdays.Add(New DateTime(2001, 1, 12), "Bill") + birthdays.Add(New DateTime(2001, 1, 13), "Joe") + birthdays.Add(New DateTime(2001, 1, 14), "Mike") + birthdays.Add(New DateTime(2001, 1, 15), "Pete") + ' + + ' + MsgBox("Number of birthdays in collection: " & CStr(birthdays.Count)) + ' + + ' + Dim aBirthday As DateTime + aBirthday = birthdays.Item("Bill") + MsgBox(CStr(aBirthday)) + aBirthday = birthdays("Bill") + MsgBox(CStr(aBirthday)) + ' + + ' + birthdays.Remove(1) + birthdays.Remove("Mike") + ' + + MsgBox("Number of birthdays in collection: " & CStr(birthdays.Count)) + End Sub + + + '**************************************************************************** + Class Customer + Private _accountNumber As String + Public Property accountNumber() As String + Get + Return _accountNumber + End Get + Set(ByVal value As String) + _accountNumber = value + End Set + End Property + End Class + + + '**************************************************************************** + Shared Sub TestContains() + Dim newCustomer As New Customer + + ' + Dim customers As New Microsoft.VisualBasic.Collection() + Dim accountNumber As String = "1234" + ' Insert code that obtains new customer objects. + ' Use the new customer's account number as the key. + customers.Add(newCustomer, accountNumber) + ' The preceding statements can be repeated for several customers. + Dim searchNumber As String = "1234" + ' Insert code to obtain an account number to search for. + If customers.Contains(searchNumber) Then + MsgBox("The desired customer is in the collection.") + Else + MsgBox("The desired customer is not in the collection.") + End If + ' + + End Sub + + + '**************************************************************************** + Shared Function TestClear() As Integer + ' + Dim customers As New Microsoft.VisualBasic.Collection() + ' Insert code that adds customers to collection. + customers.Clear() + ' + + Return customers.Count + End Function + + + '**************************************************************************** + ' + Public Class nameClass + Public instanceName As String + End Class + Sub classNamer() + ' Create a Visual Basic Collection object. + Dim names As New Microsoft.VisualBasic.Collection() + Dim key As Integer + Dim msg As String + Dim name As String + Dim nameList As String = "" + ' 1. Get names from the user to add to the collection. + Do + Dim inst As New nameClass() + key += 1 + msg = "Please enter a name for this object." & vbCrLf & + "Press Cancel to see names in collection." + name = InputBox(msg, "Name the Collection items") + inst.instanceName = name + ' If user entered a name, add it to the collection. + If inst.instanceName <> "" Then + names.Add(inst, CStr(key)) + End If + Loop Until name = "" + ' 2. Create and display a list of names from the collection. + For Each oneInst As nameClass In names + nameList &= oneInst.instanceName & vbCrLf + Next oneInst + MsgBox(nameList, , "Instance Names in names Collection") + ' 3. Remove elements from the collection without disposing of the collection. + For count As Integer = 1 To names.Count + names.Remove(1) + ' Since Visual Basic collections are reindexed automatically, + ' remove the first member on each iteration. + Next count + End Sub + ' + +End Class diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Class2.vb b/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Class2.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Class2.vb rename to snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Class2.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Form1.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Form1.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Form1.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Form1.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/Form1.resx b/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Form1.resx similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/Form1.resx rename to snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Form1.resx diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Form1.vb b/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Form1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Form1.vb rename to snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Form1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/My Project/ApplicationEvents.vb b/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/My Project/ApplicationEvents.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/My Project/ApplicationEvents.vb rename to snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/My Project/ApplicationEvents.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/My Project/Resources.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/My Project/Resources.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/My Project/Resources.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/My Project/Resources.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/My Project/Resources.resx b/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/My Project/Resources.resx similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/My Project/Resources.resx rename to snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/My Project/Resources.resx diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/My Project/Settings.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/My Project/Settings.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/My Project/Settings.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/My Project/Settings.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/My Project/Settings.settings b/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/My Project/Settings.settings similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/My Project/Settings.settings rename to snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/My Project/Settings.settings diff --git a/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/VbVbalrCollectionObject.vbproj b/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/VbVbalrCollectionObject.vbproj new file mode 100644 index 00000000000..ab5beeb5834 --- /dev/null +++ b/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/VbVbalrCollectionObject.vbproj @@ -0,0 +1,7 @@ + + + Exe + net481-windows + true + + diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/Class1.vb b/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/Class1.vb similarity index 85% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/Class1.vb rename to snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/Class1.vb index 48c7b2ab94f..dd137e45db1 100644 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/Class1.vb +++ b/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/Class1.vb @@ -10,12 +10,16 @@ Imports System.Web.Services ' Imports System.Reflection +Module: CLSCompliant(True)> ' Class Class2b1703ed443749b3bc0b568094324f47 ' Application of Attributes + Public Shared Sub Main() + + End Sub + Class tmp1 ' Class Class1 @@ -59,17 +63,7 @@ Class Class2b1703ed443749b3bc0b568094324f47 Public Sub New(Optional ByVal Update As Boolean = True, Optional ByVal Keep As Boolean = True) End Sub Public Property Update() As Boolean - Get - End Get - Set(ByVal Value As Boolean) - End Set - End Property Public Property Keep() As Boolean - Get - End Get - Set(ByVal Value As Boolean) - End Set - End Property End Class End Class diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/Class2.vb b/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/Class2.vb similarity index 94% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/Class2.vb rename to snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/Class2.vb index 841ffab130c..30c929fac0c 100644 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/Class2.vb +++ b/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/Class2.vb @@ -6,14 +6,6 @@ Imports System.Attribute ' Global Attributes in Visual Basic -' -'Set version number for assembly. - -'Set culture as German. - -' - - ' @@ -70,6 +62,7 @@ Class Class0bedc36e7a024b22ac006570e17bef6e Obsolete("This method should not be used.")> Public Shadows Function Update(ByVal x As Integer) As Integer ' The function code goes here. + Return x + 1 End Function ' @@ -267,17 +260,7 @@ Class Classd404ed869d404982bd874863a4c9fdf6 Public Sub New(Optional ByVal Update As Boolean = True, Optional ByVal Keep As Boolean = True) End Sub Public Property Label() As Boolean - Get - End Get - Set(ByVal Value As Boolean) - End Set - End Property Public Property Value() As Boolean - Get - End Get - Set(ByVal Value As Boolean) - End Set - End Property End Class End Class diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/Form1.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/Form1.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/Form1.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/Form1.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/Form1.vb b/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/Form1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/Form1.vb rename to snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/Form1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/My Project/Application.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/My Project/Application.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/My Project/Application.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/My Project/Application.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/My Project/Application.myapp b/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/My Project/Application.myapp similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/My Project/Application.myapp rename to snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/My Project/Application.myapp diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/My Project/ApplicationEvents.vb b/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/My Project/ApplicationEvents.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/My Project/ApplicationEvents.vb rename to snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/My Project/ApplicationEvents.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/My Project/Resources.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/My Project/Resources.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/My Project/Resources.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/My Project/Resources.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/Resources.resx b/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/My Project/Resources.resx similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/Resources.resx rename to snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/My Project/Resources.resx diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/My Project/Settings.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/My Project/Settings.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/My Project/Settings.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/My Project/Settings.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/My Project/Settings.settings b/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/My Project/Settings.settings similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/My Project/Settings.settings rename to snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/My Project/Settings.settings diff --git a/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/VbCnAttributes.vbproj b/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/VbCnAttributes.vbproj new file mode 100644 index 00000000000..7b325df07ac --- /dev/null +++ b/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/VbCnAttributes.vbproj @@ -0,0 +1,11 @@ + + + Exe + net481-windows + true + false + + + + + diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/app.config b/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/app.config similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/app.config rename to snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/app.config diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/myKey.snk b/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/myKey.snk similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/myKey.snk rename to snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/myKey.snk diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrConstants/VB/Class1.vb b/snippets/visualbasic/Microsoft.VisualBasic/Constants/vbDefaultButton1/Class1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrConstants/VB/Class1.vb rename to snippets/visualbasic/Microsoft.VisualBasic/Constants/vbDefaultButton1/Class1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb b/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb rename to snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb b/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb rename to snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class2.vb b/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class2.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class2.vb rename to snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class2.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb b/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb rename to snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb b/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb rename to snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/Module1.vb b/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/DateString/Module1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/Module1.vb rename to snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/DateString/Module1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/My Project/Application.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/DateString/My Project/Application.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/My Project/Application.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/DateString/My Project/Application.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/My Project/Application.myapp b/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/DateString/My Project/Application.myapp similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/My Project/Application.myapp rename to snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/DateString/My Project/Application.myapp diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/My Project/Resources.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/DateString/My Project/Resources.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/My Project/Resources.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/DateString/My Project/Resources.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/My Project/Settings.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/DateString/My Project/Settings.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/My Project/Settings.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/DateString/My Project/Settings.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/Settings.settings b/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/DateString/My Project/Settings.settings similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/Settings.settings rename to snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/DateString/My Project/Settings.settings diff --git a/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/DateString/VbVbalrDateProperties.vbproj b/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/DateString/VbVbalrDateProperties.vbproj new file mode 100644 index 00000000000..ab5beeb5834 --- /dev/null +++ b/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/DateString/VbVbalrDateProperties.vbproj @@ -0,0 +1,7 @@ + + + Exe + net481-windows + true + + diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/Form1.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/Timer/Form1.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/Form1.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/Timer/Form1.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/Form1.resx b/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/Timer/Form1.resx similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/Form1.resx rename to snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/Timer/Form1.resx diff --git a/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/Timer/Form1.vb b/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/Timer/Form1.vb new file mode 100644 index 00000000000..301d3a8ede5 --- /dev/null +++ b/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/Timer/Form1.vb @@ -0,0 +1,37 @@ +Public Class Form1 + + Public Shared Sub Main() + End Sub + + ' + Public Sub waitFiveSeconds() + ' + If TimeOfDay >= #11:59:55 PM# Then + MsgBox("The current time is within 5 seconds of midnight" & + vbCrLf & "The timer returns to 0.0 at midnight") + Return + End If + ' + Dim start, finish, totalTime As Double + If (MsgBox("Press Yes to pause for 5 seconds", MsgBoxStyle.YesNo)) = + MsgBoxResult.Yes Then + + start = Microsoft.VisualBasic.DateAndTime.Timer + ' Set end time for 5-second duration. + finish = start + 5.0 + ' + Do While Microsoft.VisualBasic.DateAndTime.Timer < finish + ' Do other processing while waiting for 5 seconds to elapse. + Loop + ' + totalTime = Microsoft.VisualBasic.DateAndTime.Timer - start + MsgBox("Paused for " & totalTime & " seconds") + End If + End Sub + ' + + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + waitFiveSeconds() + End Sub + +End Class diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/My Project/ApplicationEvents.vb b/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/Timer/My Project/ApplicationEvents.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/My Project/ApplicationEvents.vb rename to snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/Timer/My Project/ApplicationEvents.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/My Project/Resources.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/Timer/My Project/Resources.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/My Project/Resources.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/Timer/My Project/Resources.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/My Project/Resources.resx b/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/Timer/My Project/Resources.resx similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/My Project/Resources.resx rename to snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/Timer/My Project/Resources.resx diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/My Project/Settings.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/Timer/My Project/Settings.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/My Project/Settings.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/Timer/My Project/Settings.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/My Project/Settings.settings b/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/Timer/My Project/Settings.settings similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/My Project/Settings.settings rename to snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/Timer/My Project/Settings.settings diff --git a/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/Timer/VbVbalrTimerProperty.vbproj b/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/Timer/VbVbalrTimerProperty.vbproj new file mode 100644 index 00000000000..ab5beeb5834 --- /dev/null +++ b/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/Timer/VbVbalrTimerProperty.vbproj @@ -0,0 +1,7 @@ + + + Exe + net481-windows + true + + diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrErrorHandling/VB/Class1.vb b/snippets/visualbasic/Microsoft.VisualBasic/ErrObject/Clear/Class1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrErrorHandling/VB/Class1.vb rename to snippets/visualbasic/Microsoft.VisualBasic/ErrObject/Clear/Class1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/Module1.vb b/snippets/visualbasic/Microsoft.VisualBasic/Globals/ScriptEngine/Module1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/Module1.vb rename to snippets/visualbasic/Microsoft.VisualBasic/Globals/ScriptEngine/Module1.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/My Project/Application.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic/Globals/ScriptEngine/My Project/Application.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/My Project/Application.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic/Globals/ScriptEngine/My Project/Application.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/My Project/Application.myapp b/snippets/visualbasic/Microsoft.VisualBasic/Globals/ScriptEngine/My Project/Application.myapp similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/My Project/Application.myapp rename to snippets/visualbasic/Microsoft.VisualBasic/Globals/ScriptEngine/My Project/Application.myapp diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/My Project/Resources.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic/Globals/ScriptEngine/My Project/Resources.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/My Project/Resources.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic/Globals/ScriptEngine/My Project/Resources.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/My Project/Resources.resx b/snippets/visualbasic/Microsoft.VisualBasic/Globals/ScriptEngine/My Project/Resources.resx similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/My Project/Resources.resx rename to snippets/visualbasic/Microsoft.VisualBasic/Globals/ScriptEngine/My Project/Resources.resx diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/My Project/Settings.Designer.vb b/snippets/visualbasic/Microsoft.VisualBasic/Globals/ScriptEngine/My Project/Settings.Designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/My Project/Settings.Designer.vb rename to snippets/visualbasic/Microsoft.VisualBasic/Globals/ScriptEngine/My Project/Settings.Designer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/My Project/Settings.settings b/snippets/visualbasic/Microsoft.VisualBasic/Globals/ScriptEngine/My Project/Settings.settings similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/My Project/Settings.settings rename to snippets/visualbasic/Microsoft.VisualBasic/Globals/ScriptEngine/My Project/Settings.settings diff --git a/snippets/visualbasic/Microsoft.VisualBasic/Globals/ScriptEngine/VbVbalrScriptEngineProperties.vbproj b/snippets/visualbasic/Microsoft.VisualBasic/Globals/ScriptEngine/VbVbalrScriptEngineProperties.vbproj new file mode 100644 index 00000000000..ab5beeb5834 --- /dev/null +++ b/snippets/visualbasic/Microsoft.VisualBasic/Globals/ScriptEngine/VbVbalrScriptEngineProperties.vbproj @@ -0,0 +1,7 @@ + + + Exe + net481-windows + true + + diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrExcelObject/VB/Class1.vb b/snippets/visualbasic/Microsoft.VisualBasic/Interaction/CreateObject/Class1.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrExcelObject/VB/Class1.vb rename to snippets/visualbasic/Microsoft.VisualBasic/Interaction/CreateObject/Class1.vb diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/app.config b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/app.config similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/app.config rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/app.config diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/application.xaml b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/application.xaml similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/application.xaml rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/application.xaml diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/application.xaml.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/application.xaml.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/application.xaml.vb rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/application.xaml.vb diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/clientcredentials.xaml b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/clientcredentials.xaml similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/clientcredentials.xaml rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/clientcredentials.xaml diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/clientcredentials.xaml.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/clientcredentials.xaml.vb similarity index 97% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/clientcredentials.xaml.vb rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/clientcredentials.xaml.vb index 9198ae84454..7ff31be01eb 100644 --- a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/clientcredentials.xaml.vb +++ b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/clientcredentials.xaml.vb @@ -1,10 +1,10 @@ ' -Imports NorthwindClient.Northwind Imports System.Data.Services.Client -Imports System.Windows.Data Imports System.Net -Imports System.Windows Imports System.Security +Imports System.Windows +Imports System.Windows.Data +Imports northwindclientvb.Northwind Partial Public Class ClientCredentials Inherits Window @@ -81,4 +81,4 @@ Partial Public Class ClientCredentials End If End Sub End Class -' \ No newline at end of file +' diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/clientcredentialslogin.xaml b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/clientcredentialslogin.xaml similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/clientcredentialslogin.xaml rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/clientcredentialslogin.xaml diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/clientcredentialslogin.xaml.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/clientcredentialslogin.xaml.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/clientcredentialslogin.xaml.vb rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/clientcredentialslogin.xaml.vb diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customeraddress.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customeraddress.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customeraddress.vb rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customeraddress.vb diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorders.designer.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorders.designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorders.designer.vb rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorders.designer.vb diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorders.resx b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorders.resx similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorders.resx rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorders.resx diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorders.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorders.vb similarity index 87% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorders.vb rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorders.vb index f239853a42a..ebfcfebba20 100644 --- a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorders.vb +++ b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorders.vb @@ -1,14 +1,7 @@ -Imports System.Collections.Generic -Imports System.ComponentModel -Imports System.Data -Imports System.Drawing -Imports System.Linq -Imports System.Text -Imports System.Windows.Forms - -' +' Imports System.Data.Services.Client -Imports NorthwindClient.Northwind +Imports System.Windows.Forms +Imports northwindclientvb.Northwind ' @@ -31,9 +24,9 @@ Partial Public Class CustomerOrders context = New NorthwindEntities(New Uri(svcUri)) Try ' Create a LINQ query that returns customers with related orders. - Dim customerQuery = From cust In context.Customers.Expand("Orders") _ - Where cust.Country = customerCountry _ - Select cust + Dim customerQuery = From cust In context.Customers.Expand("Orders") + Where cust.Country = customerCountry + Select cust ' ' Create a new collection for binding based on the LINQ query. diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorders2.designer.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorders2.designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorders2.designer.vb rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorders2.designer.vb diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorders2.resx b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorders2.resx similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorders2.resx rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorders2.resx diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorders2.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorders2.vb similarity index 86% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorders2.vb rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorders2.vb index c2aa52155d3..3d5c7bce373 100644 --- a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorders2.vb +++ b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorders2.vb @@ -1,13 +1,6 @@ -Imports System.Collections.Generic -Imports System.ComponentModel -Imports System.Data -Imports System.Drawing -Imports System.Linq -Imports System.Text +Imports System.Data.Services.Client Imports System.Windows.Forms - -Imports System.Data.Services.Client -Imports NorthwindClient.Northwind +Imports northwindclientvb.Northwind Partial Public Class CustomerOrders2 Inherits Form diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerordersasync.xaml b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerordersasync.xaml similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerordersasync.xaml rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerordersasync.xaml diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerordersasync.xaml.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerordersasync.xaml.vb similarity index 90% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerordersasync.xaml.vb rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerordersasync.xaml.vb index 4df45728044..56c1e362b61 100644 --- a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerordersasync.xaml.vb +++ b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerordersasync.xaml.vb @@ -1,19 +1,8 @@ ' -Imports System.Collections.Generic -Imports System.Linq -Imports System.Text -Imports System.Windows -Imports System.Windows.Controls -Imports System.Windows.Data -Imports System.Windows.Documents -Imports System.Windows.Input -Imports System.Windows.Media -Imports System.Windows.Media.Imaging -Imports System.Windows.Navigation -Imports System.Windows.Shapes -Imports NorthwindClient.Northwind Imports System.Data.Services.Client +Imports System.Windows Imports System.Windows.Threading +Imports northwindclientvb.Northwind '/ '/ Interaction logic for OrderItems.xaml @@ -107,4 +96,4 @@ Partial Public Class CustomerOrdersAsync End Try End Sub End Class -' \ No newline at end of file +' diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderscustom.xaml b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderscustom.xaml similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderscustom.xaml rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderscustom.xaml diff --git a/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderscustom.xaml.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderscustom.xaml.vb new file mode 100644 index 00000000000..0443459cc16 --- /dev/null +++ b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderscustom.xaml.vb @@ -0,0 +1,113 @@ +' +Imports System.Collections.Specialized +Imports System.Data.Services.Client +Imports System.Windows +Imports northwindclientvb.Northwind + +Partial Public Class CustomerOrdersCustom + Inherits Window + Private context As NorthwindEntities + 'Private trackedCustomers As DataServiceCollection(Of Customer) + 'Private Sub Window_Loaded(ByVal sender As Object, ByVal e As RoutedEventArgs) + ' Try + ' ' Initialize the context for the data service. + ' context = New NorthwindEntities(New Uri(SvcUri)) + + ' ' + ' ' Create a LINQ query that returns customers with related orders. + ' Dim customerQuery = From cust In context.Customers.Expand("Orders") + ' Where cust.Country = CustomerCountry + ' Select cust + + ' ' Create a new collection for binding based on the LINQ query. + ' trackedCustomers = New DataServiceCollection(Of Customer)(customerQuery, + ' TrackingMode.AutoChangeTracking, "Customers", + ' AddressOf OnMyPropertyChanged, AddressOf OnMyCollectionChanged) + + ' ' Bind the root StackPanel element to the collection + ' ' related object binding paths are defined in the XAML. + ' Me.LayoutRoot.DataContext = trackedCustomers + ' ' + ' Catch ex As DataServiceQueryException + ' MessageBox.Show("The query could not be completed:\n" + ex.ToString()) + ' Catch ex As InvalidOperationException + ' MessageBox.Show("The following error occurred:\n" + ex.ToString()) + ' End Try + 'End Sub + + ' + ' Method that is called when the CollectionChanged event is handled. + 'Private Function OnMyCollectionChanged( _ + ' ByVal entityCollectionChangedinfo As EntityCollectionChangedParams) As Boolean + ' If entityCollectionChangedinfo.Action = _ + ' NotifyCollectionChangedAction.Remove Then + + ' ' Delete the related items when an order is deleted. + ' If entityCollectionChangedinfo.TargetEntity.GetType() Is GetType(Order) Then + + ' ' Get the context and object from the supplied parameter. + ' Dim context = entityCollectionChangedinfo.Context + ' Dim deletedOrder As Order = _ + ' CType(entityCollectionChangedinfo.TargetEntity, Order) + + ' If deletedOrder.Order_Details.Count = 0 Then + ' ' Load the related OrderDetails. + ' context.LoadProperty(deletedOrder, "Order_Details") + ' End If + + ' ' Delete the order and its related items + ' For Each item As Order_Detail In deletedOrder.Order_Details + ' context.DeleteObject(item) + ' Next + + ' ' Delete the order and then return false since the object is already deleted. + ' context.DeleteObject(deletedOrder) + + ' Return True + ' Else + ' Return False + ' End If + ' Else + ' ' Use the default behavior. + ' Return False + ' End If + 'End Function + ' + + '' Method that is called when the PropertyChanged event is handled. + 'Private Function OnMyPropertyChanged( + 'ByVal entityChangedInfo As EntityChangedParams) As Boolean + ' ' Validate a changed order to ensure that changes are not made + ' ' after the order ships. + ' If entityChangedInfo.Entity.GetType() Is GetType(Order) AndAlso + ' (CType(entityChangedInfo.Entity, Order).ShippedDate < DateTime.Today) Then + ' Throw New ApplicationException(String.Format( + ' "The order {0} cannot be changed because it shipped on {1}.", + ' CType(entityChangedInfo.Entity, Order).OrderID, + ' CType(entityChangedInfo.Entity, Order).ShippedDate)) + ' Return False + ' Else + ' Return True + ' End If + 'End Function + + 'Private Sub deleteButton_Click(ByVal sender As Object, ByVal e As RoutedEventArgs) + ' ' Get the Orders binding collection. + ' If customerIDComboBox.SelectedItem IsNot Nothing Then + ' Dim trackedOrders As DataServiceCollection(Of Order) = _ + ' (CType(customerIDComboBox.SelectedItem, Customer)).Orders + + ' ' Remove the currently selected order. + ' trackedOrders.Remove(CType(ordersDataGrid.SelectedItem, Order)) + ' End If + 'End Sub + 'Private Sub saveChangesButton_Click(ByVal sender As Object, ByVal e As RoutedEventArgs) + ' Try + ' ' Save changes to the data service. + ' context.SaveChanges() + ' Catch ex As Exception + ' MessageBox.Show(ex.ToString()) + ' End Try + 'End Sub +End Class +' diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderscustom2.xaml.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderscustom2.xaml.vb similarity index 75% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderscustom2.xaml.vb rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderscustom2.xaml.vb index 92748ba320a..28923ee81b8 100644 --- a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderscustom2.xaml.vb +++ b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderscustom2.xaml.vb @@ -1,47 +1,38 @@ ' -Imports System.Collections.Generic +Imports System.Collections.Specialized +Imports System.Data.Services.Client Imports System.Linq -Imports System.Text Imports System.Windows -Imports System.Windows.Controls -Imports System.Windows.Data -Imports System.Windows.Documents -Imports System.Windows.Input -Imports System.Windows.Media -Imports System.Windows.Media.Imaging -Imports System.Windows.Navigation -Imports System.Windows.Shapes -Imports System.Data.Services.Client -Imports NorthwindClient.NorthwindModel -Imports System.Collections.Specialized +Imports northwindclientvb.Northwind +Imports northwindclientvb.NorthwindModel Partial Public Class CustomerOrdersCustom Inherits Window - Private context As NorthwindEntities - Private trackedCustomers As DataServiceCollection(Of Customers) - Private Const customerCountry As String = "Germany" - Private Const svcUri As String = "http://localhost:12345/Northwind.svc/" + Private _context As Northwind.NorthwindEntities + Private _trackedCustomers As DataServiceCollection(Of Customer) + Private Const CustomerCountry As String = "Germany" + Private Const SvcUri As String = "http://localhost:12345/Northwind.svc/" Private Sub Window_Loaded(ByVal sender As Object, ByVal e As RoutedEventArgs) Try ' Initialize the context for the data service. - context = New NorthwindEntities(New Uri(svcUri)) + context = New Northwind.NorthwindEntities(New Uri(SvcUri)) ' ' Create a LINQ query that returns customers with related orders. - Dim customerQuery = From cust In context.Customers.Expand("Orders") _ - Where cust.Country = customerCountry _ - Select cust + Dim customerQuery = From cust In context.Customers.Expand("Orders") + Where cust.Country = CustomerCountry + Select cust ' Create a new collection for binding based on the LINQ query. - trackedCustomers = New DataServiceCollection(Of Customers)(customerQuery, _ - TrackingMode.AutoChangeTracking, "Customers", _ + _trackedCustomers = New DataServiceCollection(Of Customer)(customerQuery, + TrackingMode.AutoChangeTracking, "Customers", AddressOf OnMyPropertyChanged, AddressOf OnMyCollectionChanged) - ' Bind the root StackPanel element to the collection - ' related object binding paths are defined in the XAML. - Me.LayoutRoot.DataContext = trackedCustomers - Me.LayoutRoot.UpdateLayout() - ' + ' Bind the root StackPanel element to the collection + ' related object binding paths are defined in the XAML. + Me.LayoutRoot.DataContext = _trackedCustomers + Me.LayoutRoot.UpdateLayout() + ' Catch ex As DataServiceQueryException MessageBox.Show("The query could not be completed:\n" + ex.ToString()) Catch ex As InvalidOperationException @@ -86,18 +77,18 @@ Partial Public Class CustomerOrdersCustom End Function ' ' Method that is called when the PropertyChanged event is handled. - Private Function OnMyPropertyChanged( _ + Private Function OnMyPropertyChanged( ByVal entityChangedInfo As EntityChangedParams) As Boolean ' Validate a changed order to ensure that changes are not made ' after the order ships. - If entityChangedInfo.Entity.GetType() Is GetType(Orders) AndAlso _ + If entityChangedInfo.Entity.GetType() Is GetType(Orders) AndAlso (CType(entityChangedInfo.Entity, Orders).ShippedDate < DateTime.Today) Then - Throw New ApplicationException(String.Format( _ - "The order {0} cannot be changed because it shipped on {1}.", _ - CType(entityChangedInfo.Entity, Orders).OrderID, _ + Throw New ApplicationException(String.Format( + "The order {0} cannot be changed because it shipped on {1}.", + CType(entityChangedInfo.Entity, Orders).OrderID, CType(entityChangedInfo.Entity, Orders).ShippedDate)) - Return True End If + Return True End Function Private Sub deleteButton_Click(ByVal sender As Object, ByVal e As RoutedEventArgs) ' Get the Orders binding collection. diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderswpf.xaml b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderswpf.xaml similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderswpf.xaml rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderswpf.xaml diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderswpf.xaml.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderswpf.xaml.vb similarity index 65% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderswpf.xaml.vb rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderswpf.xaml.vb index 3e27fa01e18..0521b5a3b3f 100644 --- a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderswpf.xaml.vb +++ b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderswpf.xaml.vb @@ -1,18 +1,7 @@ ' -Imports System.Collections.Generic -Imports System.Linq -Imports System.Text -Imports System.Windows -Imports System.Windows.Controls -Imports System.Windows.Data -Imports System.Windows.Documents -Imports System.Windows.Input -Imports System.Windows.Media -Imports System.Windows.Media.Imaging -Imports System.Windows.Navigation -Imports System.Windows.Shapes Imports System.Data.Services.Client -Imports NorthwindClient.Northwind +Imports System.Windows +Imports northwindclientvb.Northwind Partial Public Class CustomerOrdersWpf Inherits Window @@ -28,15 +17,15 @@ Partial Public Class CustomerOrdersWpf ' ' Create a LINQ query that returns customers with related orders. - Dim customerQuery = From cust In context.Customers.Expand("Orders") _ - Where cust.Country = customerCountry _ - Select cust + Dim customerQuery = From cust In context.Customers.Expand("Orders") + Where cust.Country = customerCountry + Select cust - ' Create a new collection for binding based on the LINQ query. + ' Create a new collection for binding based on the LINQ query. trackedCustomers = New DataServiceCollection(Of Customer)(customerQuery) - ' Bind the root StackPanel element to the collection - ' related object binding paths are defined in the XAML. + ' Bind the root StackPanel element to the collection + ' related object binding paths are defined in the XAML. Me.LayoutRoot.DataContext = trackedCustomers ' Catch ex As DataServiceQueryException @@ -50,4 +39,4 @@ Partial Public Class CustomerOrdersWpf context.SaveChanges() End Sub End Class -' \ No newline at end of file +' diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderswpf2.xaml b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderswpf2.xaml similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderswpf2.xaml rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderswpf2.xaml diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderswpf2.xaml.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderswpf2.xaml.vb similarity index 78% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderswpf2.xaml.vb rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderswpf2.xaml.vb index 9be1bab5f2f..e1da430ad91 100644 --- a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderswpf2.xaml.vb +++ b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderswpf2.xaml.vb @@ -1,19 +1,8 @@ -Imports System.Collections.Generic -Imports System.Linq -Imports System.Text +' +Imports System.Data.Services.Client Imports System.Windows -Imports System.Windows.Controls Imports System.Windows.Data -Imports System.Windows.Documents -Imports System.Windows.Input -Imports System.Windows.Media -Imports System.Windows.Media.Imaging -Imports System.Windows.Navigation -Imports System.Windows.Shapes - -' -Imports System.Data.Services.Client -Imports NorthwindClient.Northwind +Imports northwindclientvb.Northwind ' @@ -33,9 +22,9 @@ Partial Public Class CustomerOrdersWpf2 context = New NorthwindEntities(New Uri(svcUri)) ' Create a LINQ query that returns customers with related orders. - Dim customerQuery = From cust In context.Customers.Expand("Orders") _ - Where cust.Country = customerCountry _ - Select cust + Dim customerQuery = From cust In context.Customers.Expand("Orders") + Where cust.Country = customerCountry + Select cust ' Create a new collection for binding based on the LINQ query. trackedCustomers = New DataServiceCollection(Of Customer)(customerQuery) diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderswpf3.xaml b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderswpf3.xaml similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderswpf3.xaml rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderswpf3.xaml diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderswpf3.xaml.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderswpf3.xaml.vb similarity index 78% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderswpf3.xaml.vb rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderswpf3.xaml.vb index 324734aa89e..38bf21e125d 100644 --- a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderswpf3.xaml.vb +++ b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderswpf3.xaml.vb @@ -1,18 +1,8 @@ ' -Imports System.Collections.Generic -Imports System.Linq -Imports System.Text +Imports System.Data.Services.Client Imports System.Windows Imports System.Windows.Controls -Imports System.Windows.Data -Imports System.Windows.Documents -Imports System.Windows.Input -Imports System.Windows.Media -Imports System.Windows.Media.Imaging -Imports System.Windows.Navigation -Imports System.Windows.Shapes -Imports System.Data.Services.Client -Imports NorthwindClient.Northwind +Imports northwindclientvb.Northwind Partial Public Class CustomerOrdersWpf3 Inherits Window @@ -28,15 +18,15 @@ Partial Public Class CustomerOrdersWpf3 context = New NorthwindEntities(New Uri(svcUri)) ' Create a LINQ query that returns customers with related orders. - Dim customerQuery = From cust In context.Customers _ - Where cust.Country = customerCountry _ - Select cust + Dim customerQuery = From cust In context.Customers + Where cust.Country = customerCountry + Select cust - ' - ' Create a new collection for binding based on the LINQ query. + ' + ' Create a new collection for binding based on the LINQ query. trackedCustomers = New DataServiceCollection(Of Customer)(customerQuery) - ' Load all pages of the response at once. + ' Load all pages of the response at once. While trackedCustomers.Continuation IsNot Nothing trackedCustomers.Load( _ context.Execute(Of Customer)(trackedCustomers.Continuation.NextLinkUri)) @@ -79,4 +69,4 @@ Partial Public Class CustomerOrdersWpf3 End Try End Sub End Class -' \ No newline at end of file +' diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/my project/application.designer.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/my project/application.designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/my project/application.designer.vb rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/my project/application.designer.vb diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/my project/application.myapp b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/my project/application.myapp similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/my project/application.myapp rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/my project/application.myapp diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/my project/datasources/northwindclient.northwindmodel.customers.datasource b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/my project/datasources/northwindclient.northwindmodel.customers.datasource similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/my project/datasources/northwindclient.northwindmodel.customers.datasource rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/my project/datasources/northwindclient.northwindmodel.customers.datasource diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/my project/myextensions/mywpfextension.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/my project/myextensions/mywpfextension.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/my project/myextensions/mywpfextension.vb rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/my project/myextensions/mywpfextension.vb diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/my project/resources.designer.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/my project/resources.designer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/my project/resources.designer.vb rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/my project/resources.designer.vb diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/my project/resources.resx b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/my project/resources.resx similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/my project/resources.resx rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/my project/resources.resx diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/northwind.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/northwind.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/northwind.vb rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/northwind.vb diff --git a/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/northwindclientvb.vbproj b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/northwindclientvb.vbproj new file mode 100644 index 00000000000..cc407968e5a --- /dev/null +++ b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/northwindclientvb.vbproj @@ -0,0 +1,12 @@ + + + Exe + net481-windows + true + + + + + + + diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/program.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/program.vb similarity index 90% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/program.vb rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/program.vb index 29090a8abe4..3a212676b43 100644 --- a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/program.vb +++ b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/program.vb @@ -1,12 +1,8 @@ Option Explicit On Option Strict On -Imports System.Reflection -Imports System.Windows.Forms -Imports System.IO -Imports NorthwindClient Module Program - Sub Main() + Sub Main1() 'Dim newSync As New CustomerOrdersCustom() 'newSync.Title = newSync.GetType().ToString() 'newSync.ShowDialog() diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/salesorders.xaml b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/salesorders.xaml similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/salesorders.xaml rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/salesorders.xaml diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/salesorders.xaml.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/salesorders.xaml.vb similarity index 87% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/salesorders.xaml.vb rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/salesorders.xaml.vb index 26c74388175..8a670ac01dd 100644 --- a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/salesorders.xaml.vb +++ b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/salesorders.xaml.vb @@ -49,10 +49,9 @@ 'Imports System.Collections.Generic ' -Imports System.Linq -Imports System.Windows Imports System.Data.Services.Client -Imports NorthwindClient.Northwind +Imports System.Windows +Imports northwindclientvb.Northwind '/ '/ Interaction logic for SalesOrders.xaml @@ -70,19 +69,19 @@ Partial Public Class SalesOrders ' Define a query that returns Orders and ' Order_Details for a specific customer. - Dim ordersQuery = From o In context.Orders.Expand("Order_Details") _ - Where o.Customer.CustomerID = customerId _ - Select o + Dim ordersQuery = From o In context.Orders.Expand("Order_Details") + Where o.Customer.CustomerID = customerId + Select o ' Create an DataServiceCollection based on ' execution of the query for Orders. - Dim customerOrders As DataServiceCollection(Of Order) = _ + Dim customerOrders As DataServiceCollection(Of Order) = New DataServiceCollection(Of Order)(ordersQuery) - ' + ' ' Make the DataServiceCollection the binding source for the Grid. - Me.orderItemsGrid.DataContext = customerOrders - ' + Me.orderItemsGrid.DataContext = customerOrders + ' Catch ex As DataServiceQueryException MessageBox.Show(ex.ToString()) End Try diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/service references/northwind/reference.datasvcmap b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/service references/northwind/reference.datasvcmap similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/service references/northwind/reference.datasvcmap rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/service references/northwind/reference.datasvcmap diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/service references/northwind/reference.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/service references/northwind/reference.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/service references/northwind/reference.vb rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/service references/northwind/reference.vb diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/service references/northwind/service.edmx b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/service references/northwind/service.edmx similarity index 100% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/service references/northwind/service.edmx rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/service references/northwind/service.edmx diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/source.vb b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/source.vb similarity index 89% rename from snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/source.vb rename to snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/source.vb index caf6e9e83b1..39c2b4b911b 100644 --- a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/source.vb +++ b/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/source.vb @@ -2,15 +2,10 @@ Option Explicit On Option Strict On Option Infer On - -Imports System.Collections.Generic -Imports System.Linq -Imports System.Text Imports System.Data.Services.Client ' -Imports System.Data.Services.Common -Imports NorthwindClient.Northwind +Imports northwindclientvb.Northwind ' @@ -34,7 +29,7 @@ Public Class SourceVb Console.WriteLine("Customer Name: {0}", customer.CompanyName) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -46,15 +41,15 @@ Public Class SourceVb Try ' Define a LINQ query that returns all customers. - Dim allCustomers = From cust In context.Customers _ - Select cust + Dim allCustomers = From cust In context.Customers + Select cust ' Enumerate over the query obtained from the context. For Each customer As Customer In allCustomers Console.WriteLine("Customer Name: {0}", customer.CompanyName) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -70,7 +65,7 @@ Public Class SourceVb Console.WriteLine("Customer Name: {0}", customer.CompanyName) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -81,7 +76,7 @@ Public Class SourceVb Dim context = New DataServiceContext(svcUri) ' Define a new query for Customers. - Dim query As DataServiceQuery(Of Customer) = _ + Dim query As DataServiceQuery(Of Customer) = context.CreateQuery(Of Customer)("Customers") Try @@ -90,7 +85,7 @@ Public Class SourceVb Console.WriteLine("Customer Name: {0}", customer.CompanyName) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -110,7 +105,7 @@ Public Class SourceVb Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -125,7 +120,7 @@ Public Class SourceVb ' Define the query to execute asynchronously that returns ' all customers with their respective orders. - Dim query As DataServiceQuery(Of Customer) = _ + Dim query As DataServiceQuery(Of Customer) = context.Customers.Expand("Orders") Try @@ -133,21 +128,21 @@ Public Class SourceVb ' and the original query object to maintain state in the callback. query.BeginExecute(callback, query) Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try End Sub ' Handle the query callback. Private Shared Sub OnCustomersQueryComplete(ByVal result As IAsyncResult) ' Get the original query from the result. - Dim query As DataServiceQuery(Of Customer) = _ + Dim query As DataServiceQuery(Of Customer) = CType(result.AsyncState, DataServiceQuery(Of Customer)) ' Complete the query execution. For Each customer As Customer In query.EndExecute(result) Console.WriteLine("Customer Name: {0}", customer.CompanyName) For Each order As Order In customer.Orders - Console.WriteLine("Order #: {0} - Freight $: {1}", _ + Console.WriteLine("Order #: {0} - Freight $: {1}", order.OrderID, order.Freight) Next Next @@ -167,11 +162,11 @@ Public Class SourceVb ' ' Write out customer and order information. - Console.WriteLine("Customer: {0} - Order ID: {1}", _ + Console.WriteLine("Customer: {0} - Order ID: {1}", order.Customer.CompanyName, order.OrderID) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -192,12 +187,12 @@ Public Class SourceVb ' For Each item As Order_Detail In order.Order_Details - Console.WriteLine(vbTab & "Product: {0} - Quantity: {1}", _ + Console.WriteLine(vbTab & "Product: {0} - Quantity: {1}", item.ProductID, item.Quantity) Next Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -209,7 +204,7 @@ Public Class SourceVb ' ' Define a query for orders that also returns items and customers. - Dim query As DataServiceQuery(Of Order) = _ + Dim query As DataServiceQuery(Of Order) = context.Orders.Expand("Order_Details,Customer") ' @@ -220,12 +215,12 @@ Public Class SourceVb Console.WriteLine("Order ID: {0}", order.OrderID) For Each item As Order_Detail In order.Order_Details - Console.WriteLine(vbTab & "Product: {0} - Quantity: {1}", _ + Console.WriteLine(vbTab & "Product: {0} - Quantity: {1}", item.ProductID, item.Quantity) Next Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -246,11 +241,11 @@ Public Class SourceVb Try ' Enumerate over the results of the query. For Each order As Order In selectedOrders - Console.WriteLine("Order ID: {0} - Ship Date: {1} - Freight: {2}", _ + Console.WriteLine("Order ID: {0} - Ship Date: {1} - Freight: {2}", order.OrderID, order.ShippedDate, order.Freight) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -263,20 +258,20 @@ Public Class SourceVb ' Define a query for orders with a Freight value greater than 30 ' and that is ordered by the ship date, descending. ' - Dim selectedOrders = From o In context.Orders _ - Where (o.Freight > 30) _ - Order By o.ShippedDate Descending _ - Select o + Dim selectedOrders = From o In context.Orders + Where (o.Freight > 30) + Order By o.ShippedDate Descending + Select o ' Try ' Enumerate over the results of the query. For Each order As Order In selectedOrders - Console.WriteLine("Order ID: {0} - Ship Date: {1} - Freight: {2}", _ + Console.WriteLine("Order ID: {0} - Ship Date: {1} - Freight: {2}", order.OrderID, order.ShippedDate, order.Freight) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -298,11 +293,11 @@ Public Class SourceVb ' Enumerate over the results of the query. For Each order As Order In selectedOrders - Console.WriteLine("Order ID: {0} - Ship Date: {1} - Freight: {2}", _ + Console.WriteLine("Order ID: {0} - Ship Date: {1} - Freight: {2}", order.OrderID, order.ShippedDate, order.Freight) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -315,18 +310,18 @@ Public Class SourceVb ' ' Define a query for orders with a Freight value greater than 30 ' that also orders the result by the Freight value, descending. - Dim selectedOrders As DataServiceQuery(Of Order) = _ + Dim selectedOrders As DataServiceQuery(Of Order) = context.Orders.AddQueryOption("$orderby", "Freight gt 30 desc") ' Try ' Enumerate over the results of the query. For Each order As Order In selectedOrders - Console.WriteLine("Order ID: {0} - Freight: {1}", _ + Console.WriteLine("Order ID: {0} - Freight: {1}", order.OrderID, order.Freight) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -340,9 +335,9 @@ Public Class SourceVb ' Create the separate query URI's, one that returns ' a single customer and another that returns all Products. - Dim customerUri = New Uri(svcUri.AbsoluteUri & _ + Dim customerUri = New Uri(svcUri.AbsoluteUri & "/Customers('" & customerId & "')/?$expand=Orders") - Dim productsUri = New Uri(svcUri.AbsoluteUri & _ + Dim productsUri = New Uri(svcUri.AbsoluteUri & "/Products") ' Create the query requests. @@ -350,7 +345,7 @@ Public Class SourceVb Dim productsQuery = New DataServiceRequest(Of Product)(productsUri) ' Add the query requests to a batch request array. - Dim batchRequests = _ + Dim batchRequests = New DataServiceRequest() {customerQuery, productsQuery} Dim batchResponse As DataServiceResponse @@ -375,7 +370,7 @@ Public Class SourceVb For Each customer As Customer In response Console.WriteLine("Customer: {0}", customer.CompanyName) For Each order As Order In customer.Orders - Console.WriteLine("Order ID: {0} - Freight: {1}", _ + Console.WriteLine("Order ID: {0} - Freight: {1}", order.OrderID, order.Freight) Next Next @@ -411,8 +406,8 @@ Public Class SourceVb Dim context = New NorthwindEntities(svcUri) ' Define an existing customer to attach, including the key. - Dim customer As Customer = _ - customer.CreateCustomer("ALFKI", "Alfreds Futterkiste") + Dim customer As Customer = + Customer.CreateCustomer("ALFKI", "Alfreds Futterkiste") ' Set current property values. customer.Address = "Obere Str. 57" @@ -436,7 +431,7 @@ Public Class SourceVb context.SaveChanges() ' Catch ex As DataServiceClientException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred when saving changes.", ex) End Try ' @@ -448,7 +443,7 @@ Public Class SourceVb ' ' Create the new product. - Dim newProduct = _ + Dim newProduct = Product.CreateProduct(0, "White Tea - loose", False) ' @@ -468,7 +463,7 @@ Public Class SourceVb Console.WriteLine("New product added with ID {0}.", newProduct.ProductID) Catch ex As DataServiceRequestException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred when saving changes.", ex) ' Finally @@ -485,8 +480,8 @@ Public Class SourceVb Dim context = New NorthwindEntities(svcUri) ' Get a customer to modify using the supplied ID. - Dim customerToChange = (From customer In context.Customers _ - Where customer.CustomerID = customerId _ + Dim customerToChange = (From customer In context.Customers + Where customer.CustomerID = customerId Select customer).Single() ' Change some property values. @@ -503,7 +498,7 @@ Public Class SourceVb ' Send the update to the data service. context.SaveChanges() Catch ex As DataServiceRequestException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred when saving changes.", ex) End Try ' @@ -525,8 +520,8 @@ Public Class SourceVb Try ' Get the product to delete, by product ID. - Dim deletedProduct = (From product In context.Products _ - Where product.ProductID = productID _ + Dim deletedProduct = (From product In context.Products + Where product.ProductID = productID Select product).Single() @@ -542,7 +537,7 @@ Public Class SourceVb ' which can happen when there are entities with existing ' relationships to the product being deleted. Catch ex As DataServiceRequestException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred when saving changes.", ex) End Try ' @@ -559,20 +554,20 @@ Public Class SourceVb Try ' Get the specific product. - Dim selectedProduct = (From product In context.Products _ - Where product.ProductID = productId _ - Select product).Single() + Dim selectedProduct = (From product In context.Products + Where product.ProductID = productId + Select product).Single() ' Get the specific customer. - Dim cust = (From customer In context.Customers.Expand("Orders") _ - Where customer.CustomerID = customerId _ + Dim cust = (From customer In context.Customers.Expand("Orders") + Where customer.CustomerID = customerId Select customer).Single() ' Get the first order. Dim order = cust.Orders.FirstOrDefault() ' Create a new order detail for the specific product. - newItem = Order_Detail.CreateOrder_Detail( _ + newItem = Order_Detail.CreateOrder_Detail( order.OrderID, selectedProduct.ProductID, 10, 5, 0) ' Add the new order detail to the context. @@ -600,19 +595,19 @@ Public Class SourceVb Dim addedProduct = TryCast(descriptor.Entity, Product) If Not addedProduct Is Nothing Then - Console.WriteLine("New product added with ID {0}.", _ + Console.WriteLine("New product added with ID {0}.", addedProduct.ProductID) End If End If Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred when saving changes.", ex) ' Handle any errors that may occur during insert, such as ' a constraint violation. Catch ex As DataServiceRequestException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred when saving changes.", ex) ' 'remove the added product. @@ -633,20 +628,20 @@ Public Class SourceVb Try ' Get the specific product. - Dim selectedProduct = (From product In context.Products _ - Where product.ProductID = productId _ + Dim selectedProduct = (From product In context.Products + Where product.ProductID = productId Select product).Single() ' Get the specific customer. - Dim cust = (From customer In context.Customers.Expand("Orders") _ - Where customer.CustomerID = customerId _ + Dim cust = (From customer In context.Customers.Expand("Orders") + Where customer.CustomerID = customerId Select customer).Single() ' Get the first order. Dim order = cust.Orders.FirstOrDefault() ' Create a new order detail for the specific product. - newItem = Order_Detail.CreateOrder_Detail( _ + newItem = Order_Detail.CreateOrder_Detail( order.OrderID, selectedProduct.ProductID, 10, 5, 0) ' @@ -675,20 +670,20 @@ Public Class SourceVb Dim addedItem = TryCast(descriptor.Entity, Order_Detail) If Not addedItem Is Nothing Then - Console.WriteLine("New {0} item added to order {1}.", _ + Console.WriteLine("New {0} item added to order {1}.", addedItem.Product.ProductName, addedItem.OrderID.ToString()) End If End If End If Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred when saving changes.", ex) ' Handle any errors that may occur during insert, such as ' a constraint violation. Catch ex As DataServiceRequestException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred when saving changes.", ex) ' 'remove the added product. @@ -714,7 +709,7 @@ Public Class SourceVb ' Retrieve the total count from the response. Console.WriteLine("There are {0} customers in total.", totalCount) Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -726,14 +721,14 @@ Public Class SourceVb ' ' Define a new query for Customers that includes the total count. - Dim query As DataServiceQuery(Of Customer) = _ + Dim query As DataServiceQuery(Of Customer) = context.Customers.IncludeTotalCount() ' Try ' ' Execute the query for all customers and get the response object. - Dim response As QueryOperationResponse(Of Customer) = _ + Dim response As QueryOperationResponse(Of Customer) = CType(query.Execute(), QueryOperationResponse(Of Customer)) ' @@ -745,7 +740,7 @@ Public Class SourceVb Console.WriteLine(vbTab & "Customer Name: {0}", customer.CompanyName) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -759,7 +754,7 @@ Public Class SourceVb Try ' Execute the query for all customers and get the response object. - Dim response As QueryOperationResponse(Of Customer) = _ + Dim response As QueryOperationResponse(Of Customer) = CType(context.Customers.Execute(), QueryOperationResponse(Of Customer)) ' @@ -772,7 +767,7 @@ Public Class SourceVb ' If nextLink is not null, then there is a new page to load. If token IsNot Nothing Then ' Load the new page from the next link URI. - response = CType(context.Execute(Of Customer)(token), _ + response = CType(context.Execute(Of Customer)(token), QueryOperationResponse(Of Customer)) End If @@ -786,7 +781,7 @@ Public Class SourceVb Loop While token IsNot Nothing ' Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -802,7 +797,7 @@ Public Class SourceVb Try ' Execute the query for all customers and related orders, ' and get the response object. - Dim response = _ + Dim response = CType(context.Customers.AddQueryOption("$expand", "Orders") _ .Execute(), QueryOperationResponse(Of Customer)) @@ -815,7 +810,7 @@ Public Class SourceVb ' If nextLink is not null, then there is a new page to load. If nextLink IsNot Nothing Then ' Load the new page from the next link URI. - response = CType(context.Execute(Of Customer)(nextLink), _ + response = CType(context.Execute(Of Customer)(nextLink), QueryOperationResponse(Of Customer)) End If @@ -825,18 +820,18 @@ Public Class SourceVb Console.WriteLine(vbTab & "Orders Page {0}:", innerPageCount + 1) ' Get the next link for the collection of related Orders. - Dim nextOrdersLink As DataServiceQueryContinuation(Of Order) = _ + Dim nextOrdersLink As DataServiceQueryContinuation(Of Order) = response.GetContinuation(c.Orders) ' While nextOrdersLink IsNot Nothing For Each o As Order In c.Orders ' Print out the orders. - Console.WriteLine(vbTab & vbTab & "OrderID: {0} - Freight: ${1}", _ + Console.WriteLine(vbTab & vbTab & "OrderID: {0} - Freight: ${1}", o.OrderID, o.Freight) Next ' Load the next page of Orders. - Dim ordersResponse = _ + Dim ordersResponse = context.LoadProperty(c, "Orders", nextOrdersLink) nextOrdersLink = ordersResponse.GetContinuation() End While @@ -846,7 +841,7 @@ Public Class SourceVb nextLink = response.GetContinuation() Loop While nextLink IsNot Nothing Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -860,15 +855,15 @@ Public Class SourceVb ' Define an anonymous LINQ query that projects the Customers type into ' a CustomerAddress type that contains only address properties. ' - Dim query = From c In context.Customers _ - Where c.Country = "Germany" _ - Select New CustomerAddress With { _ - .CustomerID = c.CustomerID, _ - .Address = c.Address, _ - .City = c.City, _ - .Region = c.Region, _ - .PostalCode = c.PostalCode, _ - .Country = c.Country} + Dim query = From c In context.Customers + Where c.Country = "Germany" + Select New CustomerAddress With { + .CustomerID = c.CustomerID, + .Address = c.Address, + .City = c.City, + .Region = c.Region, + .PostalCode = c.PostalCode, + .Country = c.Country} ' ' @@ -882,15 +877,15 @@ Public Class SourceVb ' Write out the current values. Console.WriteLine("Customer ID: {0} " & vbCrLf & "Street: {1} " _ & vbCrLf & "City: {2} " & vbCrLf & "State: {3} " & vbCrLf & "Zip Code: {4}" _ - & vbCrLf & "Country: {5}", _ - item.CustomerID, item.Address, item.City, item.Region, _ + & vbCrLf & "Country: {5}", + item.CustomerID, item.Address, item.City, item.Region, item.PostalCode, item.Country) Next ' Save changes to the data service. context.SaveChanges() Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -902,15 +897,15 @@ Public Class SourceVb ' Define an anonymous LINQ query that projects the Customers type into ' a CustomerAddress type that contains only address properties. - Dim query = From c In context.Customers _ - Where c.Country = "Germany" _ - Select New CustomerAddressNonEntity With _ - {.CompanyName = c.CompanyName, _ - .Address = c.Address, _ - .City = c.City, _ - .Region = c.Region, _ - .PostalCode = c.PostalCode, _ - .Country = c.Country} + Dim query = From c In context.Customers + Where c.Country = "Germany" + Select New CustomerAddressNonEntity With + {.CompanyName = c.CompanyName, + .Address = c.Address, + .City = c.City, + .Region = c.Region, + .PostalCode = c.PostalCode, + .Country = c.Country} Try ' Enumerate over the query result, which is executed implicitly. @@ -918,13 +913,13 @@ Public Class SourceVb item.Address += "Street" Console.WriteLine("Company name: {0} " & Environment.NewLine & "Street: {1} " _ - & "" & Environment.NewLine & "City: {2} " & Environment.NewLine & "State: {3} " & Environment.NewLine & _ - "Zip Code: {4} " & Environment.NewLine & "Country: {5}", _ - item.CompanyName, item.Address, item.City, item.Region, _ + & "" & Environment.NewLine & "City: {2} " & Environment.NewLine & "State: {3} " & Environment.NewLine & + "Zip Code: {4} " & Environment.NewLine & "Country: {5}", + item.CompanyName, item.Address, item.City, item.Region, item.PostalCode, item.Country) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -936,15 +931,15 @@ Public Class SourceVb ' Define an anonymous LINQ query that projects the Customers type into ' a CustomerAddress type that contains only address properties. ' - Dim query = From c In context.Customers _ - Where c.Country = "Germany" _ - Select New CustomerAddress( _ - c.CustomerID, _ - c.Address, _ - c.City, _ - c.Region, _ - c.PostalCode, _ - c.Country) + Dim query = From c In context.Customers + Where c.Country = "Germany" + Select New CustomerAddress( + c.CustomerID, + c.Address, + c.City, + c.Region, + c.PostalCode, + c.Country) ' Try @@ -953,12 +948,12 @@ Public Class SourceVb ' Write out the current values. Console.WriteLine("Customer ID: {0} " & vbCrLf & "Street: {1} " _ & vbCrLf & "City: {2} " & vbCrLf & "State: {3} " & vbCrLf & "Zip Code: {4}" _ - & vbCrLf & "Country: {5}", _ - item.CustomerID, item.Address, item.City, item.Region, _ + & vbCrLf & "Country: {5}", + item.CustomerID, item.Address, item.City, item.Region, item.PostalCode, item.Country) Next Catch ex As NotSupportedException - Throw New ApplicationException( _ + Throw New ApplicationException( "This is an expected error.", ex) End Try End Sub @@ -970,16 +965,16 @@ Public Class SourceVb ' a CustomerAddress type and tries to create a new Address string by ' concatenating other properties. ' - Dim query = From c In context.Customers _ - Where c.Country = "Germany" _ - Select New CustomerAddress With _ - {.CustomerID = c.CustomerID, _ - .Address = "Full address: " & c.Address & ", " & _ - c.City & "," & c.Region & " " & c.PostalCode, _ - .City = c.City, _ - .Region = c.Region, _ - .PostalCode = c.PostalCode, _ - .Country = c.Country} + Dim query = From c In context.Customers + Where c.Country = "Germany" + Select New CustomerAddress With + {.CustomerID = c.CustomerID, + .Address = "Full address: " & c.Address & ", " & + c.City & "," & c.Region & " " & c.PostalCode, + .City = c.City, + .Region = c.Region, + .PostalCode = c.PostalCode, + .Country = c.Country} ' Try @@ -988,12 +983,12 @@ Public Class SourceVb ' Write out the current values. Console.WriteLine("Customer ID: {0} " & vbCrLf & "Street: {1} " _ & vbCrLf & "City: {2} " & vbCrLf & "State: {3} " & vbCrLf & "Zip Code: {4}" _ - & vbCrLf & "Country: {5}", _ - item.CustomerID, item.Address, item.City, item.Region, _ + & vbCrLf & "Country: {5}", + item.CustomerID, item.Address, item.City, item.Region, item.PostalCode, item.Country) Next Catch ex As NotSupportedException - Throw New ApplicationException( _ + Throw New ApplicationException( "This is an expected error.", ex) End Try End Sub @@ -1004,15 +999,15 @@ Public Class SourceVb ' Define an anonymous LINQ query that projects the Customers type into ' a CustomerAddress type that contains only address properties. ' - Dim query = From c In context.Customers _ - Where c.Country = "Germany" _ - Select New CustomerAddress With _ - {.CustomerID = c.CustomerID, _ - .Address = c.Address, _ - .City = c.City, _ - .Region = c.Region, _ - .PostalCode = c.PostalCode, _ - .Country = c.Country} + Dim query = From c In context.Customers + Where c.Country = "Germany" + Select New CustomerAddress With + {.CustomerID = c.CustomerID, + .Address = c.Address, + .City = c.City, + .Region = c.Region, + .PostalCode = c.PostalCode, + .Country = c.Country} ' Try @@ -1021,12 +1016,12 @@ Public Class SourceVb ' Write out the current values. Console.WriteLine("Customer ID: {0} " & vbCrLf & "Street: {1} " _ & vbCrLf & "City: {2} " & vbCrLf & "State: {3} " & vbCrLf & "Zip Code: {4}" _ - & vbCrLf & "Country: {5}", _ - item.CustomerID, item.Address, item.City, item.Region, _ + & vbCrLf & "Country: {5}", + item.CustomerID, item.Address, item.City, item.Region, item.PostalCode.Split(New [Char]() {"-"c})(0), item.Country) Next Catch ex As NotSupportedException - Throw New ApplicationException( _ + Throw New ApplicationException( "This is an expected error.", ex) End Try End Sub @@ -1038,9 +1033,9 @@ Public Class SourceVb ' Define a query for orders that have shipped. ' Dim ordersQuery = (From o In context.Orders - Where o.ShippedDate < DateTime.Today - Order By o.OrderDate Descending, o.CustomerID - Select o).Skip(10).Take(10) + Where o.ShippedDate < DateTime.Today + Order By o.OrderDate Descending, o.CustomerID + Select o).Skip(10).Take(10) ' Try @@ -1050,11 +1045,11 @@ Public Class SourceVb ' Enumerate over the results of the query. For Each o As Order In ordersQuery - Console.WriteLine("CustomerID:{0}" & Environment.NewLine & "{1}, {2}", _ + Console.WriteLine("CustomerID:{0}" & Environment.NewLine & "{1}, {2}", o.ShipName, o.ShipCity, o.ShipCountry) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -1068,14 +1063,14 @@ Public Class SourceVb Dim projectedQuery = context.Customers _ .Where(Function(c) c.Country = "Germany") _ .OrderBy(Function(c) c.CompanyName) _ - .Select(Function(c) New CustomerAddress With _ + .Select(Function(c) New CustomerAddress With { - .CustomerID = c.CustomerID, _ - .Address = c.Address, _ - .City = c.City, _ - .Region = c.Region, _ - .PostalCode = c.PostalCode, _ - .Country = c.Country _ + .CustomerID = c.CustomerID, + .Address = c.Address, + .City = c.City, + .Region = c.Region, + .PostalCode = c.PostalCode, + .Country = c.Country }).Skip(10).Take(10) ' @@ -1086,11 +1081,11 @@ Public Class SourceVb ' Enumerate over the results of the query. For Each address As CustomerAddress In projectedQuery - Console.WriteLine("Address:" & Environment.NewLine & "{0}" & Environment.NewLine & "{1}, {2}", _ + Console.WriteLine("Address:" & Environment.NewLine & "{0}" & Environment.NewLine & "{1}, {2}", address.Address, address.City, address.Region) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -1104,8 +1099,8 @@ Public Class SourceVb ' Define a query for orders with a Freight value greater than 30. ' Dim filteredOrders = From o In context.Orders - Where o.Freight.Value > 30 - Select o + Where o.Freight.Value > 30 + Select o ' Try @@ -1114,11 +1109,11 @@ Public Class SourceVb ' Enumerate over the results of the query. For Each o As Order In filteredOrders - Console.WriteLine("Order ID: {0} - Ship Date: {1} - Freight: {2}", _ + Console.WriteLine("Order ID: {0} - Ship Date: {1} - Freight: {2}", o.OrderID, o.ShippedDate, o.Freight) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -1139,11 +1134,11 @@ Public Class SourceVb ' Enumerate over the results of the query. For Each o As Order In filteredOrders - Console.WriteLine("Order ID: {0} - Ship Date: {1} - Freight: {2}", _ + Console.WriteLine("Order ID: {0} - Ship Date: {1} - Freight: {2}", o.OrderID, o.ShippedDate, o.Freight) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -1165,11 +1160,11 @@ Public Class SourceVb ' Enumerate over the results of the query. For Each order As Order In filteredOrders - Console.WriteLine("Order ID: {0} - Ship Date: {1} - Freight: {2}", _ + Console.WriteLine("Order ID: {0} - Ship Date: {1} - Freight: {2}", order.OrderID, order.ShippedDate.Value, order.Freight.Value) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -1182,9 +1177,9 @@ Public Class SourceVb ' Define a query for orders with a Freight value greater than 30. ' Dim sortedCustomers = From c In context.Customers - Order By c.CompanyName Ascending, - c.PostalCode Descending - Select c + Order By c.CompanyName Ascending, + c.PostalCode Descending + Select c ' Try @@ -1194,11 +1189,11 @@ Public Class SourceVb ' Enumerate over the results of the query. For Each cust As Customer In sortedCustomers - Console.WriteLine("Customer name: {0} - Zip code: {1}", _ + Console.WriteLine("Customer name: {0} - Zip code: {1}", cust.CompanyName, cust.PostalCode) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -1221,11 +1216,11 @@ Public Class SourceVb ' Enumerate over the results of the query. For Each cust As Customer In sortedCustomers - Console.WriteLine("Customer name: {0} - Zip code: {1}", _ + Console.WriteLine("Customer name: {0} - Zip code: {1}", cust.CompanyName, cust.PostalCode) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -1247,11 +1242,11 @@ Public Class SourceVb ' Enumerate over the results of the query. For Each cust As Customer In sortedCustomers - Console.WriteLine("Customer name: {0} - Zip code: {1}", _ + Console.WriteLine("Customer name: {0} - Zip code: {1}", cust.CompanyName, cust.PostalCode) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -1277,11 +1272,11 @@ Public Class SourceVb ' Enumerate over the results of the query. For Each order As Order In pagedOrders - Console.WriteLine("Order ID: {0} - Ship Date: {1} - Freight: {2}", _ + Console.WriteLine("Order ID: {0} - Ship Date: {1} - Freight: {2}", order.OrderID, order.ShippedDate, order.Freight) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -1307,11 +1302,11 @@ Public Class SourceVb ' Enumerate over the results of the query. For Each o As Order In pagedOrders - Console.WriteLine("Order ID: {0} - Ship Date: {1} - Freight: {2}", _ + Console.WriteLine("Order ID: {0} - Ship Date: {1} - Freight: {2}", o.OrderID, o.ShippedDate, o.Freight) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -1342,11 +1337,11 @@ Public Class SourceVb ' Enumerate over the results of the query. For Each address As CustomerAddress In projectedQuery - Console.WriteLine("Address:" & Environment.NewLine & "{0}" & Environment.NewLine & "{1}, {2}", _ + Console.WriteLine("Address:" & Environment.NewLine & "{0}" & Environment.NewLine & "{1}, {2}", address.Address, address.City, address.Region) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -1377,11 +1372,11 @@ Public Class SourceVb ' Enumerate over the results of the query. For Each address As CustomerAddress In projectedQuery - Console.WriteLine("Address:" & Environment.NewLine & "{0}" & Environment.NewLine & "{1}, {2}", _ + Console.WriteLine("Address:" & Environment.NewLine & "{0}" & Environment.NewLine & "{1}, {2}", address.Address, address.City, address.Region) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -1395,8 +1390,8 @@ Public Class SourceVb ' for the customer "ALKFI". ' Dim ordersQuery = From o In context.Orders.Expand("Order_Details") - Where o.CustomerID = "ALFKI" - Select o + Where o.CustomerID = "ALFKI" + Select o ' Try @@ -1406,16 +1401,16 @@ Public Class SourceVb ' Enumerate over the results of the query. For Each o As Order In ordersQuery - Console.WriteLine("Order ID: {0} - Ship Date: {1} - Freight: {2}", _ + Console.WriteLine("Order ID: {0} - Ship Date: {1} - Freight: {2}", o.OrderID, o.ShippedDate, o.Freight) For Each item As Order_Detail In o.Order_Details - Console.WriteLine(vbTab & "Product: {0} (Price: {1}) - Quantity: {2}", _ + Console.WriteLine(vbTab & "Product: {0} (Price: {1}) - Quantity: {2}", item.ProductID, item.UnitPrice, item.Quantity) Next Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -1439,16 +1434,16 @@ Public Class SourceVb ' Enumerate over the results of the query. For Each o As Order In ordersQuery - Console.WriteLine("Order ID: {0} - Ship Date: {1} - Freight: {2}", _ + Console.WriteLine("Order ID: {0} - Ship Date: {1} - Freight: {2}", o.OrderID, o.ShippedDate, o.Freight) For Each item As Order_Detail In o.Order_Details - Console.WriteLine(vbTab & "Product: {0} (Price: {1}) - Quantity: {2}", _ + Console.WriteLine(vbTab & "Product: {0} (Price: {1}) - Quantity: {2}", item.ProductID, item.UnitPrice, item.Quantity) Next Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -1466,10 +1461,10 @@ Public Class SourceVb ' Define a query that returns products based on a ' calculation that is determined on the client. Dim productsQuery = From p In context.Products - Where p.UnitPrice > - (basePrice - (basePrice * discount)) AndAlso - p.ProductName.Contains("bike") - Select p + Where p.UnitPrice > + (basePrice - (basePrice * discount)) AndAlso + p.ProductName.Contains("bike") + Select p ' Try @@ -1479,11 +1474,11 @@ Public Class SourceVb ' Enumerate over the results of the query. For Each prod As Product In productsQuery - Console.WriteLine("Product ID: {0} ({1}) - Unit price: {2}", _ + Console.WriteLine("Product ID: {0} ({1}) - Unit price: {2}", prod.ProductID, prod.ProductName, prod.UnitPrice) Next Catch ex As DataServiceQueryException - Throw New ApplicationException( _ + Throw New ApplicationException( "An error occurred during query execution.", ex) End Try ' @@ -1500,17 +1495,17 @@ Public Class SourceVb AddHandler context.SendingRequest, AddressOf OnSendingRequest ' Define a query for orders with a Freight value greater than 30. - Dim query = From cust In context.Customers _ - Where cust.Country = "Germany" _ - Select cust + Dim query = From cust In context.Customers + Where cust.Country = "Germany" + Select cust Try ' Enumerate to execute the query. For Each cust As Customer In query Console.WriteLine("Name: {0}" & Environment.NewLine & "Address:" & Environment.NewLine & "{1}" _ - & Environment.NewLine & "{2}, {3}", _ + & Environment.NewLine & "{2}, {3}", cust.CompanyName, cust.Address, cust.City, cust.Region) - Next + Next Catch ex As DataServiceQueryException Throw New ApplicationException( _ "An error occurred during query execution.", ex) diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQCustomComparer/VB/CustomComparer.vb b/snippets/visualbasic/System.Linq/Enumerable/ContainsTSource/CustomComparer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQCustomComparer/VB/CustomComparer.vb rename to snippets/visualbasic/System.Linq/Enumerable/ContainsTSource/CustomComparer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQEncapsulatedComparer/VB/EncapsulatedComparer.vb b/snippets/visualbasic/System.Linq/Enumerable/DistinctTSource/EncapsulatedComparer.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQEncapsulatedComparer/VB/EncapsulatedComparer.vb rename to snippets/visualbasic/System.Linq/Enumerable/DistinctTSource/EncapsulatedComparer.vb diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/csProgGuideAttributes/vb/callerinfo.vb b/snippets/visualbasic/System.Runtime.CompilerServices/CallerFilePathAttribute/Overview/callerinfo.vb similarity index 100% rename from snippets/visualbasic/VS_Snippets_VBCSharp/csProgGuideAttributes/vb/callerinfo.vb rename to snippets/visualbasic/System.Runtime.CompilerServices/CallerFilePathAttribute/Overview/callerinfo.vb diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderscustom.xaml.vb b/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderscustom.xaml.vb deleted file mode 100644 index ce93ded5a10..00000000000 --- a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderscustom.xaml.vb +++ /dev/null @@ -1,123 +0,0 @@ -' -Imports System.Collections.Generic -Imports System.Linq -Imports System.Text -Imports System.Windows -Imports System.Windows.Controls -Imports System.Windows.Data -Imports System.Windows.Documents -Imports System.Windows.Input -Imports System.Windows.Media -Imports System.Windows.Media.Imaging -Imports System.Windows.Navigation -Imports System.Windows.Shapes -Imports System.Data.Services.Client -Imports NorthwindClient.Northwind -Imports System.Collections.Specialized - -Partial Public Class CustomerOrdersCustom - Inherits Window - Private context As NorthwindEntities - Private trackedCustomers As DataServiceCollection(Of Customer) - Private Const customerCountry As String = "Germany" - Private Const svcUri As String = "http://localhost:12345/Northwind.svc/" - Private Sub Window_Loaded(ByVal sender As Object, ByVal e As RoutedEventArgs) - Try - ' Initialize the context for the data service. - context = New NorthwindEntities(New Uri(svcUri)) - - ' - ' Create a LINQ query that returns customers with related orders. - Dim customerQuery = From cust In context.Customers.Expand("Orders") _ - Where cust.Country = customerCountry _ - Select cust - - ' Create a new collection for binding based on the LINQ query. - trackedCustomers = New DataServiceCollection(Of Customer)(customerQuery, _ - TrackingMode.AutoChangeTracking, "Customers", _ - AddressOf OnMyPropertyChanged, AddressOf OnMyCollectionChanged) - - ' Bind the root StackPanel element to the collection - ' related object binding paths are defined in the XAML. - Me.LayoutRoot.DataContext = trackedCustomers - ' - Catch ex As DataServiceQueryException - MessageBox.Show("The query could not be completed:\n" + ex.ToString()) - Catch ex As InvalidOperationException - MessageBox.Show("The following error occurred:\n" + ex.ToString()) - End Try - End Sub - ' - ' Method that is called when the CollectionChanged event is handled. - Private Function OnMyCollectionChanged( _ - ByVal entityCollectionChangedinfo As EntityCollectionChangedParams) As Boolean - If entityCollectionChangedinfo.Action = _ - NotifyCollectionChangedAction.Remove Then - - ' Delete the related items when an order is deleted. - If entityCollectionChangedinfo.TargetEntity.GetType() Is GetType(Order) Then - - ' Get the context and object from the supplied parameter. - Dim context = entityCollectionChangedinfo.Context - Dim deletedOrder As Order = _ - CType(entityCollectionChangedinfo.TargetEntity, Order) - - If deletedOrder.Order_Details.Count = 0 Then - ' Load the related OrderDetails. - context.LoadProperty(deletedOrder, "Order_Details") - End If - - ' Delete the order and its related items - For Each item As Order_Detail In deletedOrder.Order_Details - context.DeleteObject(item) - Next - - ' Delete the order and then return false since the object is already deleted. - context.DeleteObject(deletedOrder) - - Return True - Else - Return False - End If - Else - ' Use the default behavior. - Return False - End If - End Function - ' - ' Method that is called when the PropertyChanged event is handled. - Private Function OnMyPropertyChanged( _ - ByVal entityChangedInfo As EntityChangedParams) As Boolean - ' Validate a changed order to ensure that changes are not made - ' after the order ships. - If entityChangedInfo.Entity.GetType() Is GetType(Order) AndAlso _ - (CType(entityChangedInfo.Entity, Order).ShippedDate < DateTime.Today) Then - Throw New ApplicationException(String.Format( _ - "The order {0} cannot be changed because it shipped on {1}.", _ - CType(entityChangedInfo.Entity, Order).OrderID, _ - CType(entityChangedInfo.Entity, Order).ShippedDate)) - Return False - Else - Return True - End If - End Function - Private Sub deleteButton_Click(ByVal sender As Object, ByVal e As RoutedEventArgs) - ' Get the Orders binding collection. - If customerIDComboBox.SelectedItem IsNot Nothing Then - Dim trackedOrders As DataServiceCollection(Of Order) = _ - (CType(customerIDComboBox.SelectedItem, Customer)).Orders - - ' Remove the currently selected order. - trackedOrders.Remove(CType(ordersDataGrid.SelectedItem, Order)) - End If - End Sub - Private Sub saveChangesButton_Click(ByVal sender As Object, ByVal e As RoutedEventArgs) - Try - ' Save changes to the data service. - context.SaveChanges() - Catch ex As Exception - MessageBox.Show(ex.ToString()) - End Try - End Sub -End Class -' \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/my project/assemblyinfo.vb b/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/my project/assemblyinfo.vb deleted file mode 100644 index a5a72cc16fd..00000000000 --- a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/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_Misc/astoria_northwind_client/vb/my project/settings.designer.vb b/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/my project/settings.designer.vb deleted file mode 100644 index e883c7f63b0..00000000000 --- a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/my project/settings.designer.vb +++ /dev/null @@ -1,73 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:4.0.21030.0 -' -' 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.NorthwindClient.My.MySettings - Get - Return Global.NorthwindClient.My.MySettings.Default - End Get - End Property - End Module -End Namespace diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/my project/settings.settings b/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/my project/settings.settings deleted file mode 100644 index 85b890b3c66..00000000000 --- a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/my project/settings.settings +++ /dev/null @@ -1,7 +0,0 @@ - - - - - - - diff --git a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/northwindclientvb.vbproj b/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/northwindclientvb.vbproj deleted file mode 100644 index 9b13b6a1e3b..00000000000 --- a/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/northwindclientvb.vbproj +++ /dev/null @@ -1,300 +0,0 @@ - - - - Debug - AnyCPU - 10.0.20604 - 2.0 - {9FB79FAA-1BB3-426F-82F0-074D45E67B21} - Exe - NorthwindClient.Program - NorthwindClient - NorthwindClient - 512 - Console - v4.0 - On - Binary - Off - On - - - 3.5 - - publish\ - true - Disk - false - Foreground - 7 - Days - false - false - true - 0 - 1.0.0.%2a - false - false - true - - - - - true - full - true - true - bin\Debug\ - NorthwindClient.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - AllRules.ruleset - - - pdbonly - false - true - true - bin\Release\ - NorthwindClient.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - AllRules.ruleset - - - - 3.0 - - - 3.0 - - - - - - - - 3.0 - - - 3.0 - - - - - - 3.5 - - - 3.5 - - - 3.5 - - - 3.0 - - - 3.0 - - - - - - - - - - - - - - - - - Application.xaml - - - - CustomerOrders.vb - - - Form - - - CustomerOrders2.vb - - - Form - - - CustomerOrdersAsync.xaml - - - Code - CustomerOrdersCustom.xaml - - - CustomerOrdersWPF.xaml - - - CustomerOrdersWPF2.xaml - - - CustomerOrdersWPF3.xaml - - - LoginWindow.xaml - - - ClientCredentials.xaml - - - - True - Application.myapp - - - Microsoft.VisualBasic.WPF.MyExtension - 1.0.0.0 - - - True - True - Resources.resx - - - True - Settings.settings - True - - - - SalesOrders.xaml - - - True - True - Reference.datasvcmap - - - - - - CustomerOrders.vb - - - CustomerOrders2.vb - - - VbMyResourcesResXFileCodeGenerator - Resources.Designer.vb - My.Resources - Designer - - - - - - MyApplicationCodeGenerator - Application.Designer.vb - - - - - SettingsSingleFileGenerator - My - Settings.Designer.vb - - - - - - - - - MSBuild:Compile - Designer - MSBuild:Compile - Designer - - - Designer - MSBuild:Compile - MSBuild:Compile - Designer - - - Designer - MSBuild:Compile - MSBuild:Compile - Designer - - - Designer - MSBuild:Compile - MSBuild:Compile - Designer - - - Designer - MSBuild:Compile - MSBuild:Compile - Designer - - - Designer - MSBuild:Compile - MSBuild:Compile - Designer - - - MSBuild:Compile - Designer - - - MSBuild:Compile - Designer - - - Designer - MSBuild:Compile - MSBuild:Compile - Designer - - - - - False - .NET Framework 3.5 SP1 Client Profile - false - - - False - .NET Framework 3.5 SP1 - true - - - False - Windows Installer 3.1 - true - - - - - datasvcmap - - - - - DataServiceClientGenerator - Reference.vb - - - - - \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/My Project/AssemblyInfo.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/My Project/AssemblyInfo.vb deleted file mode 100644 index 901eb3943e7..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/My Project/AssemblyInfo.vb +++ /dev/null @@ -1,36 +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_VBCSharp/VbCnAttributes/VB/VbCnAttributes.vbproj b/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/VbCnAttributes.vbproj deleted file mode 100644 index 5a5e0af2a32..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/VbCnAttributes.vbproj +++ /dev/null @@ -1,101 +0,0 @@ - - - - Debug - AnyCPU - 8.0.50110 - 2.0 - {2AFD64F0-CCD1-4005-8A83-8F123C234384} - Library - - - VbCnAttributes - VbCnAttributes - Windows - true - true - myKey.snk - - - true - full - true - true - bin\Debug\ - VbCnAttributes.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - pdbonly - false - true - true - bin\Release\ - VbCnAttributes.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - - - - - - - - - - - - - - - - - - - - Form - - - Form1.vb - Form - - - - True - Application.myapp - - - True - True - Resources.resx - - - True - Settings.settings - True - - - - - - VbMyResourcesResXFileCodeGenerator - Resources.Designer.vb - My.Resources - Designer - - - - - - MyApplicationCodeGenerator - Application.Designer.vb - - - SettingsSingleFileGenerator - Settings.Designer.vb - - - - - \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/My Project/AssemblyInfo.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/My Project/AssemblyInfo.vb deleted file mode 100644 index 1306345afc3..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/My Project/AssemblyInfo.vb +++ /dev/null @@ -1,33 +0,0 @@ -Imports System.Reflection -Imports System.Runtime.InteropServices -Imports System.Data.Sql - -' 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_VBCSharp/VbRaddataSQLObjects/VB/VB.vbproj b/snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/VB.vbproj deleted file mode 100644 index 39229d3c634..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/VB.vbproj +++ /dev/null @@ -1,70 +0,0 @@ - - - - Debug - AnyCPU - {c252feb5-a946-4202-b1d4-9916a0590387};{F184B08F-C81C-45F6-A57F-5ABD9991F28F} - 8.0.50613 - 2.0 - {8A22C9C7-55E7-43BB-BD6E-2A59E734DD05} - Library - Empty - VB - VB - - - true - full - true - true - bin\ - - - false - false - true - true - bin\ - - - - System - False - - - System.Data - False - - - System.XML - False - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Class1.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Class1.vb deleted file mode 100644 index e82d2be637f..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Class1.vb +++ /dev/null @@ -1,137 +0,0 @@ -Public Class Class1 - - '**************************************************************************** - Shared Sub TestGetEnumerator() - ' - Dim customers As New Collection - ' Insert code to add elements to the customers collection. - Dim custEnum As IEnumerator = customers.GetEnumerator() - custEnum.Reset() - Dim thisCustomer As Object - While custEnum.MoveNext() - thisCustomer = custEnum.Current() - ' Insert code to process this element of the collection. - End While - ' - End Sub - - '**************************************************************************** - Shared Sub BirthdayCollection() - ' - Dim birthdays As New Collection() - birthdays.Add(New DateTime(2001, 1, 12), "Bill") - birthdays.Add(New DateTime(2001, 1, 13), "Joe") - birthdays.Add(New DateTime(2001, 1, 14), "Mike") - birthdays.Add(New DateTime(2001, 1, 15), "Pete") - ' - - ' - MsgBox("Number of birthdays in collection: " & CStr(birthdays.Count)) - ' - - ' - Dim aBirthday As DateTime - aBirthday = birthdays.Item("Bill") - MsgBox(CStr(aBirthday)) - aBirthday = birthdays("Bill") - MsgBox(CStr(aBirthday)) - ' - - ' - birthdays.Remove(1) - birthdays.Remove("Mike") - ' - - MsgBox("Number of birthdays in collection: " & CStr(birthdays.Count)) - End Sub - - - '**************************************************************************** - Class Customer - Private _accountNumber As String - Public Property accountNumber() As String - Get - Return _accountNumber - End Get - Set(ByVal value As String) - _accountNumber = value - End Set - End Property - End Class - - - '**************************************************************************** - Shared Sub TestContains() - Dim newCustomer As New Customer - - ' - Dim customers As New Microsoft.VisualBasic.Collection() - Dim accountNumber As String = "1234" - ' Insert code that obtains new customer objects. - ' Use the new customer's account number as the key. - customers.Add(newCustomer, accountNumber) - ' The preceding statements can be repeated for several customers. - Dim searchNumber As String = "1234" - ' Insert code to obtain an account number to search for. - If customers.Contains(searchNumber) Then - MsgBox("The desired customer is in the collection.") - Else - MsgBox("The desired customer is not in the collection.") - End If - ' - - End Sub - - - '**************************************************************************** - Shared Function TestClear() As Integer - ' - Dim customers As New Microsoft.VisualBasic.Collection() - ' Insert code that adds customers to collection. - customers.Clear() - ' - - Return customers.Count - End Function - - - '**************************************************************************** - ' - Public Class nameClass - Public instanceName As String - End Class - Sub classNamer() - ' Create a Visual Basic Collection object. - Dim names As New Microsoft.VisualBasic.Collection() - Dim key As Integer - Dim msg As String - Dim name As String - Dim nameList As String = "" - ' 1. Get names from the user to add to the collection. - Do - Dim inst As New nameClass() - key += 1 - msg = "Please enter a name for this object." & vbCrLf & - "Press Cancel to see names in collection." - name = InputBox(msg, "Name the Collection items") - inst.instanceName = name - ' If user entered a name, add it to the collection. - If inst.instanceName <> "" Then - names.Add(inst, CStr(key)) - End If - Loop Until name = "" - ' 2. Create and display a list of names from the collection. - For Each oneInst As nameClass In names - nameList &= oneInst.instanceName & vbCrLf - Next oneInst - MsgBox(nameList, , "Instance Names in names Collection") - ' 3. Remove elements from the collection without disposing of the collection. - For count As Integer = 1 To names.Count - names.Remove(1) - ' Since Visual Basic collections are reindexed automatically, - ' remove the first member on each iteration. - Next count - End Sub - ' - -End Class diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/My Project/Application.Designer.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/My Project/Application.Designer.vb deleted file mode 100644 index fa410166a56..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/My Project/Application.Designer.vb +++ /dev/null @@ -1,37 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:2.0.50330.0 -' -' 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 on the My Project node in the - ' Solution Explorer), and make changes on the Application tab. - ' - Partial Class MyApplication - - _ - Public Sub New() - MyBase.New(Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) - Me.IsSingleInstance = false - Me.EnableVisualStyles = true - Me.SaveMySettingsOnExit = true - Me.ShutDownStyle = Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses - End Sub - - _ - Protected Overrides Sub OnCreateMainForm() - Me.MainForm = Global.VbVbalrCollectionObject.Form1 - End Sub - End Class -End Namespace diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/My Project/Application.myapp b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/My Project/Application.myapp deleted file mode 100644 index 1243847fd9b..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/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_VBCSharp/VbVbalrCollectionObject/VB/My Project/AssemblyInfo.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/My Project/AssemblyInfo.vb deleted file mode 100644 index dea56955ed8..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/My Project/AssemblyInfo.vb +++ /dev/null @@ -1,36 +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_VBCSharp/VbVbalrCollectionObject/VB/VbVbalrCollectionObject.vbproj b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/VbVbalrCollectionObject.vbproj deleted file mode 100644 index a83931b9088..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/VbVbalrCollectionObject.vbproj +++ /dev/null @@ -1,97 +0,0 @@ - - - - Debug - AnyCPU - 8.0.50404 - 2.0 - {B89EF969-B333-4A80-BD61-A28CD1D22CD8} - WinExe - VbVbalrCollectionObject.My.MyApplication - VbVbalrCollectionObject - VbVbalrCollectionObject - WindowsForms - - - true - full - true - true - bin\Debug\ - VbVbalrCollectionObject.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - pdbonly - false - true - true - bin\Release\ - VbVbalrCollectionObject.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - - - - - - - - - - - - - - - - - - - Form - - - Form1.vb - Form - - - - True - Application.myapp - - - True - True - Resources.resx - - - True - Settings.settings - True - - - - - - Form1.vb - - - VbMyResourcesResXFileCodeGenerator - Resources.Designer.vb - My.Resources - Designer - - - - - MyApplicationCodeGenerator - Application.Designer.vb - - - SettingsSingleFileGenerator - Settings.Designer.vb - - - - \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/My Project/AssemblyInfo.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/My Project/AssemblyInfo.vb deleted file mode 100644 index 8638e32a001..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/My Project/AssemblyInfo.vb +++ /dev/null @@ -1,36 +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_VBCSharp/VbVbalrDateProperties/VB/VbVbalrDateProperties.vbproj b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/VbVbalrDateProperties.vbproj deleted file mode 100644 index c923359202c..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/VbVbalrDateProperties.vbproj +++ /dev/null @@ -1,84 +0,0 @@ - - - - Debug - AnyCPU - 8.0.50317 - 2.0 - {1F408514-B970-4A14-B73A-27EBD22D1343} - Exe - VbVbalrDateProperties.Module1 - VbVbalrDateProperties - VbVbalrDateProperties - Console - - - true - full - true - true - bin\Debug\ - VbVbalrDateProperties.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - pdbonly - false - true - true - bin\Release\ - VbVbalrDateProperties.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - - - - - - - - - - - - - - - - - - - True - Application.myapp - - - True - True - Resources.resx - - - True - Settings.settings - True - - - - - VbMyResourcesResXFileCodeGenerator - Resources.Designer.vb - My.Resources - - - - - MyApplicationCodeGenerator - Application.Designer.vb - - - SettingsSingleFileGenerator - Settings.Designer.vb - - - - \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/My Project/AssemblyInfo.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/My Project/AssemblyInfo.vb deleted file mode 100644 index 24f2988b498..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/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_VBCSharp/VbVbalrMyApplication/VB/VbVbalrMyApplication.vbproj b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/VbVbalrMyApplication.vbproj deleted file mode 100644 index a3ae3319e91..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/VbVbalrMyApplication.vbproj +++ /dev/null @@ -1,149 +0,0 @@ - - - Debug - AnyCPU - 10.0.20724 - 2.0 - {4BC96725-B0B3-434C-ADFE-692DC95E5B45} - WinExe - VbVbalrMyApplication.My.MyApplication - VbVbalrMyApplication - VbVbalrMyApplication - WindowsForms - - - 2.0 - v4.0 - - - publish\ - true - Disk - false - Foreground - 7 - Days - false - false - true - 0 - 1.0.0.%2a - false - false - true - - - true - full - true - true - bin\ - VbVbalrMyApplication.xml - 42016,42017,42018,42019,42032 - - - pdbonly - false - true - true - bin\ - VbVbalrMyApplication.xml - 42016,42017,42018,42019,42032 - - - - - - - - - - - - - - - - - - - True - MyApplication.myapp - - - True - True - MyResources.resx - - - True - True - MySettings.settings - - - - - Form - - - Form1.vb - Form - - - Form2.vb - - - Form - - - - - SplashScreen1.vb - - - Form - - - - - Form1.vb - - - VbMyResourcesResXFileCodeGenerator - My.Resources - MyResources.Designer.vb - - - SplashScreen1.vb - - - - - - MyApplicationCodeGenerator - MyApplication.Designer.vb - - - SettingsSingleFileGenerator - MySettings.Designer.vb - - - - - False - .NET Framework 3.5 SP1 Client Profile - false - - - False - .NET Framework 3.5 SP1 - true - - - False - Windows Installer 3.1 - true - - - - \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/Form1.Designer.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/Form1.Designer.vb deleted file mode 100644 index ba2e6ce4d3a..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/Form1.Designer.vb +++ /dev/null @@ -1,62 +0,0 @@ -Partial Public Class Form1 - Inherits System.Windows.Forms.Form - - _ - Public Sub New() - MyBase.New() - - 'This call is required by the Windows Form Designer. - InitializeComponent() - - End Sub - - 'Form overrides dispose to clean up the component list. - _ - Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - MyBase.Dispose(disposing) - End Sub - - 'Required by the Windows Form Designer - Private components As System.ComponentModel.IContainer - - 'NOTE: The following procedure is required by the Windows Form Designer - 'It can be modified using the Windows Form Designer. - 'Do not modify it using the code editor. - _ - Private Sub InitializeComponent() - Me.Button1 = New System.Windows.Forms.Button - Me.StrongName = New System.Windows.Forms.TextBox - Me.SuspendLayout() - ' - 'Button1 - ' - Me.Button1.Location = New System.Drawing.Point(12, 12) - Me.Button1.Name = "Button1" - Me.Button1.TabIndex = 0 - Me.Button1.Text = "Button1" - ' - 'StrongName - ' - Me.StrongName.Location = New System.Drawing.Point(13, 42) - Me.StrongName.Name = "StrongName" - Me.StrongName.Size = New System.Drawing.Size(267, 20) - Me.StrongName.TabIndex = 1 - ' - 'Form1 - ' - Me.ClientSize = New System.Drawing.Size(292, 273) - Me.Controls.Add(Me.StrongName) - Me.Controls.Add(Me.Button1) - Me.Name = "Form1" - Me.Text = "Form1" - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - Friend WithEvents Button1 As System.Windows.Forms.Button - Friend WithEvents StrongName As System.Windows.Forms.TextBox - -End Class diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/Form1.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/Form1.vb deleted file mode 100644 index aa934cbf704..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/Form1.vb +++ /dev/null @@ -1,149 +0,0 @@ -' -Imports System.Diagnostics -' - -Public Class Form1 - - Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click - Dim t As Type = GetType(SimpleListener) - MsgBox(t.FullName & ", " & t.Assembly.FullName) - DisplayStrongName() - 'MsgBox(GetListeners(My.Application.Log.TraceSource.Listeners)) - Trace.TraceInformation("trace information") - Trace.TraceError("trace error") - My.Application.Log.WriteEntry("Information", TraceEventType.Information) - My.Application.Log.WriteEntry("Error", TraceEventType.Error) - End Sub - - ' - Public Sub TestSimpleListener() - My.Application.Log.WriteEntry("Hello SimpleListener") - End Sub - ' - ' - Public Sub DisplaySimpleListenerStrongName() - Dim t As Type = GetType(SimpleListener) - MsgBox(t.FullName & ", " & t.Assembly.FullName) - End Sub - ' - - ' - Public Sub DisplayStrongName() - Dim t As Type = GetType(Logging.FileLogTraceListener) - MsgBox(t.FullName & ", " & t.Assembly.FullName) - End Sub - ' - - Private Sub Snippet19() - ' - Dim ListenerCollection As TraceListenerCollection - ListenerCollection = My.Application.Log.TraceSource.Listeners - Dim ListenersText As String = GetListeners(ListenerCollection) - MsgBox(ListenersText) - ' - End Sub - - ' - Function GetListeners(ByVal listeners As TraceListenerCollection) As String - Dim ret As String = "" - For Each listener As TraceListener In listeners - ret &= listener.Name - Dim listenerType As Type = listener.GetType - If listenerType Is GetType(DefaultTraceListener) Then - Dim tmp As DefaultTraceListener = - DirectCast(listener, DefaultTraceListener) - ret &= ": Writes to the debug output." - ElseIf listenerType Is GetType(Logging.FileLogTraceListener) Then - Dim tmp As Logging.FileLogTraceListener = - DirectCast(listener, Logging.FileLogTraceListener) - ret &= ": Log filename: " & tmp.FullLogFileName - ElseIf listenerType Is GetType(EventLogTraceListener) Then - Dim tmp As EventLogTraceListener = - DirectCast(listener, EventLogTraceListener) - ret &= ": Event log name: " & tmp.EventLog.Log - ElseIf listenerType Is GetType(XmlWriterTraceListener) Then - Dim tmp As Diagnostics.XmlWriterTraceListener = - DirectCast(listener, XmlWriterTraceListener) - ret &= ": XML log" - ElseIf listenerType Is GetType(ConsoleTraceListener) Then - Dim tmp As ConsoleTraceListener = - DirectCast(listener, ConsoleTraceListener) - ret &= ": Console log" - ElseIf listenerType Is GetType(DelimitedListTraceListener) Then - Dim tmp As DelimitedListTraceListener = - DirectCast(listener, DelimitedListTraceListener) - ret &= ": Delimited log" - Else - ret &= ": Unhandeled log type: " & - listenerType.ToString - End If - ret &= vbCrLf - Next - - Return ret - End Function - ' - - ' - Public Sub TracingTest(ByVal fileName As String) - My.Application.Log.WriteEntry( - "Entering TracingTest with argument " & - fileName & ".") - ' Code to trace goes here. - My.Application.Log.WriteEntry( - "Exiting TracingTest with argument " & - fileName & ".") - End Sub - ' - - - ' - Public Sub ExceptionLogTest(ByVal fileName As String) - Try - ' - ' Code that might generate an exception goes here. - ' For example: - ' Dim x As Object - ' MsgBox(x.ToString) - ' - Catch ex As Exception - ' - My.Application.Log.WriteException(ex, - TraceEventType.Error, - "Exception in ExceptionLogTest " & - "with argument " & fileName & ".") - ' - End Try - End Sub - ' -End Class -Class extra - Private Sub extra() - ' - Try - Catch ex As Exception - End Try - ' - End Sub - ' - Public Sub ExceptionLogTest(ByVal fileName As String) - End Sub - ' -End Class - - -' -Public Class SimpleListener - Inherits System.Diagnostics.TraceListener - - - Public Overloads Overrides Sub Write(ByVal message As String) - MsgBox("Write: " & message) - End Sub - - - Public Overloads Overrides Sub WriteLine(ByVal message As String) - MsgBox("WriteLine: " & message) - End Sub -End Class -' diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/AssemblyInfo.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/AssemblyInfo.vb deleted file mode 100644 index fe68d444a00..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/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_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/MyApplication.myapp b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/MyApplication.myapp deleted file mode 100644 index e4781dae716..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/MyApplication.myapp +++ /dev/null @@ -1,10 +0,0 @@ - - - true - VbVbalrMyApplicationLog.Form1 - false - 0 - true - 0 - 0 - diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/MyApplication.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/MyApplication.vb deleted file mode 100644 index 00227d3dcc8..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/MyApplication.vb +++ /dev/null @@ -1,29 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' -' 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 Class MyApplication - - Public Sub New() - MyBase.New(ApplicationServices.AuthenticationMode.Windows) - Me.IsSingleInstance = false - Me.EnableVisualStyles = true - Me.ShutDownStyle = ApplicationServices.ShutdownMode.AfterMainFormCloses - End Sub - - Protected Overrides Sub OnCreateMainForm() - Me.MainForm = My.Forms.Form1 - End Sub - End Class -End Namespace diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/MyEvents.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/MyEvents.vb deleted file mode 100644 index b6dfb0a6eb5..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/MyEvents.vb +++ /dev/null @@ -1,15 +0,0 @@ -Namespace My - - 'Use the editor window dropdowns in the Application pane of the Project Designer to handle MyApplication Events - ' - 'Startup: Raised when the application starts, before the startup form is created. - 'Shutdown: Raised after all application forms are closed. This event is not raised if the application is terminating abnormally. - 'UnhandledException: Raised if the application encounters an unhandled exception. - 'StartupNextInstance: Raised when launching a single-instance application and the application is already active. - 'NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected. - - Partial Friend Class MyApplication - - End Class - -End Namespace diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/MyResources.resx b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/MyResources.resx deleted file mode 100644 index 3e18af958a2..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/MyResources.resx +++ /dev/null @@ -1,117 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/MyResources.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/MyResources.vb deleted file mode 100644 index 0f87f8a3f29..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/MyResources.vb +++ /dev/null @@ -1,61 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. -' -'------------------------------------------------------------------------------ - -Option Strict Off -Option Explicit On - -Imports System.IO -Imports System.Resources - -Namespace My.Resources - - ' - ' A strongly-typed resource class, for looking up localized strings, etc. - ' - 'This class was auto-generated by the Strongly Typed Resource Builder - 'class via a tool like ResGen or Visual Studio.NET. - 'To add or remove a member, edit your .ResX file then rerun ResGen - 'with the /str option, or rebuild your VS project. - _ - Module MyResources - - Private _resMgr As System.Resources.ResourceManager - - Private _resCulture As System.Globalization.CultureInfo - - ' - ' Returns the cached ResourceManager instance used by this class. - ' - _ - Public ReadOnly Property ResourceManager() As System.Resources.ResourceManager - Get - If (_resMgr Is Nothing) Then - Dim temp As System.Resources.ResourceManager = New System.Resources.ResourceManager("VbVbalrMyApplicationLog.MyResources", GetType(MyResources).Assembly) - System.Threading.Thread.MemoryBarrier - _resMgr = temp - End If - Return _resMgr - End Get - End Property - - ' - ' Overrides the current thread's CurrentUICulture property for all - ' resource lookups using this strongly typed resource class. - ' - _ - Public Property Culture() As System.Globalization.CultureInfo - Get - Return _resCulture - End Get - Set - _resCulture = value - End Set - End Property - End Module -End Namespace diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/MySettings.settings b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/MySettings.settings deleted file mode 100644 index 0bcb11da337..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/MySettings.settings +++ /dev/null @@ -1,7 +0,0 @@ - - - - - - - \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/MySettings.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/MySettings.vb deleted file mode 100644 index 3d12c6fb5fa..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/MySettings.vb +++ /dev/null @@ -1,38 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. -' -'------------------------------------------------------------------------------ - -Option Strict Off -Option Explicit On - - - -Partial Friend NotInheritable Class MySettings - Inherits System.Configuration.ApplicationSettingsBase - - Private Shared m_Value As MySettings - - Private Shared m_SyncObject As Object = New Object - - _ - Public Shared ReadOnly Property Value() As MySettings - Get - If (MySettings.m_Value Is Nothing) Then - System.Threading.Monitor.Enter(MySettings.m_SyncObject) - If (MySettings.m_Value Is Nothing) Then - Try - MySettings.m_Value = New MySettings - Finally - System.Threading.Monitor.Exit(MySettings.m_SyncObject) - End Try - End If - End If - Return MySettings.m_Value - End Get - End Property -End Class diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/myapplication.designer.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/myapplication.designer.vb deleted file mode 100644 index fa592c1c7d2..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/myapplication.designer.vb +++ /dev/null @@ -1,38 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:4.0.20828.0 -' -' 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.VbVbalrMyApplicationLog.Form1 - End Sub - End Class -End Namespace diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/myresources.designer.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/myresources.designer.vb deleted file mode 100644 index 8081c134d79..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/myresources.designer.vb +++ /dev/null @@ -1,61 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:4.0.20828.0 -' -' 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 MyResources - - 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("VbVbalrMyApplicationLog.MyResources", GetType(MyResources).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 - resourceCulture = value - End Set - End Property - End Module -End Namespace diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/mysettings.designer.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/mysettings.designer.vb deleted file mode 100644 index a77f55d2269..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/My Project/mysettings.designer.vb +++ /dev/null @@ -1,28 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:4.0.20828.0 -' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - - - - _ -Partial Friend NotInheritable Class MySettings - Inherits Global.System.Configuration.ApplicationSettingsBase - - Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) - - Public Shared ReadOnly Property [Default]() As MySettings - Get - Return defaultInstance - End Get - End Property -End Class diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/MyEventsFake.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/MyEventsFake.vb deleted file mode 100644 index bec78cce2d1..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/MyEventsFake.vb +++ /dev/null @@ -1,40 +0,0 @@ -Namespace My - Partial Friend Class MyApplication - ' - Private Sub MyApplication_Startup( - ByVal sender As Object, - ByVal e As ApplicationServices.StartupEventArgs - ) Handles Me.Startup - ' - My.Application.Log.WriteEntry("Application started at " & - My.Computer.Clock.GmtTime.ToString) - ' - End Sub - - Private Sub MyApplication_Shutdown( - ByVal sender As Object, - ByVal e As System.EventArgs - ) Handles Me.Shutdown - ' - My.Application.Log.WriteEntry("Application shut down at " & - My.Computer.Clock.GmtTime.ToString) - ' - End Sub - ' - - ' - Private Sub MyApplication_UnhandledException( - ByVal sender As Object, - ByVal e As ApplicationServices.UnhandledExceptionEventArgs - ) Handles Me.UnhandledException - ' - My.Application.Log.WriteException(e.Exception, - TraceEventType.Critical, - "Application shut down at " & - My.Computer.Clock.GmtTime.ToString) - ' - End Sub - ' - - End Class -End Namespace \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/VbVbalrMyApplicationLog.vbproj b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/VbVbalrMyApplicationLog.vbproj deleted file mode 100644 index ac41f765498..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/VbVbalrMyApplicationLog.vbproj +++ /dev/null @@ -1,103 +0,0 @@ - - - - Debug - AnyCPU - 8.0.41019 - 2.0 - {0E66C0AD-35BD-4063-9C9D-6CD9AA5F4B45} - WinExe - VbVbalrMyApplicationLog.My.MyApplication - VbVbalrMyApplicationLog - VbVbalrMyApplicationLog - WindowsForms - true - jkey.snk - v2.0 - - - 2.0 - - - - true - full - true - true - bin\ - VbVbalrMyApplicationLog.xml - 42016,42017,42018,42019,42032 - - - pdbonly - false - false - true - bin\ - VbVbalrMyApplicationLog.xml - 42016,42017,42018,42019,42032 - - - - - - - - - - - - - - - - - - Form - - - Form1.vb - Form - - - - True - MyApplication.myapp - - - True - True - MyResources.resx - - - - True - True - MySettings.settings - - - - - - Form1.vb - - - VbMyResourcesResXFileCodeGenerator - My.Resources - MyResources.Designer.vb - - - - - - - MyApplicationCodeGenerator - MyApplication.Designer.vb - - - SettingsSingleFileGenerator - MySettings.Designer.vb - - - - \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/app.config b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/app.config deleted file mode 100644 index 6b4813bc91a..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/app.config +++ /dev/null @@ -1,36 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/jkey.snk b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/jkey.snk deleted file mode 100644 index 732d3f7e972..00000000000 Binary files a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/jkey.snk and /dev/null differ diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Form1.resx b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Form1.resx deleted file mode 100644 index 25c2f26478d..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Form1.resx +++ /dev/null @@ -1,117 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/Application.Designer.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/Application.Designer.vb deleted file mode 100644 index 60eaf308faa..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/Application.Designer.vb +++ /dev/null @@ -1,37 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:2.0.50107.0 -' -' 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 on the My Project node in the - ' Solution Explorer), and make changes on the Application tab. - ' - Partial Class MyApplication - - _ - Public Sub New() - MyBase.New(Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) - Me.IsSingleInstance = false - Me.EnableVisualStyles = true - Me.SaveMySettingsOnExit = true - Me.ShutDownStyle = Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses - End Sub - - _ - Protected Overrides Sub OnCreateMainForm() - Me.MainForm = Global.VbVbalrMyComputer.Form1 - End Sub - End Class -End Namespace diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/Application.myapp b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/Application.myapp deleted file mode 100644 index b456038a826..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/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_VBCSharp/VbVbalrMyComputer/VB/My Project/ApplicationEvents.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/ApplicationEvents.vb deleted file mode 100644 index db583f42ae7..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/ApplicationEvents.vb +++ /dev/null @@ -1,15 +0,0 @@ -Namespace My - - 'The following events are available for MyApplication - ' - 'Startup: Raised when the application starts, before the startup form is created. - 'Shutdown: Raised after all application forms are closed. This event is not raised if the application is terminating abnormally. - 'UnhandledException: Raised if the application encounters an unhandled exception. - 'StartupNextInstance: Raised when launching a single-instance application and the application is already active. - 'NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected. - - Partial Friend Class MyApplication - - End Class - -End Namespace diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/AssemblyInfo.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/AssemblyInfo.vb deleted file mode 100644 index 73c22653176..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/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_VBCSharp/VbVbalrMyComputer/VB/My Project/MyApplication.myapp b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/MyApplication.myapp deleted file mode 100644 index 194be46de43..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/MyApplication.myapp +++ /dev/null @@ -1,10 +0,0 @@ - - - true - VbVbalrMyComputer.Form1 - false - 0 - true - 0 - 0 - diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/MyApplication.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/MyApplication.vb deleted file mode 100644 index 00227d3dcc8..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/MyApplication.vb +++ /dev/null @@ -1,29 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' -' 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 Class MyApplication - - Public Sub New() - MyBase.New(ApplicationServices.AuthenticationMode.Windows) - Me.IsSingleInstance = false - Me.EnableVisualStyles = true - Me.ShutDownStyle = ApplicationServices.ShutdownMode.AfterMainFormCloses - End Sub - - Protected Overrides Sub OnCreateMainForm() - Me.MainForm = My.Forms.Form1 - End Sub - End Class -End Namespace diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/MyEvents.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/MyEvents.vb deleted file mode 100644 index b6dfb0a6eb5..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/MyEvents.vb +++ /dev/null @@ -1,15 +0,0 @@ -Namespace My - - 'Use the editor window dropdowns in the Application pane of the Project Designer to handle MyApplication Events - ' - 'Startup: Raised when the application starts, before the startup form is created. - 'Shutdown: Raised after all application forms are closed. This event is not raised if the application is terminating abnormally. - 'UnhandledException: Raised if the application encounters an unhandled exception. - 'StartupNextInstance: Raised when launching a single-instance application and the application is already active. - 'NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected. - - Partial Friend Class MyApplication - - End Class - -End Namespace diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/MySettings.settings b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/MySettings.settings deleted file mode 100644 index 0bcb11da337..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/MySettings.settings +++ /dev/null @@ -1,7 +0,0 @@ - - - - - - - \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/MySettings.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/MySettings.vb deleted file mode 100644 index 3d12c6fb5fa..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/MySettings.vb +++ /dev/null @@ -1,38 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. -' -'------------------------------------------------------------------------------ - -Option Strict Off -Option Explicit On - - - -Partial Friend NotInheritable Class MySettings - Inherits System.Configuration.ApplicationSettingsBase - - Private Shared m_Value As MySettings - - Private Shared m_SyncObject As Object = New Object - - _ - Public Shared ReadOnly Property Value() As MySettings - Get - If (MySettings.m_Value Is Nothing) Then - System.Threading.Monitor.Enter(MySettings.m_SyncObject) - If (MySettings.m_Value Is Nothing) Then - Try - MySettings.m_Value = New MySettings - Finally - System.Threading.Monitor.Exit(MySettings.m_SyncObject) - End Try - End If - End If - Return MySettings.m_Value - End Get - End Property -End Class diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/Settings.Designer.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/Settings.Designer.vb deleted file mode 100644 index 88172fee488..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/My Project/Settings.Designer.vb +++ /dev/null @@ -1,66 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:2.0.50107.0 -' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - - - - - _ -Partial NotInheritable Class Settings - Inherits Global.System.Configuration.ApplicationSettingsBase - - _ - Private Shared defaultInstance As Settings = New Settings - -#Region "My.Settings Auto-Save Functionality" -#If _MyType = "WindowsForms" Then - _ - Private Shared addedHandler As Boolean - - _ - Private Shared Sub AutoSaveSettings(ByVal sender As Object, ByVal e As EventArgs) - If My.Application.SaveMySettingsOnExit Then - My.Settings.Save() - End If - End Sub -#End If -#End Region - - Public Shared ReadOnly Property [Default]() As Settings - Get - -#If _MyType = "WindowsForms" Then - If Not addedHandler Then - AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings - addedHandler = True - End If -#End If - Return defaultInstance - End Get - End Property -End Class - -Namespace My - - _ - Module MySettingsProperty - - _ - Friend ReadOnly Property Settings() As Global.VbVbalrMyComputer.Settings - Get - Return Global.VbVbalrMyComputer.Settings.Default - End Get - End Property - End Module -End Namespace diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/VbVbalrMyComputer.vbproj b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/VbVbalrMyComputer.vbproj deleted file mode 100644 index ac20e3dad17..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/VbVbalrMyComputer.vbproj +++ /dev/null @@ -1,99 +0,0 @@ - - - Debug - AnyCPU - 8.0.50129 - 2.0 - {70F5EA07-48BD-4FEC-8E00-E251D72AE11E} - WinExe - VbVbalrMyComputer.My.MyApplication - VbVbalrMyComputer - VbVbalrMyComputer - WindowsForms - - - true - full - true - true - bin\ - VbVbalrMyComputer.xml - 42016,42017,42018,42019,42032 - - - pdbonly - false - true - true - bin\ - VbVbalrMyComputer.xml - 42016,42017,42018,42019,42032 - - - - - - - - - - - - - - - - - - - - - Form - - - Form1.vb - Form - - - - True - MyApplication.myapp - - - True - True - MyResources.resx - - - True - MySettings.settings - True - - - - - - Form1.vb - - - VbMyResourcesResXFileCodeGenerator - My.Resources - MyResources.Designer.vb - - - - - - MyApplicationCodeGenerator - MyApplication.vb - - - SettingsSingleFileGenerator - MySettings.vb - - - - - - - \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/My Project/Application.Designer.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/My Project/Application.Designer.vb deleted file mode 100644 index a59851788b6..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/My Project/Application.Designer.vb +++ /dev/null @@ -1,37 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:2.0.50129.0 -' -' 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 on the My Project node in the - ' Solution Explorer), and make changes on the Application tab. - ' - Partial Class MyApplication - - _ - Public Sub New() - MyBase.New(Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) - Me.IsSingleInstance = false - Me.EnableVisualStyles = true - Me.SaveMySettingsOnExit = true - Me.ShutDownStyle = Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses - End Sub - - _ - Protected Overrides Sub OnCreateMainForm() - Me.MainForm = Global.VbVbalrMyResources2.Form1 - End Sub - End Class -End Namespace diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/My Project/Application.myapp b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/My Project/Application.myapp deleted file mode 100644 index 1243847fd9b..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/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_VBCSharp/VbVbalrMyResources/VB/My Project/AssemblyInfo.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/My Project/AssemblyInfo.vb deleted file mode 100644 index 6ef0e362573..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/My Project/AssemblyInfo.vb +++ /dev/null @@ -1,36 +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_VBCSharp/VbVbalrMyResources/VB/VbVbalrMyResources2.vbproj b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/VbVbalrMyResources2.vbproj deleted file mode 100644 index 94e73c529d8..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/VbVbalrMyResources2.vbproj +++ /dev/null @@ -1,111 +0,0 @@ - - - - Debug - AnyCPU - 8.0.50129 - 2.0 - {47F692EB-4E7D-4498-A118-E854099A78DB} - WinExe - VbVbalrMyResources2.My.MyApplication - VbVbalrMyResources2 - VbVbalrMyResources2 - WindowsForms - - - 2.0 - - - - - true - full - true - true - bin\Debug\ - VbVbalrMyResources2.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - pdbonly - false - true - true - bin\Release\ - VbVbalrMyResources2.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - - - - - - - - - - - - - - - - - Form - - - Form1.vb - Form - - - - True - Application.myapp - - - True - True - Resources.resx - - - True - Settings.settings - True - - - - - - Form1.vb - - - VbMyResourcesResXFileCodeGenerator - Resources.Designer.vb - My.Resources - Designer - - - - - - - MyApplicationCodeGenerator - Application.Designer.vb - - - SettingsSingleFileGenerator - Settings.Designer.vb - - - - - - - - - - - - - \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/My Project/Application.Designer.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/My Project/Application.Designer.vb deleted file mode 100644 index eb21d15bcfc..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/My Project/Application.Designer.vb +++ /dev/null @@ -1,38 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:2.0.50129.0 -' -' 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(Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.ApplicationDefined) - Me.IsSingleInstance = false - Me.EnableVisualStyles = true - Me.SaveMySettingsOnExit = true - Me.ShutDownStyle = Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses - End Sub - - _ - Protected Overrides Sub OnCreateMainForm() - Me.MainForm = Global.VbVbalrMyUser.Form1 - End Sub - End Class -End Namespace diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/My Project/Application.myapp b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/My Project/Application.myapp deleted file mode 100644 index 79749140e83..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/My Project/Application.myapp +++ /dev/null @@ -1,11 +0,0 @@ - - - true - Form1 - false - 0 - true - 1 - 0 - true - \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/My Project/AssemblyInfo.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/My Project/AssemblyInfo.vb deleted file mode 100644 index 73db5d3847a..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/My Project/AssemblyInfo.vb +++ /dev/null @@ -1,36 +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_VBCSharp/VbVbalrMyUser/VB/VbVbalrMyUser.vbproj b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/VbVbalrMyUser.vbproj deleted file mode 100644 index c9192e9a408..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/VbVbalrMyUser.vbproj +++ /dev/null @@ -1,108 +0,0 @@ - - - - Debug - AnyCPU - 8.0.50129 - 2.0 - {73C1830E-F98F-4512-B949-09C4EA06B880} - WinExe - VbVbalrMyUser.My.MyApplication - VbVbalrMyUser - VbVbalrMyUser - WindowsForms - - - true - full - true - true - bin\Debug\ - VbVbalrMyUser.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - pdbonly - false - true - true - bin\Release\ - VbVbalrMyUser.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - - - - - - - - - - - - - - - - - - Form - - - Form1.vb - Form - - - LoginForm1.vb - - - Form - - - - True - Application.myapp - - - True - True - Resources.resx - - - True - Settings.settings - True - - - - - - - - Form1.vb - - - LoginForm1.vb - - - VbMyResourcesResXFileCodeGenerator - Resources.Designer.vb - My.Resources - Designer - - - - - - MyApplicationCodeGenerator - Application.Designer.vb - - - SettingsSingleFileGenerator - Settings.Designer.vb - - - - \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/My Project/AssemblyInfo.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/My Project/AssemblyInfo.vb deleted file mode 100644 index 91d7311a61b..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/My Project/AssemblyInfo.vb +++ /dev/null @@ -1,36 +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_VBCSharp/VbVbalrScriptEngineProperties/VB/VbVbalrScriptEngineProperties.vbproj b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/VbVbalrScriptEngineProperties.vbproj deleted file mode 100644 index 8f4edb26139..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/VbVbalrScriptEngineProperties.vbproj +++ /dev/null @@ -1,84 +0,0 @@ - - - - Debug - AnyCPU - 8.0.50317 - 2.0 - {22418863-7F24-42D9-886D-CABF04A25039} - Exe - VbVbalrScriptEngineProperties.Module1 - VbVbalrScriptEngineProperties - VbVbalrScriptEngineProperties - Console - - - true - full - true - true - bin\Debug\ - VbVbalrScriptEngineProperties.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - pdbonly - false - true - true - bin\Release\ - VbVbalrScriptEngineProperties.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - - - - - - - - - - - - - - - - - - - True - Application.myapp - - - True - True - Resources.resx - - - True - Settings.settings - True - - - - - VbMyResourcesResXFileCodeGenerator - Resources.Designer.vb - My.Resources - - - - - MyApplicationCodeGenerator - Application.Designer.vb - - - SettingsSingleFileGenerator - Settings.Designer.vb - - - - \ No newline at end of file diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/Form1.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/Form1.vb deleted file mode 100644 index e5c17e20dc0..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/Form1.vb +++ /dev/null @@ -1,34 +0,0 @@ -Public Class Form1 - -' - Public Sub waitFiveSeconds() - ' - If TimeOfDay >= #11:59:55 PM# Then - MsgBox("The current time is within 5 seconds of midnight" & - vbCrLf & "The timer returns to 0.0 at midnight") - Return - End If - ' - Dim start, finish, totalTime As Double - If (MsgBox("Press Yes to pause for 5 seconds", MsgBoxStyle.YesNo)) = - MsgBoxResult.Yes Then - - start = Microsoft.VisualBasic.DateAndTime.Timer - ' Set end time for 5-second duration. - finish = start + 5.0 - ' - Do While Microsoft.VisualBasic.DateAndTime.Timer < finish - ' Do other processing while waiting for 5 seconds to elapse. - Loop - ' - totalTime = Microsoft.VisualBasic.DateAndTime.Timer - start - MsgBox("Paused for " & totalTime & " seconds") - End If - End Sub -' - - Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click - waitFiveSeconds() - End Sub - -End Class diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/My Project/Application.Designer.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/My Project/Application.Designer.vb deleted file mode 100644 index c1b41f69c1e..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/My Project/Application.Designer.vb +++ /dev/null @@ -1,37 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:2.0.50317.0 -' -' 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 on the My Project node in the - ' Solution Explorer), and make changes on the Application tab. - ' - Partial Class MyApplication - - _ - Public Sub New() - MyBase.New(Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) - Me.IsSingleInstance = false - Me.EnableVisualStyles = true - Me.SaveMySettingsOnExit = true - Me.ShutDownStyle = Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses - End Sub - - _ - Protected Overrides Sub OnCreateMainForm() - Me.MainForm = Global.VbVbalrTimerProperty.Form1 - End Sub - End Class -End Namespace diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/My Project/Application.myapp b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/My Project/Application.myapp deleted file mode 100644 index 1243847fd9b..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/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_VBCSharp/VbVbalrTimerProperty/VB/My Project/AssemblyInfo.vb b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/My Project/AssemblyInfo.vb deleted file mode 100644 index 2410c846e17..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/My Project/AssemblyInfo.vb +++ /dev/null @@ -1,36 +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_VBCSharp/VbVbalrTimerProperty/VB/My Project/Resources.resx b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/My Project/Resources.resx deleted file mode 100644 index af7dbebbace..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/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_VBCSharp/VbVbalrTimerProperty/VB/My Project/Settings.settings b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/My Project/Settings.settings deleted file mode 100644 index 39645652af6..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/My Project/Settings.settings +++ /dev/null @@ -1,7 +0,0 @@ - - - - - - - diff --git a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/VbVbalrTimerProperty.vbproj b/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/VbVbalrTimerProperty.vbproj deleted file mode 100644 index 56baf18c059..00000000000 --- a/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/VbVbalrTimerProperty.vbproj +++ /dev/null @@ -1,95 +0,0 @@ - - - - Debug - AnyCPU - 8.0.50317 - 2.0 - {C6235D23-B51C-4DB5-A46F-C7BFF6596297} - WinExe - VbVbalrTimerProperty.My.MyApplication - VbVbalrTimerProperty - VbVbalrTimerProperty - WindowsForms - - - true - full - true - true - bin\Debug\ - VbVbalrTimerProperty.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - pdbonly - false - true - true - bin\Release\ - VbVbalrTimerProperty.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - - - - - - - - - - - - - - - - - Form - - - Form1.vb - Form - - - - True - Application.myapp - - - True - True - Resources.resx - - - True - Settings.settings - True - - - - - - Form1.vb - - - VbMyResourcesResXFileCodeGenerator - Resources.Designer.vb - My.Resources - Designer - - - - - MyApplicationCodeGenerator - Application.Designer.vb - - - SettingsSingleFileGenerator - Settings.Designer.vb - - - - \ No newline at end of file diff --git a/xml/Microsoft.SqlServer.Server/SqlFunctionAttribute.xml b/xml/Microsoft.SqlServer.Server/SqlFunctionAttribute.xml index 1b0adc5668e..8299d04e5fd 100644 --- a/xml/Microsoft.SqlServer.Server/SqlFunctionAttribute.xml +++ b/xml/Microsoft.SqlServer.Server/SqlFunctionAttribute.xml @@ -260,7 +260,7 @@ ## Examples :::code language="csharp" source="~/snippets/csharp/Microsoft.SqlServer.Server/SqlFunctionAttribute/Function1.cs" id="Snippet10"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/Function1.vb" id="Snippet10"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/Function1.vb" id="Snippet10"::: ]]> @@ -335,7 +335,7 @@ ## Examples :::code language="csharp" source="~/snippets/csharp/Microsoft.SqlServer.Server/SqlFunctionAttribute/Function1.cs" id="Snippet11"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/Function1.vb" id="Snippet11"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/Function1.vb" id="Snippet11"::: ]]> diff --git a/xml/Microsoft.SqlServer.Server/SqlProcedureAttribute.xml b/xml/Microsoft.SqlServer.Server/SqlProcedureAttribute.xml index b7e488ac706..e3069fb76ea 100644 --- a/xml/Microsoft.SqlServer.Server/SqlProcedureAttribute.xml +++ b/xml/Microsoft.SqlServer.Server/SqlProcedureAttribute.xml @@ -96,7 +96,7 @@ ## Examples :::code language="csharp" source="~/snippets/csharp/Microsoft.SqlServer.Server/SqlProcedureAttribute/InsertCurrency.cs" id="Snippet7"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/InsertCurrency.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/InsertCurrency.vb" id="Snippet7"::: ]]> diff --git a/xml/Microsoft.SqlServer.Server/SqlTriggerAttribute.xml b/xml/Microsoft.SqlServer.Server/SqlTriggerAttribute.xml index fe6bf7933e1..6f0837573e0 100644 --- a/xml/Microsoft.SqlServer.Server/SqlTriggerAttribute.xml +++ b/xml/Microsoft.SqlServer.Server/SqlTriggerAttribute.xml @@ -70,7 +70,7 @@ ## Examples :::code language="csharp" source="~/snippets/csharp/Microsoft.SqlServer.Server/SqlTriggerAttribute/Trigger1.cs" id="Snippet8"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/Trigger1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/Trigger1.vb" id="Snippet8"::: ]]> @@ -160,7 +160,7 @@ ## Examples :::code language="csharp" source="~/snippets/csharp/Microsoft.SqlServer.Server/SqlTriggerAttribute/Trigger1.cs" id="Snippet9"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/Trigger1.vb" id="Snippet9"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/Trigger1.vb" id="Snippet9"::: ]]> diff --git a/xml/Microsoft.SqlServer.Server/SqlUserDefinedAggregateAttribute.xml b/xml/Microsoft.SqlServer.Server/SqlUserDefinedAggregateAttribute.xml index f2bd63dc352..300d7c4df90 100644 --- a/xml/Microsoft.SqlServer.Server/SqlUserDefinedAggregateAttribute.xml +++ b/xml/Microsoft.SqlServer.Server/SqlUserDefinedAggregateAttribute.xml @@ -111,7 +111,7 @@ ## Examples :::code language="csharp" source="~/snippets/csharp/Microsoft.SqlServer.Server/SqlUserDefinedAggregateAttribute/Aggregate1.cs" id="Snippet6"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/Aggregate1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/Aggregate1.vb" id="Snippet6"::: ]]> diff --git a/xml/Microsoft.SqlServer.Server/SqlUserDefinedTypeAttribute.xml b/xml/Microsoft.SqlServer.Server/SqlUserDefinedTypeAttribute.xml index b435c19ad0c..df9a32cc8ad 100644 --- a/xml/Microsoft.SqlServer.Server/SqlUserDefinedTypeAttribute.xml +++ b/xml/Microsoft.SqlServer.Server/SqlUserDefinedTypeAttribute.xml @@ -88,7 +88,7 @@ ## Examples :::code language="csharp" source="~/snippets/csharp/Microsoft.SqlServer.Server/SqlUserDefinedTypeAttribute/Type1.cs" id="Snippet12"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRaddataSQLObjects/VB/Type1.vb" id="Snippet12"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.SqlServer.Server/SqlFunctionAttribute/Name/Type1.vb" id="Snippet12"::: ]]> diff --git a/xml/Microsoft.VisualBasic.ApplicationServices/ApplicationBase.xml b/xml/Microsoft.VisualBasic.ApplicationServices/ApplicationBase.xml index fa8dc8b684a..40f0473bfc7 100644 --- a/xml/Microsoft.VisualBasic.ApplicationServices/ApplicationBase.xml +++ b/xml/Microsoft.VisualBasic.ApplicationServices/ApplicationBase.xml @@ -30,26 +30,26 @@ Provides properties, methods, and events related to the current application. - provides members that are available in all projects. - -- provides members that are available in Windows Forms applications. - -- provides members that are available in console applications. - - - -## Examples - This example uses the `My.Application.GetEnvironmentVariable` method to get and display the value of the PATH environment variable, if this value is available. Otherwise, it displays a message that indicates that the PATH environment variable does not exist. - - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet7"::: - + provides members that are available in all projects. + +- provides members that are available in Windows Forms applications. + +- provides members that are available in console applications. + + + +## Examples + This example uses the `My.Application.GetEnvironmentVariable` method to get and display the value of the PATH environment variable, if this value is available. Otherwise, it displays a message that indicates that the PATH environment variable does not exist. + + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet7"::: + ]]> @@ -133,36 +133,36 @@ . Name of the culture as a string. For a list of possible names, see . Changes the culture used by the current thread for string manipulation and for string formatting. - property. determines the default formats for dates, times, currency, numbers, sorting order of text, string comparisons, and casing for all computations on that thread. - - To retrieve the current culture, you can use the property or the property. - - The setting is different from a language setting. It contains only data related to the standard settings for a geographical region. Therefore, the property can only be set to a specific culture or to the . - + property. determines the default formats for dates, times, currency, numbers, sorting order of text, string comparisons, and casing for all computations on that thread. + + To retrieve the current culture, you can use the property or the property. + + The setting is different from a language setting. It contains only data related to the standard settings for a geographical region. Therefore, the property can only be set to a specific culture or to the . + Use the `My.Application.ChangeUICulture` method to change the culture that the current thread uses for retrieving culture-specific resources. - -## Availability by Project Type - -|Project type|Available| -|-|-| -|Windows Forms Application|**Yes**| -|Class Library|**Yes**| -|Console Application|**Yes**| -|Windows Forms Control Library|**Yes**| -|Web Control Library|No| -|Windows Service|**Yes**| -|Web Site|No| - - - -## Examples - This example demonstrates how changing the culture changes the string representation of dates. - - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet1"::: - + +## Availability by Project Type + +|Project type|Available| +|-|-| +|Windows Forms Application|**Yes**| +|Class Library|**Yes**| +|Console Application|**Yes**| +|Windows Forms Control Library|**Yes**| +|Web Control Library|No| +|Windows Service|**Yes**| +|Web Site|No| + + + +## Examples + This example demonstrates how changing the culture changes the string representation of dates. + + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet1"::: + ]]> @@ -210,38 +210,38 @@ . Name of the culture as a string. For a list of possible names, see . Changes the culture that the current thread uses for retrieving culture-specific resources. - property. The property determines the culture used by the Resource Manager and the `My.Resources` object; it uses this information to look up culture-specific resources at run time. - - To retrieve the current UI culture, you can use the property or the property. - - Use the `My.Application.ChangeCulture` method to change the culture that the current thread uses for string manipulation and string formatting. - -## Availability by Project Type - -|Project type|Available| -|-|-| -|Windows Forms Application|**Yes**| -|Class Library|**Yes**| -|Console Application|**Yes**| -|Windows Forms Control Library|**Yes**| -|Web Control Library|No| -|Windows Service|**Yes**| -|Web Site|No| - - - -## Examples - This example uses the `My.Application.ChangeUICulture` method to set the culture that the `My.Resources` object uses for retrieving resources. - - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/Form1.vb" id="Snippet10"::: - - For this example to work, your application must have a string named `Message` in the application's resource file, and the application should have the French-culture version of that resource file, `Resources.fr-FR.resx`. For more information, see [How to: Add or Remove Resources](/previous-versions/visualstudio/visual-studio-2010/3bka19x4(v=vs.100)). - - If the application does not have the French-culture version of that resource file, the `My.Resources` object retrieves the resource from the default-culture resource file. - + property. The property determines the culture used by the Resource Manager and the `My.Resources` object; it uses this information to look up culture-specific resources at run time. + + To retrieve the current UI culture, you can use the property or the property. + + Use the `My.Application.ChangeCulture` method to change the culture that the current thread uses for string manipulation and string formatting. + +## Availability by Project Type + +|Project type|Available| +|-|-| +|Windows Forms Application|**Yes**| +|Class Library|**Yes**| +|Console Application|**Yes**| +|Windows Forms Control Library|**Yes**| +|Web Control Library|No| +|Windows Service|**Yes**| +|Web Site|No| + + + +## Examples + This example uses the `My.Application.ChangeUICulture` method to set the culture that the `My.Resources` object uses for retrieving resources. + + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/Form1.vb" id="Snippet10"::: + + For this example to work, your application must have a string named `Message` in the application's resource file, and the application should have the French-culture version of that resource file, `Resources.fr-FR.resx`. For more information, see [How to: Add or Remove Resources](/previous-versions/visualstudio/visual-studio-2010/3bka19x4(v=vs.100)). + + If the application does not have the French-culture version of that resource file, the `My.Resources` object retrieves the resource from the default-culture resource file. + ]]> @@ -284,36 +284,36 @@ Gets the culture that the current thread uses for string manipulation and string formatting. A object that represents the culture the current thread uses for string manipulation and string formatting. - object that the current thread uses for string manipulation and string formatting. This object is identical to the one returned by the property, which controls many of the string-related computations on that thread. The property determines the default formats for dates, times, currency, and numbers. It also determines how to sort, compare, and capitalize strings. - - To change the culture, you can use the method or assign a different object to the property. - - The setting is different from a language setting. It contains only data related to the standard settings for a geographical region. - - Use the `My.Application.CurrentUICulture` property to get the culture that the current thread uses for retrieving culture-specific resources. - -## Availability by Project Type - -|Project type|Available| -|-|-| -|Windows Forms Application|**Yes**| -|Class Library|**Yes**| -|Console Application|**Yes**| -|Windows Forms Control Library|**Yes**| -|Web Control Library|No| -|Windows Service|**Yes**| -|Web Site|No| - - - -## Examples - This example demonstrates how the culture affects the string representation of dates. - - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet1"::: - + object that the current thread uses for string manipulation and string formatting. This object is identical to the one returned by the property, which controls many of the string-related computations on that thread. The property determines the default formats for dates, times, currency, and numbers. It also determines how to sort, compare, and capitalize strings. + + To change the culture, you can use the method or assign a different object to the property. + + The setting is different from a language setting. It contains only data related to the standard settings for a geographical region. + + Use the `My.Application.CurrentUICulture` property to get the culture that the current thread uses for retrieving culture-specific resources. + +## Availability by Project Type + +|Project type|Available| +|-|-| +|Windows Forms Application|**Yes**| +|Class Library|**Yes**| +|Console Application|**Yes**| +|Windows Forms Control Library|**Yes**| +|Web Control Library|No| +|Windows Service|**Yes**| +|Web Site|No| + + + +## Examples + This example demonstrates how the culture affects the string representation of dates. + + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet1"::: + ]]> @@ -358,30 +358,30 @@ Returns the value of the specified environment variable. A containing the value of the environment variable with the name . - , except that this method raises an exception if the environment variable specified by `name` does not exist. - -## Availability by Project Type - -|Project type|Available| -|-|-| -|Windows Forms Application|**Yes**| -|Class Library|**Yes**| -|Console Application|**Yes**| -|Windows Forms Control Library|**Yes**| -|Web Control Library|No| -|Windows Service|**Yes**| -|Web Site|No| - - - -## Examples - This example uses the `My.Application.GetEnvironmentVariable` method to get and display the value of the PATH environment variable, if available. Otherwise, it displays a message indicating that the PATH environment variable does not exist. - - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet7"::: - + , except that this method raises an exception if the environment variable specified by `name` does not exist. + +## Availability by Project Type + +|Project type|Available| +|-|-| +|Windows Forms Application|**Yes**| +|Class Library|**Yes**| +|Console Application|**Yes**| +|Windows Forms Control Library|**Yes**| +|Web Control Library|No| +|Windows Service|**Yes**| +|Web Site|No| + + + +## Examples + This example uses the `My.Application.GetEnvironmentVariable` method to get and display the value of the PATH environment variable, if available. Otherwise, it displays a message indicating that the PATH environment variable does not exist. + + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet7"::: + ]]> @@ -425,13 +425,13 @@ Gets an object that provides properties for getting information about the application's assembly, such as the version number, description, and so on. The object for the current application. - @@ -467,13 +467,13 @@ Gets an object that provides properties and methods for writing event and exception information to the application's log listeners. The object for the current application. - @@ -513,40 +513,40 @@ Gets the culture that the current thread uses for retrieving culture-specific resources. A object that represents the culture that the current thread uses for retrieving culture-specific resources. - object that the current thread uses for retrieving culture-specific resources. This object is identical to the one returned by the property. The property determines the culture used by the Resource Manager and the `My.Resources` object, information it needs to look up culture-specific resources at run time. - - To change the culture, you can use the method or assign a different object to the property. - - The setting is different from a language setting. It contains only data related to the standard settings for a geographical region. - - Use the `My.Application.CurrentCulture` property to get the culture that the current thread uses for string manipulation and string formatting. - -## Availability by Project Type - -|Project type|Available| -|-|-| -|Windows Forms Application|**Yes**| -|Class Library|**Yes**| -|Console Application|**Yes**| -|Windows Forms Control Library|**Yes**| -|Web Control Library|No| -|Windows Service|**Yes**| -|Web Site|No| - - - -## Examples - This example uses the `My.Application.CurrentCulture` property to cache the current culture before changing it by using . The `My.Application.ChangeUICulture` method sets the culture that the `My.Resources` object uses for retrieving resources. - - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyResources/VB/Form1.vb" id="Snippet10"::: - - For this example to work, your application must have a string named `Message` in the application's resource file, and the application should have the French-culture version of that resource file, `Resources.fr-FR.resx`. For more information, see [How to: Add or Remove Resources](/previous-versions/visualstudio/visual-studio-2010/3bka19x4(v=vs.100)). - - If the application does not have the French-culture version of that resource file, the `My.Resources` object retrieves the resource from the default-culture resource file. - + object that the current thread uses for retrieving culture-specific resources. This object is identical to the one returned by the property. The property determines the culture used by the Resource Manager and the `My.Resources` object, information it needs to look up culture-specific resources at run time. + + To change the culture, you can use the method or assign a different object to the property. + + The setting is different from a language setting. It contains only data related to the standard settings for a geographical region. + + Use the `My.Application.CurrentCulture` property to get the culture that the current thread uses for string manipulation and string formatting. + +## Availability by Project Type + +|Project type|Available| +|-|-| +|Windows Forms Application|**Yes**| +|Class Library|**Yes**| +|Console Application|**Yes**| +|Windows Forms Control Library|**Yes**| +|Web Control Library|No| +|Windows Service|**Yes**| +|Web Site|No| + + + +## Examples + This example uses the `My.Application.CurrentCulture` property to cache the current culture before changing it by using . The `My.Application.ChangeUICulture` method sets the culture that the `My.Resources` object uses for retrieving resources. + + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/ChangeUICulture/Form1.vb" id="Snippet10"::: + + For this example to work, your application must have a string named `Message` in the application's resource file, and the application should have the French-culture version of that resource file, `Resources.fr-FR.resx`. For more information, see [How to: Add or Remove Resources](/previous-versions/visualstudio/visual-studio-2010/3bka19x4(v=vs.100)). + + If the application does not have the French-culture version of that resource file, the `My.Resources` object retrieves the resource from the default-culture resource file. + ]]> diff --git a/xml/Microsoft.VisualBasic.ApplicationServices/AssemblyInfo.xml b/xml/Microsoft.VisualBasic.ApplicationServices/AssemblyInfo.xml index 04fad57cfee..90e0be6e930 100644 --- a/xml/Microsoft.VisualBasic.ApplicationServices/AssemblyInfo.xml +++ b/xml/Microsoft.VisualBasic.ApplicationServices/AssemblyInfo.xml @@ -44,7 +44,7 @@ ## Examples This example uses the `My.Application.Info.Version` property to display the version of the application. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet30"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet30"::: ]]> @@ -146,7 +146,7 @@ ## Examples This example uses the `My.Application.Info.AssemblyName` property to display the name of the application. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet20"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet20"::: ]]> @@ -212,7 +212,7 @@ ## Examples This example uses the `My.Application.Info.CompanyName` property to display the company name associated with the application. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet21"::: ]]> @@ -278,7 +278,7 @@ ## Examples This example uses the `My.Application.Info.Copyright` property to display the company name associated with the application. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet22"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet22"::: ]]> @@ -344,7 +344,7 @@ ## Examples This example uses the `My.Application.Info.Description` property to display the description associated with the application. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet23"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet23"::: ]]> @@ -408,7 +408,7 @@ ## Examples This example uses the `My.Application.Info.DirectoryPath` property to display the directory path where the application is stored. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet24"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet24"::: ]]> @@ -471,7 +471,7 @@ ## Examples This example uses the `My.Application.Info.LoadedAssemblies` property to display the assemblies loaded by the application. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet25"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet25"::: This example requires that your Windows Forms application has a control named `ListBox1`. @@ -541,7 +541,7 @@ ## Examples This example uses the `My.Application.Info.ProductName` property to display the product name associated with the application. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet26"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet26"::: ]]> @@ -623,7 +623,7 @@ ## Examples This example uses the `My.Application.Info.StackTrace` property to display the stack trace of the application from the point at which the code executes. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet27"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet27"::: ]]> @@ -690,7 +690,7 @@ ## Examples This example uses the `My.Application.Info.Title` property to display the title associated with the application. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet28"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet28"::: ]]> @@ -756,7 +756,7 @@ ## Examples This example uses the `My.Application.Info.Trademark` property to display the trademark information associated with the application. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet29"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet29"::: ]]> @@ -822,7 +822,7 @@ ## Examples This example uses the `My.Application.Info.Version` property to display the version of the application. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet30"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet30"::: ]]> @@ -887,7 +887,7 @@ ## Examples This example uses the `My.Application.Info.WorkingSet` property to display the number of bytes of physical memory mapped to the application. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet31"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet31"::: ]]> diff --git a/xml/Microsoft.VisualBasic.ApplicationServices/ConsoleApplicationBase.xml b/xml/Microsoft.VisualBasic.ApplicationServices/ConsoleApplicationBase.xml index 1eea260abfd..123dcbc80cf 100644 --- a/xml/Microsoft.VisualBasic.ApplicationServices/ConsoleApplicationBase.xml +++ b/xml/Microsoft.VisualBasic.ApplicationServices/ConsoleApplicationBase.xml @@ -48,7 +48,7 @@ ## Examples This example uses the `My.Application.CommandLineArgs` property to examine the application's command-line arguments. If an argument is found that starts with `/input=`, the rest of that argument is displayed. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet3"::: ]]> @@ -164,7 +164,7 @@ ## Examples This example uses the `My.Application.CommandLineArgs` property to examine the application's command-line arguments. If an argument is found that starts with `/input=`, the rest of that argument is displayed. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet3"::: ]]> @@ -222,7 +222,7 @@ ## Examples This example downloads and installs the update after checking that the application is network-deployed. The method does not update the application unless it is out of date. The application has to restart to use the update. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet4"::: Only applications that are ClickOnce deployed can be updated using the `My.Application.Deployment` object. For more information on deploying a ClickOnce application, see [How to: Publish a ClickOnce Application using the Publish Wizard](/visualstudio/deployment/how-to-publish-a-clickonce-application-using-the-publish-wizard). @@ -337,7 +337,7 @@ ## Examples This example downloads and installs the update after checking that the application is deployed from a network. The method does not update the application unless it is out of date. The application has to restart to use the update. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet4"::: Only applications that are ClickOnce-deployed can be updated using the `My.Application.Deployment` object. For more information on deploying a ClickOnce application, see [How to: Publish a ClickOnce Application using the Publish Wizard](/visualstudio/deployment/how-to-publish-a-clickonce-application-using-the-publish-wizard). diff --git a/xml/Microsoft.VisualBasic.ApplicationServices/User.xml b/xml/Microsoft.VisualBasic.ApplicationServices/User.xml index 9637575ea30..0438df969b7 100644 --- a/xml/Microsoft.VisualBasic.ApplicationServices/User.xml +++ b/xml/Microsoft.VisualBasic.ApplicationServices/User.xml @@ -45,7 +45,7 @@ ## Examples This example checks if the application is using Windows or custom authentication, and uses that information to parse the `My.User.Name` property. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/Class1.vb" id="Snippet3"::: ]]> @@ -175,7 +175,7 @@ ## Examples This example checks if the application is using Windows or custom authentication, and uses that information to parse `My.User.Name` property. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/Class1.vb" id="Snippet3"::: ]]> @@ -341,7 +341,7 @@ ## Examples This example verifies that the user has been authenticated before accessing a resource. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/Class1.vb" id="Snippet2"::: ]]> @@ -411,7 +411,7 @@ ## Examples This example checks if the user is an administrator before accessing a resource. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/Class1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/Class1.vb" id="Snippet1"::: ]]> @@ -485,7 +485,7 @@ ## Examples This example checks if the user is an administrator before accessing a resource. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/Class1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/Class1.vb" id="Snippet1"::: ]]> @@ -554,7 +554,7 @@ ## Examples This example checks if the application is using Windows or custom authentication, and uses that information to parse the `My.User.Name` property. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/Class1.vb" id="Snippet3"::: ]]> diff --git a/xml/Microsoft.VisualBasic.ApplicationServices/WebUser.xml b/xml/Microsoft.VisualBasic.ApplicationServices/WebUser.xml index 4e244fc35c3..5f7262d89ae 100644 --- a/xml/Microsoft.VisualBasic.ApplicationServices/WebUser.xml +++ b/xml/Microsoft.VisualBasic.ApplicationServices/WebUser.xml @@ -32,7 +32,7 @@ ## Examples This example checks if the application is using Windows or custom authentication, and uses that information to parse the `My.User.Name` property. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyUser/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/Class1.vb" id="Snippet3"::: ]]> diff --git a/xml/Microsoft.VisualBasic.ApplicationServices/WindowsFormsApplicationBase.xml b/xml/Microsoft.VisualBasic.ApplicationServices/WindowsFormsApplicationBase.xml index 1a765f90436..005447ee9f8 100644 --- a/xml/Microsoft.VisualBasic.ApplicationServices/WindowsFormsApplicationBase.xml +++ b/xml/Microsoft.VisualBasic.ApplicationServices/WindowsFormsApplicationBase.xml @@ -44,7 +44,7 @@ ## Examples This example uses a loop to iterate through the application's open forms, selects the forms that can be accessed directly by the current thread, and displays their titles in a control. For information about how to access the open forms, see . - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet10"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet10"::: This example requires that your Windows Forms application have a form named `Form1` that contains a list box named `ListBox1`. @@ -336,7 +336,7 @@ ## Examples This example uses the `My.Application.DoEvents` method to allow the UI for `TextBox1` to update. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet6"::: This code should be in a form that has a `TextBox1` component with a `Text` property. @@ -658,7 +658,7 @@ For more information, see [Application Page, Project Designer (Visual Basic)](ht ## Examples This example demonstrates how to set the `My.Application.MinimumSplashScreenDisplayTime` property by overriding the property. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/FakeMyEvents.vb" id="Snippet51"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/FakeMyEvents.vb" id="Snippet51"::: This example requires that the project have a splash screen. @@ -745,7 +745,7 @@ For more information, see [Application Page, Project Designer (Visual Basic)](ht The project should have a form named `Form1`. It should have a method named `SetConnectionStatus` that takes a `Boolean` parameter. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/FakeMyEvents.vb" id="Snippet9"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/FakeMyEvents.vb" id="Snippet9"::: ]]> @@ -1229,11 +1229,11 @@ For more information, see [Application Page, Project Designer (Visual Basic)](ht ## Examples This example loops over the application's open forms, selects the ones directly accessible by the current thread, and displays their titles in a control. This example requires that your Windows Forms application have a form named `Form1` that contains a list box named `ListBox1`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet10"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet10"::: This example loops over the application's open forms and displays their titles in a control. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet11"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet11"::: ]]> @@ -1377,7 +1377,7 @@ To change the setting in the Project Designer: - The `SaveMySettingsOnExit_CheckedChanged` subroutine, which handles changes to a control to update the `My.Application.SaveMySettingsOnExit` property. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet12"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet12"::: For this example to work, your application must have a control named `SaveMySettingsOnExit`. @@ -1498,7 +1498,7 @@ For more information, see [Application Page, Project Designer (Visual Basic)](ht ## Examples This example logs messages when the application shuts down. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/FakeMyEvents.vb" id="Snippet13"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/FakeMyEvents.vb" id="Snippet13"::: You must enter the code in the Code Editor window for application events. To access this window, follow the instructions from this topic's Remarks section. For more information, see [How to: Log Messages When the Application Starts or Shuts Down](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-log-messages-when-the-application-starts-or-shuts-down). @@ -1617,7 +1617,7 @@ For more information, see [Application Page, Project Designer (Visual Basic)](ht ## Examples This example uses the `My.Application.SplashScreen` property and the `My.Application.Startup` event to update the splash screen with status information as the application starts. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/FakeMyEvents.vb" id="Snippet14"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/FakeMyEvents.vb" id="Snippet14"::: This example requires that the project have a splash screen named `SplashScreen1`. The splash screen needs to have a property named `Status` that updates its user interface. @@ -1698,7 +1698,7 @@ For more information, see [Application Page, Project Designer (Visual Basic)](ht ## Examples This example uses the `My.Application.SplashScreen` property and the `My.Application.Startup` event to update the splash screen with status information as the application starts. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/FakeMyEvents.vb" id="Snippet14"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/FakeMyEvents.vb" id="Snippet14"::: This example requires that the project have a splash screen named `SplashScreen1`. The splash screen needs to have property named `Status` that updates its user interface. @@ -1790,7 +1790,7 @@ To access the Code Editor window for application events: ## Examples This example uses the `e` parameter of the event handler to examine the application's command-line arguments. If an argument is found that starts with `/input=`, the rest of that argument is displayed. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/FakeMyEvents.vb" id="Snippet15"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/FakeMyEvents.vb" id="Snippet15"::: You must enter the code in the Code Editor window for application events. To access this window, follow the instructions from this topic's Remarks section. For more information, see [Application Page, Project Designer (Visual Basic)](https://learn.microsoft.com/visualstudio/ide/reference/application-page-project-designer-visual-basic). @@ -1880,7 +1880,7 @@ To access the Code Editor window for application events: Because the `UnhandledException` event is not raised when a debugger is attached to the application, you have to run this example outside the Visual Studio Integrated Development Environment. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/FakeMyEvents.vb" id="Snippet17"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/FakeMyEvents.vb" id="Snippet17"::: ]]> diff --git a/xml/Microsoft.VisualBasic.Devices/Audio.xml b/xml/Microsoft.VisualBasic.Devices/Audio.xml index 945f7c123c7..df8a910053a 100644 --- a/xml/Microsoft.VisualBasic.Devices/Audio.xml +++ b/xml/Microsoft.VisualBasic.Devices/Audio.xml @@ -54,7 +54,7 @@ ## Examples The `My.Computer.Audio.Play` method plays the specified sound in the background when `AudioPlayMode.Background` is specified. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet15"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet15"::: This code can run only within a Windows Forms application. @@ -193,7 +193,7 @@ ## Examples The `My.Computer.Audio.Play` method plays the specified sound in the background when `PlayMode.Background` is specified. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet15"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet15"::: This code example can only run within a Windows Forms application. @@ -285,7 +285,7 @@ ## Examples The `My.Computer.Audio.Play` method plays the specified sound in the background when `PlayMode.Background` is specified. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet15"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet15"::: This code example can only run within a Windows Forms application. @@ -376,7 +376,7 @@ ## Examples The `My.Computer.Audio.Play` method plays the specified sound in the background when `PlayMode.Background` is specified. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet15"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet15"::: This code example can only run within a Windows Forms application. @@ -467,7 +467,7 @@ ## Examples The `My.Computer.Audio.Play` method plays the specified sound in the background when `PlayMode.Background` is specified. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet15"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet15"::: This code example can only run within a Windows Forms application. @@ -560,7 +560,7 @@ ## Examples This example uses the `My.Computer.Audio.PlaySystemSound` method to play a system sound. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet17"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet17"::: This code example can run only within a Windows Forms application. @@ -629,7 +629,7 @@ ## Examples This example uses the `My.Computer.Audio.Stop` method to stop the application currently playing background or looping sound and uses the `My.Computer.Audio.Play` method to play a looping sound in the background. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet19"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet19"::: This code example can run only within a Windows Forms application. diff --git a/xml/Microsoft.VisualBasic.Devices/Clock.xml b/xml/Microsoft.VisualBasic.Devices/Clock.xml index b3063b36641..3181029d8b1 100644 --- a/xml/Microsoft.VisualBasic.Devices/Clock.xml +++ b/xml/Microsoft.VisualBasic.Devices/Clock.xml @@ -40,7 +40,7 @@ ## Examples This example uses the `My.Computer.Clock.LocalTime` property to display the local time of the computer on which the code runs. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet21"::: ]]> @@ -141,7 +141,7 @@ ## Examples This example uses the `My.Computer.Clock.GmtTime` property to display the GMT time of the computer on which the code runs. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet22"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet22"::: ]]> @@ -205,7 +205,7 @@ ## Examples This example uses the `My.Computer.Clock.LocalTime` property to display the local time of the computer on which the code runs. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet21"::: ]]> @@ -282,7 +282,7 @@ ## Examples The following example uses the `My.Computer.Clock.TickCount` property to run a task in a loop for a given number of seconds, even if the computer's system time changes while it runs. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet20"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet20"::: ]]> diff --git a/xml/Microsoft.VisualBasic.Devices/Computer.xml b/xml/Microsoft.VisualBasic.Devices/Computer.xml index 810adc1b69c..db293f4c7b6 100644 --- a/xml/Microsoft.VisualBasic.Devices/Computer.xml +++ b/xml/Microsoft.VisualBasic.Devices/Computer.xml @@ -52,7 +52,7 @@ ## Examples This example uses the `My.Computer.Name` property to display the name of the computer on which the code runs. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet1"::: ]]> @@ -169,7 +169,7 @@ ## Examples The `My.Computer.Audio.Play` method plays the specified sound in the background when `AudioPlayMode.Background` is specified. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet15"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet15"::: This code can run only within a Windows Forms application. @@ -240,7 +240,7 @@ ## Examples This example reads text from the Clipboard into the string `textOnClipboard`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyClipboard/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Computer/Clipboard/Class1.vb" id="Snippet6"::: This example fails if there is no text on the Clipboard. @@ -306,7 +306,7 @@ ## Examples This example uses the `My.Computer.Keyboard.CtrlKeyDown` property to determine if the computer's CTRL key is currently pressed. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet36"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet36"::: ]]> @@ -371,7 +371,7 @@ ## Examples This example uses the `My.Computer.Mouse.WheelExists` and `My.Computer.Mouse.WheelScrollLines` properties to determine if the mouse has a scroll wheel and how much to scroll when it rotates. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet26"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet26"::: ]]> @@ -429,7 +429,7 @@ The method sends the data to the serial port. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet33"::: For more information, see [How to: Send Strings to Serial Ports](/dotnet/visual-basic/developing-apps/programming/computer-resources/how-to-send-strings-to-serial-ports). @@ -490,7 +490,7 @@ ## Examples This example uses the property of the `My.Computer.Screen` property to determine the working area of the computer's primary display, and then resizes the form to fill the working area. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet10"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet10"::: This example needs to run in a Windows Forms application. diff --git a/xml/Microsoft.VisualBasic.Devices/ComputerInfo.xml b/xml/Microsoft.VisualBasic.Devices/ComputerInfo.xml index d7ac16cf65f..828d36e628c 100644 --- a/xml/Microsoft.VisualBasic.Devices/ComputerInfo.xml +++ b/xml/Microsoft.VisualBasic.Devices/ComputerInfo.xml @@ -46,7 +46,7 @@ ## Examples This example uses the `My.Computer.Info.AvailablePhysicalMemory` property to display the amount of available physical memory for the computer on which the code runs. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet2"::: ]]> @@ -139,7 +139,7 @@ ## Examples This example uses the `My.Computer.Info.AvailablePhysicalMemory` property to display the amount of available physical memory for the computer on which the code runs. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet2"::: ]]> @@ -195,7 +195,7 @@ ## Examples This example uses the `My.Computer.Info.AvailableVirtualMemory` property to display the amount of available virtual memory for the computer on which the code runs. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet3"::: ]]> @@ -248,7 +248,7 @@ ## Examples This example uses the `My.Computer.Info.InstalledUICulture` property to display the name of the operating system's UI culture. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet4"::: ]]> @@ -301,7 +301,7 @@ ## Examples This example uses the `My.Computer.Info.OSFullName` property to display the name of the computer's operating system. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet5"::: ]]> @@ -352,7 +352,7 @@ ## Examples This example uses the `My.Computer.Info.OSPlatform` property to display the platform of the computer's operating system. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet6"::: ]]> @@ -407,7 +407,7 @@ ## Examples This example uses the `My.Computer.Info.OSVersion` property to display the version of the computer's operating system. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet7"::: ]]> @@ -463,7 +463,7 @@ ## Examples This example uses the `My.Computer.Info.TotalPhysicalMemory` property to display the total amount of physical memory for the computer on which the code runs. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet8"::: ]]> @@ -519,7 +519,7 @@ ## Examples This example uses the `My.Computer.Info.TotalVirtualMemory` property to display the total amount of virtual memory for the computer on which the code runs. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet9"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet9"::: ]]> diff --git a/xml/Microsoft.VisualBasic.Devices/Keyboard.xml b/xml/Microsoft.VisualBasic.Devices/Keyboard.xml index a0452c7d7ab..e91bc6f7600 100644 --- a/xml/Microsoft.VisualBasic.Devices/Keyboard.xml +++ b/xml/Microsoft.VisualBasic.Devices/Keyboard.xml @@ -59,7 +59,7 @@ ## Examples This example uses the `My.Computer.Keyboard.CtrlKeyDown` property to determine if the computer's CTRL key is pressed. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet36"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet36"::: ]]> @@ -160,7 +160,7 @@ ## Examples This example uses the `My.Computer.Keyboard.AltKeyDown` property to determine if the computer's ALT key is down. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet23"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet23"::: ]]> @@ -227,7 +227,7 @@ ## Examples This example uses the `My.Computer.Keyboard.CapsLock` property to determine if the computer's CAPS LOCK is turned on. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet50"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet50"::: ]]> @@ -288,7 +288,7 @@ ## Examples This example uses the `My.Computer.Keyboard.CtrlKeyDown` property to determine if the computer's CTRL key is down. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet34"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet34"::: ]]> @@ -356,7 +356,7 @@ ## Examples This example uses the `My.Computer.Keyboard.NumLock` property to determine if the computer's NUM LOCK key is on. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet48"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet48"::: ]]> @@ -423,7 +423,7 @@ ## Examples This example uses the `My.Computer.Keyboard.ScrollLock` property to determine if the computer's SCROLL LOCK key is on. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet31"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet31"::: ]]> @@ -537,7 +537,7 @@ This example uses the `My.Computer.Keyboard.SendKeys` method to send keystrokes to an external application, the Notepad application, started by the method. -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet25"::: +:::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet25"::: An exception is raised if an application with the requested process identifier cannot be found. @@ -646,7 +646,7 @@ The call to the method require This example uses the `My.Computer.Keyboard.SendKeys` method to send keystrokes to an external application, the Notepad application, started by the method. -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet25"::: +:::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet25"::: An exception is raised if an application with the requested process identifier cannot be found. @@ -715,7 +715,7 @@ The call to the method require ## Examples This example uses the `My.Computer.Keyboard.ShiftKeyDown` property to determine if one of the computer's SHIFT keys is down. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet47"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet47"::: ]]> diff --git a/xml/Microsoft.VisualBasic.Devices/Mouse.xml b/xml/Microsoft.VisualBasic.Devices/Mouse.xml index abcfa8ef362..55e6b4ee9c9 100644 --- a/xml/Microsoft.VisualBasic.Devices/Mouse.xml +++ b/xml/Microsoft.VisualBasic.Devices/Mouse.xml @@ -52,7 +52,7 @@ ## Examples This example uses the `My.Computer.Mouse.WheelExists` and `My.Computer.Mouse.WheelScrollLines` properties to determine if the mouse has a scroll wheel and how much to scroll when it rotates. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet26"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet26"::: ]]> @@ -159,7 +159,7 @@ ## Examples This example uses the `My.Computer.Mouse.ButtonsSwapped` property to determine if functionality of the left and right mouse buttons has been swapped. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet35"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet35"::: ]]> @@ -222,7 +222,7 @@ ## Examples This example uses the `My.Computer.Mouse.WheelExists` property to determine if the mouse has a scroll wheel and how much to scroll when the mouse wheel is rotated. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet26"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet26"::: ]]> @@ -288,7 +288,7 @@ ## Examples This example determines if the mouse has a scroll wheel and uses the `My.Computer.Mouse.WheelExists` property to determine how much to scroll when the mouse wheel is rotated. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet26"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet26"::: ]]> diff --git a/xml/Microsoft.VisualBasic.Devices/Network.xml b/xml/Microsoft.VisualBasic.Devices/Network.xml index 86c4b60d9ab..3ddf8581385 100644 --- a/xml/Microsoft.VisualBasic.Devices/Network.xml +++ b/xml/Microsoft.VisualBasic.Devices/Network.xml @@ -46,7 +46,7 @@ ## Examples This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet6"::: ]]> @@ -156,11 +156,11 @@ ## Examples This example downloads the file `WineList.txt` from `http://www.cohowinery.com/downloads` and saves it to `C:\Documents and Settings\All Users\Documents`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet7"::: This example downloads the file `WineList.txt` from `http://www.cohowinery.com/downloads` and saves it to `C:\Documents and Settings\All Users\Documents`, specifying a timeout interval of 500 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet8"::: ]]> @@ -235,11 +235,11 @@ ## Examples This example downloads the file `WineList.txt` from `http://www.cohowinery.com/downloads` and saves it to `C:\Documents and Settings\All Users\Documents`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet7"::: This example downloads the file `WineList.txt` from `http://www.cohowinery.com/downloads` and saves it to `C:\Documents and Settings\All Users\Documents`, specifying a timeout interval of 500 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet8"::: ]]> @@ -323,11 +323,11 @@ ## Examples This example downloads the file `WineList.txt` from `http://www.cohowinery.com/downloads` and saves it to `C:\Documents and Settings\All Users\Documents`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet7"::: This example downloads the file `WineList.txt` from `http://www.cohowinery.com/downloads` and saves it to `C:\Documents and Settings\All Users\Documents`, specifying a timeout interval of 500 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet8"::: ]]> @@ -411,11 +411,11 @@ ## Examples This example downloads the file `WineList.txt` from `http://www.cohowinery.com/downloads` and saves it to `C:\Documents and Settings\All Users\Documents`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet7"::: This example downloads the file `WineList.txt` from `http://www.cohowinery.com/downloads` and saves it to `C:\Documents and Settings\All Users\Documents`, specifying a timeout interval of 500 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet8"::: ]]> @@ -510,11 +510,11 @@ ## Examples This example downloads the file `WineList.txt` from `http://www.cohowinery.com/downloads` and saves it to `C:\Documents and Settings\All Users\Documents`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet7"::: This example downloads the file `WineList.txt` from `http://www.cohowinery.com/downloads` and saves it to `C:\Documents and Settings\All Users\Documents`, specifying a timeout interval of 500 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet8"::: ]]> @@ -611,11 +611,11 @@ ## Examples This example downloads the file `WineList.txt` from `http://www.cohowinery.com/downloads` and saves it to `C:\Documents and Settings\All Users\Documents`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet7"::: This example downloads the file `WineList.txt` from `http://www.cohowinery.com/downloads` and saves it to `C:\Documents and Settings\All Users\Documents`, specifying a timeout interval of 500 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet8"::: ]]> @@ -711,11 +711,11 @@ ## Examples This example downloads the file `WineList.txt` from `http://www.cohowinery.com/downloads` and saves it to `C:\Documents and Settings\All Users\Documents`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet7"::: This example downloads the file `WineList.txt` from `http://www.cohowinery.com/downloads` and saves it to `C:\Documents and Settings\All Users\Documents`, specifying a timeout interval of 500 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet8"::: ]]> @@ -811,11 +811,11 @@ ## Examples This example downloads the file `WineList.txt` from `http://www.cohowinery.com/downloads` and saves it to `C:\Documents and Settings\All Users\Documents`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet7"::: This example downloads the file `WineList.txt` from `http://www.cohowinery.com/downloads` and saves it to `C:\Documents and Settings\All Users\Documents`, specifying a timeout interval of 500 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet8"::: ]]> @@ -907,11 +907,11 @@ ## Examples This example downloads the file `WineList.txt` from `http://www.cohowinery.com/downloads` and saves it to `C:\Documents and Settings\All Users\Documents`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet7"::: This example downloads the file `WineList.txt` from `http://www.cohowinery.com/downloads` and saves it to `C:\Documents and Settings\All Users\Documents`, specifying a timeout interval of 500 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet8"::: ]]> @@ -1003,11 +1003,11 @@ ## Examples This example downloads the file `WineList.txt` from `http://www.cohowinery.com/downloads` and saves it to `C:\Documents and Settings\All Users\Documents`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet7"::: This example downloads the file `WineList.txt` from `http://www.cohowinery.com/downloads` and saves it to `C:\Documents and Settings\All Users\Documents`, specifying a timeout interval of 500 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet8"::: ]]> @@ -1071,7 +1071,7 @@ ## Examples This example checks the property's status and reports it. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet1"::: ]]> @@ -1125,7 +1125,7 @@ This code should to be in a form or control that has a named `Label1`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplication/VB/Form1.vb" id="Snippet50"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet50"::: ]]> @@ -1197,13 +1197,13 @@ ## Examples This example reports whether or not the server can be pinged by determining whether the `Ping` method returns `True`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet4"::: Replace `"198.01.01.01"` with the IP address, URL, or computer name of the server to ping. This example reports whether or not the server can be pinged by determining whether the `Ping` method returned `True` and specifies a timeout interval of 1000 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet5"::: Replace `"www.cohowinery.com"` with the IP address, URL, or computer name of the server to ping. @@ -1261,13 +1261,13 @@ ## Examples This example reports whether or not the server can be pinged by determining whether the `Ping` method returns `True`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet4"::: Replace `"198.01.01.01"` with the IP address, URL, or computer name of the server to ping. This example reports whether or not the server can be pinged by determining whether the `Ping` method returned `True` and specifies a timeout interval of 1000 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet5"::: Replace `"www.cohowinery.com"` with the IP address, URL, or computer name of the server to ping. @@ -1327,13 +1327,13 @@ ## Examples This example reports whether or not the server can be pinged by determining whether the `Ping` method returns `True`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet4"::: Replace `"198.01.01.01"` with the IP address, URL, or computer name of the server to ping. This example reports whether or not the server can be pinged by determining whether the `Ping` method returned `True` and specifies a timeout interval of 1000 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet5"::: Replace `"www.cohowinery.com"` with the IP address, URL, or computer name of the server to ping. @@ -1393,13 +1393,13 @@ ## Examples This example reports whether or not the server can be pinged by determining whether the `Ping` method returns `True`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet4"::: Replace `"198.01.01.01"` with the IP address, URL, or computer name of the server to ping. This example reports whether or not the server can be pinged by determining whether the `Ping` method returned `True` and specifies a timeout interval of 1000 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet5"::: Replace `"www.cohowinery.com"` with the IP address, URL, or computer name of the server to ping. @@ -1478,11 +1478,11 @@ ## Examples This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet2"::: This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads` without supplying a user name or password, shows the progress of the upload, and has a time-out interval of 500 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet3"::: ]]> @@ -1558,11 +1558,11 @@ ## Examples This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet2"::: This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads` without supplying a user name or password, shows the progress of the upload, and has a time-out interval of 500 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet3"::: ]]> @@ -1645,11 +1645,11 @@ ## Examples This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet2"::: This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads` without supplying a user name or password, shows the progress of the upload, and has a time-out interval of 500 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet3"::: ]]> @@ -1733,11 +1733,11 @@ ## Examples This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet2"::: This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads` without supplying a user name or password, shows the progress of the upload, and has a time-out interval of 500 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet3"::: ]]> @@ -1826,11 +1826,11 @@ ## Examples This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet2"::: This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads` without supplying a user name or password, shows the progress of the upload, and has a time-out interval of 500 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet3"::: ]]> @@ -1921,11 +1921,11 @@ ## Examples This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet2"::: This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads` without supplying a user name or password, shows the progress of the upload, and has a time-out interval of 500 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet3"::: ]]> @@ -2010,11 +2010,11 @@ ## Examples This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet2"::: This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads` without supplying a user name or password, shows the progress of the upload, and has a time-out interval of 500 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet3"::: ]]> @@ -2105,11 +2105,11 @@ ## Examples This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet2"::: This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads` without supplying a user name or password, shows the progress of the upload, and has a time-out interval of 500 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet3"::: ]]> @@ -2195,11 +2195,11 @@ ## Examples This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet2"::: This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads` without supplying a user name or password, shows the progress of the upload, and has a time-out interval of 500 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet3"::: ]]> @@ -2285,11 +2285,11 @@ ## Examples This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet2"::: This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads` without supplying a user name or password, shows the progress of the upload, and has a time-out interval of 500 milliseconds. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet3"::: ]]> diff --git a/xml/Microsoft.VisualBasic.Devices/Ports.xml b/xml/Microsoft.VisualBasic.Devices/Ports.xml index 6439d018fc1..ac6947784f7 100644 --- a/xml/Microsoft.VisualBasic.Devices/Ports.xml +++ b/xml/Microsoft.VisualBasic.Devices/Ports.xml @@ -56,7 +56,7 @@ The method sends the data to the serial port. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet33"::: For more information, see [How to: Send Strings to Serial Ports](/dotnet/visual-basic/developing-apps/programming/computer-resources/how-to-send-strings-to-serial-ports). @@ -168,7 +168,7 @@ The method sends the data to the serial port. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet33"::: For more information, see [How to: Send Strings to Serial Ports](/dotnet/visual-basic/developing-apps/programming/computer-resources/how-to-send-strings-to-serial-ports). @@ -251,7 +251,7 @@ The method sends the data to the serial port. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet33"::: For more information, see [How to: Send Strings to Serial Ports](/dotnet/visual-basic/developing-apps/programming/computer-resources/how-to-send-strings-to-serial-ports). @@ -339,7 +339,7 @@ The method sends the data to the serial port. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet33"::: For more information, see [How to: Send Strings to Serial Ports](/dotnet/visual-basic/developing-apps/programming/computer-resources/how-to-send-strings-to-serial-ports). @@ -432,7 +432,7 @@ The method sends the data to the serial port. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet33"::: For more information, see [How to: Send Strings to Serial Ports](/dotnet/visual-basic/developing-apps/programming/computer-resources/how-to-send-strings-to-serial-ports). @@ -528,7 +528,7 @@ The method sends the data to the serial port. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet33"::: For more information, see [How to: Send Strings to Serial Ports](/dotnet/visual-basic/developing-apps/programming/computer-resources/how-to-send-strings-to-serial-ports). @@ -601,7 +601,7 @@ Typically, a user selects which serial port the application should use from the list of available ports. In this example, the serial port names are stored in a control. For more information, see [ListBox Control](/dotnet/desktop/winforms/controls/listbox-control-windows-forms). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class2.vb" id="Snippet45"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb" id="Snippet45"::: This example requires: diff --git a/xml/Microsoft.VisualBasic.Devices/ServerComputer.xml b/xml/Microsoft.VisualBasic.Devices/ServerComputer.xml index f7685ba3bd7..12b585ca662 100644 --- a/xml/Microsoft.VisualBasic.Devices/ServerComputer.xml +++ b/xml/Microsoft.VisualBasic.Devices/ServerComputer.xml @@ -52,7 +52,7 @@ ## Examples This example uses the `My.Computer.Name` property to display the name of the computer on which the code runs. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet1"::: ]]> @@ -163,7 +163,7 @@ ## Examples The `My.Computer.Audio.Play` method plays the specified sound in the background when `AudioPlayMode.Background` is specified. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet15"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet15"::: This code can run only within a Windows Forms application. @@ -232,7 +232,7 @@ ## Examples This example checks to determine whether the folder `C:\backup\logs` exists and checks its properties. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet23"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet23"::: ]]> @@ -298,7 +298,7 @@ ## Examples This example uses the `My.Computer.Info.AvailablePhysicalMemory` property to display the amount of available physical memory for the computer on which the code runs. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet2"::: ]]> @@ -361,7 +361,7 @@ ## Examples This example uses the `My.Computer.Name` property to display the name of the computer on which the code runs. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyComputer/VB/Class1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb" id="Snippet1"::: ]]> @@ -424,7 +424,7 @@ ## Examples This example uploads the file `Order.txt` to `http://www.cohowinery.com/uploads`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyNetwork/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Network/Overview/Class1.vb" id="Snippet6"::: ]]> @@ -476,7 +476,7 @@ ## Examples This example reads the value `Name` from `HKEY_CURRENT_USER\Software\MyApp` and displays it in a message box. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyRegistry/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/Registry/Class1.vb" id="Snippet8"::: ]]> diff --git a/xml/Microsoft.VisualBasic.FileIO/FileSystem.xml b/xml/Microsoft.VisualBasic.FileIO/FileSystem.xml index 8ff7d8884fc..f26bd0ea7c5 100644 --- a/xml/Microsoft.VisualBasic.FileIO/FileSystem.xml +++ b/xml/Microsoft.VisualBasic.FileIO/FileSystem.xml @@ -72,7 +72,7 @@ ## Examples This example checks to determine whether the folder `C:\backup\logs` exists and checks its properties. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet23"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet23"::: ]]> @@ -187,11 +187,11 @@ ## Examples This example combines a directory path and file name to create a properly formatted path. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet3"::: This example combines two paths to create a properly formatted path. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet4"::: This example returns `C:\Dir1\Dir2\Dir4\Dir5\File.txt`. @@ -272,7 +272,7 @@ ## Examples The following example copies the contents of directory `TestDirectory1` into `TestDirectory2`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet94"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet94"::: Replace `C:\TestDirectory1` and `C:\TestDirectory2` with the path and name of the directory you wish to copy and the location to which you wish to copy it. @@ -348,7 +348,7 @@ ## Examples The following example copies the contents of directory `TestDirectory1` into `TestDirectory2`, showing progress dialog and any error dialog. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet92"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet92"::: Replace `C:\TestDirectory1` and `C:\TestDirectory2` with the path and name of the directory you wish to copy and the location to which you wish to copy it. @@ -433,7 +433,7 @@ ## Examples The following example copies the contents of directory `TestDirectory1` into `TestDirectory2`, overwriting existing files. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet49"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet49"::: Replace `C:\TestDirectory1` and `C:\TestDirectory2` with the path and name of the directory you wish to copy and the location to which you wish to copy it. @@ -511,7 +511,7 @@ ## Examples The following example copies the contents of directory `TestDirectory1` into `TestDirectory2`, showing progress dialog and any error dialog, and does nothing if the user clicks **Cancel** during the operation. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet93"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet93"::: Replace `C:\TestDirectory1` and `C:\TestDirectory2` with the path and name of the directory you wish to copy and the location to which you wish to copy it. @@ -601,13 +601,13 @@ ## Examples This example copies the file `Test.txt` to the directory `TestFiles2` without overwriting existing files. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet15"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet15"::: Replace the file paths with the paths you want to use in your code. This example copies the file `Test.txt` to the directory `TestFiles2` and renames it `NewFile.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet16"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet16"::: Replace the file paths with the paths you want to use in your code. @@ -682,13 +682,13 @@ ## Examples This example copies the file `Test.txt` to the directory `TestFiles2` without overwriting existing files. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet15"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet15"::: Replace the file paths with the paths you want to use in your code. This example copies the file `Test.txt` to the directory `TestFiles2` and renames it `NewFile.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet16"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet16"::: Replace the file paths with the paths you want to use in your code. @@ -770,13 +770,13 @@ ## Examples This example copies the file `Test.txt` to the directory `TestFiles2` without overwriting existing files. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet15"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet15"::: Replace the file paths with the paths you want to use in your code. This example copies the file `Test.txt` to the directory `TestFiles2` and renames it `NewFile.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet16"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet16"::: Replace the file paths with the paths you want to use in your code. @@ -853,13 +853,13 @@ ## Examples This example copies the file `Test.txt` to the directory `TestFiles2` without overwriting existing files. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet15"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet15"::: Replace the file paths with the paths you want to use in your code. This example copies the file `Test.txt` to the directory `TestFiles2` and renames it `NewFile.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet16"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet16"::: Replace the file paths with the paths you want to use in your code. @@ -931,7 +931,7 @@ ## Examples This example creates the directory, `NewDirectory`, in `C:\Documents and Settings\All Users\Documents`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet17"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet17"::: ]]> @@ -986,11 +986,11 @@ ## Examples This example returns the current directory and displays it in a message box. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet18"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet18"::: This example sets the current directory to `C:\TestDirectory`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet19"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet19"::: ]]> @@ -1055,19 +1055,19 @@ ## Examples The example deletes the directory `OldDirectory` only if it is empty. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet56"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet56"::: This example deletes the directory `OldDirectory` and all of its contents. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet57"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet57"::: This example deletes the directory `OldDirectory` and all of its contents, asking the user to confirm the deletion, but does not send the contents to the **Recycle Bin**. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet58"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet58"::: This example deletes the directory `OldDirectory` and all of its contents, sending them to the **Recycle Bin**, but does not show the progress of the operation. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet59"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet59"::: ]]> @@ -1132,19 +1132,19 @@ ## Examples The example deletes the directory `OldDirectory` only if it is empty. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet56"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet56"::: This example deletes the directory `OldDirectory` and all of its contents. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet57"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet57"::: This example deletes the directory `OldDirectory` and all of its contents, asking the user to confirm the deletion, but does not send the contents to the **Recycle Bin**. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet58"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet58"::: This example deletes the directory `OldDirectory` and all of its contents, sending them to the **Recycle Bin**, but does not show the progress of the operation. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet59"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet59"::: ]]> @@ -1212,19 +1212,19 @@ ## Examples The example deletes the directory `OldDirectory` only if it is empty. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet56"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet56"::: This example deletes the directory `OldDirectory` and all of its contents. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet57"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet57"::: This example deletes the directory `OldDirectory` and all of its contents, asking the user to confirm the deletion, but does not send the contents to the **Recycle Bin**. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet58"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet58"::: This example deletes the directory `OldDirectory` and all of its contents, sending them to the **Recycle Bin**, but does not show the progress of the operation. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet59"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet59"::: ]]> @@ -1306,15 +1306,15 @@ ## Examples This example deletes the file `Test.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet3"::: This example deletes the file `Test.txt` and allows the user to confirm that the file should be deleted. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet4"::: This example deletes the file `Test.txt` and sends it to the **Recycle Bin**. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet5"::: ]]> @@ -1384,15 +1384,15 @@ ## Examples This example deletes the file `Test.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet3"::: This example deletes the file `Test.txt` and allows the user to confirm that the file should be deleted. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet4"::: This example deletes the file `Test.txt` and sends it to the **Recycle Bin**. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet5"::: ]]> @@ -1466,15 +1466,15 @@ ## Examples This example deletes the file `Test.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet3"::: This example deletes the file `Test.txt` and allows the user to confirm that the file should be deleted. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet4"::: This example deletes the file `Test.txt` and sends it to the **Recycle Bin**. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet5"::: ]]> @@ -1535,7 +1535,7 @@ ## Examples This example determines whether the directory `C:\backup\logs` exists and checks its properties. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet13"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet13"::: ]]> @@ -1582,7 +1582,7 @@ ## Examples This example displays the available drive names in a message box. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet19"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet19"::: ]]> @@ -1636,7 +1636,7 @@ ## Examples This example checks to see whether or not the file `Check.txt` exists and supplies the information in a message box. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet20"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet20"::: ]]> @@ -1717,7 +1717,7 @@ ## Examples This example searches the directory `C:\TestDir` for any files containing the string `"sample string"` and displays the results in `ListBox1`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet12"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet12"::: In order to work, the project must contain a `ListBox` named `ListBox1`. @@ -1804,7 +1804,7 @@ ## Examples This example searches the directory `C:\TestDir` for any files containing the string `"sample string"` and displays the results in `ListBox1`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet12"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet12"::: In order to work, the project must contain a `ListBox` named `ListBox1`. @@ -1888,7 +1888,7 @@ ## Examples The following example returns all the directories in the directory structure that contain the word `Logs` in their names and adds them to `ListBox1`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet10"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet10"::: This example requires that you have a `ListBox` named `ListBox1` on your form. @@ -1978,7 +1978,7 @@ ## Examples The following example returns all the directories in the directory structure that contain the word `Logs` in their names and adds them to `ListBox1`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet10"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet10"::: This example requires that you have a `ListBox` named `ListBox1` on your form. @@ -2044,7 +2044,7 @@ ## Examples This example gets a object for the directory `C:\Documents and Settings` and displays the directory's creation time, last access time, and last write time. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet7"::: ]]> @@ -2104,7 +2104,7 @@ ## Examples This example obtains a object for the C drive and uses it to display information about the drive. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet11"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet11"::: For information on the different drive types, see . @@ -2172,7 +2172,7 @@ ## Examples This example retrieves a object for the file `MyLogFile.log` and uses it to report the file's full name, last access time, and length. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet1"::: ]]> @@ -2254,13 +2254,13 @@ ## Examples The following example returns all files in the directory and adds them to `ListBox1`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet5"::: This example requires that you have a `ListBox` named `ListBox1` on your form. This example returns all files in the directory with the extension `.txt` and adds them to `ListBox1`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet6"::: This example requires that you have a `ListBox` named `ListBox1` on your form. @@ -2349,13 +2349,13 @@ ## Examples The following example returns all files in the directory and adds them to `ListBox1`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet5"::: This example requires that you have a `ListBox` named `ListBox1` on your form. This example returns all files in the directory with the extension `.txt` and adds them to `ListBox1`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet6"::: This example requires that you have a `ListBox` named `ListBox1` on your form. @@ -2429,7 +2429,7 @@ ## Examples The following example parses a file path and returns the name of the file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet21"::: Replace the path `C:\Testdirectory\Testfile` with the path you wish to parse. @@ -2483,7 +2483,7 @@ ## Examples This example gets the parent path for `C:\Backups\Tmp\Test`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet17"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet17"::: ]]> @@ -2538,7 +2538,7 @@ ## Examples This example creates a temp file and returns its path. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet12"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet12"::: ]]> @@ -2606,11 +2606,11 @@ ## Examples This example moves `Directory1` inside `Directory2`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet81"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet81"::: This example moves `Directory1` inside `Directory2`, overwriting the directory if it already exists. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet82"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet82"::: ]]> @@ -2677,11 +2677,11 @@ ## Examples This example moves `Directory1` inside `Directory2`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet81"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet81"::: This example moves `Directory1` inside `Directory2`, overwriting the directory if it already exists. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet82"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet82"::: ]]> @@ -2756,11 +2756,11 @@ ## Examples This example moves `Directory1` inside `Directory2`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet81"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet81"::: This example moves `Directory1` inside `Directory2`, overwriting the directory if it already exists. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet82"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet82"::: ]]> @@ -2829,11 +2829,11 @@ ## Examples This example moves `Directory1` inside `Directory2`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet81"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet81"::: This example moves `Directory1` inside `Directory2`, overwriting the directory if it already exists. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet82"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet82"::: ]]> @@ -2926,11 +2926,11 @@ ## Examples This example moves the file `Test.txt` from `TestDir1` to `TestDir2`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet86"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet86"::: This example moves the file `Test.txt` from `TestDir1` to `TestDir2` and renames it `Test2.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet87"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet87"::: ]]> @@ -3001,11 +3001,11 @@ ## Examples This example moves the file `Test.txt` from `TestDir1` to `TestDir2`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet86"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet86"::: This example moves the file `Test.txt` from `TestDir1` to `TestDir2` and renames it `Test2.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet87"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet87"::: ]]> @@ -3084,11 +3084,11 @@ ## Examples This example moves the file `Test.txt` from `TestDir1` to `TestDir2`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet86"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet86"::: This example moves the file `Test.txt` from `TestDir1` to `TestDir2` and renames it `Test2.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet87"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet87"::: ]]> @@ -3161,11 +3161,11 @@ ## Examples This example moves the file `Test.txt` from `TestDir1` to `TestDir2`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet86"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet86"::: This example moves the file `Test.txt` from `TestDir1` to `TestDir2` and renames it `Test2.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet87"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet87"::: ]]> @@ -3245,7 +3245,7 @@ ## Examples This example opens the `TextFieldParser.reader` and uses it to read from `C:\TestFolder1\Test1.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet18"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet18"::: ]]> @@ -3323,7 +3323,7 @@ ## Examples This example opens the `TextFieldParser.reader` and uses it to read from `C:\TestFolder1\Test1.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet18"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet18"::: ]]> @@ -3401,7 +3401,7 @@ ## Examples This example opens the `TextFieldParser.reader` and uses it to read from `C:\TestFolder1\Test1.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet18"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet18"::: ]]> @@ -3479,7 +3479,7 @@ ## Examples This example opens the file `Testfile.txt`, reads a line from it, and displays the line in a `MessageBox`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet2"::: ]]> @@ -3545,7 +3545,7 @@ ## Examples This example opens the file `Testfile.txt`, reads a line from it, and displays the line in a `MessageBox`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet2"::: ]]> @@ -3626,7 +3626,7 @@ ## Examples This example opens a with the `My.Computer.FileSystem.OpenTextFileWriter` method and uses it to write a string to a text file with the `WriteLine` method of the `StreamWriter` class. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet14"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet14"::: ]]> @@ -3700,7 +3700,7 @@ ## Examples This example opens a with the `My.Computer.FileSystem.OpenTextFileWriter` method with `Unicode` encoding and uses it to write a string to a text file with the `WriteLine` method of the `StreamWriter` class. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet23"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet23"::: ]]> @@ -3766,7 +3766,7 @@ ## Examples This example reads from the file `C:/Documents and Settings/selfportrait.jpg.` - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet33"::: ]]> @@ -3847,11 +3847,11 @@ ## Examples This example reads the contents of `Test.txt` into a string and then displays it in a message box. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet8"::: This example reads the contents of the ASCII file `Test.txt` into a string and then displays it in a message box. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet9"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet9"::: ]]> @@ -3928,11 +3928,11 @@ ## Examples This example reads the contents of `Test.txt` into a string and then displays it in a message box. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet8"::: This example reads the contents of the ASCII file `Test.txt` into a string and then displays it in a message box. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet9"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet9"::: ]]> @@ -3996,7 +3996,7 @@ ## Examples This example renames the `Test` directory to `SecondTest`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet13"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet13"::: ]]> @@ -4070,7 +4070,7 @@ ## Examples This example renames the file `Test.txt` to `SecondTest.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet1"::: Change "`C:\Test.txt`" to the path and file name of the file that you want to rename. @@ -4151,7 +4151,7 @@ ## Examples This example appends the data array `CustomerData` to the file `CollectedData`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet50"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet50"::: ]]> @@ -4239,11 +4239,11 @@ ## Examples This example writes the line `"This is new text to be added."` to the file `Test.txt`, overwriting any existing text in the file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet21"::: This example writes the names of the files in the `Documents and Settings` folder to `FileList.txt`, inserting a carriage return between each for better readability. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet22"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet22"::: ]]> @@ -4324,11 +4324,11 @@ ## Examples This example writes the line `"This is new text to be added."` to the file `Test.txt`, overwriting any existing text in the file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet21"::: This example writes the names of the files in the `Documents and Settings` folder to `FileList.txt`, inserting a carriage return between each for better readability. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet22"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet22"::: ]]> diff --git a/xml/Microsoft.VisualBasic.FileIO/SpecialDirectories.xml b/xml/Microsoft.VisualBasic.FileIO/SpecialDirectories.xml index 025c86e52be..22260ca9985 100644 --- a/xml/Microsoft.VisualBasic.FileIO/SpecialDirectories.xml +++ b/xml/Microsoft.VisualBasic.FileIO/SpecialDirectories.xml @@ -65,7 +65,7 @@ ## Examples This example returns the `filePath` for the user's Desktop directory and displays it. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet80"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet80"::: ]]> @@ -152,7 +152,7 @@ ## Examples This example displays the path to the Application Data directory for the all users in a . - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet79"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet79"::: ]]> @@ -203,7 +203,7 @@ ## Examples This example displays the path to the Application Data directory for the current user in a . - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet48"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet48"::: ]]> @@ -253,7 +253,7 @@ ## Examples This example displays the path for the Desktop directory in a . - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet60"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet60"::: ]]> @@ -303,7 +303,7 @@ ## Examples This example displays the path for the My Documents directory in a . - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet53"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet53"::: ]]> @@ -353,7 +353,7 @@ ## Examples This example displays the path for the My Music directory in a . - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet26"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet26"::: ]]> @@ -403,7 +403,7 @@ ## Examples This example displays the path for the MyPictures directory in a . - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet77"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet77"::: ]]> @@ -453,7 +453,7 @@ ## Examples This example displays the path for the **Program Files** directory in a . - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet90"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet90"::: ]]> @@ -503,7 +503,7 @@ ## Examples This example displays the path for the Programs directory in a . - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet61"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet61"::: ]]> @@ -553,7 +553,7 @@ ## Examples This example displays the path for the Temp directory in a . - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet31"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet31"::: ]]> diff --git a/xml/Microsoft.VisualBasic.FileIO/TextFieldParser.xml b/xml/Microsoft.VisualBasic.FileIO/TextFieldParser.xml index 558b314f45b..eb1873dd7c8 100644 --- a/xml/Microsoft.VisualBasic.FileIO/TextFieldParser.xml +++ b/xml/Microsoft.VisualBasic.FileIO/TextFieldParser.xml @@ -59,7 +59,7 @@ ## Examples This example parses through a tab-delimited text file, `Bigfile`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb" id="Snippet17"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb" id="Snippet17"::: ]]> @@ -575,7 +575,7 @@ ## Examples This example closes the `TextFieldParser.FileReader`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb" id="Snippet14"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb" id="Snippet14"::: ]]> @@ -642,7 +642,7 @@ ## Examples This example specifies that for the `TextFieldParser`, `FileReader` lines beginning with a single quotation mark (') should be ignored. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb" id="Snippet5"::: ]]> @@ -714,7 +714,7 @@ ## Examples This example specifies that the delimiter for the `TextFieldParser` object, `FileReader`, is a comma (,). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb" id="Snippet9"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb" id="Snippet9"::: ]]> @@ -859,7 +859,7 @@ ## Examples This example uses the `EndofData` property to loop through all the fields in the file with the `TextFieldReader`, `FileReader`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb" id="Snippet6"::: ]]> @@ -923,7 +923,7 @@ ## Examples This example uses the `ErrorLine` property to display the line causing the current exception. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb" id="Snippet1"::: ]]> @@ -992,7 +992,7 @@ ## Examples This example uses the `ErrorLineNumber` property to display the location of the line causing the current exception. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb" id="Snippet3"::: ]]> @@ -1065,7 +1065,7 @@ ## Examples This example reads the file `ParserText.txt`, specifying the widths; the first column is 5 characters wide, the second is 10, the third is 11, and the fourth is of variable width - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb" id="Snippet16"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb" id="Snippet16"::: ]]> @@ -1176,7 +1176,7 @@ ## Examples This example sets the `HasFieldsEnclosedInQuotes` property to `True` for `myReader`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb" id="Snippet18"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb" id="Snippet18"::: ]]> @@ -1233,7 +1233,7 @@ ## Examples This example searches for the name "Jones" in the text file and reports what line(s) it occurs on. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb" id="Snippet11"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb" id="Snippet11"::: ]]> @@ -1300,7 +1300,7 @@ ## Examples This example uses `PeekChars` to find the end of the data and stop parsing the file at that point. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb" id="Snippet8"::: ]]> @@ -1373,7 +1373,7 @@ ## Examples This example uses the `ReadFields` method to read from the comma-delimited file `ParserText.txt`. The example writes the fields to `Testfile.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb" id="Snippet2"::: ]]> @@ -1442,7 +1442,7 @@ ## Examples This example reads through the file `ParserText.txt` and writes it to `Testfile.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb" id="Snippet15"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb" id="Snippet15"::: If `Testfile.txt` does not exist, it is created by the `WriteAllText` method. @@ -1511,7 +1511,7 @@ ## Examples This example uses the `ReadToEnd` method to read the entire file `ParserText.txt` and write it to the file `Testfile.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb" id="Snippet10"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb" id="Snippet10"::: If `Testfile.txt` does not exist, it is created by the `WriteAllText` method. @@ -1595,7 +1595,7 @@ ## Examples This example opens a text field parser and defines the delimiter as `vbTab`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb" id="Snippet4"::: Replace the path `C:\logs\test.log` with the path and name of the file you wish to parse. @@ -1676,13 +1676,13 @@ ## Examples This example opens a text-field parser and defines the field width as `5`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb" id="Snippet12"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb" id="Snippet12"::: Replace the path `C:\logs\test.log` with the path and name of the file you wish to parse. The following example opens a text-field parser and defines the field widths as `5`, `10`, and variable. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb" id="Snippet13"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb" id="Snippet13"::: Replace the path `C:\logs\test.log` with the path and name of the file you wish to parse. @@ -1785,11 +1785,11 @@ This member is an explicit interface member implementation. It can be used only ## Examples This example creates a `TextFieldParser`, `FileReader`, and specifies that it is delimited. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb" id="Snippet19"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb" id="Snippet19"::: This example creates a `TextFieldParser`, `FileReader`, and specifies that it is fixed-width. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb" id="Snippet20"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb" id="Snippet20"::: ]]> @@ -1855,7 +1855,7 @@ This member is an explicit interface member implementation. It can be used only ## Examples This example creates a `TextFieldParser`, `FileReader`, and sets the `TrimWhiteSpace` property to `True`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTextFieldParser/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/TextFieldParser/Overview/Class1.vb" id="Snippet7"::: ]]> diff --git a/xml/Microsoft.VisualBasic.Logging/AspLog.xml b/xml/Microsoft.VisualBasic.Logging/AspLog.xml index e260be70667..d2c7828d3bb 100644 --- a/xml/Microsoft.VisualBasic.Logging/AspLog.xml +++ b/xml/Microsoft.VisualBasic.Logging/AspLog.xml @@ -17,28 +17,26 @@ Provides a property and methods for writing event and exception information to the application's log listeners. - . - - The following table lists examples of tasks involving the `My.Application.Log` object. - -|To|See| -|--------|---------| -|Write event information to the application's log listeners|[How to: Write Log Messages](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-write-log-messages)| -|Write exception information to the application's log listeners|[How to: Log Exceptions](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-log-exceptions)| -|Determine where `My.Application.Log` writes information|[Walkthrough: Determining Where My.Application.Log Writes Information](/dotnet/visual-basic/developing-apps/programming/log-info/walkthrough-determining-where-my-application-log-writes-information)| - - - -## Examples - This example shows how to use the `My.Application.Log.WriteEntry` method to log tracing information. For more information, see [How to: Write Log Messages](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-write-log-messages). - - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/Form1.vb" id="Snippet11"::: - + . + + The following table lists examples of tasks involving the `My.Application.Log` object. + +|To|See| +|--------|---------| +|Write event information to the application's log listeners|[How to: Write Log Messages](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-write-log-messages)| +|Write exception information to the application's log listeners|[How to: Log Exceptions](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-log-exceptions)| +|Determine where `My.Application.Log` writes information|[Walkthrough: Determining Where My.Application.Log Writes Information](/dotnet/visual-basic/developing-apps/programming/log-info/walkthrough-determining-where-my-application-log-writes-information)| + +## Examples + This example shows how to use the `My.Application.Log.WriteEntry` method to log tracing information. For more information, see [How to: Write Log Messages](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-write-log-messages). + + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet11"::: + ]]> @@ -77,11 +75,11 @@ Initializes a new instance of the class. - @@ -120,11 +118,11 @@ . The name to give to the property object. Initializes a new instance of the class. - @@ -159,13 +157,13 @@ Creates a new and adds it to the collection. - , sets its name to `FileLog`, and configures it to log messages with severity level and greater. The new object is then added to the collection. - - The calls the method if the property has not been configured. The trace source can be configured in the application's configuration file. - + , sets its name to `FileLog`, and configures it to log messages with severity level and greater. The new object is then added to the collection. + + The calls the method if the property has not been configured. The trace source can be configured in the application's configuration file. + ]]> diff --git a/xml/Microsoft.VisualBasic.Logging/Log.xml b/xml/Microsoft.VisualBasic.Logging/Log.xml index 4c27bd1e0de..d68e125db45 100644 --- a/xml/Microsoft.VisualBasic.Logging/Log.xml +++ b/xml/Microsoft.VisualBasic.Logging/Log.xml @@ -26,28 +26,26 @@ Provides a property and methods for writing event and exception information to the application's log listeners. - . - - The following table lists examples of tasks involving the `My.Application.Log` object. - -|To|See| -|--------|---------| -|Write event information to the application's log listeners|[How to: Write Log Messages](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-write-log-messages)| -|Write exception information to the application's log listeners|[How to: Log Exceptions](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-log-exceptions)| -|Determine where `My.Application.Log` writes information|[Walkthrough: Determining Where My.Application.Log Writes Information](/dotnet/visual-basic/developing-apps/programming/log-info/walkthrough-determining-where-my-application-log-writes-information)| - - - -## Examples - This example shows how to use the `My.Application.Log.WriteEntry` method to log tracing information. For more information, see [How to: Write Log Messages](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-write-log-messages). - - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/Form1.vb" id="Snippet11"::: - + . + + The following table lists examples of tasks involving the `My.Application.Log` object. + +|To|See| +|--------|---------| +|Write event information to the application's log listeners|[How to: Write Log Messages](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-write-log-messages)| +|Write exception information to the application's log listeners|[How to: Log Exceptions](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-log-exceptions)| +|Determine where `My.Application.Log` writes information|[Walkthrough: Determining Where My.Application.Log Writes Information](/dotnet/visual-basic/developing-apps/programming/log-info/walkthrough-determining-where-my-application-log-writes-information)| + +## Examples + This example shows how to use the `My.Application.Log.WriteEntry` method to log tracing information. For more information, see [How to: Write Log Messages](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-write-log-messages). + + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet11"::: + ]]> Objects (Visual Basic) @@ -179,13 +177,13 @@ Right now we only support WinApp as an application platform Gets the file the object that underlies the object. The object that underlies the object. - object. - - In client applications, the `Log` object is available through the `My.Application.Log` object. In Web applications, the `Log` object is available through the `My.Log` object. - + object. + + In client applications, the `Log` object is available through the `My.Application.Log` object. In Web applications, the `Log` object is available through the `My.Log` object. + ]]> @@ -228,13 +226,13 @@ Right now we only support WinApp as an application platform Creates a new object and adds it to the collection. - , sets its name to `FileLog`, and configures it to log messages with severity level and greater. The new object is then added to the collection. - - The calls the method if the property has not been configured. The trace source can be configured in the application's configuration file. - + , sets its name to `FileLog`, and configures it to log messages with severity level and greater. The new object is then added to the collection. + + The calls the method if the property has not been configured. The trace source can be configured in the application's configuration file. + ]]> @@ -279,33 +277,33 @@ Right now we only support WinApp as an application platform Gets to the object that underlies the object. The object that underlies the object. - @@ -354,58 +352,58 @@ Right now we only support WinApp as an application platform Required. The message to log. If is , an empty string is used. Writes a message to the application's log listeners. - |0| -||1| -||2| -||3| -||4| -||5| -||6| -||7| -||8| -||9| - - The following table lists examples of tasks involving the `WriteEntry` method. - -|To|See| -|--------|---------| -|Write event information to the application's log listeners|[How to: Write Log Messages](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-write-log-messages)| -|Determine where `Log` writes information|[Walkthrough: Determining Where My.Application.Log Writes Information](/dotnet/visual-basic/developing-apps/programming/log-info/walkthrough-determining-where-my-application-log-writes-information)| - -## Availability by Project Type - -|Project type|Available| -|------------------|---------------| -|Windows Application|**Yes**| -|Class Library|**Yes**| -|Console Application|**Yes**| -|Windows Control Library|**Yes**| -|Web Control Library|No| -|Windows Service|**Yes**| -|Web Site|**Yes**| - - - -## Examples - This example shows how to use the `My.Application.Log.WriteEntry` method to log tracing information. For more information, see [How to: Write Log Messages](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-write-log-messages). - - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/Form1.vb" id="Snippet11"::: - - This code example can run only within a client application. Change `My.Application.Log.WriteEntry` to `My.Log.WriteEntry` for Web applications. - + |0| +||1| +||2| +||3| +||4| +||5| +||6| +||7| +||8| +||9| + + The following table lists examples of tasks involving the `WriteEntry` method. + +|To|See| +|--------|---------| +|Write event information to the application's log listeners|[How to: Write Log Messages](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-write-log-messages)| +|Determine where `Log` writes information|[Walkthrough: Determining Where My.Application.Log Writes Information](/dotnet/visual-basic/developing-apps/programming/log-info/walkthrough-determining-where-my-application-log-writes-information)| + +## Availability by Project Type + +|Project type|Available| +|------------------|---------------| +|Windows Application|**Yes**| +|Class Library|**Yes**| +|Console Application|**Yes**| +|Windows Control Library|**Yes**| +|Web Control Library|No| +|Windows Service|**Yes**| +|Web Site|**Yes**| + + + +## Examples + This example shows how to use the `My.Application.Log.WriteEntry` method to log tracing information. For more information, see [How to: Write Log Messages](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-write-log-messages). + + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet11"::: + + This code example can run only within a client application. Change `My.Application.Log.WriteEntry` to `My.Log.WriteEntry` for Web applications. + ]]> Code with partial trust calls the method, but writes to an event log listener that requires full trust. @@ -450,58 +448,58 @@ Right now we only support WinApp as an application platform The type of message. By default, . Writes a message to the application's log listeners. - |0| -||1| -||2| -||3| -||4| -||5| -||6| -||7| -||8| -||9| - - The following table lists examples of tasks involving the `WriteEntry` method. - -|To|See| -|--------|---------| -|Write event information to the application's log listeners|[How to: Write Log Messages](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-write-log-messages)| -|Determine where `Log` writes information|[Walkthrough: Determining Where My.Application.Log Writes Information](/dotnet/visual-basic/developing-apps/programming/log-info/walkthrough-determining-where-my-application-log-writes-information)| - -## Availability by Project Type - -|Project type|Available| -|------------------|---------------| -|Windows Application|**Yes**| -|Class Library|**Yes**| -|Console Application|**Yes**| -|Windows Control Library|**Yes**| -|Web Control Library|No| -|Windows Service|**Yes**| -|Web Site|**Yes**| - - - -## Examples - This example shows how to use the `My.Application.Log.WriteEntry` method to log tracing information. For more information, see [How to: Write Log Messages](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-write-log-messages). - - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/Form1.vb" id="Snippet11"::: - - This code example can run only within a client application. Change `My.Application.Log.WriteEntry` to `My.Log.WriteEntry` for Web applications. - + |0| +||1| +||2| +||3| +||4| +||5| +||6| +||7| +||8| +||9| + + The following table lists examples of tasks involving the `WriteEntry` method. + +|To|See| +|--------|---------| +|Write event information to the application's log listeners|[How to: Write Log Messages](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-write-log-messages)| +|Determine where `Log` writes information|[Walkthrough: Determining Where My.Application.Log Writes Information](/dotnet/visual-basic/developing-apps/programming/log-info/walkthrough-determining-where-my-application-log-writes-information)| + +## Availability by Project Type + +|Project type|Available| +|------------------|---------------| +|Windows Application|**Yes**| +|Class Library|**Yes**| +|Console Application|**Yes**| +|Windows Control Library|**Yes**| +|Web Control Library|No| +|Windows Service|**Yes**| +|Web Site|**Yes**| + + + +## Examples + This example shows how to use the `My.Application.Log.WriteEntry` method to log tracing information. For more information, see [How to: Write Log Messages](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-write-log-messages). + + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet11"::: + + This code example can run only within a client application. Change `My.Application.Log.WriteEntry` to `My.Log.WriteEntry` for Web applications. + ]]> The message type is not one of the enumeration values. @@ -549,58 +547,58 @@ Right now we only support WinApp as an application platform Message identifier, typically used for correlation. By default, related to entryType as described in the table. Writes a message to the application's log listeners. - |0| -||1| -||2| -||3| -||4| -||5| -||6| -||7| -||8| -||9| - - The following table lists examples of tasks involving the `WriteEntry` method. - -|To|See| -|--------|---------| -|Write event information to the application's log listeners|[How to: Write Log Messages](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-write-log-messages)| -|Determine where `Log` writes information|[Walkthrough: Determining Where My.Application.Log Writes Information](/dotnet/visual-basic/developing-apps/programming/log-info/walkthrough-determining-where-my-application-log-writes-information)| - -## Availability by Project Type - -|Project type|Available| -|------------------|---------------| -|Windows Application|**Yes**| -|Class Library|**Yes**| -|Console Application|**Yes**| -|Windows Control Library|**Yes**| -|Web Control Library|No| -|Windows Service|**Yes**| -|Web Site|**Yes**| - - - -## Examples - This example shows how to use the `My.Application.Log.WriteEntry` method to log tracing information. For more information, see [How to: Write Log Messages](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-write-log-messages). - - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/Form1.vb" id="Snippet11"::: - - This code example can run only within a client application. Change `My.Application.Log.WriteEntry` to `My.Log.WriteEntry` for Web applications. - + |0| +||1| +||2| +||3| +||4| +||5| +||6| +||7| +||8| +||9| + + The following table lists examples of tasks involving the `WriteEntry` method. + +|To|See| +|--------|---------| +|Write event information to the application's log listeners|[How to: Write Log Messages](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-write-log-messages)| +|Determine where `Log` writes information|[Walkthrough: Determining Where My.Application.Log Writes Information](/dotnet/visual-basic/developing-apps/programming/log-info/walkthrough-determining-where-my-application-log-writes-information)| + +## Availability by Project Type + +|Project type|Available| +|------------------|---------------| +|Windows Application|**Yes**| +|Class Library|**Yes**| +|Console Application|**Yes**| +|Windows Control Library|**Yes**| +|Web Control Library|No| +|Windows Service|**Yes**| +|Web Site|**Yes**| + + + +## Examples + This example shows how to use the `My.Application.Log.WriteEntry` method to log tracing information. For more information, see [How to: Write Log Messages](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-write-log-messages). + + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet11"::: + + This code example can run only within a client application. Change `My.Application.Log.WriteEntry` to `My.Log.WriteEntry` for Web applications. + ]]> The message type is not one of the enumeration values. @@ -653,58 +651,58 @@ Right now we only support WinApp as an application platform Required. Exception to log. Writes exception information to the application's log listeners. - |0| -||1| -||2| -||3| -||4| -||5| -||6| -||7| -||8| -||9| - - The following table lists examples of tasks involving the `WriteException` method. - -|To|See| -|--------|---------| -|Write exception information to the application's event log listeners.|[How to: Log Exceptions](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-log-exceptions)| -|Determine where `Log` writes information.|[Walkthrough: Determining Where My.Application.Log Writes Information](/dotnet/visual-basic/developing-apps/programming/log-info/walkthrough-determining-where-my-application-log-writes-information)| - -## Availability by Project Type - -|Project type|Available| -|------------------|---------------| -|Windows Application|**Yes**| -|Class Library|**Yes**| -|Console Application|**Yes**| -|Windows Control Library|**Yes**| -|Web Control Library|No| -|Windows Service|**Yes**| -|Web Site|**Yes**| - - - -## Examples - This example shows how to use the `My.Application.Log.WriteException` method to log exceptions. Uncomment the `Dim` and `MsgBox` lines to cause a exception. For more information, see [How to: Log Exceptions](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-log-exceptions). - - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/Form1.vb" id="Snippet10"::: - - This code example can run only within a client application. Change `My.Application.Log.WriteException` to `My.Log.WriteException` for Web applications. - + |0| +||1| +||2| +||3| +||4| +||5| +||6| +||7| +||8| +||9| + + The following table lists examples of tasks involving the `WriteException` method. + +|To|See| +|--------|---------| +|Write exception information to the application's event log listeners.|[How to: Log Exceptions](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-log-exceptions)| +|Determine where `Log` writes information.|[Walkthrough: Determining Where My.Application.Log Writes Information](/dotnet/visual-basic/developing-apps/programming/log-info/walkthrough-determining-where-my-application-log-writes-information)| + +## Availability by Project Type + +|Project type|Available| +|------------------|---------------| +|Windows Application|**Yes**| +|Class Library|**Yes**| +|Console Application|**Yes**| +|Windows Control Library|**Yes**| +|Web Control Library|No| +|Windows Service|**Yes**| +|Web Site|**Yes**| + + + +## Examples + This example shows how to use the `My.Application.Log.WriteException` method to log exceptions. Uncomment the `Dim` and `MsgBox` lines to cause a exception. For more information, see [How to: Log Exceptions](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-log-exceptions). + + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet10"::: + + This code example can run only within a client application. Change `My.Application.Log.WriteException` to `My.Log.WriteException` for Web applications. + ]]> @@ -754,58 +752,58 @@ Right now we only support WinApp as an application platform String to append to the message. By default, this is an empty string. Writes exception information to the application's log listeners. - |0| -||1| -||2| -||3| -||4| -||5| -||6| -||7| -||8| -||9| - - The following table lists examples of tasks involving the `WriteException` method. - -|To|See| -|--------|---------| -|Write exception information to the application's event log listeners.|[How to: Log Exceptions](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-log-exceptions)| -|Determine where `Log` writes information.|[Walkthrough: Determining Where My.Application.Log Writes Information](/dotnet/visual-basic/developing-apps/programming/log-info/walkthrough-determining-where-my-application-log-writes-information)| - -## Availability by Project Type - -|Project type|Available| -|------------------|---------------| -|Windows Application|**Yes**| -|Class Library|**Yes**| -|Console Application|**Yes**| -|Windows Control Library|**Yes**| -|Web Control Library|No| -|Windows Service|**Yes**| -|Web Site|**Yes**| - - - -## Examples - This example shows how to use the `My.Application.Log.WriteException` method to log exceptions. Uncomment the `Dim` and `MsgBox` lines to cause a exception. For more information, see [How to: Log Exceptions](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-log-exceptions). - - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/Form1.vb" id="Snippet10"::: - - This code example can run only within a client application. Change `My.Application.Log.WriteException` to `My.Log.WriteException` for Web applications. - + |0| +||1| +||2| +||3| +||4| +||5| +||6| +||7| +||8| +||9| + + The following table lists examples of tasks involving the `WriteException` method. + +|To|See| +|--------|---------| +|Write exception information to the application's event log listeners.|[How to: Log Exceptions](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-log-exceptions)| +|Determine where `Log` writes information.|[Walkthrough: Determining Where My.Application.Log Writes Information](/dotnet/visual-basic/developing-apps/programming/log-info/walkthrough-determining-where-my-application-log-writes-information)| + +## Availability by Project Type + +|Project type|Available| +|------------------|---------------| +|Windows Application|**Yes**| +|Class Library|**Yes**| +|Console Application|**Yes**| +|Windows Control Library|**Yes**| +|Web Control Library|No| +|Windows Service|**Yes**| +|Web Site|**Yes**| + + + +## Examples + This example shows how to use the `My.Application.Log.WriteException` method to log exceptions. Uncomment the `Dim` and `MsgBox` lines to cause a exception. For more information, see [How to: Log Exceptions](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-log-exceptions). + + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet10"::: + + This code example can run only within a client application. Change `My.Application.Log.WriteException` to `My.Log.WriteException` for Web applications. + ]]> @@ -858,58 +856,58 @@ Right now we only support WinApp as an application platform Message identifier, typically used for correlation. By default, related to entryType as described in the table in the Remarks section. Writes exception information to the application's log listeners. - |0| -||1| -||2| -||3| -||4| -||5| -||6| -||7| -||8| -||9| - - The following table lists examples of tasks involving the `WriteException` method. - -|To|See| -|--------|---------| -|Write exception information to the application's event log listeners.|[How to: Log Exceptions](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-log-exceptions)| -|Determine where `Log` writes information.|[Walkthrough: Determining Where My.Application.Log Writes Information](/dotnet/visual-basic/developing-apps/programming/log-info/walkthrough-determining-where-my-application-log-writes-information)| - -## Availability by Project Type - -|Project type|Available| -|------------------|---------------| -|Windows Application|**Yes**| -|Class Library|**Yes**| -|Console Application|**Yes**| -|Windows Control Library|**Yes**| -|Web Control Library|No| -|Windows Service|**Yes**| -|Web Site|**Yes**| - - - -## Examples - This example shows how to use the `My.Application.Log.WriteException` method to log exceptions. Uncomment the `Dim` and `MsgBox` lines to cause a exception. For more information, see [How to: Log Exceptions](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-log-exceptions). - - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyApplicationLog/VB/Form1.vb" id="Snippet10"::: - - This code example can run only within a client application. Change `My.Application.Log.WriteException` to `My.Log.WriteException` for Web applications. - + |0| +||1| +||2| +||3| +||4| +||5| +||6| +||7| +||8| +||9| + + The following table lists examples of tasks involving the `WriteException` method. + +|To|See| +|--------|---------| +|Write exception information to the application's event log listeners.|[How to: Log Exceptions](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-log-exceptions)| +|Determine where `Log` writes information.|[Walkthrough: Determining Where My.Application.Log Writes Information](/dotnet/visual-basic/developing-apps/programming/log-info/walkthrough-determining-where-my-application-log-writes-information)| + +## Availability by Project Type + +|Project type|Available| +|------------------|---------------| +|Windows Application|**Yes**| +|Class Library|**Yes**| +|Console Application|**Yes**| +|Windows Control Library|**Yes**| +|Web Control Library|No| +|Windows Service|**Yes**| +|Web Site|**Yes**| + + + +## Examples + This example shows how to use the `My.Application.Log.WriteException` method to log exceptions. Uncomment the `Dim` and `MsgBox` lines to cause a exception. For more information, see [How to: Log Exceptions](/dotnet/visual-basic/developing-apps/programming/log-info/how-to-log-exceptions). + + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/ApplicationBase/Overview/Form1.vb" id="Snippet10"::: + + This code example can run only within a client application. Change `My.Application.Log.WriteException` to `My.Log.WriteException` for Web applications. + ]]> diff --git a/xml/Microsoft.VisualBasic.MyServices/ClipboardProxy.xml b/xml/Microsoft.VisualBasic.MyServices/ClipboardProxy.xml index 424548653a4..51b782373d3 100644 --- a/xml/Microsoft.VisualBasic.MyServices/ClipboardProxy.xml +++ b/xml/Microsoft.VisualBasic.MyServices/ClipboardProxy.xml @@ -68,7 +68,7 @@ ## Examples This example reads text from the Clipboard into the string `textOnClipboard`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyClipboard/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Computer/Clipboard/Class1.vb" id="Snippet6"::: This example will fail if there is no text on the Clipboard. @@ -196,7 +196,7 @@ My.Computer.Clipboard.Clear() ## Examples This example determines whether the Clipboard contains audio data and displays the result. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefClipbd/VB/Class1.vb" id="Snippet10"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.MyServices/ClipboardProxy/ContainsAudio/Class1.vb" id="Snippet10"::: ]]> @@ -265,7 +265,7 @@ My.Computer.Clipboard.Clear() ## Examples This example checks for data in the custom format `specialFormat`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefClipbd/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.MyServices/ClipboardProxy/ContainsAudio/Class1.vb" id="Snippet6"::: Replace `specialFormat` with the name of the custom format you wish to check. @@ -334,7 +334,7 @@ My.Computer.Clipboard.Clear() ## Examples This example determines if there is a file drop list on the Clipboard and adds the list to the `ListBox.lstFiles` if they exist. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefClipbd/VB/Class1.vb" id="Snippet12"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.MyServices/ClipboardProxy/ContainsAudio/Class1.vb" id="Snippet12"::: This code will create an exception if there is no `ListBox` named `lstFiles`. @@ -400,7 +400,7 @@ My.Computer.Clipboard.Clear() ## Examples This example checks to see if there is an image on the Clipboard and, if so, gets the image and adds it to `PictureBox1`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefClipbd/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.MyServices/ClipboardProxy/ContainsAudio/Class1.vb" id="Snippet8"::: This example depends on the existence of a `PictureBox` named `PictureBox1`. @@ -476,7 +476,7 @@ My.Computer.Clipboard.Clear() ## Examples This example determines if HTML text is stored on the Clipboard and reads from the Clipboard if it does. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefClipbd/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.MyServices/ClipboardProxy/ContainsAudio/Class1.vb" id="Snippet5"::: ]]> @@ -546,7 +546,7 @@ My.Computer.Clipboard.Clear() ## Examples This example determines if HTML text is stored on the Clipboard and reads from the Clipboard if it does. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefClipbd/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.MyServices/ClipboardProxy/ContainsAudio/Class1.vb" id="Snippet5"::: ]]> @@ -610,7 +610,7 @@ My.Computer.Clipboard.Clear() ## Examples This example retrieves an audio stream from the Clipboard and plays it. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefClipbd/VB/Class1.vb" id="Snippet11"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.MyServices/ClipboardProxy/ContainsAudio/Class1.vb" id="Snippet11"::: ]]> @@ -684,7 +684,7 @@ My.Computer.Clipboard.Clear() ## Examples This example reads data in the format `specialformat` from the Clipboard and writes it to file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefClipbd/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.MyServices/ClipboardProxy/ContainsAudio/Class1.vb" id="Snippet7"::: Replace `specialformat` with the custom data format you wish to retrieve. @@ -758,7 +758,7 @@ My.Computer.Clipboard.Clear() ## Examples This example reads data from the Clipboard in the form of an and then writes it to a file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefClipbd/VB/Class1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.MyServices/ClipboardProxy/ContainsAudio/Class1.vb" id="Snippet1"::: Replace `C:\mylogfile` with the name of the file to which you want to write. @@ -829,7 +829,7 @@ My.Computer.Clipboard.Clear() ## Examples This example determines if there is a file drop list on the Clipboard and adds the list to the `ListBox.lstFiles` if they exist. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefClipbd/VB/Class1.vb" id="Snippet9"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.MyServices/ClipboardProxy/ContainsAudio/Class1.vb" id="Snippet9"::: This code creates an exception if there is no `ListBox` named `lstFiles`. @@ -895,7 +895,7 @@ My.Computer.Clipboard.Clear() ## Examples This example checks to see if there is an image on the Clipboard before retrieving it and assigning it to `PictureBox1`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefClipbd/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.MyServices/ClipboardProxy/ContainsAudio/Class1.vb" id="Snippet4"::: For this example to function correctly, there must be a `PictureBox` named `PictureBox1` on your form. @@ -971,7 +971,7 @@ My.Computer.Clipboard.Clear() ## Examples This example reads text from the Clipboard into the string `textOnClipboard`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyClipboard/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Computer/Clipboard/Class1.vb" id="Snippet6"::: This example fails if there is no text on the Clipboard. @@ -1042,7 +1042,7 @@ My.Computer.Clipboard.Clear() ## Examples This example reads text from the Clipboard into the string `textOnClipboard`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyClipboard/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Computer/Clipboard/Class1.vb" id="Snippet6"::: This example fails if there is no text on the Clipboard. @@ -1123,7 +1123,7 @@ My.Computer.Clipboard.Clear() ## Examples This example creates the byte array `musicReader`, reads the file `cool.wav` into it, and then writes it to the Clipboard. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefClipbd/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.MyServices/ClipboardProxy/ContainsAudio/Class1.vb" id="Snippet2"::: Replace `cool.wav` with the name and path of the file you wish to read. @@ -1194,7 +1194,7 @@ My.Computer.Clipboard.Clear() ## Examples This example creates the byte array `musicReader`, reads the file `cool.wav` into it, and then writes it to the Clipboard. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefClipbd/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.MyServices/ClipboardProxy/ContainsAudio/Class1.vb" id="Snippet2"::: Replace `cool.wav` with the name and path of the file you wish to read. @@ -1269,7 +1269,7 @@ My.Computer.Clipboard.Clear() ## Examples This example writes the `DataObject.dataChunk` to the Clipboard in the custom format `specialFormat`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyClipboard/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Computer/Clipboard/Class1.vb" id="Snippet7"::: This example depends on the existence of the custom data format `specialFormat`. @@ -1379,7 +1379,7 @@ My.Computer.Clipboard.Clear() ## Examples This example writes the data object `dataChunk` to the Clipboard. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyClipboard/VB/Class1.vb" id="Snippet9"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Computer/Clipboard/Class1.vb" id="Snippet9"::: This example depends on the existence of the data object `dataChunk`. @@ -1453,7 +1453,7 @@ My.Computer.Clipboard.Clear() ## Examples This example gets the collection of file names from **MyDocuments**, converts it to a file drop list, and writes it to the Clipboard. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefClipbd/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.MyServices/ClipboardProxy/ContainsAudio/Class1.vb" id="Snippet3"::: ]]> @@ -1523,7 +1523,7 @@ My.Computer.Clipboard.Clear() ## Examples This example writes the image `coolPicture` to the Clipboard. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyClipboard/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Computer/Clipboard/Class1.vb" id="Snippet8"::: This example depends on the existence of the image `coolPicture`. @@ -1607,7 +1607,7 @@ My.Computer.Clipboard.Clear() ## Examples This example writes the string `This is a test string.` to the Clipboard. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyClipboard/VB/Class1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Computer/Clipboard/Class1.vb" id="Snippet1"::: ]]> @@ -1687,7 +1687,7 @@ My.Computer.Clipboard.Clear() ## Examples This example writes the string `This is a test string.` to the Clipboard. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyClipboard/VB/Class1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/Computer/Clipboard/Class1.vb" id="Snippet1"::: ]]> diff --git a/xml/Microsoft.VisualBasic.MyServices/FileSystemProxy.xml b/xml/Microsoft.VisualBasic.MyServices/FileSystemProxy.xml index 054bb8b08fe..3cc0a5bb740 100644 --- a/xml/Microsoft.VisualBasic.MyServices/FileSystemProxy.xml +++ b/xml/Microsoft.VisualBasic.MyServices/FileSystemProxy.xml @@ -74,7 +74,7 @@ ## Examples This example checks to determine whether the folder `C:\backup\logs` exists and checks its properties. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet23"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet23"::: ]]> @@ -139,11 +139,11 @@ ## Examples This example combines a directory path and file name to create a properly formatted path. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet3"::: This example combines two paths to create a properly formatted path. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet4"::: This example returns `C:\Dir1\Dir2\Dir4\Dir5\File.txt`. @@ -222,7 +222,7 @@ ## Examples The following example copies the directory `TestDirectory1` into `TestDirectory2`, overwriting existing files. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet49"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet49"::: Replace `C:\TestDirectory1` and `C:\TestDirectory2` with the path and name of the directory you wish to copy and the location to which you wish to copy it. @@ -302,7 +302,7 @@ ## Examples The following example copies the directory `TestDirectory1` into `TestDirectory2`, overwriting existing files. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet49"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet49"::: Replace `C:\TestDirectory1` and `C:\TestDirectory2` with the path and name of the directory you wish to copy and the location to which you wish to copy it. @@ -385,7 +385,7 @@ ## Examples The following example copies the directory `TestDirectory1` into `TestDirectory2`, overwriting existing files. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet49"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet49"::: Replace `C:\TestDirectory1` and `C:\TestDirectory2` with the path and name of the directory you wish to copy and the location to which you wish to copy it. @@ -467,7 +467,7 @@ ## Examples The following example copies the directory `TestDirectory1` into `TestDirectory2`, overwriting existing files. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet49"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet49"::: Replace `C:\TestDirectory1` and `C:\TestDirectory2` with the path and name of the directory you wish to copy and the location to which you wish to copy it. @@ -560,13 +560,13 @@ ## Examples This example copies the file `Test.txt` to the directory `TestFiles2` without overwriting existing files. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet15"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet15"::: Replace the file paths with the paths you want to use in your code. This example copies the file `Test.txt` to the directory `TestFiles2` and renames it `NewFile.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet16"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet16"::: Replace the file paths with the paths you want to use in your code. @@ -647,13 +647,13 @@ ## Examples This example copies the file `Test.txt` to the directory `TestFiles2` without overwriting existing files. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet15"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet15"::: Replace the file paths with the paths you want to use in your code. This example copies the file `Test.txt` to the directory `TestFiles2` and renames it `NewFile.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet16"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet16"::: Replace the file paths with the paths you want to use in your code. @@ -735,13 +735,13 @@ ## Examples This example copies the file `Test.txt` to the directory `TestFiles2` without overwriting existing files. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet15"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet15"::: Replace the file paths with the paths you want to use in your code. This example copies the file `Test.txt` to the directory `TestFiles2` and renames it `NewFile.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet16"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet16"::: Replace the file paths with the paths you want to use in your code. @@ -824,13 +824,13 @@ ## Examples This example copies the file `Test.txt` to the directory `TestFiles2` without overwriting existing files. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet15"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet15"::: Replace the file paths with the paths you want to use in your code. This example copies the file `Test.txt` to the directory `TestFiles2` and renames it `NewFile.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet16"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet16"::: Replace the file paths with the paths you want to use in your code. @@ -908,7 +908,7 @@ ## Examples This example creates the directory, `NewDirectory`, in `C:\Documents and Settings\All Users\Documents`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet17"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet17"::: ]]> @@ -966,11 +966,11 @@ ## Examples This example returns the current directory and displays it in a message box. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet18"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet18"::: This example sets the current directory to `C:\TestDirectory`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet19"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet19"::: ]]> @@ -1031,19 +1031,19 @@ ## Examples The example deletes the directory `OldDirectory` only if it is empty. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet56"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet56"::: This example deletes the directory `OldDirectory` and all of its contents. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet57"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet57"::: This example deletes the directory `OldDirectory` and all of its contents, asking the user to confirm the deletion, but does not send the contents to the **Recycle Bin**. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet58"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet58"::: This example deletes the directory `OldDirectory` and all of its contents, sending them to the **Recycle Bin**, but does not show the progress of the operation. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet59"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet59"::: ]]> @@ -1111,19 +1111,19 @@ ## Examples The example deletes the directory `OldDirectory` only if it is empty. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet56"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet56"::: This example deletes the directory `OldDirectory` and all of its contents. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet57"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet57"::: This example deletes the directory `OldDirectory` and all of its contents, asking the user to confirm the deletion, but does not send the contents to the **Recycle Bin**. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet58"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet58"::: This example deletes the directory `OldDirectory` and all of its contents, sending them to the **Recycle Bin**, but does not show the progress of the operation. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet59"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet59"::: ]]> @@ -1194,19 +1194,19 @@ ## Examples The example deletes the directory `OldDirectory` only if it is empty. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet56"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet56"::: This example deletes the directory `OldDirectory` and all of its contents. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet57"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet57"::: This example deletes the directory `OldDirectory` and all of its contents, asking the user to confirm the deletion, but does not send the contents to the **Recycle Bin**. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet58"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet58"::: This example deletes the directory `OldDirectory` and all of its contents, sending them to the **Recycle Bin**, but does not show the progress of the operation. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet59"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet59"::: ]]> @@ -1285,15 +1285,15 @@ ## Examples This example deletes the file `Test.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet3"::: This example deletes the file `Test.txt` and allows the user to confirm that the file should be deleted. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet4"::: This example deletes the file `Test.txt` and sends it to the **Recycle Bin**. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet5"::: ]]> @@ -1366,15 +1366,15 @@ ## Examples This example deletes the file `Test.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet3"::: This example deletes the file `Test.txt` and allows the user to confirm that the file should be deleted. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet4"::: This example deletes the file `Test.txt` and sends it to the **Recycle Bin**. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet5"::: ]]> @@ -1451,15 +1451,15 @@ ## Examples This example deletes the file `Test.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet3"::: This example deletes the file `Test.txt` and allows the user to confirm that the file should be deleted. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet4"::: This example deletes the file `Test.txt` and sends it to the **Recycle Bin**. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet5"::: ]]> @@ -1523,7 +1523,7 @@ ## Examples This example determines whether the directory `C:\backup\logs` exists and checks its properties. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet13"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet13"::: ]]> @@ -1575,7 +1575,7 @@ ## Examples This example displays the available drive names in a message box. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet19"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet19"::: ]]> @@ -1631,7 +1631,7 @@ ## Examples This example checks to see whether or not the file `Check.txt` exists and supplies the information in a message box. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet20"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet20"::: ]]> @@ -1710,7 +1710,7 @@ ## Examples This example searches the directory `C:\TestDir` for any files containing the string `"sample string"` and displays the results in `ListBox1`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet12"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet12"::: In order to work, the project must contain a `ListBox` named `ListBox1`. @@ -1800,7 +1800,7 @@ ## Examples This example searches the directory `C:\TestDir` for any files containing the string `"sample string"` and displays the results in `ListBox1`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet12"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet12"::: In order to work, the project must contain a `ListBox` named `ListBox1`. @@ -1881,7 +1881,7 @@ ## Examples The following example returns all the directories in the directory structure that contain the word `Logs` in their names and adds them to `ListBox1`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet10"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet10"::: This example requires that you have a `ListBox` named `ListBox1` on your form. @@ -1967,7 +1967,7 @@ ## Examples The following example returns all the directories in the directory structure that contain the word `Logs` in their names and adds them to `ListBox1`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet10"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet10"::: This example requires that you have a `ListBox` named `ListBox1` on your form. @@ -2035,7 +2035,7 @@ ## Examples This example gets a object for the directory `C:\Documents and Settings` and displays the directory's creation time, last access time, and last write time. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet7"::: ]]> @@ -2097,7 +2097,7 @@ ## Examples This example obtains a object for the C drive and uses it to display information about the drive. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet11"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet11"::: For information on the different drive types, see . @@ -2167,7 +2167,7 @@ ## Examples This example retrieves a object for the file `MyLogFile.log` and uses it to report the file's full name, last access time, and length. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet1"::: ]]> @@ -2246,13 +2246,13 @@ ## Examples The following example returns all files in the directory and adds them to `ListBox1`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet5"::: This example requires that you have a `ListBox` named `ListBox1` on your form. This example returns all files in the directory with the extension `.txt` and adds them to `ListBox1`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet6"::: This example requires that you have a `ListBox` named `ListBox1` on your form. @@ -2339,13 +2339,13 @@ ## Examples The following example returns all files in the directory and adds them to `ListBox1`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet5"::: This example requires that you have a `ListBox` named `ListBox1` on your form. This example returns all files in the directory with the extension `.txt` and adds them to `ListBox1`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet6"::: This example requires that you have a `ListBox` named `ListBox1` on your form. @@ -2423,7 +2423,7 @@ ## Examples The following example parses a file path and returns the name of the file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet21"::: Replace the path `C:\Testdirectory\Testfile` with the path you wish to parse. @@ -2479,7 +2479,7 @@ ## Examples This example gets the parent path for `C:\Backups\Tmp\Test`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet17"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet17"::: ]]> @@ -2537,7 +2537,7 @@ ## Examples This example creates a temp file and returns its path. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet12"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet12"::: ]]> @@ -2602,11 +2602,11 @@ ## Examples This example moves `Directory1` inside `Directory2`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet81"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet81"::: This example moves `Directory1` inside `Directory2`, overwriting the directory if it already exists. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet82"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet82"::: ]]> @@ -2676,11 +2676,11 @@ ## Examples This example moves `Directory1` inside `Directory2`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet81"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet81"::: This example moves `Directory1` inside `Directory2`, overwriting the directory if it already exists. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet82"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet82"::: ]]> @@ -2752,11 +2752,11 @@ ## Examples This example moves `Directory1` inside `Directory2`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet81"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet81"::: This example moves `Directory1` inside `Directory2`, overwriting the directory if it already exists. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet82"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet82"::: ]]> @@ -2828,11 +2828,11 @@ ## Examples This example moves `Directory1` inside `Directory2`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet81"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet81"::: This example moves `Directory1` inside `Directory2`, overwriting the directory if it already exists. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet82"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet82"::: ]]> @@ -2922,11 +2922,11 @@ ## Examples This example moves the file `Test.txt` from `TestDir1` to `TestDir2`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet86"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet86"::: This example moves the file `Test.txt` from `TestDir1` to `TestDir2` and renames it `Test2.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet87"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet87"::: ]]> @@ -3000,11 +3000,11 @@ ## Examples This example moves the file `Test.txt` from `TestDir1` to `TestDir2`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet86"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet86"::: This example moves the file `Test.txt` from `TestDir1` to `TestDir2` and renames it `Test2.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet87"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet87"::: ]]> @@ -3080,11 +3080,11 @@ ## Examples This example moves the file `Test.txt` from `TestDir1` to `TestDir2`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet86"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet86"::: This example moves the file `Test.txt` from `TestDir1` to `TestDir2` and renames it `Test2.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet87"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet87"::: ]]> @@ -3160,11 +3160,11 @@ ## Examples This example moves the file `Test.txt` from `TestDir1` to `TestDir2`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet86"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet86"::: This example moves the file `Test.txt` from `TestDir1` to `TestDir2` and renames it `Test2.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet87"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet87"::: ]]> @@ -3246,7 +3246,7 @@ ## Examples This example opens the `TextFieldParser.reader` and uses it to read from `C:\TestFolder1\Test1.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet18"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet18"::: ]]> @@ -3331,7 +3331,7 @@ ## Examples This example opens the `TextFieldParser.reader` and uses it to read from `C:\TestFolder1\Test1.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet18"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet18"::: ]]> @@ -3416,7 +3416,7 @@ ## Examples This example opens the `TextFieldParser.reader` and uses it to read from `C:\TestFolder1\Test1.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet18"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet18"::: ]]> @@ -3501,7 +3501,7 @@ ## Examples This example opens the file `Testfile.txt`, reads a line from it, and displays the line in a `MessageBox`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet2"::: ]]> @@ -3571,7 +3571,7 @@ ## Examples This example opens the file `Testfile.txt`, reads a line from it, and displays the line in a `MessageBox`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet2"::: ]]> @@ -3656,7 +3656,7 @@ ## Examples This example opens a with the `My.Computer.FileSystem.OpenTextFileWriter` method and uses it to write a string to a text file with the `WriteLine` method of the `StreamWriter` class. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet14"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet14"::: ]]> @@ -3731,7 +3731,7 @@ ## Examples This example opens a with the `My.Computer.FileSystem.OpenTextFileWriter` method and uses it to write a string to a text file with the `WriteLine` method of the `StreamWriter` class. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet14"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet14"::: ]]> @@ -3798,7 +3798,7 @@ ## Examples This example reads from the file `C:/Documents and Settings/selfportrait.jpg.` - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet33"::: ]]> @@ -3882,11 +3882,11 @@ ## Examples This example reads the contents of `Test.txt` into a string and then displays it in a message box. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet8"::: This example reads the contents of the ASCII file `Test.txt` into a string and then displays it in a message box. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet9"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet9"::: ]]> @@ -3970,11 +3970,11 @@ ## Examples This example reads the contents of `Test.txt` into a string and then displays it in a message box. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet8"::: This example reads the contents of the ASCII file `Test.txt` into a string and then displays it in a message box. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet9"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet9"::: ]]> @@ -4045,7 +4045,7 @@ ## Examples This example renames the `Test` directory to `SecondTest`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet13"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet13"::: ]]> @@ -4122,7 +4122,7 @@ ## Examples This example renames the file `Test.txt` to `SecondTest.txt`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet1"::: Change "`C:\Test.txt`" to the path and file name of the file that you want to rename. @@ -4184,7 +4184,7 @@ ## Examples This example returns the file path for the user's Desktop directory and displays it. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet80"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet80"::: ]]> @@ -4252,7 +4252,7 @@ ## Examples This example appends the data array `CustomerData` to the file `CollectedData`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet50"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet50"::: ]]> @@ -4344,11 +4344,11 @@ ## Examples This example writes the line `"This is new text to be added."` to the file `Test.txt`, overwriting any existing text in the file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet21"::: This example writes the names of the files in the `Documents and Settings` folder to `FileList.txt`, inserting a carriage return between each for better readability. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet22"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet22"::: ]]> @@ -4432,11 +4432,11 @@ ## Examples This example writes the line `"This is new text to be added."` to the file `Test.txt`, overwriting any existing text in the file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet21"::: This example writes the names of the files in the `Documents and Settings` folder to `FileList.txt`, inserting a carriage return between each for better readability. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbRefFile/VB/Class1.vb" id="Snippet22"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.FileIO/FileSystem/CombinePath/Class1.vb" id="Snippet22"::: ]]> diff --git a/xml/Microsoft.VisualBasic.MyServices/RegistryProxy.xml b/xml/Microsoft.VisualBasic.MyServices/RegistryProxy.xml index 8b2ae1e7c62..1c66998eba4 100644 --- a/xml/Microsoft.VisualBasic.MyServices/RegistryProxy.xml +++ b/xml/Microsoft.VisualBasic.MyServices/RegistryProxy.xml @@ -54,7 +54,7 @@ ## Examples This example reads the value `Name` from `HKEY_CURRENT_USER\Software\MyApp` and displays it in a message box. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyRegistry/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/Registry/Class1.vb" id="Snippet8"::: ]]> @@ -130,7 +130,7 @@ ## Examples This example gets the names of the subkeys for the `ClassesRoot` registry key and adds them to `ListBox1`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyRegistry/VB/Class1.vb" id="Snippet10"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/Registry/Class1.vb" id="Snippet10"::: This example requires that you have a `ListBox` named `ListBox1` in your project. @@ -210,7 +210,7 @@ ## Examples This example creates the subkey `MyDeviceSettings`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyRegistry/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/Registry/Class1.vb" id="Snippet5"::: ]]> @@ -288,7 +288,7 @@ ## Examples This example deletes the subkey `Software\MyCompany\Preferences\UserData`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyRegistry/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/Registry/Class1.vb" id="Snippet2"::: ]]> @@ -392,7 +392,7 @@ ## Examples This example reads the value `Name` from `HKEY_CURRENT_USER\Software\MyApp` and displays it in a `MessageBox`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyRegistry/VB/Class1.vb" id="Snippet9"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/Registry/Class1.vb" id="Snippet9"::: ]]> @@ -472,7 +472,7 @@ ## Examples This example opens the subkey `Software\MyCompany\Preferences` and sets the value `FontColor` to `"red"`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyRegistry/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/Registry/Class1.vb" id="Snippet3"::: ]]> @@ -552,7 +552,7 @@ ## Examples This example gets the value `ThisSoftware` from the `MyCompany` subkey. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyRegistry/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/Registry/Class1.vb" id="Snippet7"::: ]]> @@ -627,7 +627,7 @@ ## Examples This example sets the value `FontColor` to "red" in the key `HKEY_LOCAL_MACHINE\Software\MyCompany\Preferences`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyRegistry/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/Registry/Class1.vb" id="Snippet3"::: ]]> @@ -706,7 +706,7 @@ ## Examples This example sets the value `FontColor` to "red" in the key `HKEY_LOCAL_MACHINE\Software\MyCompany\Preferences`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyRegistry/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/Registry/Class1.vb" id="Snippet3"::: ]]> @@ -798,7 +798,7 @@ ## Examples This example counts and displays the number of values in the registry key. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMyRegistry/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/Registry/Class1.vb" id="Snippet4"::: ]]> diff --git a/xml/Microsoft.VisualBasic.MyServices/SpecialDirectoriesProxy.xml b/xml/Microsoft.VisualBasic.MyServices/SpecialDirectoriesProxy.xml index c6dbe75cf35..ffb288bf9dd 100644 --- a/xml/Microsoft.VisualBasic.MyServices/SpecialDirectoriesProxy.xml +++ b/xml/Microsoft.VisualBasic.MyServices/SpecialDirectoriesProxy.xml @@ -66,7 +66,7 @@ ## Examples This example returns the `filePath` for the user's Desktop directory and displays it. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet80"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet80"::: ]]> @@ -118,7 +118,7 @@ ## Examples This example displays the path to the Application Data directory for the all users in a . - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet79"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet79"::: ]]> @@ -171,7 +171,7 @@ ## Examples This example displays the path to the Application Data directory for the current user in a . - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet48"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet48"::: ]]> @@ -224,7 +224,7 @@ ## Examples This example displays the path for the Desktop directory in a . - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet60"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet60"::: ]]> @@ -277,7 +277,7 @@ ## Examples This example displays the path for the My Documents directory in a . - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet53"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet53"::: ]]> @@ -330,7 +330,7 @@ ## Examples This example displays the path for the My Music directory in a . - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet26"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet26"::: ]]> @@ -383,7 +383,7 @@ ## Examples This example displays the path for the MyPictures directory in a . - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet77"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet77"::: ]]> @@ -436,7 +436,7 @@ ## Examples This example displays the path for the **Program Files** directory in a . - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet90"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet90"::: ]]> @@ -489,7 +489,7 @@ ## Examples This example displays the path for the Programs directory in a . - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet61"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet61"::: ]]> @@ -542,7 +542,7 @@ ## Examples This example displays the path for the Temp directory in a . - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnMyFileSystem/VB/Class1.vb" id="Snippet31"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic.Devices/ServerComputer/FileSystem/Class1.vb" id="Snippet31"::: ]]> diff --git a/xml/Microsoft.VisualBasic/Collection.xml b/xml/Microsoft.VisualBasic/Collection.xml index 62032333019..caf7b8f0d76 100644 --- a/xml/Microsoft.VisualBasic/Collection.xml +++ b/xml/Microsoft.VisualBasic/Collection.xml @@ -114,7 +114,7 @@ Dim coll As New Microsoft.VisualBasic.Collection() To see how this works, choose the **Add Class** command from the **Project** menu and declare a public variable called `instanceName` at the module level of `nameClass` (type `Public instanceName`) to hold the names of each instance. Leave the default name as `nameClass`. Copy and paste the following code into the **General** section of another module, and then start it with the statement `classNamer` in another procedure. (This example works only with host applications that support classes.) - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Class1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Class1.vb" id="Snippet1"::: ]]> @@ -227,7 +227,7 @@ Dim coll As New Microsoft.VisualBasic.Collection() ## Examples The following example uses the `Add` method to add `child` objects - instances of a class called `child` containing a `Public` property `name` - to a collection called `family`. To see how this works, create a with two controls and set their properties to `Add` and `List`. Add the `child` class definition and the `family` declaration to the form code. Modify the `_Click` event handlers for the **Add** and **List** buttons as shown. The **Add** button allows you to add children. The **List** button displays the names of all the children. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Form1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Form1.vb" id="Snippet2"::: ]]> @@ -276,7 +276,7 @@ Dim coll As New Microsoft.VisualBasic.Collection() ## Examples - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Class1.vb" id="Snippet3"::: ]]> @@ -329,7 +329,7 @@ Dim coll As New Microsoft.VisualBasic.Collection() ## Examples - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Class1.vb" id="Snippet4"::: If you intend to search the collection for elements using their keys, remember to supply the `Key` argument every time you call the `Add` method. @@ -382,8 +382,8 @@ Dim coll As New Microsoft.VisualBasic.Collection() ## Examples This example illustrates the use of the `Count` property to display the number of elements in a object in the variable `birthdays`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Class1.vb" id="Snippet5"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Class1.vb" id="Snippet5"::: +:::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Class1.vb" id="Snippet6"::: The `Collection` object is one-based, which means that the index values of the elements range from 1 through the value of the `Count` property. @@ -443,7 +443,7 @@ Dim coll As New Microsoft.VisualBasic.Collection() ## Examples The following example shows how to use `GetEnumerator` to retrieve all the elements of a `Collection` object. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Class1.vb" id="Snippet7"::: `GetEnumerator` constructs and returns an enumerator object, which implements the interface of the namespace. The enumerator object exposes the property and the and methods. For more information, see [For Each...Next Statement](/dotnet/visual-basic/language-reference/statements/for-each-next-statement). @@ -520,8 +520,8 @@ MsgBox(CStr(customers(1))) ## Examples The following example uses the `Item` property to retrieve a reference to an object in a collection. It creates `birthdays` as a `Collection` object and then retrieves the object representing Bill's birthday, using the key `"Bill"` as the `Index` argument. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Class1.vb" id="Snippet5"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Class1.vb" id="Snippet5"::: +:::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Class1.vb" id="Snippet8"::: Note that the first call explicitly specifies the `Item` property, but the second does not. Both calls work because the `Item` property is the default property for a `Collection` object. @@ -593,8 +593,8 @@ MsgBox(CStr(customers(1))) ## Examples The following example uses the `Item` property to retrieve a reference to an object in a collection. It creates `birthdays` as a `Collection` object and then retrieves the object representing Bill's birthday, using the key `"Bill"` as the `Index` argument. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Class1.vb" id="Snippet5"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Class1.vb" id="Snippet5"::: +:::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Class1.vb" id="Snippet8"::: Note that the first call explicitly specifies the `Item` property, but the second does not. Both calls work because the `Item` property is the default property for a `Collection` object. @@ -661,8 +661,8 @@ MsgBox(CStr(customers(1))) ## Examples The following example uses the `Item` property to retrieve a reference to an object in a collection. It creates `birthdays` as a `Collection` object and then retrieves the object representing Bill's birthday, using the key `"Bill"` as the `Index` argument. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Class1.vb" id="Snippet5"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Class1.vb" id="Snippet5"::: +:::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Class1.vb" id="Snippet8"::: Note that the first call explicitly specifies the `Item` property, but the second does not. Both calls work because the `Item` property is the default property for a `Collection` object. @@ -726,8 +726,8 @@ MsgBox(CStr(customers(1))) ## Examples This example illustrates the use of the `Remove` method to remove objects from a object in the variable `birthdays`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Class1.vb" id="Snippet5"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Class1.vb" id="Snippet9"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Class1.vb" id="Snippet5"::: +:::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Class1.vb" id="Snippet9"::: Following the four calls to the `Add` method, the `Count` property contains 4, element `"Bill"` has index value 1, and element `"Pete"` has index value 4. @@ -786,8 +786,8 @@ MsgBox(CStr(customers(1))) ## Examples This example illustrates the use of the `Remove` method to remove objects from a object in the variable `birthdays`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Class1.vb" id="Snippet5"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCollectionObject/VB/Class1.vb" id="Snippet9"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Class1.vb" id="Snippet5"::: +:::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Collection/Overview/Class1.vb" id="Snippet9"::: Following the four calls to the `Add` method, the `Count` property contains 4, element `"Bill"` has index value 1, and element `"Pete"` has index value 4. diff --git a/xml/Microsoft.VisualBasic/ComClassAttribute.xml b/xml/Microsoft.VisualBasic/ComClassAttribute.xml index 32377d5bc7d..e546a14978c 100644 --- a/xml/Microsoft.VisualBasic/ComClassAttribute.xml +++ b/xml/Microsoft.VisualBasic/ComClassAttribute.xml @@ -56,7 +56,7 @@ ## Examples To run this example, create a new **Class Library** application and add the following code to a class module. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/Class2.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/Class2.vb" id="Snippet21"::: ]]> diff --git a/xml/Microsoft.VisualBasic/Constants.xml b/xml/Microsoft.VisualBasic/Constants.xml index 8852fd8003a..5010f4e35ba 100644 --- a/xml/Microsoft.VisualBasic/Constants.xml +++ b/xml/Microsoft.VisualBasic/Constants.xml @@ -841,7 +841,7 @@ ## Examples - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrConstants/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Constants/vbDefaultButton1/Class1.vb" id="Snippet4"::: ]]> @@ -893,7 +893,7 @@ ## Examples - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrConstants/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Constants/vbDefaultButton1/Class1.vb" id="Snippet5"::: ]]> @@ -945,7 +945,7 @@ ## Examples - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrConstants/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Constants/vbDefaultButton1/Class1.vb" id="Snippet6"::: ]]> diff --git a/xml/Microsoft.VisualBasic/Conversion.xml b/xml/Microsoft.VisualBasic/Conversion.xml index 2716c28adb6..1e1c6d10e54 100644 --- a/xml/Microsoft.VisualBasic/Conversion.xml +++ b/xml/Microsoft.VisualBasic/Conversion.xml @@ -50,7 +50,7 @@ ## Examples This example uses the `Hex` function to return the hexadecimal value of a number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet16"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet16"::: ]]> @@ -320,7 +320,7 @@ End Class ## Examples The following code uses the `ErrorToString` function to display error messages that correspond to the specified error numbers. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet4"::: ]]> @@ -380,7 +380,7 @@ End Class ## Examples The following code uses the `ErrorToString` function to display error messages that correspond to the specified error numbers. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet4"::: ]]> @@ -449,15 +449,15 @@ End Class ## Examples This example illustrates how the `Int` and `Fix` functions return integer portions of numbers. In the case of a negative number argument, the `Int` function returns the first negative integer less than or equal to the number; the `Fix` function returns the first negative integer greater than or equal to the number. The following example requires you to specify `Option Strict Off` because implicit conversions from type `Double` to type `Integer` are not allowed under `Option Strict On`: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class2.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class2.vb" id="Snippet4"::: You can use the `CInt` function to explicitly convert other data types to type `Integer` with `Option Strict Off`. However, `CInt` rounds to the nearest integer instead of truncating the fractional part of numbers. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet5"::: You can use the `CInt` function on the result of a call to `Fix` or `Int` to perform explicit conversion to integer without rounding. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet6"::: For more information on `CInt`, see [Type Conversion Functions](/dotnet/visual-basic/language-reference/functions/type-conversion-functions). @@ -529,15 +529,15 @@ Dim i1 As Integer = CInt(Fix(d)) ' Result: 173 ## Examples This example illustrates how the `Int` and `Fix` functions return integer portions of numbers. In the case of a negative number argument, the `Int` function returns the first negative integer less than or equal to the number; the `Fix` function returns the first negative integer greater than or equal to the number. The following example requires you to specify `Option Strict Off` because implicit conversions from type `Double` to type `Integer` are not allowed under `Option Strict On`: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class2.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class2.vb" id="Snippet4"::: You can use the `CInt` function to explicitly convert other data types to type `Integer` with `Option Strict Off`. However, `CInt` rounds to the nearest integer instead of truncating the fractional part of numbers. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet5"::: You can use the `CInt` function on the result of a call to `Fix` or `Int` to perform explicit conversion to integer without rounding. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet6"::: For more information on `CInt`, see [Type Conversion Functions](/dotnet/visual-basic/language-reference/functions/type-conversion-functions). @@ -604,15 +604,15 @@ Dim i1 As Integer = CInt(Fix(d)) ' Result: 173 ## Examples This example illustrates how the `Int` and `Fix` functions return integer portions of numbers. In the case of a negative number argument, the `Int` function returns the first negative integer less than or equal to the number; the `Fix` function returns the first negative integer greater than or equal to the number. The following example requires you to specify `Option Strict Off` because implicit conversions from type `Double` to type `Integer` are not allowed under `Option Strict On`: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class2.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class2.vb" id="Snippet4"::: You can use the `CInt` function to explicitly convert other data types to type `Integer` with `Option Strict Off`. However, `CInt` rounds to the nearest integer instead of truncating the fractional part of numbers. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet5"::: You can use the `CInt` function on the result of a call to `Fix` or `Int` to perform explicit conversion to integer without rounding. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet6"::: For more information on `CInt`, see [Type Conversion Functions](/dotnet/visual-basic/language-reference/functions/type-conversion-functions). @@ -679,15 +679,15 @@ Dim i1 As Integer = CInt(Fix(d)) ' Result: 173 ## Examples This example illustrates how the `Int` and `Fix` functions return integer portions of numbers. In the case of a negative number argument, the `Int` function returns the first negative integer less than or equal to the number; the `Fix` function returns the first negative integer greater than or equal to the number. The following example requires you to specify `Option Strict Off` because implicit conversions from type `Double` to type `Integer` are not allowed under `Option Strict On`: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class2.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class2.vb" id="Snippet4"::: You can use the `CInt` function to explicitly convert other data types to type `Integer` with `Option Strict Off`. However, `CInt` rounds to the nearest integer instead of truncating the fractional part of numbers. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet5"::: You can use the `CInt` function on the result of a call to `Fix` or `Int` to perform explicit conversion to integer without rounding. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet6"::: For more information on `CInt`, see [Type Conversion Functions](/dotnet/visual-basic/language-reference/functions/type-conversion-functions). @@ -754,15 +754,15 @@ Dim i1 As Integer = CInt(Fix(d)) ' Result: 173 ## Examples This example illustrates how the `Int` and `Fix` functions return integer portions of numbers. In the case of a negative number argument, the `Int` function returns the first negative integer less than or equal to the number; the `Fix` function returns the first negative integer greater than or equal to the number. The following example requires you to specify `Option Strict Off` because implicit conversions from type `Double` to type `Integer` are not allowed under `Option Strict On`: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class2.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class2.vb" id="Snippet4"::: You can use the `CInt` function to explicitly convert other data types to type `Integer` with `Option Strict Off`. However, `CInt` rounds to the nearest integer instead of truncating the fractional part of numbers. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet5"::: You can use the `CInt` function on the result of a call to `Fix` or `Int` to perform explicit conversion to integer without rounding. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet6"::: For more information on `CInt`, see [Type Conversion Functions](/dotnet/visual-basic/language-reference/functions/type-conversion-functions). @@ -836,15 +836,15 @@ Dim i2 As Integer = CInt(Fix(s)) ' Result: 173 ## Examples This example illustrates how the `Int` and `Fix` functions return integer portions of numbers. In the case of a negative number argument, the `Int` function returns the first negative integer less than or equal to the number; the `Fix` function returns the first negative integer greater than or equal to the number. The following example requires you to specify `Option Strict Off` because implicit conversions from type `Double` to type `Integer` are not allowed under `Option Strict On`: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class2.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class2.vb" id="Snippet4"::: You can use the `CInt` function to explicitly convert other data types to type `Integer` with `Option Strict Off`. However, `CInt` rounds to the nearest integer instead of truncating the fractional part of numbers. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet5"::: You can use the `CInt` function on the result of a call to `Fix` or `Int` to perform explicit conversion to integer without rounding. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet6"::: For more information on `CInt`, see [Type Conversion Functions](/dotnet/visual-basic/language-reference/functions/type-conversion-functions). @@ -916,15 +916,15 @@ Dim i2 As Integer = CInt(Fix(s)) ' Result: 173 ## Examples This example illustrates how the `Int` and `Fix` functions return integer portions of numbers. In the case of a negative number argument, the `Int` function returns the first negative integer less than or equal to the number; the `Fix` function returns the first negative integer greater than or equal to the number. The following example requires you to specify `Option Strict Off` because implicit conversions from type `Double` to type `Integer` are not allowed under `Option Strict On`: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class2.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class2.vb" id="Snippet4"::: You can use the `CInt` function to explicitly convert other data types to type `Integer` with `Option Strict Off`. However, `CInt` rounds to the nearest integer instead of truncating the fractional part of numbers. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet5"::: You can use the `CInt` function on the result of a call to `Fix` or `Int` to perform explicit conversion to integer without rounding. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet6"::: For more information on `CInt`, see [Type Conversion Functions](/dotnet/visual-basic/language-reference/functions/type-conversion-functions). @@ -1003,7 +1003,7 @@ Dim i2 As Integer = CInt(Fix(s)) ' Result: 173 ## Examples This example uses the `Hex` function to return the hexadecimal value of a number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet16"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet16"::: ]]> @@ -1071,7 +1071,7 @@ Dim i2 As Integer = CInt(Fix(s)) ' Result: 173 ## Examples This example uses the `Hex` function to return the hexadecimal value of a number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet16"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet16"::: ]]> @@ -1139,7 +1139,7 @@ Dim i2 As Integer = CInt(Fix(s)) ' Result: 173 ## Examples This example uses the `Hex` function to return the hexadecimal value of a number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet16"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet16"::: ]]> @@ -1207,7 +1207,7 @@ Dim i2 As Integer = CInt(Fix(s)) ' Result: 173 ## Examples This example uses the `Hex` function to return the hexadecimal value of a number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet16"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet16"::: ]]> @@ -1275,7 +1275,7 @@ Dim i2 As Integer = CInt(Fix(s)) ' Result: 173 ## Examples This example uses the `Hex` function to return the hexadecimal value of a number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet16"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet16"::: ]]> @@ -1348,7 +1348,7 @@ Dim i2 As Integer = CInt(Fix(s)) ' Result: 173 ## Examples This example uses the `Hex` function to return the hexadecimal value of a number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet16"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet16"::: ]]> @@ -1422,7 +1422,7 @@ Dim i2 As Integer = CInt(Fix(s)) ' Result: 173 ## Examples This example uses the `Hex` function to return the hexadecimal value of a number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet16"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet16"::: ]]> @@ -1496,7 +1496,7 @@ Dim i2 As Integer = CInt(Fix(s)) ' Result: 173 ## Examples This example uses the `Hex` function to return the hexadecimal value of a number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet16"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet16"::: ]]> @@ -1570,7 +1570,7 @@ Dim i2 As Integer = CInt(Fix(s)) ' Result: 173 ## Examples This example uses the `Hex` function to return the hexadecimal value of a number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet16"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet16"::: ]]> @@ -1643,15 +1643,15 @@ Dim i2 As Integer = CInt(Fix(s)) ' Result: 173 ## Examples This example illustrates how the `Int` and `Fix` functions return integer portions of numbers. In the case of a negative number argument, the `Int` function returns the first negative integer less than or equal to the number; the `Fix` function returns the first negative integer greater than or equal to the number. The following example requires you to specify `Option Strict Off` because implicit conversions from type `Double` to type `Integer` are not allowed under `Option Strict On`: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class2.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class2.vb" id="Snippet4"::: You can use the `CInt` function to explicitly convert other data types to type `Integer` with `Option Strict Off`. However, `CInt` rounds to the nearest integer instead of truncating the fractional part of numbers. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet5"::: You can use the `CInt` function on the result of a call to `Fix` or `Int` to perform explicit conversion to integer without rounding. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet6"::: For more information on `CInt`, see [Type Conversion Functions](/dotnet/visual-basic/language-reference/functions/type-conversion-functions). @@ -1723,15 +1723,15 @@ Dim i3 As Integer = CInt(Int(dbl)) ' Result: 175 ## Examples This example illustrates how the `Int` and `Fix` functions return integer portions of numbers. In the case of a negative number argument, the `Int` function returns the first negative integer less than or equal to the number; the `Fix` function returns the first negative integer greater than or equal to the number. The following example requires you to specify `Option Strict Off` because implicit conversions from type `Double` to type `Integer` are not allowed under `Option Strict On`: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class2.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class2.vb" id="Snippet4"::: You can use the `CInt` function to explicitly convert other data types to type `Integer` with `Option Strict Off`. However, `CInt` rounds to the nearest integer instead of truncating the fractional part of numbers. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet5"::: You can use the `CInt` function on the result of a call to `Fix` or `Int` to perform explicit conversion to integer without rounding. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet6"::: For more information on `CInt`, see [Type Conversion Functions](/dotnet/visual-basic/language-reference/functions/type-conversion-functions). @@ -1798,15 +1798,15 @@ Dim i3 As Integer = CInt(Int(dbl)) ' Result: 175 ## Examples This example illustrates how the `Int` and `Fix` functions return integer portions of numbers. In the case of a negative number argument, the `Int` function returns the first negative integer less than or equal to the number; the `Fix` function returns the first negative integer greater than or equal to the number. The following example requires you to specify `Option Strict Off` because implicit conversions from type `Double` to type `Integer` are not allowed under `Option Strict On`: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class2.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class2.vb" id="Snippet4"::: You can use the `CInt` function to explicitly convert other data types to type `Integer` with `Option Strict Off`. However, `CInt` rounds to the nearest integer instead of truncating the fractional part of numbers. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet5"::: You can use the `CInt` function on the result of a call to `Fix` or `Int` to perform explicit conversion to integer without rounding. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet6"::: For more information on `CInt`, see [Type Conversion Functions](/dotnet/visual-basic/language-reference/functions/type-conversion-functions). @@ -1873,15 +1873,15 @@ Dim i3 As Integer = CInt(Int(dbl)) ' Result: 175 ## Examples This example illustrates how the `Int` and `Fix` functions return integer portions of numbers. In the case of a negative number argument, the `Int` function returns the first negative integer less than or equal to the number; the `Fix` function returns the first negative integer greater than or equal to the number. The following example requires you to specify `Option Strict Off` because implicit conversions from type `Double` to type `Integer` are not allowed under `Option Strict On`: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class2.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class2.vb" id="Snippet4"::: You can use the `CInt` function to explicitly convert other data types to type `Integer` with `Option Strict Off`. However, `CInt` rounds to the nearest integer instead of truncating the fractional part of numbers. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet5"::: You can use the `CInt` function on the result of a call to `Fix` or `Int` to perform explicit conversion to integer without rounding. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet6"::: For more information on `CInt`, see [Type Conversion Functions](/dotnet/visual-basic/language-reference/functions/type-conversion-functions). @@ -1948,15 +1948,15 @@ Dim i3 As Integer = CInt(Int(dbl)) ' Result: 175 ## Examples This example illustrates how the `Int` and `Fix` functions return integer portions of numbers. In the case of a negative number argument, the `Int` function returns the first negative integer less than or equal to the number; the `Fix` function returns the first negative integer greater than or equal to the number. The following example requires you to specify `Option Strict Off` because implicit conversions from type `Double` to type `Integer` are not allowed under `Option Strict On`: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class2.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class2.vb" id="Snippet4"::: You can use the `CInt` function to explicitly convert other data types to type `Integer` with `Option Strict Off`. However, `CInt` rounds to the nearest integer instead of truncating the fractional part of numbers. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet5"::: You can use the `CInt` function on the result of a call to `Fix` or `Int` to perform explicit conversion to integer without rounding. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet6"::: For more information on `CInt`, see [Type Conversion Functions](/dotnet/visual-basic/language-reference/functions/type-conversion-functions). @@ -2030,15 +2030,15 @@ Dim i2 As Integer = CInt(Int(s)) ' Result: 173 ## Examples This example illustrates how the `Int` and `Fix` functions return integer portions of numbers. In the case of a negative number argument, the `Int` function returns the first negative integer less than or equal to the number; the `Fix` function returns the first negative integer greater than or equal to the number. The following example requires you to specify `Option Strict Off` because implicit conversions from type `Double` to type `Integer` are not allowed under `Option Strict On`: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class2.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class2.vb" id="Snippet4"::: You can use the `CInt` function to explicitly convert other data types to type `Integer` with `Option Strict Off`. However, `CInt` rounds to the nearest integer instead of truncating the fractional part of numbers. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet5"::: You can use the `CInt` function on the result of a call to `Fix` or `Int` to perform explicit conversion to integer without rounding. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet6"::: For more information on `CInt`, see [Type Conversion Functions](/dotnet/visual-basic/language-reference/functions/type-conversion-functions). @@ -2110,15 +2110,15 @@ Dim i3 As Integer = CInt(Fix(sng)) ' Result: 175 ## Examples This example illustrates how the `Int` and `Fix` functions return integer portions of numbers. In the case of a negative number argument, the `Int` function returns the first negative integer less than or equal to the number; the `Fix` function returns the first negative integer greater than or equal to the number. The following example requires you to specify `Option Strict Off` because implicit conversions from type `Double` to type `Integer` are not allowed under `Option Strict On`: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class2.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class2.vb" id="Snippet4"::: You can use the `CInt` function to explicitly convert other data types to type `Integer` with `Option Strict Off`. However, `CInt` rounds to the nearest integer instead of truncating the fractional part of numbers. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet5"::: You can use the `CInt` function on the result of a call to `Fix` or `Int` to perform explicit conversion to integer without rounding. For example: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet6"::: For more information on `CInt`, see [Type Conversion Functions](/dotnet/visual-basic/language-reference/functions/type-conversion-functions). @@ -2197,7 +2197,7 @@ Dim i3 As Integer = CInt(Fix(sng)) ' Result: 175 ## Examples This example uses the `Oct` function to return the octal value of a number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet30"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet30"::: ]]> @@ -2265,7 +2265,7 @@ Dim i3 As Integer = CInt(Fix(sng)) ' Result: 175 ## Examples This example uses the `Oct` function to return the octal value of a number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet30"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet30"::: ]]> @@ -2333,7 +2333,7 @@ Dim i3 As Integer = CInt(Fix(sng)) ' Result: 175 ## Examples This example uses the `Oct` function to return the octal value of a number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet30"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet30"::: ]]> @@ -2401,7 +2401,7 @@ Dim i3 As Integer = CInt(Fix(sng)) ' Result: 175 ## Examples This example uses the `Oct` function to return the octal value of a number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet30"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet30"::: ]]> @@ -2469,7 +2469,7 @@ Dim i3 As Integer = CInt(Fix(sng)) ' Result: 175 ## Examples This example uses the `Oct` function to return the octal value of a number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet30"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet30"::: ]]> @@ -2542,7 +2542,7 @@ Dim i3 As Integer = CInt(Fix(sng)) ' Result: 175 ## Examples This example uses the `Oct` function to return the octal value of a number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet30"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet30"::: ]]> @@ -2616,7 +2616,7 @@ Dim i3 As Integer = CInt(Fix(sng)) ' Result: 175 ## Examples This example uses the `Oct` function to return the octal value of a number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet30"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet30"::: ]]> @@ -2690,7 +2690,7 @@ Dim i3 As Integer = CInt(Fix(sng)) ' Result: 175 ## Examples This example uses the `Oct` function to return the octal value of a number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet30"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet30"::: ]]> @@ -2764,7 +2764,7 @@ Dim i3 As Integer = CInt(Fix(sng)) ' Result: 175 ## Examples This example uses the `Oct` function to return the octal value of a number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet30"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet30"::: ]]> @@ -2831,7 +2831,7 @@ Dim i3 As Integer = CInt(Fix(sng)) ' Result: 175 ## Examples This example uses the `Str` function to return a `String` representation of a number. When a positive number is converted to a string, a leading space is always reserved for its sign. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet1"::: ]]> @@ -2934,7 +2934,7 @@ Dim n = 1.34& ## Examples The following example uses the `Val` function to return the numbers contained in each string. `Val` stops converting at the first character that cannot be interpreted as a numeric digit, numeric modifier, numeric punctuation, or white space. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet54"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet54"::: ]]> @@ -3029,7 +3029,7 @@ Val("&HFFFF")  ## Examples The following example uses the `Val` function to return the numbers contained in each string. `Val` stops converting at the first character that cannot be interpreted as a numeric digit, numeric modifier, numeric punctuation, or white space. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet54"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet54"::: ]]> @@ -3124,7 +3124,7 @@ Val("&HFFFF")  ## Examples The following example uses the `Val` function to return the numbers contained in each string. `Val` stops converting at the first character that cannot be interpreted as a numeric digit, numeric modifier, numeric punctuation, or white space. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet54"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet54"::: ]]> diff --git a/xml/Microsoft.VisualBasic/DateAndTime.xml b/xml/Microsoft.VisualBasic/DateAndTime.xml index 651a04d4248..4f4ae1eac4f 100644 --- a/xml/Microsoft.VisualBasic/DateAndTime.xml +++ b/xml/Microsoft.VisualBasic/DateAndTime.xml @@ -156,7 +156,7 @@ NextTime = NextTime.AddDays(3.4) ' Increment by 3 2/5 days. ## Examples This example takes a date and, using the `DateAdd` function, displays a corresponding date a specified number of months in the future. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet25"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet25"::: ]]> @@ -269,7 +269,7 @@ NextTime = NextTime.AddDays(3.4) ' Increment by 3 2/5 days. ## Examples This example takes a date and, using the `DateAdd` function, displays a corresponding date a specified number of months in the future. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet25"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet25"::: ]]> @@ -358,7 +358,7 @@ NextTime = NextTime.AddDays(3.4) ' Increment by 3 2/5 days. - **Week Intervals.** If `Interval` is set to `DateInterval.WeekOfYear`, the return value represents the number of weeks between the first day of the week containing `Date1` and the first day of the week containing `Date2`. The following example shows how this produces different results from `DateInterval.Weekday`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet60"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet60"::: In the preceding example, `DateDiff` returns 0 to `wD` because the difference between the two dates is less than seven days, but it returns 1 to `wY` because there is a seven-day difference between the first days of the respective calendar weeks. @@ -370,7 +370,7 @@ NextTime = NextTime.AddDays(3.4) ' Increment by 3 2/5 days. - **Other Intervals.** Since every `Date` value is supported by a structure, its methods give you additional options in finding time intervals. For example, you can use the `Subtract` method in either of its overloaded forms: subtracts a from a `Date` variable to return another `Date` value, and subtracts a `Date` value to return a . You can time a process to find out how many milliseconds it takes, as the following example shows. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet61"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet61"::: The `Interval` argument can have one of the following settings. @@ -414,7 +414,7 @@ NextTime = NextTime.AddDays(3.4) ' Increment by 3 2/5 days. ## Examples This example uses the `DateDiff` function to display the number of days between a given date and today. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet26"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet26"::: ]]> @@ -503,7 +503,7 @@ NextTime = NextTime.AddDays(3.4) ' Increment by 3 2/5 days. - **Week Intervals.** If `Interval` is set to `DateInterval.WeekOfYear`, the return value represents the number of weeks between the first day of the week containing `Date1` and the first day of the week containing `Date2`. The following example shows how this produces different results from `DateInterval.Weekday`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet60"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet60"::: In the preceding example, `DateDiff` returns 0 to `wD` because the difference between the two dates is less than seven days, but it returns 1 to `wY` because there is a seven-day difference between the first days of the respective calendar weeks. @@ -515,7 +515,7 @@ NextTime = NextTime.AddDays(3.4) ' Increment by 3 2/5 days. - **Other Intervals.** Since every `Date` value is supported by a structure, its methods give you additional options in finding time intervals. For example, you can use the `Subtract` method in either of its overloaded forms: subtracts a from a `Date` variable to return another `Date` value, and subtracts a `Date` value to return a . You can time a process to find out how many milliseconds it takes, as the following example shows. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet61"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet61"::: The `Interval` argument can have one of the following settings. @@ -559,7 +559,7 @@ NextTime = NextTime.AddDays(3.4) ' Increment by 3 2/5 days. ## Examples This example uses the `DateDiff` function to display the number of days between a given date and today. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet26"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet26"::: ]]> @@ -688,7 +688,7 @@ Dim LastMidnight As Date = CurrDatTim.Date ' At midnight. ## Examples This example takes a date and, using the `DatePart` function, displays the quarter of the year in which it occurs. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet27"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet27"::: ]]> @@ -815,7 +815,7 @@ Dim LastMidnight As Date = CurrDatTim.Date ' At midnight. ## Examples This example takes a date and, using the `DatePart` function, displays the quarter of the year in which it occurs. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet27"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet27"::: ]]> @@ -915,7 +915,7 @@ Dim NewDateTime As Date = New Date(1978, 5, 6, 8, 29, 59, 900) ## Examples This example uses the `DateSerial` function to return the date for the specified year, month, and day. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet28"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet28"::: ]]> @@ -994,7 +994,7 @@ MsgBox("The formatted date is " & Format(Now, "dddd, d MMM yyyy")) ## Examples The following example uses the `DateString` property to display the current system date. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/Module1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/DateString/Module1.vb" id="Snippet1"::: ]]> @@ -1058,7 +1058,7 @@ MsgBox("The formatted date is " & Format(Now, "dddd, d MMM yyyy")) ## Examples This example uses the `DateValue` function to convert a string to a date. You can also use date literals to directly assign a date to an `Object` or `Date` variable, for example, `oldDate = #2/12/69#`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet29"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet29"::: ]]> @@ -1129,7 +1129,7 @@ Dim thisDay As Integer = Microsoft.VisualBasic.DateAndTime.Day(Now) ## Examples The following example uses the `Day` function to obtain the day of the month from a specified date. In the development environment, the date literal is displayed in standard short format (such as "02/12/1969") using the locale settings of your code. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet30"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet30"::: `Day` is qualified to distinguish it from the enumeration. @@ -1192,7 +1192,7 @@ Dim thisDay As Integer = Microsoft.VisualBasic.DateAndTime.Day(Now) ## Examples This example uses the `Hour` function to obtain the hour from a specified time. In the development environment, the time literal is displayed in short time format using the locale settings of your code. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet32"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet32"::: ]]> @@ -1255,7 +1255,7 @@ Dim thisDay As Integer = Microsoft.VisualBasic.DateAndTime.Day(Now) ## Examples This example uses the `Minute` function to obtain the minute of the hour from a specified time. In the development environment, the time literal is displayed in short time format using the locale settings of your code. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet42"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet42"::: ]]> @@ -1318,7 +1318,7 @@ Dim thisDay As Integer = Microsoft.VisualBasic.DateAndTime.Day(Now) ## Examples This example uses the `Month` function to obtain the month from a specified date. In the development environment, the date literal is displayed in short date format using the locale settings of your code. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet43"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet43"::: ]]> @@ -1384,7 +1384,7 @@ Dim thisDay As Integer = Microsoft.VisualBasic.DateAndTime.Day(Now) ## Examples This example uses the `MonthName` function to determine the name of the month, by the integer given. The Boolean value will determine whether the full name (`False`) or the abbreviated name (`True`) will be displayed. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet44"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet44"::: ]]> @@ -1440,7 +1440,7 @@ Dim thisDay As Integer = Microsoft.VisualBasic.DateAndTime.Day(Now) ## Examples The following example uses the `Now` property to return the current system date and time. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/Module1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/DateString/Module1.vb" id="Snippet4"::: ]]> @@ -1501,7 +1501,7 @@ Dim thisDay As Integer = Microsoft.VisualBasic.DateAndTime.Day(Now) ## Examples The following example uses the `Second` function to obtain the second of the minute from a specified time. In the development environment, the time literal is displayed in short time format using the locale settings of your code. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet46"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet46"::: ]]> @@ -1572,7 +1572,7 @@ Dim thisDay As Integer = Microsoft.VisualBasic.DateAndTime.Day(Now) ## Examples This example uses the `TimeOfDay` property to return the current system time. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/Module1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/DateString/Module1.vb" id="Snippet3"::: ]]> @@ -1622,7 +1622,7 @@ Dim thisDay As Integer = Microsoft.VisualBasic.DateAndTime.Day(Now) ## Examples This example uses the `Timer` property to pause the application. It can perform other processing during the pause. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrTimerProperty/VB/Form1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/Timer/Form1.vb" id="Snippet1"::: Note that you must qualify the `Timer` property with the namespace, because `Timer` is also a defined class in the , , and namespaces. @@ -1712,7 +1712,7 @@ Dim newDateTime As Date = New Date(1978, 5, 6, 8, 29, 59, 900) ## Examples The following example uses the `TimeSerial` function to return a time for the specified hour, minute, and second. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet50"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet50"::: ]]> @@ -1788,7 +1788,7 @@ MsgBox("The formatted time is " & Format(Now, "hh.mm.ss.fff tt")) ## Examples This example uses the `TimeString` property to display the current system time. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/Module1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/DateString/Module1.vb" id="Snippet2"::: ]]> @@ -1848,7 +1848,7 @@ MsgBox("The formatted time is " & Format(Now, "hh.mm.ss.fff tt")) ## Examples The following example uses the `TimeValue` function to convert a string to a time. You can also use date literals to directly assign a time to a `Date` variable. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet51"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet51"::: ]]> @@ -1919,7 +1919,7 @@ MsgBox("The formatted time is " & Format(Now, "hh.mm.ss.fff tt")) ## Examples This example uses the `Today` property to return the current system date. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrDateProperties/VB/Module1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/DateAndTime/DateString/Module1.vb" id="Snippet5"::: ]]> @@ -1992,7 +1992,7 @@ MsgBox("The formatted time is " & Format(Now, "hh.mm.ss.fff tt")) ## Examples The following example uses the `Weekday` function to obtain the day of the week from a specified date. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet57"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet57"::: ]]> @@ -2073,7 +2073,7 @@ MsgBox("The formatted time is " & Format(Now, "hh.mm.ss.fff tt")) ## Examples The following example uses the `Weekday` function to obtain the day of the week from a specified date, and then the `WeekDayName` function to obtain the name of the weekday from its number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet58"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet58"::: ]]> @@ -2135,7 +2135,7 @@ MsgBox("The formatted time is " & Format(Now, "hh.mm.ss.fff tt")) ## Examples The following example uses the `Year` function to obtain the year from a specified date. In the development environment, the date literal is displayed in short date format using the locale settings of your code. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet59"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet59"::: ]]> diff --git a/xml/Microsoft.VisualBasic/ErrObject.xml b/xml/Microsoft.VisualBasic/ErrObject.xml index c102220ed8c..1da8da49110 100644 --- a/xml/Microsoft.VisualBasic/ErrObject.xml +++ b/xml/Microsoft.VisualBasic/ErrObject.xml @@ -133,7 +133,7 @@ End If ## Examples This example uses the `Err` object's `Clear` method to reset the numeric properties of the `Err` object to zero and its string properties to zero-length strings. Without the call to `Clear`, the second call to `MsgBox` would display the same error message. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrErrorHandling/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/ErrObject/Clear/Class1.vb" id="Snippet4"::: ]]> @@ -184,7 +184,7 @@ End If ## Examples This example assigns a user-defined message to the `Description` property of the `Err` object. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrErrorHandling/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/ErrObject/Clear/Class1.vb" id="Snippet5"::: ]]> @@ -298,7 +298,7 @@ End If ## Examples The following code displays the message assigned to the exception in the `Err` object: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet66"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet66"::: ]]> @@ -349,7 +349,7 @@ End If ## Examples This example uses the `HelpContext` property of the `Err` object to show the Visual Basic Help topic for the `Overflow` error. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrErrorHandling/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/ErrObject/Clear/Class1.vb" id="Snippet7"::: ]]> @@ -400,7 +400,7 @@ End If ## Examples This example uses the `HelpFile` property of the `Err` object to start the Help system. By default, the `HelpFile` property contains the name of the Visual Basic Help file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrErrorHandling/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/ErrObject/Clear/Class1.vb" id="Snippet7"::: ]]> @@ -457,11 +457,11 @@ End If ## Examples The following example shows how you can use the `LastDllError` property after calling a function in the Windows API. The `PrintWindowCoordinates` procedure takes a handle to a window and calls the `GetWindowRect` function. `GetWindowRect` fills the RECT data structure with the lengths of the sides of the rectangle that make up the window. If you pass an invalid handle, an error occurs, and the error number is available through the `LastDllError` property. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrErrorHandling/VB/Class1.vb" id="Snippet8"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrErrorHandling/VB/Class1.vb" id="Snippet9"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrErrorHandling/VB/Class1.vb" id="Snippet10"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/ErrObject/Clear/Class1.vb" id="Snippet8"::: +:::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/ErrObject/Clear/Class1.vb" id="Snippet9"::: +:::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/ErrObject/Clear/Class1.vb" id="Snippet10"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrErrorHandling/VB/Class1.vb" id="Snippet11"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/ErrObject/Clear/Class1.vb" id="Snippet11"::: ]]> @@ -510,18 +510,18 @@ End If When returning a user-defined error from an object, set `Err.Number` by adding the number you selected as an error code to the `VbObjectError` constant. For example, you use the following code to return the number 1051 as an error code: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrErrorHandling/VB/Class1.vb" id="Snippet13"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/ErrObject/Clear/Class1.vb" id="Snippet13"::: ## Examples This example illustrates a typical use of the `Number` property in an error-handling routine. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrErrorHandling/VB/Class1.vb" id="Snippet12"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/ErrObject/Clear/Class1.vb" id="Snippet12"::: This example uses the `Err` object's `Raise` method to generate an original error within a function written in Visual Basic. The calling function can catch the error and report it to the user. Notice that procedure `CallingProcedure` contrasts the type of information that you can derive from an `Err` object with the information that you can derive from an `Exception` object. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrErrorHandling/VB/Class1.vb" id="Snippet14"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/ErrObject/Clear/Class1.vb" id="Snippet14"::: ]]> @@ -587,7 +587,7 @@ End If ## Examples This example uses the `Err` object's `Raise` method to generate an error within a function written in Visual Basic. The calling function can catch the error and report it to the user with a message box. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrErrorHandling/VB/Class1.vb" id="Snippet14"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/ErrObject/Clear/Class1.vb" id="Snippet14"::: ]]> @@ -640,7 +640,7 @@ End If ## Examples This example demonstrates the use of the `Source` property in a typical error-handling routine. When an error is raised from `Class1`, the string `"Class1"` is assigned to the `Source` property of the `Err` object. This string is then displayed in an informative message indicating the source and number of the error. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrErrorHandling/VB/Class1.vb" id="Snippet15"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/ErrObject/Clear/Class1.vb" id="Snippet15"::: ]]> diff --git a/xml/Microsoft.VisualBasic/FileSystem.xml b/xml/Microsoft.VisualBasic/FileSystem.xml index 70abeecfe78..9d0a58a41be 100644 --- a/xml/Microsoft.VisualBasic/FileSystem.xml +++ b/xml/Microsoft.VisualBasic/FileSystem.xml @@ -54,7 +54,7 @@ ## Examples This example uses the `GetAttr` function to determine the attributes of a file and directory or folder. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet25"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet25"::: ]]> @@ -105,11 +105,11 @@ ## Remarks The `ChDir` function changes the default directory, but not the default drive. For example, if the default drive is C, the following statement changes the default directory on drive D, but C remains the default drive: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet39"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet39"::: You can make relative directory changes is by typing two periods, as follows: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet40"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet40"::: > [!IMPORTANT] > The `ChDir` function requires unmanaged code permission, which may affect its execution in partial-trust situations. For more information, see and . @@ -119,7 +119,7 @@ ## Examples This example uses the `ChDir` function to change the current directory or folder. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet41"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet41"::: ]]> @@ -198,7 +198,7 @@ ## Examples This example uses the `ChDrive` function to change the current drive. The function throws an exception if the drive does not exist. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet32"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet32"::: ]]> @@ -265,7 +265,7 @@ ## Examples This example uses the `ChDrive` function to change the current drive. The function throws an exception if the drive does not exist. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet32"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet32"::: ]]> @@ -327,7 +327,7 @@ ## Examples This example uses the `CurDir` function to return the current path. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet65"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet65"::: ]]> @@ -387,7 +387,7 @@ ## Examples This example uses the `CurDir` function to return the current path. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet65"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet65"::: ]]> @@ -475,7 +475,7 @@ ## Examples This example uses the `Dir` function to check if certain files and directories exist. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet3"::: ]]> @@ -557,7 +557,7 @@ > These enumerations are specified by the Visual Basic language and can be used anywhere in your code in place of the actual values. ## Examples This example uses the `Dir` function to check if certain files and directories exist. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet3"::: ]]> @@ -616,7 +616,7 @@ ## Examples This example uses the `EOF` function to detect the end of a file. This example assumes that `Testfile` is a text file that contains several lines of text. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet62"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet62"::: ]]> @@ -675,7 +675,7 @@ ## Examples This example uses the `FileAttr` function to return the file mode of an open file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet46"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet46"::: ]]> @@ -745,7 +745,7 @@ ## Examples This example uses the `FileClose` function to close a file opened for `Input`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet69"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet69"::: ]]> @@ -808,7 +808,7 @@ ## Examples This example uses the `FileCopy` function to copy one file to another. For purposes of this example, assume that `SrcFile` is a file that contains data. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet2"::: ]]> @@ -868,7 +868,7 @@ ## Examples This example uses the `FileDateTime` function to determine the date and time a file was created or last modified. The format of the date and time displayed is based on the locale settings of the system. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet34"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet34"::: ]]> @@ -953,7 +953,7 @@ The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` parameter in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet21"::: The 218 bytes are distributed as follows: @@ -1052,7 +1052,7 @@ The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` parameter in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet21"::: The 218 bytes are distributed as follows: @@ -1151,7 +1151,7 @@ The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` parameter in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet21"::: The 218 bytes are distributed as follows: @@ -1250,7 +1250,7 @@ The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` parameter in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet21"::: The 218 bytes are distributed as follows: @@ -1349,7 +1349,7 @@ The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` parameter in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet21"::: The 218 bytes are distributed as follows: @@ -1448,7 +1448,7 @@ The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` parameter in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet21"::: The 218 bytes are distributed as follows: @@ -1547,7 +1547,7 @@ The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` parameter in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet21"::: The 218 bytes are distributed as follows: @@ -1646,7 +1646,7 @@ The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` parameter in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet21"::: The 218 bytes are distributed as follows: @@ -1745,7 +1745,7 @@ The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` parameter in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet21"::: The 218 bytes are distributed as follows: @@ -1844,7 +1844,7 @@ The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` parameter in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet21"::: The 218 bytes are distributed as follows: @@ -1949,7 +1949,7 @@ The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` parameter in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet21"::: The 218 bytes are distributed as follows: @@ -2050,7 +2050,7 @@ The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` parameter in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet21"::: The 218 bytes are distributed as follows: @@ -2159,7 +2159,7 @@ The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` parameter in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet21"::: The 218 bytes are distributed as follows: @@ -2265,7 +2265,7 @@ For example, the following array declaration requires 218 bytes when the array is written to disk: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet27"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet27"::: The 218 bytes are distributed as follows: 18 bytes for the descriptor (2 + 8 * 2), and 100 bytes for the data (5 * 10 * 4). @@ -2288,7 +2288,7 @@ ## Examples The following example reads a record into a test file and then retrieves it. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet26"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet26"::: ]]> @@ -2350,7 +2350,7 @@ ## Examples This example uses the `FileLen` function to return the length of a file in bytes. For purposes of this example, assume that `TestFile` is a file that contains some data. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet1"::: ]]> @@ -2429,23 +2429,23 @@ The following code opens the file `TestFile` in `Input` mode. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet5"::: This example opens the file in `Binary` mode for writing operations only. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet6"::: The following example opens the file in `Random` mode. The file contains records of the structure `Person`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet7"::: This code example opens the file in `Output` mode; any process can read or write to file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet8"::: This code example opens the file in `Binary` mode for reading; other processes cannot read file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet9"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet9"::: ]]> @@ -2530,7 +2530,7 @@ - If the variable being written is an array, you have a choice as to whether or not to write a descriptor for the size and dimensions of the array. Visual Basic 6.0 and earlier versions write the file descriptor for a dynamic array but not for a fixed-size array. Visual Basic 2005 defaults to not writing the descriptor. To write the descriptor, set the `ArrayIsDynamic` parameter to `True`. When writing the array, you have to match the way the array will be read; if it will be read with the descriptor, you have to write the descriptor. The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet43"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet43"::: - If the variable being written is any other type of variable (not a variable-length string or an object), `FilePut` writes only the variable data. The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the length of the data being written. @@ -2548,7 +2548,7 @@ - `FilePut` writes variable-length strings that are not elements of structures without the two-byte length descriptor. The number of bytes written equals the number of characters in the string. For example, the following statements write 11 bytes to file number 1: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet44"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet44"::: - Writing to a file by using the `FilePut` function requires `Write` access from the enumeration. @@ -2557,7 +2557,7 @@ ## Examples This example uses the `FilePut` function to write data to a file. Five records of the structure `Person` are written to the file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet42"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet42"::: ]]> @@ -2638,7 +2638,7 @@ - If the variable being written is an array, you have a choice as to whether or not to write a descriptor for the size and dimensions of the array. Visual Basic 6.0 and earlier versions write the file descriptor for a dynamic array but not for a fixed-size array. Visual Basic 2005 defaults to not writing the descriptor. To write the descriptor, set the `ArrayIsDynamic` parameter to `True`. When writing the array, you have to match the way the array will be read; if it will be read with the descriptor, you have to write the descriptor. The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet43"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet43"::: - If the variable being written is any other type of variable (not a variable-length string or an object), `FilePut` writes only the variable data. The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the length of the data being written. @@ -2656,7 +2656,7 @@ - `FilePut` writes variable-length strings that are not elements of structures without the two-byte length descriptor. The number of bytes written equals the number of characters in the string. For example, the following statements write 11 bytes to file number 1: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet44"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet44"::: - Writing to a file by using the `FilePut` function requires `Write` access from the enumeration. @@ -2665,7 +2665,7 @@ ## Examples This example uses the `FilePut` function to write data to a file. Five records of the structure `Person` are written to the file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet42"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet42"::: ]]> @@ -2746,7 +2746,7 @@ - If the variable being written is an array, you have a choice as to whether or not to write a descriptor for the size and dimensions of the array. Visual Basic 6.0 and earlier versions write the file descriptor for a dynamic array but not for a fixed-size array. Visual Basic 2005 defaults to not writing the descriptor. To write the descriptor, set the `ArrayIsDynamic` parameter to `True`. When writing the array, you have to match the way the array will be read; if it will be read with the descriptor, you have to write the descriptor. The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet43"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet43"::: - If the variable being written is any other type of variable (not a variable-length string or an object), `FilePut` writes only the variable data. The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the length of the data being written. @@ -2764,7 +2764,7 @@ - `FilePut` writes variable-length strings that are not elements of structures without the two-byte length descriptor. The number of bytes written equals the number of characters in the string. For example, the following statements write 11 bytes to file number 1: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet44"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet44"::: - Writing to a file by using the `FilePut` function requires `Write` access from the enumeration. @@ -2773,7 +2773,7 @@ ## Examples This example uses the `FilePut` function to write data to a file. Five records of the structure `Person` are written to the file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet42"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet42"::: ]]> @@ -2854,7 +2854,7 @@ - If the variable being written is an array, you have a choice as to whether or not to write a descriptor for the size and dimensions of the array. Visual Basic 6.0 and earlier versions write the file descriptor for a dynamic array but not for a fixed-size array. Visual Basic 2005 defaults to not writing the descriptor. To write the descriptor, set the `ArrayIsDynamic` parameter to `True`. When writing the array, you have to match the way the array will be read; if it will be read with the descriptor, you have to write the descriptor. The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet43"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet43"::: - If the variable being written is any other type of variable (not a variable-length string or an object), `FilePut` writes only the variable data. The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the length of the data being written. @@ -2872,7 +2872,7 @@ - `FilePut` writes variable-length strings that are not elements of structures without the two-byte length descriptor. The number of bytes written equals the number of characters in the string. For example, the following statements write 11 bytes to file number 1: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet44"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet44"::: - Writing to a file by using the `FilePut` function requires `Write` access from the enumeration. @@ -2881,7 +2881,7 @@ ## Examples This example uses the `FilePut` function to write data to a file. Five records of the structure `Person` are written to the file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet42"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet42"::: ]]> @@ -2962,7 +2962,7 @@ - If the variable being written is an array, you have a choice as to whether or not to write a descriptor for the size and dimensions of the array. Visual Basic 6.0 and earlier versions write the file descriptor for a dynamic array but not for a fixed-size array. Visual Basic 2005 defaults to not writing the descriptor. To write the descriptor, set the `ArrayIsDynamic` parameter to `True`. When writing the array, you have to match the way the array will be read; if it will be read with the descriptor, you have to write the descriptor. The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet43"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet43"::: - If the variable being written is any other type of variable (not a variable-length string or an object), `FilePut` writes only the variable data. The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the length of the data being written. @@ -2980,7 +2980,7 @@ - `FilePut` writes variable-length strings that are not elements of structures without the two-byte length descriptor. The number of bytes written equals the number of characters in the string. For example, the following statements write 11 bytes to file number 1: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet44"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet44"::: - Writing to a file by using the `FilePut` function requires `Write` access from the enumeration. @@ -2989,7 +2989,7 @@ ## Examples This example uses the `FilePut` function to write data to a file. Five records of the structure `Person` are written to the file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet42"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet42"::: ]]> @@ -3070,7 +3070,7 @@ - If the variable being written is an array, you have a choice as to whether or not to write a descriptor for the size and dimensions of the array. Visual Basic 6.0 and earlier versions write the file descriptor for a dynamic array but not for a fixed-size array. Visual Basic 2005 defaults to not writing the descriptor. To write the descriptor, set the `ArrayIsDynamic` parameter to `True`. When writing the array, you have to match the way the array will be read; if it will be read with the descriptor, you have to write the descriptor. The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet43"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet43"::: - If the variable being written is any other type of variable (not a variable-length string or an object), `FilePut` writes only the variable data. The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the length of the data being written. @@ -3088,7 +3088,7 @@ - `FilePut` writes variable-length strings that are not elements of structures without the two-byte length descriptor. The number of bytes written equals the number of characters in the string. For example, the following statements write 11 bytes to file number 1: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet44"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet44"::: - Writing to a file by using the `FilePut` function requires `Write` access from the enumeration. @@ -3097,7 +3097,7 @@ ## Examples This example uses the `FilePut` function to write data to a file. Five records of the structure `Person` are written to the file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet42"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet42"::: ]]> @@ -3178,7 +3178,7 @@ - If the variable being written is an array, you have a choice as to whether or not to write a descriptor for the size and dimensions of the array. Visual Basic 6.0 and earlier versions write the file descriptor for a dynamic array but not for a fixed-size array. Visual Basic 2005 defaults to not writing the descriptor. To write the descriptor, set the `ArrayIsDynamic` parameter to `True`. When writing the array, you have to match the way the array will be read; if it will be read with the descriptor, you have to write the descriptor. The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet43"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet43"::: - If the variable being written is any other type of variable (not a variable-length string or an object), `FilePut` writes only the variable data. The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the length of the data being written. @@ -3196,7 +3196,7 @@ - `FilePut` writes variable-length strings that are not elements of structures without the two-byte length descriptor. The number of bytes written equals the number of characters in the string. For example, the following statements write 11 bytes to file number 1: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet44"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet44"::: - Writing to a file by using the `FilePut` function requires `Write` access from the enumeration. @@ -3205,7 +3205,7 @@ ## Examples This example uses the `FilePut` function to write data to a file. Five records of the structure `Person` are written to the file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet42"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet42"::: ]]> @@ -3286,7 +3286,7 @@ - If the variable being written is an array, you have a choice as to whether or not to write a descriptor for the size and dimensions of the array. Visual Basic 6.0 and earlier versions write the file descriptor for a dynamic array but not for a fixed-size array. Visual Basic 2005 defaults to not writing the descriptor. To write the descriptor, set the `ArrayIsDynamic` parameter to `True`. When writing the array, you have to match the way the array will be read; if it will be read with the descriptor, you have to write the descriptor. The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet43"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet43"::: - If the variable being written is any other type of variable (not a variable-length string or an object), `FilePut` writes only the variable data. The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the length of the data being written. @@ -3304,7 +3304,7 @@ - `FilePut` writes variable-length strings that are not elements of structures without the two-byte length descriptor. The number of bytes written equals the number of characters in the string. For example, the following statements write 11 bytes to file number 1: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet44"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet44"::: - Writing to a file by using the `FilePut` function requires `Write` access from the enumeration. @@ -3313,7 +3313,7 @@ ## Examples This example uses the `FilePut` function to write data to a file. Five records of the structure `Person` are written to the file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet42"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet42"::: ]]> @@ -3394,7 +3394,7 @@ - If the variable being written is an array, you have a choice as to whether or not to write a descriptor for the size and dimensions of the array. Visual Basic 6.0 and earlier versions write the file descriptor for a dynamic array but not for a fixed-size array. Visual Basic 2005 defaults to not writing the descriptor. To write the descriptor, set the `ArrayIsDynamic` parameter to `True`. When writing the array, you have to match the way the array will be read; if it will be read with the descriptor, you have to write the descriptor. The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet43"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet43"::: - If the variable being written is any other type of variable (not a variable-length string or an object), `FilePut` writes only the variable data. The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the length of the data being written. @@ -3412,7 +3412,7 @@ - `FilePut` writes variable-length strings that are not elements of structures without the two-byte length descriptor. The number of bytes written equals the number of characters in the string. For example, the following statements write 11 bytes to file number 1: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet44"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet44"::: - Writing to a file by using the `FilePut` function requires `Write` access from the enumeration. @@ -3421,7 +3421,7 @@ ## Examples This example uses the `FilePut` function to write data to a file. Five records of the structure `Person` are written to the file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet42"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet42"::: ]]> @@ -3502,7 +3502,7 @@ - If the variable being written is an array, you have a choice as to whether or not to write a descriptor for the size and dimensions of the array. Visual Basic 6.0 and earlier versions write the file descriptor for a dynamic array but not for a fixed-size array. Visual Basic 2005 defaults to not writing the descriptor. To write the descriptor, set the `ArrayIsDynamic` parameter to `True`. When writing the array, you have to match the way the array will be read; if it will be read with the descriptor, you have to write the descriptor. The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet43"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet43"::: - If the variable being written is any other type of variable (not a variable-length string or an object), `FilePut` writes only the variable data. The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the length of the data being written. @@ -3520,7 +3520,7 @@ - `FilePut` writes variable-length strings that are not elements of structures without the two-byte length descriptor. The number of bytes written equals the number of characters in the string. For example, the following statements write 11 bytes to file number 1: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet44"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet44"::: - Writing to a file by using the `FilePut` function requires `Write` access from the enumeration. @@ -3529,7 +3529,7 @@ ## Examples This example uses the `FilePut` function to write data to a file. Five records of the structure `Person` are written to the file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet42"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet42"::: ]]> @@ -3616,7 +3616,7 @@ - If the variable being written is an array, you have a choice as to whether or not to write a descriptor for the size and dimensions of the array. Visual Basic 6.0 and earlier versions write the file descriptor for a dynamic array but not for a fixed-size array. Visual Basic 2005 defaults to not writing the descriptor. To write the descriptor, set the `ArrayIsDynamic` parameter to `True`. When writing the array, you have to match the way the array will be read; if it will be read with the descriptor, you have to write the descriptor. The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet43"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet43"::: - If the variable being written is any other type of variable (not a variable-length string or an object), `FilePut` writes only the variable data. The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the length of the data being written. @@ -3634,7 +3634,7 @@ - `FilePut` writes variable-length strings that are not elements of structures without the two-byte length descriptor. The number of bytes written equals the number of characters in the string. For example, the following statements write 11 bytes to file number 1: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet44"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet44"::: - Writing to a file by using the `FilePut` function requires `Write` access from the enumeration. @@ -3643,7 +3643,7 @@ ## Examples This example uses the `FilePut` function to write data to a file. Five records of the structure `Person` are written to the file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet42"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet42"::: ]]> @@ -3741,7 +3741,7 @@ - If the variable being written is an array, you have a choice as to whether or not to write a descriptor for the size and dimensions of the array. Visual Basic 6.0 and earlier versions write the file descriptor for a dynamic array but not for a fixed-size array. Visual Basic 2005 defaults to not writing the descriptor. To write the descriptor, set the `ArrayIsDynamic` parameter to `True`. When writing the array, you have to match the way the array will be read; if it will be read with the descriptor, you have to write the descriptor. The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet43"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet43"::: - If the variable being written is any other type of variable (not a variable-length string or an object), `FilePut` writes only the variable data. The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the length of the data being written. @@ -3759,7 +3759,7 @@ - `FilePut` writes variable-length strings that are not elements of structures without the two-byte length descriptor. The number of bytes written equals the number of characters in the string. For example, the following statements write 11 bytes to file number 1: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet44"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet44"::: - Writing to a file by using the `FilePut` function requires `Write` access from the enumeration. @@ -3768,7 +3768,7 @@ ## Examples This example uses the `FilePut` function to write data to a file. Five records of the structure `Person` are written to the file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet42"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet42"::: ]]> @@ -3851,7 +3851,7 @@ - If the variable being written is an array, you have a choice as to whether or not to write a descriptor for the size and dimensions of the array. Visual Basic 6.0 and earlier versions write the file descriptor for a dynamic array but not for a fixed-size array. Visual Basic 2005 defaults to not writing the descriptor. To write the descriptor, set the `ArrayIsDynamic` parameter to `True`. When writing the array, you have to match the way the array will be read; if it will be read with the descriptor, you have to write the descriptor. The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet43"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet43"::: - If the variable being written is any other type of variable (not a variable-length string or an object), `FilePut` writes only the variable data. The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the length of the data being written. @@ -3869,7 +3869,7 @@ - `FilePut` writes variable-length strings that are not elements of structures without the two-byte length descriptor. The number of bytes written equals the number of characters in the string. For example, the following statements write 11 bytes to file number 1: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet44"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet44"::: - Writing to a file by using the `FilePut` function requires `Write` access from the enumeration. @@ -3878,7 +3878,7 @@ ## Examples This example uses the `FilePut` function to write data to a file. Five records of the structure `Person` are written to the file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet42"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet42"::: ]]> @@ -3969,7 +3969,7 @@ - If the variable being written is an array, you have a choice as to whether or not to write a descriptor for the size and dimensions of the array. Visual Basic 6.0 and earlier versions write the file descriptor for a dynamic array but not for a fixed-size array. Visual Basic 2005 defaults to not writing the descriptor. To write the descriptor, set the `ArrayIsDynamic` parameter to `True`. When writing the array, you have to match the way the array will be read; if it will be read with the descriptor, you have to write the descriptor. The descriptor specifies the rank of the array, the size, and the lower bounds for each rank. Its length equals 2 plus 8 times the number of dimensions: (2 + 8 * NumberOfDimensions). The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the sum of all the bytes required to write the array data and the array descriptor. For example, the following array declaration requires 218 bytes when the array is written to disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet43"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet43"::: - If the variable being written is any other type of variable (not a variable-length string or an object), `FilePut` writes only the variable data. The record length specified by the `RecordLength` clause in the `FileOpen` function must be greater than or equal to the length of the data being written. @@ -3987,7 +3987,7 @@ - `FilePut` writes variable-length strings that are not elements of structures without the two-byte length descriptor. The number of bytes written equals the number of characters in the string. For example, the following statements write 11 bytes to file number 1: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet44"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet44"::: - Writing to a file by using the `FilePut` function requires `Write` access from the enumeration. @@ -3996,7 +3996,7 @@ ## Examples This example uses the `FilePut` function to write data to a file. Five records of the structure `Person` are written to the file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet42"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet42"::: ]]> @@ -4095,7 +4095,7 @@ ## Examples This example uses the `FilePutObject` function to write a string to a file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet54"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet54"::: ]]> @@ -4150,7 +4150,7 @@ ## Examples This example uses the `FileWidth` function to set the output line width for a file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet10"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet10"::: ]]> @@ -4206,7 +4206,7 @@ ## Examples This example uses the `FreeFile` function to return the next available file number. Five files are opened for output within the loop, and some sample data is written to each. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet55"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet55"::: ]]> @@ -4269,7 +4269,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `GetAttr` function to determine the attributes of a file and directory or folder. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet25"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet25"::: ]]> @@ -4365,7 +4365,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Input` function to read data from a file into two variables. This example assumes that `TestFile` is a file that has some lines of data written to it using the `Write` function, each line containing a string in quotations and a number separated by a comma, for example: ("Hello", 234). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet35"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet35"::: ]]> @@ -4452,7 +4452,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Input` function to read data from a file into two variables. This example assumes that `TestFile` is a file that has some lines of data written to it using the `Write` function, each line containing a string in quotations and a number separated by a comma, for example: ("Hello", 234). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet35"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet35"::: ]]> @@ -4539,7 +4539,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Input` function to read data from a file into two variables. This example assumes that `TestFile` is a file that has several lines of data written to it using the `Write` function, each line containing a string in quotations and a number separated by a comma, for example: ("Hello", 234). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet35"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet35"::: ]]> @@ -4626,7 +4626,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Input` function to read data from a file into two variables. This example assumes that `TestFile` is a file that has several lines of data written to it using the `Write` function, each line containing a string in quotations and a number separated by a comma, for example: ("Hello", 234). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet35"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet35"::: ]]> @@ -4713,7 +4713,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Input` function to read data from a file into two variables. This example assumes that `TestFile` is a file that has several lines of data written to it using the `Write` function, each line containing a string in quotations and a number separated by a comma, for example: ("Hello", 234). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet35"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet35"::: ]]> @@ -4800,7 +4800,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Input` function to read data from a file into two variables. This example assumes that `TestFile` is a file that has several lines of data written to it using the `Write` function, each line containing a string in quotations and a number separated by a comma, for example: ("Hello", 234). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet35"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet35"::: ]]> @@ -4887,7 +4887,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Input` function to read data from a file into two variables. This example assumes that `TestFile` is a file that has several lines of data written to it using the `Write` function, each line containing a string in quotations and a number separated by a comma, for example: ("Hello", 234). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet35"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet35"::: ]]> @@ -4974,7 +4974,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Input` function to read data from a file into two variables. This example assumes that `TestFile` is a file that has several lines of data written to it using the `Write` function, each line containing a string in quotations and a number separated by a comma, for example: ("Hello", 234). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet35"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet35"::: ]]> @@ -5061,7 +5061,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Input` function to read data from a file into two variables. This example assumes that `TestFile` is a file that has several lines of data written to it using the `Write` function, each line containing a string in quotations and a number separated by a comma, for example: ("Hello", 234). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet35"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet35"::: ]]> @@ -5154,7 +5154,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Input` function to read data from a file into two variables. This example assumes that `TestFile` is a file that has several lines of data written to it using the `Write` function, each line containing a string in quotations and a number separated by a comma, for example: ("Hello", 234). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet35"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet35"::: ]]> @@ -5241,7 +5241,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Input` function to read data from a file into two variables. This example assumes that `TestFile` is a file that has several lines of data written to it using the `Write` function, each line containing a string in quotations and a number separated by a comma, for example: ("Hello", 234). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet35"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet35"::: ]]> @@ -5328,7 +5328,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Input` function to read data from a file into two variables. This example assumes that `TestFile` is a file that has several lines of data written to it using the `Write` function, each line containing a string in quotations and a number separated by a comma, for example: ("Hello", 234). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet35"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet35"::: ]]> @@ -5416,7 +5416,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `InputString` function to read one character at a time from a file and print it to the `Output` window. This example assumes that `MyFile` is a text file that has several lines of sample data. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet33"::: ]]> @@ -5478,7 +5478,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Kill` function to delete a file from a disk. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet60"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet60"::: ]]> @@ -5547,7 +5547,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `LineInput` function to read a line from a sequential file and assign it to a variable. This example assumes that `TestFile` is a text file that has several lines of sample data. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet19"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet19"::: ]]> @@ -5619,7 +5619,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Loc` function to return the current read/write position in an open file. This example assumes that `MyFile` is a text file that has several lines of sample data. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet17"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet17"::: ]]> @@ -5705,7 +5705,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example illustrates the use of the `Lock` and `Unlock` functions. This example assumes that `People.txt` is a file that contains records of the structure `Person`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet13"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet13"::: ]]> @@ -5783,7 +5783,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example illustrates the use of the `Lock` and `Unlock` functions. This example assumes that `People.txt` is a file that contains records of the structure `Person`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet13"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet13"::: ]]> @@ -5863,7 +5863,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example illustrates the use of the `Lock` and `Unlock` functions. This example assumes that `People.txt` is a file that contains records of the structure `Person`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet13"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet13"::: ]]> @@ -5920,7 +5920,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `LOF` function to determine the size of an open file. This example assumes that `TestFile` is a text file that contains sample data. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet23"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet23"::: ]]> @@ -5980,7 +5980,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `MkDir` function to create a directory. If the drive is not specified, the new directory is created on the current drive. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet38"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet38"::: ]]> @@ -6075,7 +6075,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Print` and `PrintLine` functions to write data to a file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet53"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet53"::: ]]> @@ -6169,7 +6169,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Print` and `PrintLine` functions to write data to a file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet53"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet53"::: ]]> @@ -6243,7 +6243,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Rename` function to rename a file. For purposes of this example, assume that the directories that are specified already exist. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet30"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet30"::: ]]> @@ -6301,7 +6301,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Reset` function to close all open files and write the contents of all file buffers to disk. Note the use of the `Object` variable `FileNumber` as both a string and a number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet12"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet12"::: ]]> @@ -6356,7 +6356,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `RmDir` function to remove an existing directory. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet31"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet31"::: ]]> @@ -6436,21 +6436,21 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Seek` function to return the current file position. The example assumes `TestFile` is a file that contains records of the structure `Record`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet47"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet47"::: For files opened in `Random` mode, `Seek` returns the number of next record. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet48"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet48"::: For files opened in modes other than `Random` mode, `Seek` returns the byte position at which the next operation occurs. Assume `TestFile` is a file that contains several lines of text. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet49"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet49"::: This example uses the `Seek` function to set the position for the next read or write in a file. For files opened in modes other than `Random` mode, `Seek` sets the byte position at which the next operation occurs. Assume `TestFile` is a file that contains several lines of text. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet52"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet52"::: ]]> @@ -6519,21 +6519,21 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Seek` function to return the current file position. The example assumes `TestFile` is a file that contains records of the structure `Record`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet47"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet47"::: For files opened in `Random` mode, `Seek` returns the number of next record. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet48"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet48"::: For files opened in modes other than `Random` mode, `Seek` returns the byte position at which the next operation occurs. Assume `TestFile` is a file that contains several lines of text. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet49"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet49"::: This example uses the `Seek` function to set the position for the next read or write in a file. For files opened in modes other than `Random` mode, `Seek` sets the byte position at which the next operation occurs. Assume `TestFile` is a file that contains several lines of text. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet52"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet52"::: ]]> @@ -6611,7 +6611,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `SetAttr` function to set attributes for a file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet14"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet14"::: ]]> @@ -6678,7 +6678,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `SPC` function to position output in a file and in the **Output** window. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet16"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet16"::: ]]> @@ -6754,7 +6754,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `TAB` function to position output in a file and in the **Output** window. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet37"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet37"::: ]]> @@ -6824,7 +6824,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `TAB` function to position output in a file and in the **Output** window. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet37"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet37"::: ]]> @@ -6911,7 +6911,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example illustrates the use of the `Lock` and `Unlock` functions. This example assumes that `People.txt` is a file that contains records of the structure `Person`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet13"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet13"::: ]]> @@ -6989,7 +6989,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example illustrates the use of the `Lock` and `Unlock` functions. This example assumes that `People.txt` is a file that contains records of the structure `Person`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet13"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet13"::: ]]> @@ -7069,7 +7069,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example illustrates the use of the `Lock` and `Unlock` functions. This example assumes that `People.txt` is a file that contains records of the structure `Person`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet13"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet13"::: ]]> @@ -7147,7 +7147,7 @@ Result = GetAttr(FName) And vbArchive You can embed quotation marks in a string by using double quotation marks, or "". For example, - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet63"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet63"::: returns a string with the value of `Double quotation marks aren't "difficult" to handle`. @@ -7158,7 +7158,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Write` function to write raw data to a sequential file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet64"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet64"::: ]]> @@ -7241,7 +7241,7 @@ Result = GetAttr(FName) And vbArchive You can embed quotation marks in a string by using double quotation marks, or "". For example, - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet63"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet63"::: returns a string with the value of `Double quotation marks aren't "difficult" to handle`. @@ -7252,7 +7252,7 @@ Result = GetAttr(FName) And vbArchive ## Examples This example uses the `Write` function to write raw data to a sequential file. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet64"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet64"::: ]]> diff --git a/xml/Microsoft.VisualBasic/Financial.xml b/xml/Microsoft.VisualBasic/Financial.xml index d0be132f6f2..2710172255f 100644 --- a/xml/Microsoft.VisualBasic/Financial.xml +++ b/xml/Microsoft.VisualBasic/Financial.xml @@ -48,7 +48,7 @@ ## Examples This example uses the `Rate` function to calculate the interest rate of a loan, given the total number of payments (`TotPmts`), the amount of the loan payment (`Payment`), the present value or principal of the loan (`PVal`), the future value of the loan (`FVal`), a number that indicates whether the payment is due at the beginning or end of the payment period (`PayType`), and an approximation of the expected interest rate (`Guess`). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet2"::: ]]> @@ -115,7 +115,7 @@ ## Examples This example uses the `DDB` function to return the depreciation of an asset for a specified period given the initial cost (`InitCost`), the salvage value at the end of the asset's useful life (`SalvageVal`), the total life of the asset in years (`LifeTime`), and the period in years for which the depreciation is calculated (`Depr`). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet3"::: ]]> @@ -189,7 +189,7 @@ ## Examples This example uses the `FV` function to return the future value of an investment given the percentage rate that accrues per period (`APR / 12`), the total number of payments (`TotPmts`), the payment (`Payment`), the current value of the investment (`PVal`), and a number that indicates whether the payment is made at the beginning or end of the payment period (`PayType`). Note that because `Payment` represents cash paid out, it is a negative number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet22"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet22"::: ]]> @@ -254,7 +254,7 @@ ## Examples This example uses the `IPmt` function to calculate how much of a payment is interest when all the payments are of equal value. Given are the interest percentage rate per period (`APR / 12`), the payment period for which the interest portion is desired (`Period`), the total number of payments (`TotPmts`), the present value or principal of the loan (`PVal`), the future value of the loan (`FVal`), and a number that indicates whether the payment is due at the beginning or end of the payment period (`PayType`). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet26"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet26"::: ]]> @@ -314,7 +314,7 @@ ## Examples In this example, the `IRR` function returns the internal rate of return for a series of five cash flows contained in the array `Values()`. The first array element is a negative cash flow representing business start-up costs. The remaining four cash flows represent positive cash flows for the subsequent four years. `Guess` is the estimated internal rate of return. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet20"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet20"::: ]]> @@ -378,7 +378,7 @@ ## Examples This example uses the `MIRR` function to return the modified internal rate of return for a series of cash flows contained in the array `Values()`. `LoanAPR` represents the financing interest, and `InvAPR` represents the interest rate received on reinvestment. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet29"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet29"::: ]]> @@ -445,7 +445,7 @@ ## Examples This example uses the `NPer` function to return the number of periods during which payments must be made to pay off a loan whose value is contained in `PVal`. Also provided are the interest percentage rate per period (`APR / 12`), the payment (`Payment`), the future value of the loan (`FVal`), and a number that indicates whether the payment is due at the beginning or end of the payment period (`PayType`). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet19"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet19"::: ]]> @@ -510,7 +510,7 @@ ## Examples This example uses the `NPV` function to return the net present value for a series of cash flows contained in the array `values()`. The return value, stored in `FixedRetRate`, represents the fixed internal rate of return. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet1"::: ]]> @@ -584,7 +584,7 @@ ## Examples This example uses the `Pmt` function to return the monthly payment for a loan during a fixed period. Given are the interest percentage rate per period (`APR / 12`), the total number of payments (`TotPmts`), the present value or principal of the loan (`PVal`), the future value of the loan (`FVal`), and a number that indicates whether the payment is due at the beginning or end of the payment period `(PayType).` - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet7"::: ]]> @@ -652,7 +652,7 @@ ## Examples This example uses the `PPmt` function to calculate how much of a payment for a specific period is principal when all the payments are of equal value. Given are the interest percentage rate per period (`APR / 12`), the payment period for which the principal portion is desired (`Period`), the total number of payments (`TotPmts`), the present value or principal of the loan (`PVal`), the future value of the loan (`FVal`), and a number that indicates whether the payment is due at the beginning or end of the payment period (`PayType`). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet24"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet24"::: ]]> @@ -718,7 +718,7 @@ ## Examples In this example, the `PV` function returns the present value of an \\$1,000,000 annuity that will provide \\$50,000 a year for the next 20 years. Provided are the expected annual percentage rate (`APR`), the total number of payments (`TotPmts`), the amount of each payment (`YrIncome`), the total future value of the investment (`FVal`), and a number that indicates whether each payment is made at the beginning or end of the payment period (`PayType`). Note that `YrIncome` is a negative number because it represents cash paid out from the annuity each year. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet25"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet25"::: ]]> @@ -783,7 +783,7 @@ ## Examples This example uses the `Rate` function to calculate the interest rate of a loan given the total number of payments (`TotPmts`), the amount of the loan payment (`Payment`), the present value or principal of the loan (`PVal`), the future value of the loan (`FVal`), a number that indicates whether the payment is due at the beginning or end of the payment period (`PayType`), and an approximation of the expected interest rate (`Guess`). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet2"::: ]]> @@ -842,7 +842,7 @@ ## Examples This example uses the `SLN` function to return the straight-line depreciation of an asset for a single period given the asset's initial cost (`InitCost`), the salvage value at the end of the asset's useful life (`SalvageVal`), and the total life of the asset in years (`LifeTime`). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet3"::: ]]> @@ -904,7 +904,7 @@ ## Examples This example uses the `SYD` function to return the depreciation of an asset for a specified period given the asset's initial cost (`InitCost`), the salvage value at the end of the asset's useful life (`SalvageVal`), and the total life of the asset in years (`LifeTime`). - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet3"::: ]]> diff --git a/xml/Microsoft.VisualBasic/Globals.xml b/xml/Microsoft.VisualBasic/Globals.xml index aabfc305ea8..d849492c6f8 100644 --- a/xml/Microsoft.VisualBasic/Globals.xml +++ b/xml/Microsoft.VisualBasic/Globals.xml @@ -88,7 +88,7 @@ End Function ## Examples The following example uses the `ScriptEngine` property and related properties to return a string describing the current run-time information: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/Module1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Globals/ScriptEngine/Module1.vb" id="Snippet1"::: ]]> @@ -130,7 +130,7 @@ End Function ## Examples The following example uses the `ScriptEngineBuildVersion` property and related properties to return a string describing the current run-time information: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/Module1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Globals/ScriptEngine/Module1.vb" id="Snippet1"::: ]]> @@ -172,7 +172,7 @@ End Function ## Examples The following example uses the `ScriptEngineMajorVersion` property and related properties to return a string describing the current run-time information: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/Module1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Globals/ScriptEngine/Module1.vb" id="Snippet1"::: ]]> @@ -214,7 +214,7 @@ End Function ## Examples The following example uses the `ScriptEngineMinorVersion` property and related properties to return a string describing the current run-time information: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrScriptEngineProperties/VB/Module1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Globals/ScriptEngine/Module1.vb" id="Snippet1"::: ]]> diff --git a/xml/Microsoft.VisualBasic/HideModuleNameAttribute.xml b/xml/Microsoft.VisualBasic/HideModuleNameAttribute.xml index 94fb05855e9..0fbecac4260 100644 --- a/xml/Microsoft.VisualBasic/HideModuleNameAttribute.xml +++ b/xml/Microsoft.VisualBasic/HideModuleNameAttribute.xml @@ -53,7 +53,7 @@ ## Examples This example shows how to use the `HideModuleNameAttribute` attribute to add a Database object to `My`, which can be accessed through `My.Database`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/Class2.vb" id="Snippet26"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/Class2.vb" id="Snippet26"::: The `Namespace` statement must appear outside of any classes or modules. diff --git a/xml/Microsoft.VisualBasic/Information.xml b/xml/Microsoft.VisualBasic/Information.xml index 94259d1197d..011744c50be 100644 --- a/xml/Microsoft.VisualBasic/Information.xml +++ b/xml/Microsoft.VisualBasic/Information.xml @@ -120,7 +120,7 @@ testVbName = VbTypeName(sysBadName) ## Examples This example uses the `Erl` property to indicate the line number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrErrorHandling/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/ErrObject/Clear/Class1.vb" id="Snippet6"::: ]]> @@ -180,7 +180,7 @@ testVbName = VbTypeName(sysBadName) ## Examples This example uses the properties of the `Err` object in constructing an error-message dialog box. Notice that if you use the `Clear` method first, when you generate a Visual Basic error with the `Raise` method, Visual Basic's default values become the properties of the `Err` object. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrErrorHandling/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/ErrObject/Clear/Class1.vb" id="Snippet3"::: ]]> @@ -240,7 +240,7 @@ testVbName = VbTypeName(sysBadName) ## Examples This example uses the `IsArray` function to check if several variables refer to an array. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet34"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet34"::: ]]> @@ -305,7 +305,7 @@ testVbName = VbTypeName(sysBadName) ## Examples The following example uses the `IsDate` function to determine if several variables represent valid values. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet35"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet35"::: In the preceding example, `IsDate` returns `True` for the first four calls and `False` for the last call. @@ -372,7 +372,7 @@ testVbName = VbTypeName(sysBadName) ## Examples This example uses the `IsDBNull` function to determine if a variable evaluates to `DBNull`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet36"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet36"::: ]]> @@ -437,7 +437,7 @@ testVbName = VbTypeName(sysBadName) ## Examples The following example uses the `IsError` function to check if an expression represents a system exception. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet37"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet37"::: ]]> @@ -501,7 +501,7 @@ testVbName = VbTypeName(sysBadName) ## Examples The following example uses the `IsNothing` function to determine if an object variable is associated with any object instance. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet38"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet38"::: ]]> @@ -566,7 +566,7 @@ testVbName = VbTypeName(sysBadName) ## Examples The following example uses the `IsNumeric` function to determine if the contents of a variable can be evaluated as a number. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet39"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet39"::: ]]> @@ -630,7 +630,7 @@ testVbName = VbTypeName(sysBadName) ## Examples This example uses the `IsReference` function to check if several variables refer to reference types. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet40"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet40"::: In the preceding example, the first three calls to `IsReference` return `True`. The last call returns `False`, because `Integer` is a value type, not a reference type. @@ -708,7 +708,7 @@ Dim a(100, 5, 4) As Byte ## Examples The following example uses the `LBound` function to determine the lowest available subscript for the indicated dimension of an array. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet41"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet41"::: ]]> @@ -783,7 +783,7 @@ Dim a(100, 5, 4) As Byte ## Examples This example uses the `QBColor` function to change to the color indicated by `colorInteger`. `QBColor` accepts integer values between 0 and 15. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet29"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet29"::: ]]> @@ -859,7 +859,7 @@ Dim a(100, 5, 4) As Byte ## Examples This example shows how the `RGB` function is used to return a whole number representing an `RGB` color value. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet18"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet18"::: ]]> @@ -917,7 +917,7 @@ Dim a(100, 5, 4) As Byte ## Examples The following example uses the `SystemTypeName` function to return data type names for several variables. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet49"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet49"::: ]]> @@ -1007,7 +1007,7 @@ Dim a(100, 5, 4) As Byte ## Examples The following example uses the `TypeName` function to return data type information about several variables. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet52"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet52"::: ]]> @@ -1091,7 +1091,7 @@ total = (UBound(A, 1) + 1) * (UBound(A, 2) + 1) * (UBound(A, 3) + 1) ## Examples The following example uses the `UBound` function to determine the highest available subscript for the indicated dimension of an array. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet53"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet53"::: ]]> @@ -1167,7 +1167,7 @@ total = (UBound(A, 1) + 1) * (UBound(A, 2) + 1) * (UBound(A, 3) + 1) ## Examples The following example uses the `VarType` function to return data type classification information about several variables. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet55"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet55"::: ]]> @@ -1232,7 +1232,7 @@ total = (UBound(A, 1) + 1) * (UBound(A, 2) + 1) * (UBound(A, 3) + 1) ## Examples The following example uses the `VbTypeName` function to return data type names for several variables. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet56"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet56"::: ]]> diff --git a/xml/Microsoft.VisualBasic/Interaction.xml b/xml/Microsoft.VisualBasic/Interaction.xml index 3c3a381d893..f205fc9a6dc 100644 --- a/xml/Microsoft.VisualBasic/Interaction.xml +++ b/xml/Microsoft.VisualBasic/Interaction.xml @@ -131,7 +131,7 @@ procID = Shell("C:\Windows\system32\calc.exe", AppWinStyle.NormalFocus) ## Examples This example illustrates various uses of the `AppActivate` function to activate an application window. If a Notepad process is not running, the example throws an . The `Shell` procedure assumes the applications are in the paths specified. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet11"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet11"::: ]]> @@ -202,7 +202,7 @@ procID = Shell("C:\Windows\system32\calc.exe", AppWinStyle.NormalFocus) ## Examples This example illustrates various uses of the `AppActivate` function to activate an application window. If a Notepad process is not running, the example throws an . The `Shell` procedure assumes the applications are in the paths specified. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet11"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet11"::: ]]> @@ -267,7 +267,7 @@ procID = Shell("C:\Windows\system32\calc.exe", AppWinStyle.NormalFocus) ## Examples This example uses the `Beep` function to sound a tone through the computer's speaker. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet59"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet59"::: ]]> @@ -353,13 +353,13 @@ procID = Shell("C:\Windows\system32\calc.exe", AppWinStyle.NormalFocus) ## Examples In the following example, the first line uses `CallByName` to set the `Text` property of a text box, the second line retrieves the value of the `Text` property, and the third line invokes the `Move` method to move the text box. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet99"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet99"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet20"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet20"::: The next example uses the `CallByName` function to invoke the `Add` and `Item` methods of a collection object. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet21"::: ]]> @@ -436,7 +436,7 @@ procID = Shell("C:\Windows\system32\calc.exe", AppWinStyle.NormalFocus) ## Examples This example uses the `Choose` function to display a name in response to an index passed into the procedure in the `Ind` parameter. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet22"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet22"::: ]]> @@ -497,7 +497,7 @@ procID = Shell("C:\Windows\system32\calc.exe", AppWinStyle.NormalFocus) ## Examples This example uses the `Command` function to return the command-line arguments in an object that contains an array. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet58"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet58"::: ]]> @@ -622,7 +622,7 @@ End Sub ## Examples The following example uses the `CreateObject` function to create a Microsoft Excel worksheet and saves the worksheet to a file. To use this example, Excel must be installed on the computer where this program runs. Also, you must add a reference to the type library from the **COM** tab of the **Add Reference** dialog box on the **Project** menu. The name of the type library varies depending on the version of Excel installed on your computer. For example, the type library for Microsoft Excel 2002 is named **Microsoft Excel 10.0 Object Library**. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrExcelObject/VB/Class1.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Interaction/CreateObject/Class1.vb" id="Snippet1"::: ]]> @@ -705,7 +705,7 @@ End Sub ## Examples The following example first uses the `SaveSetting` procedure to make entries in the Windows registry for the `MyApp` application, and then uses the `DeleteSetting` function to remove them. Because no `Key` argument is specified, the whole `Startup` section is deleted, including the section name and all of its keys. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet45"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet45"::: ]]> @@ -781,7 +781,7 @@ End Sub ## Examples This example uses the function to supply the entry number and length of the `PATH` statement from the environment-string table. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet28"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet28"::: ]]> @@ -849,7 +849,7 @@ End Sub ## Examples This example uses the function to supply the entry number and length of the `PATH` statement from the environment-string table. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet28"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet28"::: ]]> @@ -925,7 +925,7 @@ End Sub ## Examples This example first uses the `SaveSetting` function to make entries in the Windows registry for the application specified as `AppName`, then uses the `GetAllSettings` function to display the settings. Note that application names and `Section` names cannot be retrieved with `GetAllSettings`. Finally, the `DeleteSetting` function removes the application's entries. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet68"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet68"::: ]]> @@ -1060,11 +1060,11 @@ drawObj.SaveAs("C:\Drawings\sample.drw") This example requires `Option Strict Off` because it uses late binding, where objects are assigned to variables of type `Object`. You can specify `Option Strict On` and declare objects of specific object types if you add a reference to the Excel type library from the **COM** tab of the **Add Reference** dialog box of the **Project** menu in Visual Studio. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrExcelObject/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Interaction/CreateObject/Class1.vb" id="Snippet2"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrExcelObject/VB/Class1.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Interaction/CreateObject/Class1.vb" id="Snippet4"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrExcelObject/VB/Class1.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Interaction/CreateObject/Class1.vb" id="Snippet5"::: When you call the `getExcel` function, a check is made to see if Excel is already running. If it is not, then an instance is created. @@ -1160,7 +1160,7 @@ drawObj.SaveAs("C:\Drawings\sample.drw") ## Examples This example first uses the `SaveSetting` function to make entries in the Windows registry for the application specified as `AppName`, and then uses the `GetSetting` function to display one of the settings. Because the `Default` argument is specified, some value is guaranteed to be returned. Notice that `Section` names cannot be retrieved with `GetSetting`. Finally, the `DeleteSetting` function removes all the application's entries. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet61"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet61"::: ]]> @@ -1225,7 +1225,7 @@ drawObj.SaveAs("C:\Drawings\sample.drw") ## Examples This example uses the `IIf` function to evaluate the `testMe` parameter of the `checkIt` procedure and returns the word "Large" if the amount is greater than 1000; otherwise, it returns the word "Small". - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet33"::: Note that if `Option Strict` is `On`, you must use the `CStr` keyword to explicitly convert the return from `Object` to `String`. @@ -1296,7 +1296,7 @@ drawObj.SaveAs("C:\Drawings\sample.drw") ## Examples This example shows various ways to use the `InputBox` function to prompt the user to enter a value. If the x and y positions are omitted, the dialog box is automatically centered for the respective axes. The variable `MyValue` contains the value entered by the user if the user clicks OK or presses the ENTER key. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet67"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet67"::: ]]> @@ -1394,7 +1394,7 @@ drawObj.SaveAs("C:\Drawings\sample.drw") ## Examples This example uses the `MsgBox` function to display a critical-error message in a dialog box with Yes and No buttons. The No button is specified as the default response. This is done by combining the `MsgBox` constant values into one numeric expression. In this case, adding 4 (the Yes/No button combination) and 16 (the **Critical Message** window) and 256 (the second button as default button) gives a total of 276. The value returned by the `MsgBox` function depends on the button chosen by the user: Yes returns a value of 6; No returns a value of 7. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet20"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet20"::: ]]> @@ -1471,7 +1471,7 @@ drawObj.SaveAs("C:\Drawings\sample.drw") ## Examples The following example sets up a series of ranges for decades from 1950 through 2049. It locates the value of `year` within the appropriate range and returns a `String` value showing the range. If `year` has a value of 1984, for example, `Partition` returns "1980:1989". - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet45"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet45"::: ]]> @@ -1541,7 +1541,7 @@ drawObj.SaveAs("C:\Drawings\sample.drw") ## Examples The following example first uses the `SaveSetting` function to make entries in the Windows registry for the `MyApp` application, and then uses the `DeleteSetting` function to remove them. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrCatRef/VB/Class1.vb" id="Snippet56"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/ErrorToString/Class1.vb" id="Snippet56"::: ]]> @@ -1661,7 +1661,7 @@ ID = Shell("""C:\Program Files\display.exe"" -a -q", , True, 100000) ## Examples The following example uses the `Shell` function to run an application specified by the user. Specifying as the second argument opens the application in normal size and gives it the focus. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet47"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet47"::: ]]> @@ -1735,7 +1735,7 @@ ID = Shell("""C:\Program Files\display.exe"" -a -q", , True, 100000) ## Examples The following example uses the `Switch` function to return the name of a language that matches the name of a city. It requires that `Option Strict` be `Off`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet48"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet48"::: Because the namespace also contains a class called , a call to the `Switch` function must be qualified with the namespace. diff --git a/xml/Microsoft.VisualBasic/Strings.xml b/xml/Microsoft.VisualBasic/Strings.xml index ea5a119795b..c92356a00b1 100644 --- a/xml/Microsoft.VisualBasic/Strings.xml +++ b/xml/Microsoft.VisualBasic/Strings.xml @@ -50,7 +50,7 @@ ## Examples The following example demonstrates how to split a string at its spaces. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet13"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet13"::: ]]> @@ -120,7 +120,7 @@ ## Examples The following example uses the `Asc` function to return `Integer` character codes corresponding to the first letter in each string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet19"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet19"::: ]]> @@ -185,7 +185,7 @@ ## Examples The following example uses the `Asc` function to return `Integer` character codes corresponding to the first letter in each string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet19"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet19"::: ]]> @@ -259,7 +259,7 @@ ## Examples The following example uses the `Asc` function to return `Integer` character codes corresponding to the first letter in each string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet19"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet19"::: ]]> @@ -324,7 +324,7 @@ ## Examples The following example uses the `Asc` function to return `Integer` character codes corresponding to the first letter in each string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrFunctions/VB/Class1.vb" id="Snippet19"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Val/Class1.vb" id="Snippet19"::: ]]> @@ -395,7 +395,7 @@ ## Examples The following example uses the `Chr` function to return the character associated with the specified character code. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet7"::: ]]> @@ -468,7 +468,7 @@ ## Examples The following example uses the `Chr` function to return the character associated with the specified character code. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet7"::: ]]> @@ -574,7 +574,7 @@ ## Examples This example demonstrates the use of the `Filter` function. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet24"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet24"::: ]]> @@ -667,7 +667,7 @@ ## Examples This example demonstrates the use of the `Filter` function. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet24"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet24"::: ]]> @@ -743,11 +743,11 @@ The following example has two sections: the first defines the format for positive values and zeros; the second section defines the format for negative values. Since the `Style` argument of the `Format` function takes a string, it is enclosed by quotation marks. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet18"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet18"::: If you include semicolons with nothing between them, the missing section is printed using the format of the positive value. For example, the following format displays positive and negative values using the format in the first section and displays `Zero` if the value is zero. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet19"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet19"::: ## Predefined Numeric Formats The following table identifies the predefined numeric format names. These may be used by name as the `Style` argument for the `Format` function: @@ -890,7 +890,7 @@ > [!NOTE] > For locales that use a 24-hour clock, the AM/PM indicators (`t` and `tt`) display nothing. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet27"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet27"::: ]]> @@ -974,7 +974,7 @@ ## Examples The following example illustrates the use of the `FormatCurrency` function. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet32"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet32"::: ]]> @@ -1051,7 +1051,7 @@ ## Examples This example demonstrates the use of the `FormatDateTime` function. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet3"::: ]]> @@ -1139,7 +1139,7 @@ ## Examples This example demonstrates the `FormatNumber` function. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet15"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet15"::: ]]> @@ -1225,7 +1225,7 @@ ## Examples This example illustrates the use of the `FormatPercent` function. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet28"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet28"::: ]]> @@ -1289,7 +1289,7 @@ ## Examples This example shows how to use the `GetChar` function to return a character from a specified index in a `String`. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet23"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet23"::: ]]> @@ -1402,7 +1402,7 @@ ## Examples This example uses the `InStr` function to return the position of the first occurrence of one string within another. In the first example, the search starts from the fourth character and returns the next lower case "p" because `CompareMethod` is `Text` and therefore case insensitive. The position is always relative to the beginning of the string, regardless of the start position. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet8"::: ]]> @@ -1525,7 +1525,7 @@ ## Examples This example uses the `InStr` function to return the position of the first occurrence of one string within another. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet8"::: ]]> @@ -1640,7 +1640,7 @@ ## Examples This example demonstrates the use of the `InStrRev` function. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet26"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet26"::: ]]> @@ -1716,7 +1716,7 @@ ## Examples The following example demonstrates how to use the `Join` function to create a list from several strings. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet10"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet10"::: ]]> @@ -1783,7 +1783,7 @@ ## Examples The following example demonstrates how to use the `Join` function to create a list from several strings. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet10"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet10"::: ]]> @@ -1855,7 +1855,7 @@ ## Examples This example uses the `LCase` function to return a lowercase version of a string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet12"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet12"::: ]]> @@ -1923,7 +1923,7 @@ ## Examples This example uses the `LCase` function to return a lowercase version of a string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet12"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet12"::: ]]> @@ -1992,7 +1992,7 @@ ## Examples This example demonstrates the use of the `Left` function to return a substring of a given `String`. In a class that has a `Left` property, it may be necessary to fully qualify the `Left` function. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet20"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet20"::: ]]> @@ -2072,7 +2072,7 @@ ## Examples This example uses `Len` to return the number of characters in a string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet33"::: ]]> @@ -2141,7 +2141,7 @@ ## Examples This example uses `Len` to return the number of characters in a string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet33"::: ]]> @@ -2210,7 +2210,7 @@ ## Examples This example uses `Len` to return the number of characters in a string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet33"::: ]]> @@ -2279,7 +2279,7 @@ ## Examples This example uses `Len` to return the number of characters in a string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet33"::: ]]> @@ -2348,7 +2348,7 @@ ## Examples This example uses `Len` to return the number of characters in a string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet33"::: ]]> @@ -2417,7 +2417,7 @@ ## Examples This example uses `Len` to return the number of characters in a string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet33"::: ]]> @@ -2486,7 +2486,7 @@ ## Examples This example uses `Len` to return the number of characters in a string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet33"::: ]]> @@ -2555,7 +2555,7 @@ ## Examples This example uses `Len` to return the number of characters in a string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet33"::: ]]> @@ -2624,7 +2624,7 @@ ## Examples This example uses `Len` to return the number of characters in a string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet33"::: ]]> @@ -2704,7 +2704,7 @@ ## Examples This example uses `Len` to return the number of characters in a string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet33"::: ]]> @@ -2778,7 +2778,7 @@ ## Examples This example uses `Len` to return the number of characters in a string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet33"::: ]]> @@ -2848,7 +2848,7 @@ ## Examples This example uses `Len` to return the number of characters in a string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet33"::: ]]> @@ -2918,7 +2918,7 @@ ## Examples This example uses `Len` to return the number of characters in a string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet33"::: ]]> @@ -2992,7 +2992,7 @@ ## Examples This example uses `Len` to return the number of characters in a string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet33"::: ]]> @@ -3067,7 +3067,7 @@ ## Examples This example uses `Len` to return the number of characters in a string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet33"::: ]]> @@ -3142,7 +3142,7 @@ ## Examples This example uses `Len` to return the number of characters in a string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet33"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet33"::: ]]> @@ -3211,7 +3211,7 @@ ## Examples This example demonstrates the use of the `LSet` function. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet11"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet11"::: ]]> @@ -3276,7 +3276,7 @@ ## Examples This example uses the `LTrim` function to strip leading spaces and the `RTrim` function to strip trailing spaces from a string variable. It uses the `Trim` function to strip both types of spaces. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet25"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet25"::: ]]> @@ -3352,7 +3352,7 @@ ## Examples The last line in this example uses this overload of the `Mid` function to return the fifth and subsequent characters from a string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet17"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet17"::: ]]> @@ -3435,7 +3435,7 @@ ## Examples The first two `Mid` functions in this example return the specified number of characters from a string, starting from the given positions. (The last function illustrates the overload and only specifies the starting point for the string extraction.) - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet17"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet17"::: ]]> @@ -3599,7 +3599,7 @@ Dim aString As String = Replace(TestString, "o", "i") ## Examples This example demonstrates the use of the `Right` function to return a substring of a given `String`. In a class that has a `Right` property, it may be necessary to fully qualify the `Right` function. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet21"::: ]]> @@ -3669,7 +3669,7 @@ Dim aString As String = Replace(TestString, "o", "i") ## Examples This example demonstrates the use of the `RSet` function. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet9"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet9"::: ]]> @@ -3734,7 +3734,7 @@ Dim aString As String = Replace(TestString, "o", "i") ## Examples This example uses the `LTrim` function to strip leading spaces and the `RTrim` function to strip trailing spaces from a string variable. It uses the `Trim` function to strip both types of spaces. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet25"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet25"::: ]]> @@ -3793,7 +3793,7 @@ Dim aString As String = Replace(TestString, "o", "i") ## Examples This example uses the `Space` function to return a string consisting of a specified number of spaces. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet2"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet2"::: ]]> @@ -3893,11 +3893,11 @@ Dim aString As String = Replace(TestString, "o", "i") ## Examples The following example demonstrates how to split a string at its spaces. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet13"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet13"::: The following example demonstrates how to split strings with multiple delimiters in a row and filter out the empty strings. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet14"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet14"::: ]]> @@ -3970,7 +3970,7 @@ Dim aString As String = Replace(TestString, "o", "i") ## Examples This example uses the `StrComp` function to return the results of a string comparison. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet22"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet22"::: ]]> @@ -4070,7 +4070,7 @@ Dim aString As String = Replace(TestString, "o", "i") ## Examples This example converts text into all lowercase letters. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet6"::: ]]> @@ -4141,7 +4141,7 @@ Dim aString As String = Replace(TestString, "o", "i") ## Examples This example uses the `StrDup` function to return a string of duplicated characters. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet34"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet34"::: ]]> @@ -4204,7 +4204,7 @@ Dim aString As String = Replace(TestString, "o", "i") ## Examples This example uses the `StrDup` function to return a string of duplicated characters. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet34"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet34"::: ]]> @@ -4267,7 +4267,7 @@ Dim aString As String = Replace(TestString, "o", "i") ## Examples This example uses the `StrDup` function to return a string of duplicated characters. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet34"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet34"::: ]]> @@ -4339,7 +4339,7 @@ For more information about how .NET divides a string instance into text elements ## Examples - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet29"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet29"::: ]]> @@ -4402,7 +4402,7 @@ For more information about how .NET divides a string instance into text elements ## Examples This example uses the `LTrim` function to strip leading spaces and the `RTrim` function to strip trailing spaces from a string variable. It uses the `Trim` function to strip both types of spaces. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet25"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet25"::: ]]> @@ -4475,7 +4475,7 @@ For more information about how .NET divides a string instance into text elements ## Examples This example uses the `UCase` function to return an uppercase version of a string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet31"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet31"::: ]]> @@ -4545,7 +4545,7 @@ For more information about how .NET divides a string instance into text elements ## Examples This example uses the `UCase` function to return an uppercase version of a string. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrStrings/VB/Class1.vb" id="Snippet31"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Overview/Class1.vb" id="Snippet31"::: ]]> diff --git a/xml/Microsoft.VisualBasic/VBFixedArrayAttribute.xml b/xml/Microsoft.VisualBasic/VBFixedArrayAttribute.xml index 3728159b2eb..3a95c5cc227 100644 --- a/xml/Microsoft.VisualBasic/VBFixedArrayAttribute.xml +++ b/xml/Microsoft.VisualBasic/VBFixedArrayAttribute.xml @@ -48,7 +48,7 @@ ## Examples - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/Class2.vb" id="Snippet22"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/Class2.vb" id="Snippet22"::: > [!NOTE] > The `VBFixedArrayAttribute` is informational and does not allocate any storage. The purpose of this attribute is to modify how arrays in structures and non-local variables are used by methods or API calls that recognize the `VBFixedArrayAttribute`. Keep in mind that this attribute does not convert a variable length array to a fixed array and that you must still allocate array storage using `Dim` or `ReDim` statements. diff --git a/xml/Microsoft.VisualBasic/VBFixedStringAttribute.xml b/xml/Microsoft.VisualBasic/VBFixedStringAttribute.xml index 4cb56c2b23d..0c46f85acdf 100644 --- a/xml/Microsoft.VisualBasic/VBFixedStringAttribute.xml +++ b/xml/Microsoft.VisualBasic/VBFixedStringAttribute.xml @@ -44,7 +44,7 @@ ## Examples - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbCnAttributes/VB/Class2.vb" id="Snippet23"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/ComClassAttribute/Overview/Class2.vb" id="Snippet23"::: > [!NOTE] > The `VBFixedStringAttribute` is informational and cannot be used to convert a variable length string to a fixed string. The purpose of this attribute is to modify how strings in structures and non-local variables are used by methods or API calls that recognize the `VBFixedStringAttribute`. Keep in mind that this attribute does not change the actual length of the string itself. diff --git a/xml/Microsoft.VisualBasic/VBMath.xml b/xml/Microsoft.VisualBasic/VBMath.xml index 0af2bf14433..255cadfeb10 100644 --- a/xml/Microsoft.VisualBasic/VBMath.xml +++ b/xml/Microsoft.VisualBasic/VBMath.xml @@ -46,7 +46,7 @@ ## Examples This example uses the `Rnd` function to generate a random integer value in the range from 1 to 6. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet21"::: ]]> @@ -116,7 +116,7 @@ ## Examples This example uses the `Randomize` statement to initialize the random-number generator. Because the number argument has been omitted, `Randomize` uses the return value from the `Timer` function as the new seed value. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet21"::: ]]> @@ -178,7 +178,7 @@ ## Examples This example uses the `Randomize` statement to initialize the random-number generator. Because the number argument has been omitted, `Randomize` uses the return value from the `Timer` function as the new seed value. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet21"::: ]]> @@ -244,7 +244,7 @@ To produce random integers in a given range, use the following formula. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet30"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet30"::: Here, `upperbound` is the highest number in the range, and `lowerbound` is the lowest number in the range. @@ -259,7 +259,7 @@ ## Examples This example uses the `Rnd` function to generate a random integer value in the range from 1 to 6. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet21"::: ]]> @@ -317,7 +317,7 @@ To produce random integers in a given range, use the following formula. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet30"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet30"::: Here, `upperbound` is the highest number in the range, and `lowerbound` is the lowest number in the range. @@ -332,7 +332,7 @@ ## Examples This example uses the `Rnd` function to generate a random integer value in the range from 1 to 6. - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrMath/VB/Class1.vb" id="Snippet21"::: + :::code language="vb" source="~/snippets/visualbasic/Microsoft.VisualBasic/Conversion/Fix/Class1.vb" id="Snippet21"::: ]]> diff --git a/xml/System.Data.Services.Client/DataServiceCollection`1.xml b/xml/System.Data.Services.Client/DataServiceCollection`1.xml index d46f1b6a4c5..bce290a67e3 100644 --- a/xml/System.Data.Services.Client/DataServiceCollection`1.xml +++ b/xml/System.Data.Services.Client/DataServiceCollection`1.xml @@ -38,11 +38,11 @@ The following example is from the code-behind page for an Extensible Application Markup Language (XAML) page that defines the `SalesOrders` window in WPF. When the window is loaded, an is created based on the result of a query that returns customers with related objects, filtered by country/region. This result is bound to the property of the that is the root layout control for the WPF window. :::code language="csharp" source="~/snippets/csharp/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderswpf.xaml.cs" id="Snippetwpfdatabinding"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderswpf.xaml.vb" id="Snippetwpfdatabinding"::: + :::code language="vb" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderswpf.xaml.vb" id="Snippetwpfdatabinding"::: The following is the XAML that defines the `SalesOrders` window in WPF for the previous example. - :::code language="xaml" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderswpf.xaml" id="Snippetwpfdatabindingxaml"::: + :::code language="xaml" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderswpf.xaml" id="Snippetwpfdatabindingxaml"::: ]]> @@ -411,7 +411,7 @@ The following example is from the code-behind page for an Extensible Application Markup Language (XAML) page that defines the `SalesOrders` window in WPF. When the window is loaded, a is created based on the result of a query that returns customers, filtered by country/region. All of the pages of this paged result are loaded, along with the related orders, and are bound to the property of the that is the root layout control for the WPF window. For more information, see [How to: Bind Data to Windows Presentation Foundation Elements](/dotnet/framework/data/wcf/bind-data-to-wpf-elements-wcf-data-services). :::code language="csharp" source="~/snippets/csharp/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderswpf3.xaml.cs" id="Snippetbindpageddata"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderswpf3.xaml.vb" id="Snippetbindpageddata"::: + :::code language="vb" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderswpf3.xaml.vb" id="Snippetbindpageddata"::: ]]> diff --git a/xml/System.Data.Services.Client/DataServiceContext.xml b/xml/System.Data.Services.Client/DataServiceContext.xml index 338d7ad5bd8..ae295cf06a2 100644 --- a/xml/System.Data.Services.Client/DataServiceContext.xml +++ b/xml/System.Data.Services.Client/DataServiceContext.xml @@ -27,7 +27,7 @@ The following example shows how to use the generated by the Add Service Reference tool to implicitly execute a query against the Northwind data service that returns all customers. The URI of the requested `Customers` entity set is determined automatically by the context. The query is executed implicitly when the enumeration occurs. The Northwind data service is created when you complete the WCF Data Services . :::code language="csharp" source="~/snippets/csharp/System.Data.Services.Client/DataServiceCollectionT/Overview/source.cs" id="Snippetgetallcustomers"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/source.vb" id="Snippetgetallcustomers"::: + :::code language="vb" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/source.vb" id="Snippetgetallcustomers"::: ]]> @@ -115,7 +115,7 @@ The following example shows how to use the and methods to create links that define relationships. In this example, the navigation properties on the `Order_Details` object are also explicitly set. This example uses the generated by the Add Service Reference tool based on the Northwind data service, which is created when you complete the WCF Data Services . :::code language="csharp" source="~/snippets/csharp/System.Data.Services.Client/DataServiceCollectionT/Overview/source.cs" id="Snippetaddorderdetailtoorder"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/source.vb" id="Snippetaddorderdetailtoorder"::: + :::code language="vb" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/source.vb" id="Snippetaddorderdetailtoorder"::: ]]> @@ -528,7 +528,7 @@ The following example shows how to execute an asynchronous query by calling the method to start the query. The inline delegate calls the method to display the query results. This example uses the generated by the Add Service Reference tool based on the Northwind data service, which is created when you complete the WCF Data Services . :::code language="csharp" source="~/snippets/csharp/System.Data.Services.Client/DataServiceCollectionT/Overview/source.cs" id="Snippetexecutequeryasync"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/source.vb" id="Snippetexecutequeryasync"::: + :::code language="vb" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/source.vb" id="Snippetexecutequeryasync"::: ]]> @@ -1211,7 +1211,7 @@ The following example shows how to execute an asynchronous query by calling the method to start the query. The inline delegate calls the method to display the query results. This example uses the generated by the Add Service Reference tool based on the Northwind data service, which is created when you complete the WCF Data Services . :::code language="csharp" source="~/snippets/csharp/System.Data.Services.Client/DataServiceCollectionT/Overview/source.cs" id="Snippetexecutequeryasync"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/source.vb" id="Snippetexecutequeryasync"::: + :::code language="vb" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/source.vb" id="Snippetexecutequeryasync"::: ]]> @@ -1479,7 +1479,7 @@ This example uses a `do…while` loop to load `Customers` entities from a paged results from the data service. The method is called by using the next link URI to receive the next page of data. :::code language="csharp" source="~/snippets/csharp/System.Data.Services.Client/DataServiceCollectionT/Overview/source.cs" id="Snippetgetcustomerspaged"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/source.vb" id="Snippetgetcustomerspaged"::: + :::code language="vb" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/source.vb" id="Snippetgetcustomerspaged"::: ]]> @@ -1536,7 +1536,7 @@ The following example shows how to call the method to execute an array of objects that contains queries that return both `Customers` and `Products` objects from the Northwind data service. The collection of objects in the returned is enumerated, and the collection of objects that is contained in each is also enumerated. This example uses the generated by the Add Service Reference tool based on the Northwind data service, which is created when you complete the WCF Data Services . :::code language="csharp" source="~/snippets/csharp/System.Data.Services.Client/DataServiceCollectionT/Overview/source.cs" id="Snippetbatchquery"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/source.vb" id="Snippetbatchquery"::: + :::code language="vb" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/source.vb" id="Snippetbatchquery"::: ]]> @@ -1990,7 +1990,7 @@ The following example shows how to explicitly load the `Customers` object that is related to each returned `Orders` instance. This example uses the generated by the Add Service Reference tool based on the Northwind data service, which is created when you complete the WCF Data Services . :::code language="csharp" source="~/snippets/csharp/System.Data.Services.Client/DataServiceCollectionT/Overview/source.cs" id="Snippetloadrelatedordercustomer"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/source.vb" id="Snippetloadrelatedordercustomer"::: + :::code language="vb" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/source.vb" id="Snippetloadrelatedordercustomer"::: ]]> @@ -2077,7 +2077,7 @@ This example returns related `Orders` entities with each `Customers` entity and uses a `do…while` loop to load `Customers` entities pages and a nested `while` loop to load pages of related `Orders` entities from the data service. The method is used to load pages of related `Orders` entities. :::code language="csharp" source="~/snippets/csharp/System.Data.Services.Client/DataServiceCollectionT/Overview/source.cs" id="Snippetgetcustomerspagednested"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/source.vb" id="Snippetgetcustomerspagednested"::: + :::code language="vb" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/source.vb" id="Snippetgetcustomerspagednested"::: ]]> @@ -2469,7 +2469,7 @@ The following example shows how to use the and methods to create links that define relationships. In this example, the navigation properties on the `Order_Details` object are also explicitly set. :::code language="csharp" source="~/snippets/csharp/System.Data.Services.Client/DataServiceCollectionT/Overview/source.cs" id="Snippetaddorderdetailtoorder"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/source.vb" id="Snippetaddorderdetailtoorder"::: + :::code language="vb" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/source.vb" id="Snippetaddorderdetailtoorder"::: ]]> @@ -2784,7 +2784,7 @@ The following example retrieves and modifies an existing object and then calls the method on the to mark the item in the context as updated. An HTTP MERGE message is sent to the data service when is called. This example uses the generated by the Add Service Reference tool based on the Northwind data service, which is created when you complete the WCF Data Services . :::code language="csharp" source="~/snippets/csharp/System.Data.Services.Client/DataServiceCollectionT/Overview/source.cs" id="Snippetmodifycustomer"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/source.vb" id="Snippetmodifycustomer"::: + :::code language="vb" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/source.vb" id="Snippetmodifycustomer"::: ]]> diff --git a/xml/System.Data.Services.Client/DataServiceQueryContinuation`1.xml b/xml/System.Data.Services.Client/DataServiceQueryContinuation`1.xml index 5c3a90b6994..d6128da33fa 100644 --- a/xml/System.Data.Services.Client/DataServiceQueryContinuation`1.xml +++ b/xml/System.Data.Services.Client/DataServiceQueryContinuation`1.xml @@ -28,7 +28,7 @@ This example uses a `do…while` loop to load `Customers` entities from a paged results from the data service. :::code language="csharp" source="~/snippets/csharp/System.Data.Services.Client/DataServiceCollectionT/Overview/source.cs" id="Snippetgetcustomerspaged"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/source.vb" id="Snippetgetcustomerspaged"::: + :::code language="vb" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/source.vb" id="Snippetgetcustomerspaged"::: ]]> diff --git a/xml/System.Data.Services.Client/DataServiceQuery`1.xml b/xml/System.Data.Services.Client/DataServiceQuery`1.xml index 79ff0102f3b..7deec7a9e19 100644 --- a/xml/System.Data.Services.Client/DataServiceQuery`1.xml +++ b/xml/System.Data.Services.Client/DataServiceQuery`1.xml @@ -87,12 +87,12 @@ The following example shows a that is used with sequential method calls to only return orders with a freight cost of more than $30 and to order the results by the ship date in descending order. :::code language="csharp" source="~/snippets/csharp/System.Data.Services.Client/DataServiceCollectionT/Overview/source.cs" id="Snippetaddqueryoptions"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/source.vb" id="Snippetaddqueryoptions"::: + :::code language="vb" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/source.vb" id="Snippetaddqueryoptions"::: The following example shows how to compose a LINQ query that is equivalent to the previous query that used . :::code language="csharp" source="~/snippets/csharp/System.Data.Services.Client/DataServiceCollectionT/Overview/source.cs" id="Snippetaddqueryoptionslinq"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/source.vb" id="Snippetaddqueryoptionslinq"::: + :::code language="vb" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/source.vb" id="Snippetaddqueryoptionslinq"::: ]]> @@ -338,7 +338,7 @@ This example executes a query after it calls the method. The property is used to determine number of entities returned by the query. :::code language="csharp" source="~/snippets/csharp/System.Data.Services.Client/DataServiceCollectionT/Overview/source.cs" id="Snippetcountallcustomers"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/source.vb" id="Snippetcountallcustomers"::: + :::code language="vb" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/source.vb" id="Snippetcountallcustomers"::: ]]> diff --git a/xml/System.Data.Services.Client/EntityChangedParams.xml b/xml/System.Data.Services.Client/EntityChangedParams.xml index 8c004e00fbb..0f627382de6 100644 --- a/xml/System.Data.Services.Client/EntityChangedParams.xml +++ b/xml/System.Data.Services.Client/EntityChangedParams.xml @@ -24,12 +24,12 @@ The following code-behind page for the XAML file creates an with custom methods that are called when changes occur to data that is bound to the binding collection. When the event occurs, the supplied method prevents an item that has been removed from the binding collection from being deleted from the data service. When the event occurs, the `ShipDate` value is validated to ensure that changes are not made to orders that have already shipped. :::code language="csharp" source="~/snippets/csharp/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderscustom.xaml.cs" id="Snippetwpfdatabindingcustom"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderscustom.xaml.vb" id="Snippetwpfdatabindingcustom"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderscustom2.xaml.vb" id="Snippetwpfdatabindingcustom"::: + :::code language="vb" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderscustom.xaml.vb" id="Snippetwpfdatabindingcustom"::: + :::code language="vb" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderscustom2.xaml.vb" id="Snippetwpfdatabindingcustom"::: The following XAML code defines the window for the previous example. - :::code language="xaml" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderscustom.xaml" id="Snippetwpfdatabindingcustomxaml"::: + :::code language="xaml" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderscustom.xaml" id="Snippetwpfdatabindingcustomxaml"::: ]]> diff --git a/xml/System.Data.Services.Client/EntityCollectionChangedParams.xml b/xml/System.Data.Services.Client/EntityCollectionChangedParams.xml index 862a87d61d2..f36d7446278 100644 --- a/xml/System.Data.Services.Client/EntityCollectionChangedParams.xml +++ b/xml/System.Data.Services.Client/EntityCollectionChangedParams.xml @@ -24,12 +24,12 @@ The following code-behind page for the XAML file creates a with custom methods that are called when changes occur to data that is bound to the binding collection. When the event occurs, the supplied method prevents an item that has been removed from the binding collection from being deleted from the data service. When the event occurs, the `ShipDate` value is validated to ensure that changes are not made to orders that have already shipped. :::code language="csharp" source="~/snippets/csharp/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderscustom.xaml.cs" id="Snippetwpfdatabindingcustom"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderscustom.xaml.vb" id="Snippetwpfdatabindingcustom"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderscustom2.xaml.vb" id="Snippetwpfdatabindingcustom"::: + :::code language="vb" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderscustom.xaml.vb" id="Snippetwpfdatabindingcustom"::: + :::code language="vb" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderscustom2.xaml.vb" id="Snippetwpfdatabindingcustom"::: The following XAML code defines the window for the previous example. - :::code language="xaml" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/customerorderscustom.xaml" id="Snippetwpfdatabindingcustomxaml"::: + :::code language="xaml" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/customerorderscustom.xaml" id="Snippetwpfdatabindingcustomxaml"::: ]]> diff --git a/xml/System.Data.Services.Client/QueryOperationResponse`1.xml b/xml/System.Data.Services.Client/QueryOperationResponse`1.xml index 8124aa13bac..c5492e65292 100644 --- a/xml/System.Data.Services.Client/QueryOperationResponse`1.xml +++ b/xml/System.Data.Services.Client/QueryOperationResponse`1.xml @@ -58,7 +58,7 @@ This example uses the method in a `do…while` loop to load `Customers` entities from a paged results from the data service. :::code language="csharp" source="~/snippets/csharp/System.Data.Services.Client/DataServiceCollectionT/Overview/source.cs" id="Snippetgetcustomerspaged"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Misc/astoria_northwind_client/vb/source.vb" id="Snippetgetcustomerspaged"::: + :::code language="vb" source="~/snippets/visualbasic/System.Data.Services.Client/DataServiceCollectionT/Overview/source.vb" id="Snippetgetcustomerspaged"::: ]]> diff --git a/xml/System.Linq/Enumerable.xml b/xml/System.Linq/Enumerable.xml index 8e49c9033b5..470c1a50fd0 100644 --- a/xml/System.Linq/Enumerable.xml +++ b/xml/System.Linq/Enumerable.xml @@ -2700,12 +2700,12 @@ Each chunk except the last one will be of size `size`. The last chunk will conta The following example shows how to implement an equality comparer that can be used in the method. :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/CustomComparer.cs" id="Snippet1"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQCustomComparer/VB/CustomComparer.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/ContainsTSource/CustomComparer.vb" id="Snippet1"::: After you implement this comparer, you can use a sequence of `Product` objects in the method, as shown in the following example: :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/CustomComparer.cs" id="Contains"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQCustomComparer/VB/CustomComparer.vb" id="Snippet6"::: + :::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/ContainsTSource/CustomComparer.vb" id="Snippet6"::: ]]> @@ -3212,12 +3212,12 @@ Each chunk except the last one will be of size `size`. The last chunk will conta If you want to return distinct elements from sequences of objects of some custom data type, you have to implement the generic interface in the class. The following code example shows how to implement this interface in a custom data type and provide and methods. :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/EncapsulatedComparer.cs" id="Snippet1"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQEncapsulatedComparer/VB/EncapsulatedComparer.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/DistinctTSource/EncapsulatedComparer.vb" id="Snippet1"::: After you implement this interface, you can use a sequence of `Product` objects in the method, as shown in the following example: :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/EncapsulatedComparer.cs" id="Distinct"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQEncapsulatedComparer/VB/EncapsulatedComparer.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/DistinctTSource/EncapsulatedComparer.vb" id="Snippet5"::: ]]> @@ -3303,12 +3303,12 @@ Each chunk except the last one will be of size `size`. The last chunk will conta The following example shows how to implement an equality comparer that can be used in the method. :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/CustomComparer.cs" id="Snippet1"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQCustomComparer/VB/CustomComparer.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/ContainsTSource/CustomComparer.vb" id="Snippet1"::: After you implement this comparer, you can use a sequence of `Product` objects in the method, as shown in the following example: :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/CustomComparer.cs" id="Distinct"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQCustomComparer/VB/CustomComparer.vb" id="Snippet5"::: + :::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/ContainsTSource/CustomComparer.vb" id="Snippet5"::: ]]> @@ -3914,12 +3914,12 @@ Only unique elements are returned. If you want to compare sequences of objects of some custom data type, you have to implement the generic interface in a helper class. The following code example shows how to implement this interface in a custom data type and override the and methods. :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/EncapsulatedComparer.cs" id="Snippet9"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQEncapsulatedComparer/VB/EncapsulatedComparer.vb" id="Snippet9"::: + :::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/DistinctTSource/EncapsulatedComparer.vb" id="Snippet9"::: After you implement this interface, you can use sequences of `ProductA` objects in the `Except(IEnumerable, IEnumerable)` method, as shown in the following example: :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/EncapsulatedComparer.cs" id="Except"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQEncapsulatedComparer/VB/EncapsulatedComparer.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/DistinctTSource/EncapsulatedComparer.vb" id="Snippet7"::: ]]> @@ -4003,12 +4003,12 @@ Only unique elements are returned. The following example shows how to implement an equality comparer that can be used in the method. :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/CustomComparer.cs" id="Snippet1"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQCustomComparer/VB/CustomComparer.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/ContainsTSource/CustomComparer.vb" id="Snippet1"::: After you implement this comparer, you can use sequences of `Product` objects in the method, as shown in the following example: :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/CustomComparer.cs" id="Except"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQCustomComparer/VB/CustomComparer.vb" id="Snippet7"::: + :::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/ContainsTSource/CustomComparer.vb" id="Snippet7"::: ]]> @@ -5828,15 +5828,15 @@ Only unique elements are returned. If you want to compare sequences of objects of some custom data type, you have to implement the generic interface in a helper class. The following code example shows how to implement this interface in a custom data type and override and methods. :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/EncapsulatedComparer.cs" id="Snippet9"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQEncapsulatedComparer/VB/EncapsulatedComparer.vb" id="Snippet9"::: + :::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/DistinctTSource/EncapsulatedComparer.vb" id="Snippet9"::: After you implement this interface, you can use sequences of `ProductA` objects in the `Intersect` method, as shown in the following example: :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/EncapsulatedComparer.cs" id="Snippet10"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQEncapsulatedComparer/VB/EncapsulatedComparer.vb" id="Snippet10"::: +:::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/DistinctTSource/EncapsulatedComparer.vb" id="Snippet10"::: :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/EncapsulatedComparer.cs" id="Intersect"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQEncapsulatedComparer/VB/EncapsulatedComparer.vb" id="Snippet3"::: +:::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/DistinctTSource/EncapsulatedComparer.vb" id="Snippet3"::: ]]> @@ -5926,13 +5926,13 @@ Only unique elements are returned. The following example shows how to implement an equality comparer that can be used in the `Intersect` method. :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/CustomComparer.cs" id="Snippet1"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQCustomComparer/VB/CustomComparer.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/ContainsTSource/CustomComparer.vb" id="Snippet1"::: After you implement this comparer, you can use sequences of `Product` objects in the `Intersect` method, as shown in the following example: :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/CustomComparer.cs" id="Intersect"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQCustomComparer/VB/CustomComparer.vb" id="Snippet2"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQCustomComparer/VB/CustomComparer.vb" id="Snippet3"::: + :::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/ContainsTSource/CustomComparer.vb" id="Snippet2"::: +:::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/ContainsTSource/CustomComparer.vb" id="Snippet3"::: ]]> @@ -12754,12 +12754,12 @@ If comparer is `null`, the default comparer (IEnumerable, IEnumerable)` method, as shown in the following example: :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/EncapsulatedComparer.cs" id="SequenceEqual"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQEncapsulatedComparer/VB/EncapsulatedComparer.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/DistinctTSource/EncapsulatedComparer.vb" id="Snippet8"::: ]]> @@ -12844,12 +12844,12 @@ If comparer is `null`, the default comparer method, as shown in the following example: :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/CustomComparer.cs" id="SequenceEqual"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQCustomComparer/VB/CustomComparer.vb" id="Snippet8"::: + :::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/ContainsTSource/CustomComparer.vb" id="Snippet8"::: ]]> @@ -17342,15 +17342,15 @@ The method is typically a constant-time operation, but ultimately this depends o If you want to compare sequences of objects of some custom data type, you have to implement the generic interface in a helper class. The following code example shows how to implement this interface in a custom data type and override and methods. :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/EncapsulatedComparer.cs" id="Snippet9"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQEncapsulatedComparer/VB/EncapsulatedComparer.vb" id="Snippet9"::: + :::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/DistinctTSource/EncapsulatedComparer.vb" id="Snippet9"::: After you implement this interface, you can use sequences of `ProductA` objects in the `Union(IEnumerable, IEnumerable)` method, as shown in the following example: :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/EncapsulatedComparer.cs" id="Snippet10"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQEncapsulatedComparer/VB/EncapsulatedComparer.vb" id="Snippet10"::: + :::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/DistinctTSource/EncapsulatedComparer.vb" id="Snippet10"::: :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/EncapsulatedComparer.cs" id="Union"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQEncapsulatedComparer/VB/EncapsulatedComparer.vb" id="Snippet4"::: +:::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/DistinctTSource/EncapsulatedComparer.vb" id="Snippet4"::: ]]> @@ -17440,13 +17440,13 @@ The method is typically a constant-time operation, but ultimately this depends o The following example shows how to implement an equality comparer that can be used in the method. :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/CustomComparer.cs" id="Snippet1"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQCustomComparer/VB/CustomComparer.vb" id="Snippet1"::: + :::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/ContainsTSource/CustomComparer.vb" id="Snippet1"::: After you implement this comparer, you can use sequences of `Product` objects in the method, as shown in the following example: :::code language="csharp" source="~/snippets/csharp/System.Linq/Enumerable/Comparers/CustomComparer.cs" id="Union"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQCustomComparer/VB/CustomComparer.vb" id="Snippet2"::: -:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/CsLINQCustomComparer/VB/CustomComparer.vb" id="Snippet4"::: + :::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/ContainsTSource/CustomComparer.vb" id="Snippet2"::: +:::code language="vb" source="~/snippets/visualbasic/System.Linq/Enumerable/ContainsTSource/CustomComparer.vb" id="Snippet4"::: ]]> diff --git a/xml/System.Runtime.CompilerServices/CallerFilePathAttribute.xml b/xml/System.Runtime.CompilerServices/CallerFilePathAttribute.xml index c092fd8bb82..1a961d11491 100644 --- a/xml/System.Runtime.CompilerServices/CallerFilePathAttribute.xml +++ b/xml/System.Runtime.CompilerServices/CallerFilePathAttribute.xml @@ -69,7 +69,7 @@ The following example shows how to use the `CallerFilePath` attribute. On each call to the `TraceMessage` method, the caller information is substituted as an argument to the optional parameter. :::code language="csharp" source="~/snippets/csharp/System.Runtime.CompilerServices/CallerFilePathAttribute/callerinfo.cs" id="Snippet51"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/csProgGuideAttributes/vb/callerinfo.vb" id="Snippet51"::: + :::code language="vb" source="~/snippets/visualbasic/System.Runtime.CompilerServices/CallerFilePathAttribute/Overview/callerinfo.vb" id="Snippet51"::: ]]> diff --git a/xml/System.Runtime.CompilerServices/CallerLineNumberAttribute.xml b/xml/System.Runtime.CompilerServices/CallerLineNumberAttribute.xml index b490c22ca62..f36da7ec22c 100644 --- a/xml/System.Runtime.CompilerServices/CallerLineNumberAttribute.xml +++ b/xml/System.Runtime.CompilerServices/CallerLineNumberAttribute.xml @@ -69,7 +69,7 @@ The following example shows how to use the `CallerLineNumber` attribute. On each call to the `TraceMessage` method, the caller information is substituted as an argument to the optional parameter. :::code language="csharp" source="~/snippets/csharp/System.Runtime.CompilerServices/CallerFilePathAttribute/callerinfo.cs" id="Snippet51"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/csProgGuideAttributes/vb/callerinfo.vb" id="Snippet51"::: + :::code language="vb" source="~/snippets/visualbasic/System.Runtime.CompilerServices/CallerFilePathAttribute/Overview/callerinfo.vb" id="Snippet51"::: ]]> diff --git a/xml/System.Runtime.CompilerServices/CallerMemberNameAttribute.xml b/xml/System.Runtime.CompilerServices/CallerMemberNameAttribute.xml index ffe5a0ef33e..932d30f1998 100644 --- a/xml/System.Runtime.CompilerServices/CallerMemberNameAttribute.xml +++ b/xml/System.Runtime.CompilerServices/CallerMemberNameAttribute.xml @@ -87,7 +87,7 @@ The following example shows how to use the `CallerMemberName` attribute. On each call to the `TraceMessage` method, the caller information is substituted as an argument to the optional parameter. :::code language="csharp" source="~/snippets/csharp/System.Runtime.CompilerServices/CallerFilePathAttribute/callerinfo.cs" id="Snippet51"::: - :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_VBCSharp/csProgGuideAttributes/vb/callerinfo.vb" id="Snippet51"::: + :::code language="vb" source="~/snippets/visualbasic/System.Runtime.CompilerServices/CallerFilePathAttribute/Overview/callerinfo.vb" id="Snippet51"::: ]]>