چطور باید فهمید که قسمتی از متن Select شده.

[JaVa]

سلام....

من می خوام وقتی کاربر یه قسمتی از متنو انتخاب کرد فقط همون قسمتو فونتشو عوض کنه .
خودمم این قسمت از کد رو نوشتم. فقط نمی دونم از کجا باید فهمید که متن انتخاب شده؟؟؟؟



txtmain.SelectionFont = New Font(ToolStripComboBox1.Text, 12, FontStyle.Regular)
txtmain.Font = New Font(ToolStripComboBox1.Text, 13, FontStyle.Regular)

[Hybrid]

سلام میتونین از SelectionLength استفاده کنین اینم نمونه برنامش :

[JaVa]

می این دستورات توی Load فرم نوشتم تا فونت ها رو توی کمبو باکس نشون بده.

Dim fnt As New System.Drawing.Text.InstalledFontCollection
For Each K In fnt.Families
ToolStripComboBox1.Items.Add(K.Name)
Next

حالا می خوام از طریق کمبوباکس فونتو رو عوض کنم.
این دستوراتو هم طوی کمبو باکس نوشتم؟ ولی حالت مثال رو نداره؟ چکار باید کرد؟

Private Sub ToolStripComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripComboBox1.TextChanged
If txtmain.SelectionLength <> 0 Then
txtmain.SelectionFont = ToolStripComboBox1.Items(ToolStripComboBox1.Text)
Else
txtmain.Font = ToolStripComboBox1.Items(ToolStripComboBox1.Text)
End If

End Sub

[Hybrid]

سلام ، تقریبا درست نوشتین :


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim fnt As New System.Drawing.Text.InstalledFontCollection

For Each i In fnt.Families
ComboBox1.Items.Add(i.Name)
Next

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

If RichTextBox1.SelectionLength <> 0 Then

RichTextBox1.SelectionFont = New Font(ComboBox1.SelectedText, 12)

Else
MessageBox.Show("شما متنی را انتخاب نکرده اید")
End If

End Sub



موفق باشید./