home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Comprehens2080198202007.psc / Find.frm < prev    next >
Text File  |  2007-03-03  |  12KB  |  385 lines
  1. VERSION 5.00
  2. Begin VB.Form Find1 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   " Find"
  5.    ClientHeight    =   1665
  6.    ClientLeft      =   7545
  7.    ClientTop       =   2190
  8.    ClientWidth     =   4770
  9.    BeginProperty Font 
  10.       Name            =   "MS Sans Serif"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   700
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    ForeColor       =   &H00000000&
  19.    Icon            =   "Find.frx":0000
  20.    LinkTopic       =   "Form2"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   111.765
  24.    ScaleMode       =   0  'User
  25.    ScaleWidth      =   318
  26.    ShowInTaskbar   =   0   'False
  27.    Begin VB.CommandButton Command6 
  28.       Caption         =   "E&xit"
  29.       BeginProperty Font 
  30.          Name            =   "MS Sans Serif"
  31.          Size            =   8.25
  32.          Charset         =   0
  33.          Weight          =   400
  34.          Underline       =   0   'False
  35.          Italic          =   0   'False
  36.          Strikethrough   =   0   'False
  37.       EndProperty
  38.       Height          =   495
  39.       Left            =   3960
  40.       Picture         =   "Find.frx":08CA
  41.       Style           =   1  'Graphical
  42.       TabIndex        =   13
  43.       Top             =   1080
  44.       Width           =   735
  45.    End
  46.    Begin VB.ComboBox cboRep 
  47.       BeginProperty Font 
  48.          Name            =   "MS Sans Serif"
  49.          Size            =   8.25
  50.          Charset         =   0
  51.          Weight          =   400
  52.          Underline       =   0   'False
  53.          Italic          =   0   'False
  54.          Strikethrough   =   0   'False
  55.       EndProperty
  56.       Height          =   315
  57.       Left            =   1200
  58.       TabIndex        =   10
  59.       Top             =   600
  60.       Visible         =   0   'False
  61.       Width           =   3495
  62.    End
  63.    Begin VB.ComboBox Text1 
  64.       BeginProperty Font 
  65.          Name            =   "MS Sans Serif"
  66.          Size            =   8.25
  67.          Charset         =   0
  68.          Weight          =   400
  69.          Underline       =   0   'False
  70.          Italic          =   0   'False
  71.          Strikethrough   =   0   'False
  72.       EndProperty
  73.       Height          =   315
  74.       Left            =   1200
  75.       TabIndex        =   9
  76.       Top             =   120
  77.       Width           =   3495
  78.    End
  79.    Begin VB.CommandButton Command3 
  80.       Caption         =   "&Replace..."
  81.       BeginProperty Font 
  82.          Name            =   "MS Sans Serif"
  83.          Size            =   8.25
  84.          Charset         =   0
  85.          Weight          =   400
  86.          Underline       =   0   'False
  87.          Italic          =   0   'False
  88.          Strikethrough   =   0   'False
  89.       EndProperty
  90.       Height          =   495
  91.       Left            =   1920
  92.       Picture         =   "Find.frx":0E54
  93.       Style           =   1  'Graphical
  94.       TabIndex        =   8
  95.       Top             =   1080
  96.       Width           =   855
  97.    End
  98.    Begin VB.CommandButton Command2 
  99.       Caption         =   "&Find"
  100.       Enabled         =   0   'False
  101.       BeginProperty Font 
  102.          Name            =   "MS Sans Serif"
  103.          Size            =   8.25
  104.          Charset         =   0
  105.          Weight          =   400
  106.          Underline       =   0   'False
  107.          Italic          =   0   'False
  108.          Strikethrough   =   0   'False
  109.       EndProperty
  110.       Height          =   495
  111.       Left            =   120
  112.       Picture         =   "Find.frx":13DE
  113.       Style           =   1  'Graphical
  114.       TabIndex        =   6
  115.       Top             =   1080
  116.       Width           =   735
  117.    End
  118.    Begin VB.TextBox Text13 
  119.       BeginProperty Font 
  120.          Name            =   "MS Sans Serif"
  121.          Size            =   8.25
  122.          Charset         =   0
  123.          Weight          =   400
  124.          Underline       =   0   'False
  125.          Italic          =   0   'False
  126.          Strikethrough   =   0   'False
  127.       EndProperty
  128.       Height          =   285
  129.       Left            =   1200
  130.       TabIndex        =   5
  131.       Top             =   120
  132.       Width           =   3495
  133.    End
  134.    Begin VB.CommandButton Command1 
  135.       Caption         =   "Replace &All"
  136.       Enabled         =   0   'False
  137.       BeginProperty Font 
  138.          Name            =   "MS Sans Serif"
  139.          Size            =   8.25
  140.          Charset         =   0
  141.          Weight          =   400
  142.          Underline       =   0   'False
  143.          Italic          =   0   'False
  144.          Strikethrough   =   0   'False
  145.       EndProperty
  146.       Height          =   495
  147.       Left            =   2880
  148.       Picture         =   "Find.frx":1968
  149.       Style           =   1  'Graphical
  150.       TabIndex        =   4
  151.       Top             =   1080
  152.       Visible         =   0   'False
  153.       Width           =   975
  154.    End
  155.    Begin VB.CommandButton Command4 
  156.       Caption         =   "&Cancel"
  157.       BeginProperty Font 
  158.          Name            =   "MS Sans Serif"
  159.          Size            =   8.25
  160.          Charset         =   0
  161.          Weight          =   400
  162.          Underline       =   0   'False
  163.          Italic          =   0   'False
  164.          Strikethrough   =   0   'False
  165.       EndProperty
  166.       Height          =   495
  167.       Left            =   960
  168.       Picture         =   "Find.frx":1EF2
  169.       Style           =   1  'Graphical
  170.       TabIndex        =   3
  171.       Top             =   1080
  172.       Width           =   855
  173.    End
  174.    Begin VB.CheckBox Check1 
  175.       Caption         =   "R&eplace All"
  176.       BeginProperty Font 
  177.          Name            =   "MS Sans Serif"
  178.          Size            =   8.25
  179.          Charset         =   0
  180.          Weight          =   400
  181.          Underline       =   0   'False
  182.          Italic          =   0   'False
  183.          Strikethrough   =   0   'False
  184.       EndProperty
  185.       Height          =   195
  186.       Left            =   2280
  187.       TabIndex        =   2
  188.       Top             =   2520
  189.       Visible         =   0   'False
  190.       Width           =   1455
  191.    End
  192.    Begin VB.OptionButton Option1 
  193.       Caption         =   "F&ind"
  194.       Height          =   255
  195.       Left            =   960
  196.       TabIndex        =   1
  197.       Top             =   2520
  198.       Width           =   1215
  199.    End
  200.    Begin VB.OptionButton Option2 
  201.       Caption         =   "R&eplace All"
  202.       Height          =   255
  203.       Left            =   1200
  204.       TabIndex        =   0
  205.       Top             =   2760
  206.       Width           =   1575
  207.    End
  208.    Begin VB.CommandButton Command5 
  209.       Caption         =   "&Replace"
  210.       Enabled         =   0   'False
  211.       BeginProperty Font 
  212.          Name            =   "MS Sans Serif"
  213.          Size            =   8.25
  214.          Charset         =   0
  215.          Weight          =   400
  216.          Underline       =   0   'False
  217.          Italic          =   0   'False
  218.          Strikethrough   =   0   'False
  219.       EndProperty
  220.       Height          =   495
  221.       Left            =   1920
  222.       Picture         =   "Find.frx":247C
  223.       Style           =   1  'Graphical
  224.       TabIndex        =   12
  225.       Top             =   1080
  226.       Visible         =   0   'False
  227.       Width           =   855
  228.    End
  229.    Begin VB.Label Label2 
  230.       AutoSize        =   -1  'True
  231.       Caption         =   "Replace With:"
  232.       BeginProperty Font 
  233.          Name            =   "MS Sans Serif"
  234.          Size            =   8.25
  235.          Charset         =   0
  236.          Weight          =   400
  237.          Underline       =   0   'False
  238.          Italic          =   0   'False
  239.          Strikethrough   =   0   'False
  240.       EndProperty
  241.       Height          =   195
  242.       Left            =   120
  243.       TabIndex        =   11
  244.       Top             =   600
  245.       Visible         =   0   'False
  246.       Width           =   1020
  247.    End
  248.    Begin VB.Label Label1 
  249.       AutoSize        =   -1  'True
  250.       Caption         =   "Find what:"
  251.       BeginProperty Font 
  252.          Name            =   "MS Sans Serif"
  253.          Size            =   8.25
  254.          Charset         =   0
  255.          Weight          =   400
  256.          Underline       =   0   'False
  257.          Italic          =   0   'False
  258.          Strikethrough   =   0   'False
  259.       EndProperty
  260.       Height          =   195
  261.       Left            =   120
  262.       TabIndex        =   7
  263.       Top             =   120
  264.       Width           =   735
  265.    End
  266. End
  267. Attribute VB_Name = "Find1"
  268. Attribute VB_GlobalNameSpace = False
  269. Attribute VB_Creatable = False
  270. Attribute VB_PredeclaredId = True
  271. Attribute VB_Exposed = False
  272. Option Explicit
  273.  
  274. Private Sub Command1_Click()
  275.     Replace_All
  276. End Sub
  277.  
  278. Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  279. Command1.ToolTipText = "REPLACE ALL ..."
  280. Command1.MousePointer = 99
  281. Command1.MouseIcon = LoadResPicture(101, vbResCursor)
  282. End Sub
  283.  
  284. Private Sub Command2_Click()
  285.     If frmMain.RichTextBox1(frmMain.Text8.Text).SelText = "" Then
  286.         frmMain.RichTextBox1(frmMain.Text8.Text).SelStart = 0
  287.     End If
  288.         intBegSearch = frmMain.RichTextBox1(frmMain.Text8.Text).SelStart + 2
  289.  
  290.     If Command2.Caption = "&Find" Then
  291.         Find
  292.         'Command2.Caption = "&Find Next"
  293.     Else
  294.         FindNext
  295.     End If
  296.  
  297. End Sub
  298.  
  299. Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  300. Command2.ToolTipText = "FIND..."
  301. Command2.MousePointer = 99
  302. Command2.MouseIcon = LoadResPicture(101, vbResCursor)
  303. End Sub
  304.  
  305. Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  306. Command3.ToolTipText = "REPLACE ..."
  307. Command3.MousePointer = 99
  308. Command3.MouseIcon = LoadResPicture(101, vbResCursor)
  309. End Sub
  310.  
  311. Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  312. Command4.ToolTipText = "CANCEL FIND"
  313. Command4.MousePointer = 99
  314. Command4.MouseIcon = LoadResPicture(101, vbResCursor)
  315. End Sub
  316.  
  317. Private Sub Command5_Click()
  318.     vReplace
  319. End Sub
  320.  
  321. Private Sub Command4_Click()
  322.     Command2.Enabled = True
  323.     Command3.Visible = True
  324.     Command3.Enabled = True
  325.     Command1.Visible = False
  326.     Command1.Enabled = False
  327.     Command5.Visible = False
  328.     Command5.Enabled = False
  329.     cboRep.Visible = False
  330.     Label2.Visible = False
  331.     frmMain.SetFocus
  332.  
  333.         If cboRep.Text = "" Then
  334.         Else
  335.             cboRep.AddItem cboRep.Text
  336.         End If
  337.     Me.Hide
  338. End Sub
  339.  
  340. Private Sub Command3_Click()
  341.     Command3.Visible = False
  342.     Command3.Enabled = False
  343.     Command1.Visible = True
  344.     Command1.Enabled = True
  345.     Command5.Visible = True
  346.     Command5.Enabled = True
  347.     Command2.Enabled = False
  348.     cboRep.Visible = True
  349.     Label2.Visible = True
  350. End Sub
  351.  
  352. Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  353. Command5.ToolTipText = "REPLACE ..."
  354. Command5.MousePointer = 99
  355. Command5.MouseIcon = LoadResPicture(101, vbResCursor)
  356. End Sub
  357.  
  358. Private Sub Command6_Click()
  359. Unload Me
  360. End Sub
  361.  
  362. Private Sub Command6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  363. Command6.ToolTipText = "EXIT THIS DIALOGUE, PLEASE USE THE DOOR!"
  364. Command6.MousePointer = 99
  365. Command6.MouseIcon = LoadResPicture(101, vbResCursor)
  366. End Sub
  367.  
  368. Private Sub Form_Load()
  369. '   SET ALWAYS ON TOP(TRUE)
  370.     MakeAlwaysOnTop Me, True
  371.     
  372. End Sub
  373.  
  374.  
  375. Private Sub Text1_Change()
  376. Command2.Caption = "&Find"
  377. If Text1.Text = "" Then
  378.     Command2.Enabled = False
  379. Else
  380.     Command2.Enabled = True
  381. End If
  382. End Sub
  383.  
  384.  
  385.