Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0258: Demo des RichTextBox Steuerelements

VB 5/6-Tipp 0258: Demo des RichTextBox Steuerelements

 von ActiveVB

Schwierigkeitsgrad:

Verwendete API-Aufrufe: keine

Download: Download des Beispielprojektes [4,05 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
' Die Komponente 'Microsoft Rich Textbox Control 6.0 (RICHTX32.OCX)' wird benötigt.

'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "Command2"
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Rahmensteuerelement "Frame1"
' Steuerelement: Kombinationsliste "Combo2" auf Frame1
' Steuerelement: Kombinationsliste "Combo1" auf Frame1
' Steuerelement: Optionsfeld-Steuerelement "Option1" (Index von 0 bis 3) auf Frame1
' Steuerelement: Kontrollkästchen-Steuerelement "Check1" (Index von 0 bis 3) auf Frame1
' Steuerelement: Beschriftungsfeld "Label7" auf Frame1
' Steuerelement: Beschriftungsfeld "Label6" auf Frame1
' Steuerelement: Beschriftungsfeld "Label5" auf Frame1
' Steuerelement: Beschriftungsfeld "Label4" auf Frame1
' Steuerelement: Beschriftungsfeld "Label3" auf Frame1
' Steuerelement: Beschriftungsfeld "Label1" auf Frame1
' Steuerelement: Beschriftungsfeld "Label2" auf Frame1
' Steuerelement: RichTextBox "RichTextBox1"

Option Explicit

Dim Flag As Boolean

Private Sub Form_Load()
  Dim x%
  
    For x = 0 To 5
      Combo2.List(x) = Screen.Fonts(x)
    Next x
    
    Flag = True
    Combo1.ListIndex = 1
    Combo2.ListIndex = 0
    Call Command2_Click
    Flag = False
End Sub

Private Sub Command1_Click()
  RichTextBox1.SaveFile (App.Path & "\Test.rtf")
  RichTextBox1.SetFocus
End Sub

Private Sub Command2_Click()
  RichTextBox1.LoadFile (App.Path & "\Test.rtf")
  If Not Flag Then RichTextBox1.SetFocus
End Sub

Private Sub Combo1_Click()
  If Flag Then Exit Sub
  RichTextBox1.SelFontSize = Combo1.List(Combo1.ListIndex)
  RichTextBox1.SetFocus
End Sub

Private Sub Combo2_Click()
  If Flag Then Exit Sub
  RichTextBox1.SelFontName = Combo2.List(Combo2.ListIndex)
  RichTextBox1.SetFocus
End Sub

Private Sub Check1_Click(Index As Integer)
  With RichTextBox1
    If Check1(0).Value = vbChecked Then
      .SelBold = True
    Else
       .SelBold = False
    End If
    
    If Check1(1).Value = vbChecked Then
      .SelItalic = True
    Else
      .SelItalic = False
    End If
    
    If Check1(2).Value = vbChecked Then
      .SelUnderline = True
    Else
      .SelUnderline = False
    End If
    
    If Check1(3).Value = vbChecked Then
      .SelStrikeThru = True
    Else
      .SelStrikeThru = False
    End If
  
    .SetFocus
  End With
End Sub

Private Sub Option1_Click(Index As Integer)
  RichTextBox1.SelColor = Option1(Index).BackColor
  RichTextBox1.SetFocus
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 1 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.