<script type="text/javascript">
</script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
选择字体的ComboBox
有一个ComboBox,在From1_Load下面的代码:
Dim fontFamilies() As FontFamily
Dim installedFontCollection As New InstalledFontCollection
Dim i As Integer
fontFamilies = installedFontCollection.Families
For i = 0 To fontFamilies.Length - 1
cbbFont.Items.Add(fontFamilies(i).Name)
Next
cbbFont.Text = rtbOnly.Font.Name.ToString
怎样实现用cbbFont选择字体后把rtbOnly的字体变为选择的字体啊?
急急急
__________________________________________________________________________
Font f = new Font(cbbFont.SelectText, 12f);
rtbOnly.Font = f;
__________________________________________________________________________
Me.Font = New Font(cbbFont.SelectText, 12)
__________________________________________________________________________
选择字体的ComboBox
有一个ComboBox,在From1_Load下面的代码:
Dim fontFamilies() As FontFamily
Dim installedFontCollection As New InstalledFontCollection
Dim i As Integer
fontFamilies = installedFontCollection.Families
For i = 0 To fontFamilies.Length - 1
cbbFont.Items.Add(fontFamilies(i).Name)
Next
cbbFont.Text = rtbOnly.Font.Name.ToString
怎样实现用cbbFont选择字体后把rtbOnly的字体变为选择的字体啊?
急急急
__________________________________________________________________________
Font f = new Font(cbbFont.SelectText, 12f);
rtbOnly.Font = f;
__________________________________________________________________________
Me.Font = New Font(cbbFont.SelectText, 12)
__________________________________________________________________________