VB跪求高手指点字体变粗体.有下划线等

发布网友发布时间：2024-09-26 20:30

共2个回答

热心网友时间：2024-10-05 13:04

.net下gdi+封装得怎么样我不是很清楚，忘记了= =.

试试：

Me.RichTextBox1.SelectionFont = New System.Drawing.Font(myfont, CType(((b Or i) Or u))

由于你是从已存在的font建立font,所以应该是这个参数吧。。仔细看清楚参数。

如果没能解答……那你自己慢慢看“参考资料”吧，参数务必不要对错。
我今天就这点时间……明天上不了

你可以给我留言，我将在周六周日解答

全部重载情况请看msdn

热心网友时间：2024-10-05 13:04

Sub fontstyle1(ByVal myfont As System.Drawing.Font)
Dim b, i, u As Integer
Try
Me.RichTextBox1.SelectionFont = New System.Drawing.Font(myfont, FontStyle.Regular)
If Me.ToolStripButton15.Checked Then
b = FontStyle.Bold
End If
If Me.ToolStripButton16.Checked Then
i = FontStyle.Italic
End If
If Me.ToolStripButton19.Checked Then
u = FontStyle.Underline
End If
Me.RichTextBox1.SelectionFont = New System.Drawing.Font(myfont, CType(((b Or i) Or u), System.Drawing.FontStyle))
Catch ex As Exception

End Try

End Sub

Private Sub ToolStripButton15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton15.Click
fontstyle1(Me.RichTextBox1.SelectionFont)
End Sub

Private Sub ToolStripButton16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton16.Click
fontstyle1(Me.RichTextBox1.SelectionFont)
End Sub
Private Sub ToolStripButton19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton19.Click
fontstyle1(Me.RichTextBox1.SelectionFont)
End Sub

热心网友时间：2024-10-05 13:02

热心网友时间：2024-10-05 13:05

VB跪求高手指点字体变粗体.有下划线等

Me.RichTextBox1.SelectionFont = New System.Drawing.Font(myfont, CType(((b Or i) Or u))由于你是从已存在的font建立font,所以应该是这个参数吧。。仔细看清楚参数。如果没能解答……那你自己慢慢看“参考资料”吧，参数务必不要对错。我今天就这点时间……明天上不了你可以给我留言，我将...

VB数据表中,老提示:缺少,表达式,如下,求高手指点?

VB换行需要添加空格和下划线，建议写在一行上，也就是：ZF = Data2.Recordset.Fields("微机原理") + Data2.Recordset.Fields ("office") + Data2.Recordset.Fields ("五笔字型打字") + Data2.Recordset.Fields ("VB")

怎么在vb窗体上直接显示内容(汉字),可以改变它出现的位置,大小,颜色等...

1、打开VB软件，在窗体上添加一个标签。2、点击标签，在属性窗口设置标签的属性和名称，将其Caption设置为“快乐学习”。3、再在窗体上面，添加一个列表框控件。4、双击列表框，开始编辑代码。5、运行程序，点击列表框中不同的数值，观察标签中字体的大小变化。注意事项：VB拥有图形用户界面（GUI）和快速...

跪求高手指点长一点的下划线怎么用键盘打?

方法一、这个简单，直接将输入法切换到没有“美式键盘”，然后使用Word快捷键 Shift + “减号” 下划线多长根据自己的需求。方法二、在需要加下划线的地方按“空格键”需要多长就按多长，然后选中空格区域，点击Word窗口右上方的“U”.扩展阅读：文字底部下划线怎么打?选中需要加下划线的文字，然后单击“U...

VB编程的问题,麻烦高手指点指点.

字w 实型r 无符号 u 描述部分最大Max 最小Min 初始化 Init 临时变量 T(或Temp) 源对象 Src 目的对象 Dest 这里顺便写几个例子: hwnd : h 是类型描述,表示句柄, wnd 是变量对象描述,表示窗口,所以 hwnd 表示窗口句柄; pfnEatApple : pfn 是类型描述,表示指向函数的指针, EatApple 是变量对象描述,所以...

此程序运行有错,跪求高手指点,在线等!

double difftime(time_t,time_t);int main(void){ register int rcount=1;auto int count=1;clock_t old_cpu,now_cpu,interval_cpu;time_t old_time,now_time,interval_time;old_time=time(NULL);old_cpu=clock();for(;count<=CLOCKS_PER_SEC;count++);now_time=time(NULL);now_cpu=...

关于用VB6.0写个小程序计算绝对值~~~跪求高手指点..

Text)) ' val(text1.text)是把text1里的文字转换成数字 ,ABS()是一个取绝对值得函数下面是笨办法,但是可以搞懂是怎么回事 if val(text1.text)>0 then label2.caption=text1.text else label2.caption=0-val(text1.text) ' val(text1.text)是把text1里的文字转换成数字 end if ...

VB中想要用PRINT方法显示一个心型。求高手指点代码的错误之处

把所有的0改为"0"或者把所有的TAB值都增加一倍。

高手指点!VB求平均值,但数值已在输入时被清除,该如何求平均值?

你下面代码不对啊。For i = 1 To 100 sums = sums + a(n)Next 根据你上面的代码，按下回车键，n=n+1，那么这里的代码里a(n)的值是0啊，而且你这个循环中n没有变化，总和永远都是0,。你可以试试 For i = 1 To 100 sums = sums + a(i)Next 欢迎追问 ...

高等数学,变上限积分求导,跪求高手指点,我直接套用变上限积分求导公式对...

我们对X求导套用公式就是对的,而套用公式对Y求导就是错的。求高手指点下啊,对Y求导,R若果套用公式,就是COS(T-T)^2=1,当然,令T-S=U可以求出正确结果,我现在是疑惑为什么我套用公式就错了呢,跪求指点展开  我来答 1个回答 #热议# 已婚女性就应该承担家里大部分家务吗?百度...

下划线字体生成器字体下面的横线怎么打文字下划线怎么给文字加下划线 word下划线不随字移动中文粗体字体 wps下划线怎么打如何取消下划线文档下划线怎么弄

VB跪求高手指点 字体变粗体.有下划线等

VB跪求高手指点字体变粗体.有下划线等