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 >
Encoding:
Text File  |  1996-04-24  |  4.0 KB  |  166 lines
  1. Listing 1 [[VB4]]
  2.  
  3. Option Explicit
  4. Public sFind As String
  5. Const msgLoad = "Loading document..."
  6. Const msgSave = "Saving document..."
  7. Const msgPrint = "Printing document..."
  8. Const msgFind = "Finding text..."
  9.  
  10. Private Sub Combo1_Change()
  11. RichTextBox1.SelFontSize = Combo1
  12. RichTextBox1.SetFocus
  13. End Sub
  14.  
  15. Private Sub Combo1_Click()
  16. RichTextBox1.SelFontSize = Combo1
  17. RichTextBox1.SetFocus
  18. End Sub
  19.  
  20. Private Sub Form_Load()
  21. 'Initialize the combo box
  22. Show
  23. With Combo1
  24. .Width = Toolbar1.Buttons("combo1").Width
  25. .Left = Toolbar1.Buttons("combo1").Left
  26. .Top = Toolbar1.Buttons("combo1").Top
  27. .AddItem "10"
  28. .AddItem "12"
  29. .AddItem "14"
  30. .AddItem "16"
  31. .ListIndex = 0
  32. .ZOrder
  33. End With
  34. End Sub
  35.  
  36. Private Sub mStatTime_Click()
  37. Dim pnl As Panel
  38. If Not mStatTime.CHECKED Then
  39.     Set pnl = StatusBar1.Panels.Add _
  40.         (, "date", , sbrDate)
  41.     pnl.AutoSize = sbrContents
  42.     pnl.MinWidth = 720
  43.     
  44.     Set pnl = StatusBar1.Panels.Add
  45.     With pnl
  46.         .Key = "time"
  47.         .Style = sbrTime    ' Time style
  48.         .AutoSize = sbrContents
  49.         .MinWidth = 720
  50.     End With
  51. Else
  52.      StatusBar1.Panels.Remove ("date")
  53.      StatusBar1.Panels.Remove ("time")
  54. End If
  55. mStatTime.CHECKED = Not mStatTime.CHECKED
  56. End Sub
  57.  
  58. Private Sub Form_Resize()
  59. With Combo1
  60. .Width = Toolbar1.Buttons("combo1").Width
  61. .Left = Toolbar1.Buttons("combo1").Left
  62. .Top = Toolbar1.Buttons("combo1").Top
  63. End With
  64. End Sub
  65.  
  66. Private Sub mnuExit_Click()
  67. Unload Me
  68. End
  69. End Sub
  70.  
  71. Private Sub mnuFind_Click()
  72. StatusBar1.Panels(1).Text = msgFind
  73. sFind = InputBox("Find what?", , sFind)
  74. RichTextBox1.Find sFind
  75. StatusBar1.Panels(1).Text = ""
  76. End Sub
  77.  
  78. Private Sub mnuFont_Click()
  79. CommonDialog1.Flags = cdlCFBoth + cdlCFEffects
  80. CommonDialog1.ShowFont
  81. With RichTextBox1
  82.     .SelFontName = CommonDialog1.FontName
  83.     .SelFontSize = CommonDialog1.FontSize
  84.     .SelBold = CommonDialog1.FontBold
  85.     .SelItalic = CommonDialog1.FontItalic
  86.     .SelStrikethru = CommonDialog1.FontStrikethru
  87.     .SelUnderline = CommonDialog1.FontUnderline
  88. End With
  89. End Sub
  90.  
  91. Private Sub mnuNew_Click()
  92. RichTextBox1.Text = ""
  93. End Sub
  94.  
  95. Private Sub mnuNext_Click()
  96. RichTextBox1.SelStart = RichTextBox1.SelStart + _
  97.     RichTextBox1.SelLength + 1
  98. RichTextBox1.Find sFind, , Len(RichTextBox1)
  99. End Sub
  100.  
  101. Private Sub mnuOpen_Click()
  102. StatusBar1.Panels(1).Text = msgLoad
  103. CommonDialog1.ShowOpen
  104. RichTextBox1.LoadFile (CommonDialog1.filename)
  105. StatusBar1.Panels(1).Text = ""
  106. End Sub
  107.  
  108.  
  109. Private Sub mnuPrint_Click()
  110. StatusBar1.Panels(1).Text = msgPrint
  111. CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums
  112. If RichTextBox1.SelLength = 0 Then
  113.     CommonDialog1.Flags = CommonDialog1.Flags + _
  114.         cdlPDAllPages
  115. Else
  116.     CommonDialog1.Flags = CommonDialog1.Flags + _
  117.         cdlPDSelection
  118. End If
  119. CommonDialog1.ShowPrinter
  120. RichTextBox1.SelPrint CommonDialog1.hDC
  121. StatusBar1.Panels(1).Text = ""
  122. End Sub
  123.  
  124. Private Sub mnuSave_Click()
  125. StatusBar1.Panels(1).Text = msgSave
  126. CommonDialog1.ShowSave
  127. RichTextBox1.SaveFile (CommonDialog1.filename)
  128. StatusBar1.Panels(1).Text = ""
  129. End Sub
  130.  
  131.  
  132. Private Sub RichTextBox1_SelChange()
  133. Select Case RichTextBox1.SelAlignment
  134. Case rtfLeft
  135.     Toolbar1.Buttons("Left").Value = tbrPressed
  136. Case rtfCenter
  137.     Toolbar1.Buttons("Center").Value = tbrPressed
  138. Case rtfRight
  139.     Toolbar1.Buttons("Right").Value = tbrPressed
  140. Case Else
  141.     Toolbar1.Buttons("Left").Value = tbrUnpressed
  142.     Toolbar1.Buttons("Center").Value = tbrUnpressed
  143.     Toolbar1.Buttons("Right").Value = tbrUnpressed
  144. End Select
  145. Combo1.Text = RichTextBox1.SelFontSize
  146. StatusBar1.Panels(2).Text = _
  147.     RichTextBox1.SelFontName
  148. StatusBar1.Panels(3).Text = _
  149.     "Line " & _
  150.     RichTextBox1.GetLineFromChar _
  151.     (RichTextBox1.SelStart) + 1
  152. End Sub
  153.  
  154. Private Sub Toolbar1_ButtonClick(ByVal Button As Button)
  155. Select Case Button.Key
  156. Case "New": mnuNew_Click
  157. Case "Open": mnuOpen_Click
  158. Case "Save": mnuSave_Click
  159. Case "Print": mnuPrint_Click
  160. Case "Find": mnuFind_Click
  161. Case "Left": RichTextBox1.SelAlignment = rtfLeft
  162. Case "Center": RichTextBox1.SelAlignment = rtfCenter
  163. Case "Right": RichTextBox1.SelAlignment = rtfRight
  164. End Select
  165. End Sub
  166.