Richtextbox

Presentation
On
Topic: Timer, ComboBox,
Rich TextBox, Slider

 Timer Contol
 Combobox
 Rich Textbox
 Slider

Contents

 Timer Control Works like a stopwatch or alarm clock
 Timer control counts repeatedly as long as enabled
property is set to true
 Interval: It specifies the interval between Timer events in
milliseconds

Timer Control

 Dim counter As Integer
 Private Sub cmdend_Click()
 Timer1.Enabled = False
 End Sub

 Private Sub cmdstart_Click()
 Timer1.Enabled = True
 End Sub

 Private Sub Timer1_Timer()
 counter = counter + 1
 If counter = 95 Then
 counter = 1
 End If
 Shape1.FillColor = vbRed
 Shape2.FillColor = vbWhite
 End If

Coding

 Shape2.FillColor = vbYellow
 End If
 Shape3.FillColor = vbGreen
 End If
 End Sub

 Features of Text box and List box
 It is used to present list to the User
 This control allow the user to select an item either by
typing into the Combo box, or by selecting it from the list
 It contains an edit field

Combo Box Control

 Three Styles Combo Box
 The drop down combo Box
 The Simple combo Box
 The drop down list

Combo Box Styles

Drop down Combo Box
Style 0

Simple Combo Box
Style 1

Drop Down List Box
Style 2

 Coding
 Dim a, b
 Private Sub cmdshowdate_Click()
 lblcombo.Caption = Combo2.Text + " " + Combo3.Text + "," + Combo4.Text
 End Sub

 Private Sub Combo1_click()
 If Combo1.ListIndex = 0 Then
 lblcombo.ForeColor = vbRed
 End If
 lblcombo.ForeColor = vbGreen
 End If
 lblcombo.ForeColor = vbBlue
 End If
 End Sub

Combo Box Application

 Private Sub Form_Load()
 Combo1.AddItem "Red"
 Combo1.AddItem "Green"
 Combo1.AddItem "Blue"
 a=0
 Do While a < 31
 a=a+1
 Combo3.AddItem a
 Loop

 b = 1900
 Do While b < 2012
 b=b+1
 Combo4.AddItem b
 Loop

Conti…

 Combo2.AddItem "Jan"
 Combo2.AddItem "Feb"
 Combo2.AddItem "March"
 Combo2.AddItem "April"
 Combo2.AddItem "May"
 Combo2.AddItem "June"
 Combo2.AddItem "july"
 Combo2.AddItem "August"
 Combo2.AddItem "September"
 Combo2.AddItem "October"
 Combo2.AddItem "November"
 Combo2.AddItem "December"
 End Sub

Conti…

 The Rich Text Box Control allows the user to enter and
edit text while also providing more advanced formatting
features than the conventional TextBox control.
 Syntax:
RichTextBox

Rich Text Box

 Private Sub cmdrtbbox_Click()
 rtb1.Text = "The rich text box support underlines, Bold
and Italic text."
 rtb1.SelStart = rtb1.Find("underlines")
 rtb1.Span ("underlines")
 rtb1.SelUnderline = True

 rtb1.SelStart = 0
 rtb1.SelStart = rtb1.Find("Bold")
 rtb1.Span ("Bold")
 rtb1.SelBold = True

Conti…

 rtb1.SelStart = rtb1.Find("Italic")
 rtb1.Span ("Italic")
 rtb1.SelItalic = True
 rtb1.SelStart = rtb1.Find("underlines")
 rtb1.Span ("underlines")
 rtb1.SelFontName = "Arial"
 rtb1.SelFontSize = 18
 End Sub

Conti…

 To Set the value of a point on a graph
 To select the range of number to be passed into the array
 To resize a form, field or other graphic object

Slider Control

 Value
 Min, Max
 Tickfrequency
 Tickstyle
 Smallchange
 Largespace
 Select range
 Selstart
 Sellength

Operations using Slider

 ccOrientationhorizontal (value 0, the default)
 Orients the slider horizontally

 ccOrientationvertical (value1)
 Orients the slider vertically

 Slider1.orientation=ccorientationvertical

Selecting a Slider’s
Orientation

 Slider1.Max=90
 Slider1.Min=50

Setting a Slider’s Range

 Slider1.Max = 250
 Slider1.Min = 0
 Slider1.LargeChange = 5
 Slider1.TickFrequency = 25
 End Sub

 Private Sub Slider1_Change()
 txt1.Text = "slider position" & Str(Slider1.Value)
 End Sub

Handling Slider Events

 Slider1.Max = 100
 Slider1.Min = 0
 Slider1.LargeChange = 5
 Slider1.TickFrequency = 10
 Slider1.TickStyle = sldNoTicks
 End Sub

Richtextbox

More Related Content

Richtextbox