home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Software Sampler
/
Visual_Basic_Software_Sampler_Visual_Basic_Programmers_Journal_June_1996.iso
/
issues
/
04apr96
/
code
/
p84.txt
< prev
next >
Wrap
Text File
|
1996-04-24
|
4KB
|
166 lines
Listing 1 [[VB4]]
Option Explicit
Public sFind As String
Const msgLoad = "Loading document..."
Const msgSave = "Saving document..."
Const msgPrint = "Printing document..."
Const msgFind = "Finding text..."
Private Sub Combo1_Change()
RichTextBox1.SelFontSize = Combo1
RichTextBox1.SetFocus
End Sub
Private Sub Combo1_Click()
RichTextBox1.SelFontSize = Combo1
RichTextBox1.SetFocus
End Sub
Private Sub Form_Load()
'Initialize the combo box
Show
With Combo1
.Width = Toolbar1.Buttons("combo1").Width
.Left = Toolbar1.Buttons("combo1").Left
.Top = Toolbar1.Buttons("combo1").Top
.AddItem "10"
.AddItem "12"
.AddItem "14"
.AddItem "16"
.ListIndex = 0
.ZOrder
End With
End Sub
Private Sub mStatTime_Click()
Dim pnl As Panel
If Not mStatTime.CHECKED Then
Set pnl = StatusBar1.Panels.Add _
(, "date", , sbrDate)
pnl.AutoSize = sbrContents
pnl.MinWidth = 720
Set pnl = StatusBar1.Panels.Add
With pnl
.Key = "time"
.Style = sbrTime ' Time style
.AutoSize = sbrContents
.MinWidth = 720
End With
Else
StatusBar1.Panels.Remove ("date")
StatusBar1.Panels.Remove ("time")
End If
mStatTime.CHECKED = Not mStatTime.CHECKED
End Sub
Private Sub Form_Resize()
With Combo1
.Width = Toolbar1.Buttons("combo1").Width
.Left = Toolbar1.Buttons("combo1").Left
.Top = Toolbar1.Buttons("combo1").Top
End With
End Sub
Private Sub mnuExit_Click()
Unload Me
End
End Sub
Private Sub mnuFind_Click()
StatusBar1.Panels(1).Text = msgFind
sFind = InputBox("Find what?", , sFind)
RichTextBox1.Find sFind
StatusBar1.Panels(1).Text = ""
End Sub
Private Sub mnuFont_Click()
CommonDialog1.Flags = cdlCFBoth + cdlCFEffects
CommonDialog1.ShowFont
With RichTextBox1
.SelFontName = CommonDialog1.FontName
.SelFontSize = CommonDialog1.FontSize
.SelBold = CommonDialog1.FontBold
.SelItalic = CommonDialog1.FontItalic
.SelStrikethru = CommonDialog1.FontStrikethru
.SelUnderline = CommonDialog1.FontUnderline
End With
End Sub
Private Sub mnuNew_Click()
RichTextBox1.Text = ""
End Sub
Private Sub mnuNext_Click()
RichTextBox1.SelStart = RichTextBox1.SelStart + _
RichTextBox1.SelLength + 1
RichTextBox1.Find sFind, , Len(RichTextBox1)
End Sub
Private Sub mnuOpen_Click()
StatusBar1.Panels(1).Text = msgLoad
CommonDialog1.ShowOpen
RichTextBox1.LoadFile (CommonDialog1.filename)
StatusBar1.Panels(1).Text = ""
End Sub
Private Sub mnuPrint_Click()
StatusBar1.Panels(1).Text = msgPrint
CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums
If RichTextBox1.SelLength = 0 Then
CommonDialog1.Flags = CommonDialog1.Flags + _
cdlPDAllPages
Else
CommonDialog1.Flags = CommonDialog1.Flags + _
cdlPDSelection
End If
CommonDialog1.ShowPrinter
RichTextBox1.SelPrint CommonDialog1.hDC
StatusBar1.Panels(1).Text = ""
End Sub
Private Sub mnuSave_Click()
StatusBar1.Panels(1).Text = msgSave
CommonDialog1.ShowSave
RichTextBox1.SaveFile (CommonDialog1.filename)
StatusBar1.Panels(1).Text = ""
End Sub
Private Sub RichTextBox1_SelChange()
Select Case RichTextBox1.SelAlignment
Case rtfLeft
Toolbar1.Buttons("Left").Value = tbrPressed
Case rtfCenter
Toolbar1.Buttons("Center").Value = tbrPressed
Case rtfRight
Toolbar1.Buttons("Right").Value = tbrPressed
Case Else
Toolbar1.Buttons("Left").Value = tbrUnpressed
Toolbar1.Buttons("Center").Value = tbrUnpressed
Toolbar1.Buttons("Right").Value = tbrUnpressed
End Select
Combo1.Text = RichTextBox1.SelFontSize
StatusBar1.Panels(2).Text = _
RichTextBox1.SelFontName
StatusBar1.Panels(3).Text = _
"Line " & _
RichTextBox1.GetLineFromChar _
(RichTextBox1.SelStart) + 1
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As Button)
Select Case Button.Key
Case "New": mnuNew_Click
Case "Open": mnuOpen_Click
Case "Save": mnuSave_Click
Case "Print": mnuPrint_Click
Case "Find": mnuFind_Click
Case "Left": RichTextBox1.SelAlignment = rtfLeft
Case "Center": RichTextBox1.SelAlignment = rtfCenter
Case "Right": RichTextBox1.SelAlignment = rtfRight
End Select
End Sub