more snippets 5000 errors

Author: gewarren

snippets/visualbasic/System.Windows.Forms/HtmlDocument/Overview/Form1.vb

@@ -1,7 +1,6 @@
-Imports System.Xml
-Imports System.Data
-Imports System.Data.SqlClient
+Imports System.Data
 Imports System.Windows.Forms
+Imports Microsoft.Data.SqlClient
 
 Public Class Form1
     Public Shared Sub Main()
@@ -12,9 +11,9 @@ Public Class Form1
     End Sub
 
     Private Sub GetDocument()
-	' <SNIPPET17>
-	Dim Doc as HtmlDocument = WebBrowser1.Document
-	' </SNIPPET17>
+        ' <SNIPPET17>
+        Dim Doc As HtmlDocument = WebBrowser1.Document
+        ' </SNIPPET17>
     End Sub
 
     '<SNIPPET1>
@@ -36,7 +35,7 @@ Public Class Form1
     '<SNIPPET3>
     Private Function GetLastModifiedDate() As String
         If (Not (WebBrowser1.Document Is Nothing)) Then
-            Dim CurrentDocument As MSHTML.IHTMLDocument2 = WebBrowser1.Document.DomDocument
+            Dim CurrentDocument As Object = WebBrowser1.Document.DomDocument
             GetLastModifiedDate = CurrentDocument.lastModified
         Else
             GetLastModifiedDate = Nothing
@@ -78,9 +77,9 @@ Public Class Form1
     Private Sub DisplayMetaDescription()
         If (WebBrowser1.Document IsNot Nothing) Then
             Dim Elems As HtmlElementCollection
-            Dim WebOC as WebBrowser = WebBrowser1
+            Dim WebOC As WebBrowser = WebBrowser1
 
-	    Elems = WebOC.Document.GetElementsByTagName("META")
+            Elems = WebOC.Document.GetElementsByTagName("META")
 
             For Each elem As HtmlElement In Elems
                 Dim NameStr As String = elem.GetAttribute("name")
@@ -238,17 +237,17 @@ Public Class Form1
     End Sub
     '</SNIPPET14>
 
-'    '<SNIPPET16>
- '   Public Sub SnipSelected()
-  '      If (webBrowser1.Document IsNot Nothing) Then
-   '         Dim o As Object = Nothing
+    '    '<SNIPPET16>
+    '   Public Sub SnipSelected()
+    '      If (webBrowser1.Document IsNot Nothing) Then
+    '         Dim o As Object = Nothing
     '        webBrowser1.Document.ExecCommand("Copy", False, o)
-     '       Dim selected As String = CType(o, String)
-      '      If (selected IsNot Nothing) AndAlso selected.Length > 0 Then
-       '         MessageBox.Show("Selected text: " & selected)
-        '    End If
-        'End If
-   ' End Sub
+    '       Dim selected As String = CType(o, String)
+    '      If (selected IsNot Nothing) AndAlso selected.Length > 0 Then
+    '         MessageBox.Show("Selected text: " & selected)
+    '    End If
+    'End If
+    ' End Sub
     '</SNIPPET16>
 
     Private Sub TestHTMLThrowButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TestHTMLThrowButton.Click

snippets/visualbasic/System.Windows.Forms/HtmlDocument/Overview/HtmlDocumentProject.vbproj

@@ -6,4 +6,8 @@
     <UseWindowsForms>true</UseWindowsForms>
   </PropertyGroup>
 
+  <ItemGroup>
+    <PackageReference Include="Microsoft.Data.SqlClient" Version="6.1.0-preview2.25178.5" />
+  </ItemGroup>
+
 </Project>

snippets/visualbasic/System.Windows.Forms/HtmlElement/Overview/Form1.vb

@@ -108,16 +108,16 @@ Public Class Form1
     '<SNIPPET4>
     Private Sub CreateHyperlinkFromSelection()
         If (WebBrowser1.Document IsNot Nothing) Then
-            Dim IDoc As mshtml.IHTMLDocument2 = WebBrowser1.Document.DomDocument
+            Dim IDoc = WebBrowser1.Document.DomDocument
 
             If (Not (IDoc Is Nothing)) Then
-                Dim ISelect As mshtml.IHTMLSelectionObject = IDoc.selection
+                Dim ISelect = IDoc.selection
                 If (ISelect Is Nothing) Then
                     MsgBox("Please select some text before using this command.")
                     Exit Sub
                 End If
 
-                Dim TxtRange As mshtml.IHTMLTxtRange = ISelect.createRange()
+                Dim TxtRange = ISelect.createRange()
 
                 ' Create the link.
                 If (TxtRange.queryCommandEnabled("CreateLink")) Then

snippets/visualbasic/System.Windows.Forms/HtmlElement/Overview/HtmlElementProject.vbproj

@@ -2,7 +2,7 @@
 
   <PropertyGroup>
     <OutputType>Exe</OutputType>
-    <TargetFramework>net9.0-windows</TargetFramework>
+    <TargetFramework>net481-windows</TargetFramework>
     <UseWindowsForms>true</UseWindowsForms>
   </PropertyGroup>
 

snippets/visualbasic/System.Windows.Forms/HtmlElementErrorEventArgs/Overview/Form1.vb

@@ -54,7 +54,7 @@ Public Class Form1
                 "dialogLeft: 300px; edge: Sunken; center: Yes; help: Yes; resizable: No; status: No;"
 
             ' Show the dialog.
-            Dim RawWindow As mshtml.IHTMLWindow2 = Frame.DomWindow
+            Dim RawWindow = Frame.DomWindow
             RawWindow.showModalDialog("http://www.adatum.com/dialogWindow.htm", Nothing, CObj(DialogArguments))
         End If
     End Sub
@@ -261,7 +261,7 @@ Public Class Form1
 
 
     '<SNIPPET14>
-    Dim WithEvents Doc As Windows.Forms.HtmlDocument
+    Dim WithEvents Doc As HtmlDocument
 
     Private Sub EnableClickScroll()
         If (WebBrowser1.Document IsNot Nothing) Then

snippets/visualbasic/System.Windows.Forms/MouseEventArgs/Overview/Form1.vb

@@ -1,16 +1,17 @@
-Imports System.Windows.Forms
+Imports System.Drawing
+Imports System.Windows.Forms
 
 Public Class Form1
     Public Shared Sub Main()
     End Sub
 
     '<SNIPPET1>
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
-        TextBox1.ContextMenu = New ContextMenu()
+        TextBox1.ContextMenuStrip = New ContextMenuStrip()
     End Sub
 
     Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
-        If (e.Button = Windows.Forms.MouseButtons.Right) Then
+        If (e.Button = MouseButtons.Right) Then
             TextBox1.Select(0, TextBox1.Text.Length)
         End If
     End Sub