Du kan bare arbejde lidt vere på den... he he: ---------------------------------------------------------------- Private Sub Combo1_Click() RichTextBox1.SelFontName = Combo1.Text End Sub
Private Sub Command1_Click() CommonDialog1.ShowColor RichTextBox1.BackColor = CommonDialog1.Color
End Sub
Private Sub Form_Load() Dim i For i = 1 To Screen.FontCount Combo1.AddItem Screen.Fonts(i) Next i End Sub
Private Sub Text3_Change() On Error Resume Next RichTextBox1.SelFontSize = Text3 End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.