Octopus Brother Production-vb.net office operations Word (iv)

This article is in the Octopus Brother produced-vb.net office operation of Word (ii) to add the content of the specific implementation, the reader can draw a look, note that this article should be used with the three combinations, is on the basis of three added several features of the implementation.

Implementing the form:

Code implementation: Code is copied directly into the form class above

' ********************************************************************* ' octopus brother, qq:3107073263 Group: 309816713        ' If you have any questions or good suggestions please contact me, everyone together progress   ' ********************************************************************* ' Get the document path         Private Sub But_getadrress_click (ByVal sender as System.Object, ByVal e as System.EventArgs) Handles But_getadrress.click Dim OpenDialog as New OpenFileDialog If OpenDialog. ShowDialog = DialogResult.OK Then TextBox1.Text = OpenDialog.  FileName End If End Sub ' Gets the position of the current mouse Private Sub But_getcursor_click (ByVal sender as System.Object, ByVal E As System.EventArgs) Handles But_getcursor.click for each word_class as Class_word1 in Array_word Dim C Ursor as ArrayList = Word_class.getcursor () If Cursor IsNot Nothing Then for i = 0 to Cursor.cou    Nt-1 richtextbox1.text &= "" & Cursor (i) next End If Next   End Sub ' moves the cursor to the specified page Private Sub But_goto_page_click (ByVal sender as System.Object, ByVal e as System.EventArgs) Handles But_goto_page.click For each word_class as Class_word1 in Array_word word_class.gotopage (tex_page.text) Next End Su B ' cursor moves to the specified line (absolute) Private Sub But_gotoabsoultrow_click (ByVal sender as System.Object, ByVal e as System.EventArgs) Han DLEs But_gotoabsoultrow.click for each word_class as Class_word1 in Array_word Word_class.gotoabsolutlin E (tex_row_absoult.text) Next End Sub ' cursor moves to the specified line (relative) Private Sub But_gotooppsitrow_click (ByVal sender as Sys Tem. Object, ByVal e as System.EventArgs) Handles But_gotooppsitrow.click for each word_class as Class_word1 in Array_wo Rd Word_class.gotooppsiteline (Tex_row_oppsit.text) Next End Sub ' Up and Down buttons, click the button to move one Private Sub at a time Picturebox1_mouseup (ByVal sender as System.Object, ByVal e as System.Windows.Forms.MouseEventArgs) Handles Picturebox1.mouseup ' MsgBox ("X:" & e.x & "Y:" & e.y) Dim X As Integer = e.x Dim Y As Integer = E.y ' richTextBox1.Text &= "|" & e.x & ":" & e.y for each word_class as Class_word1 in Array_word If X > 70 and x < then If y > All and y < then Word_class.moveup () E            Lseif y > x and y < 135 then Word_class.movedown () End If End If If y > y < then If x > Max and x < Word_class.movel             EFT () ElseIf x > 135 and Y < Word_class.moveright () End If End If Next End Sub

Octopus Brother Production-vb.net office operations Word (iv)