Category

Development Platform
Home > SourceCode/Document > Windows Develop > .net > View Code
frmFind.vb
Package: Notepad.rar　[view]
Upload User: wuanfu007
Upload Date: 2021-01-16
Package Size: 501k
Code Size: 6k
Category:

.net

Development Platform:

DOS

frmFind.vb：Code Content
  1. Public Class frmFind
  2.     Inherits System.Windows.Forms.Form
  4.     Dim selPosition As Integer = 1
  6. #Region " Windows Form Designer generated code "
  8.     Public Sub New()
  9.         MyBase.New()
  11.         'This call is required by the Windows Form Designer.
  12.         InitializeComponent()
  14.         'Add any initialization after the InitializeComponent() call
  16.     End Sub
  18.     'Form overrides dispose to clean up the component list.
  19.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  20.         If disposing Then
  21.             If Not (components Is Nothing) Then
  22.                 components.Dispose()
  23.             End If
  24.         End If
  25.         MyBase.Dispose(disposing)
  26.     End Sub
  28.     'Required by the Windows Form Designer
  29.     Private components As System.ComponentModel.IContainer
  31.     'NOTE: The following procedure is required by the Windows Form Designer
  32.     'It can be modified using the Windows Form Designer.  
  33.     'Do not modify it using the code editor.
  34.     Friend WithEvents Label1 As System.Windows.Forms.Label
  35.     Friend WithEvents txtFindString As System.Windows.Forms.TextBox
  36.     Friend WithEvents cmdFind As System.Windows.Forms.Button
  37.     Friend WithEvents cmdCancel As System.Windows.Forms.Button
  38.     Friend WithEvents chxMatchCase As System.Windows.Forms.CheckBox
  39.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  40.         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFind))
  41.         Me.Label1 = New System.Windows.Forms.Label
  42.         Me.txtFindString = New System.Windows.Forms.TextBox
  43.         Me.cmdFind = New System.Windows.Forms.Button
  44.         Me.cmdCancel = New System.Windows.Forms.Button
  45.         Me.chxMatchCase = New System.Windows.Forms.CheckBox
  46.         Me.SuspendLayout()
  47.         '
  48.         'Label1
  49.         '
  50.         Me.Label1.AutoSize = True
  51.         Me.Label1.Location = New System.Drawing.Point(19, 17)
  52.         Me.Label1.Name = "Label1"
  53.         Me.Label1.Size = New System.Drawing.Size(59, 12)
  54.         Me.Label1.TabIndex = 0
  55.         Me.Label1.Text = "查找内容:"
  56.         '
  57.         'txtFindString
  58.         '
  59.         Me.txtFindString.Location = New System.Drawing.Point(106, 9)
  60.         Me.txtFindString.Name = "txtFindString"
  61.         Me.txtFindString.Size = New System.Drawing.Size(201, 21)
  62.         Me.txtFindString.TabIndex = 1
  63.         '
  64.         'cmdFind
  65.         '
  66.         Me.cmdFind.Location = New System.Drawing.Point(55, 57)
  67.         Me.cmdFind.Name = "cmdFind"
  68.         Me.cmdFind.Size = New System.Drawing.Size(90, 24)
  69.         Me.cmdFind.TabIndex = 2
  70.         Me.cmdFind.Text = "查找下一个"
  71.         '
  72.         'cmdCancel
  73.         '
  74.         Me.cmdCancel.Location = New System.Drawing.Point(217, 57)
  75.         Me.cmdCancel.Name = "cmdCancel"
  76.         Me.cmdCancel.Size = New System.Drawing.Size(90, 25)
  77.         Me.cmdCancel.TabIndex = 3
  78.         Me.cmdCancel.Text = "取消"
  79.         '
  80.         'chxMatchCase
  81.         '
  82.         Me.chxMatchCase.AutoSize = True
  83.         Me.chxMatchCase.Location = New System.Drawing.Point(322, 12)
  84.         Me.chxMatchCase.Name = "chxMatchCase"
  85.         Me.chxMatchCase.Size = New System.Drawing.Size(84, 16)
  86.         Me.chxMatchCase.TabIndex = 5
  87.         Me.chxMatchCase.Text = "区分大小写"
  88.         '
  89.         'frmFind
  90.         '
  91.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  92.         Me.ClientSize = New System.Drawing.Size(421, 105)
  93.         Me.Controls.Add(Me.chxMatchCase)
  94.         Me.Controls.Add(Me.cmdCancel)
  95.         Me.Controls.Add(Me.cmdFind)
  96.         Me.Controls.Add(Me.txtFindString)
  97.         Me.Controls.Add(Me.Label1)
  98.         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
  99.         Me.MaximizeBox = False
  100.         Me.MinimizeBox = False
  101.         Me.Name = "frmFind"
  102.         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
  103.         Me.Text = "查找与替换"
  104.         Me.ResumeLayout(False)
  105.         Me.PerformLayout()
  107.     End Sub
  109. #End Region
  111.     Private Sub cmdFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFind.Click
  112.         Dim srchMode As Microsoft.VisualBasic.CompareMethod
  113.         If chxMatchCase.Checked Then
  114.             srchMode = CompareMethod.Binary
  115.         Else : srchMode = CompareMethod.Text
  116.         End If
  117.         selPosition = InStr(selPosition, FrmMainObj.rtbEditor.Text, txtFindString.Text, srchMode)
  118.         If selPosition = 0 Then
  119.             MsgBox("未找到所查找的内容!")
  121.             Exit Sub
  122.         End If
  123.         FrmMainObj.rtbEditor.Select(selPosition - 1, txtFindString.Text.Length)
  124.         FrmMainObj.rtbEditor.ScrollToCaret()
  125.         Me.TopMost = True
  126.         FrmMainObj.rtbEditor.Focus()
  127.         If selPosition = 0 Then
  128.             selPosition = 1
  129.         Else
  130.             selPosition = selPosition + txtFindString.Text.Length
  131.         End If
  133.     End Sub
  135.     Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
  136.         Me.Close()
  137.     End Sub
  140.     '  Private Sub BtnReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnReplace.Click
  141.     '    
  142.     '    FrmMainObj.rtbEditor.SelectedText = Replace(FrmMainObj.rtbEditor.Text, FrmMainObj.rtbEditor.SelectedText, Me.TxtReplace.Text)
  143.     '   If selPosition = 1 Then
  144.     '   cmdFind_Click(sender, e)
  145.     '   FrmMainObj.rtbEditor.Text = FrmMainObj.rtbEditor.Text.Remove(selPosition, txtFindString.Text.Length)
  146.     '     FrmMainObj.rtbEditor.Text = FrmMainObj.rtbEditor.Text.Insert(selPosition, TxtReplace.Text)
  147.     ' Else
  148.     '      If selPosition <> 0 Then
  149.     '  FrmMainObj.rtbEditor.Text = FrmMainObj.rtbEditor.Text.Remove(selPosition - 1, txtFindString.Text.Length)
  150.     '       '       FrmMainObj.rtbEditor.Text = FrmMainObj.rtbEditor.Text.Insert(selPosition - 1, TxtReplace.Text)
  151.     '      cmdFind_Click(sender, e)
  152.     '     End If
  155.     '     End If
  158.     'Else
  159.     ' FrmMainObj.rtbEditor.Text = FrmMainObj.rtbEditor.Text.Insert(selPosition, TxtReplace.Text)
  160.     ' End If
  162.     '  End Sub
  164.     '  Private Sub BtnReplaceAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnReplaceAll.Click
  165.     '  Do
  166.     '     cmdFind_Click(sender, e)
  167.     '    BtnReplace_Click(sender, e)
  168.     '       Loop Until selPosition = 0
  170.     '   End Sub
  171. End Class