投稿日 | : 2003/07/10(Thu) 23:21 |
投稿者 | : Say |
Eメール | : |
URL | : |
タイトル | : Re: リッチテキストボックスの行間幅 |
リッチテキストボックスは、あまり使わないのではずしてるかも・・・。
たとえばこう?
Option Explicit
Private Sub Command1_Click()
Dim i As Long
For i = 1 To 10
RichTextBox1.SelStart = 19 * (i - 1) + 18
RichTextBox1.SelLength = 2
RichTextBox1.SelFontSize = i
Next
End Sub
Private Sub Form_Load()
Dim i As Long
RichTextBox1.Text = ""
For i = 1 To 10
RichTextBox1.Text = RichTextBox1.Text & "あいうえおabcde12345" & vbCrLf & vbCrLf
Next
End Sub