23. Design an application in VB to implement the find and replace dialogue box for textbox control with the multiple line of text with 3 options buttons for changing font and three checkboxes for giving effect (Bold, Italic, Underline) to the text. The form should contain following command buttons a. Find b. Find Next c. Replace d. Replace all


Dim txt As String
Dim s, l, r As Integer
Private Sub Check1_Click(Index As Integer)
If Check1(0).Value = 1 Then
Text1.Font.Bold = True
Else
Text1.Font.Bold = False
End If
If Check1(1).Value = 1 Then
Text1.Font.Italic = True
Else
Text1.Font.Italic = False
End If
If Check1(2).Value = 1 Then
Text1.Font.Underline = True
Else
Text1.Font.Underline = False
End If
End Sub

Private Sub cmdClear_Click()
Option1(0).Value = False
Option2(1).Value = False
Option3(2).Value = False

Check1(0).Value = 0
Check2(1).Value = 0
Check3(2).Value = 0
End Sub

Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub cmdFind_Click()
txt = InputBox(“enter Text to find”)
l = Len(txt)
r = InStr(1, Text1.Text, txt, vbTextCompare)
Text1.SelStart = r – 1
Text1.SelLength = l
End Sub

Private Sub cmdFindNext_Click()
If r <> Len(Text1.Text) Then
r = InStr(r + 1, Text1.Text, txt, vbTextCompare)
Text1.SelStart = r – 1
Text1.SelLength = l
Else
MsgBox “No more Text”, vbInformation, “Find”
End If
End Sub

Private Sub cmdReplace_Click()
txt1 = InputBox(“Enter text to replace”)
Text1.Text = Replace(Text1.Text, txt, txt1)

End Sub

Private Sub Form_Load()
Text1.Text = “Design an application in VB to implement the find and replace dialogue ” & _
“box for textbox control with multiple line of text with 3 option buttons and check boxes and”
End Sub

Private Sub Option1_Click(Index As Integer)
If Option1(0).Value = True Then
Text1.Font.Name = “Arial”
ElseIf Option1(1).Value = True Then
Text1.Font.Name = “Arial Black”
Else
Text1.Font.Name = “Times New Roman”
End If
End Sub

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s