VB如何用复选框
VB中如何用复选框选择TEXT文本框中的文字是粗体还是斜体?把代码写下来,谢谢问题写错了,应该是VB中如何用复选框控件控制TEXT文本框中的文字成为粗体或斜体?...
VB中如何用复选框选择TEXT文本框中的文字是粗体还是斜体?
把代码写下来,谢谢
问题写错了,应该是
VB中如何用复选框控件控制TEXT文本框中的文字成为粗体或斜体? 展开
把代码写下来,谢谢
问题写错了,应该是
VB中如何用复选框控件控制TEXT文本框中的文字成为粗体或斜体? 展开
8个回答
展开全部
Private Sub Check1_Click()
Text1.FontBold = Check1.Value
End Sub
Private Sub Check2_Click()
Text1.FontItalic = Check2.Value
End Sub
Private Sub Form_Load()
Text1.FontSize = 30
Check1.Caption = "粗体"
Check2.Caption = "斜体"
End Sub
窗体上一个textbox 两个checkbox
帐号解封 庆祝一下~~~~~偶回来啰~~~~~~~~
Text1.FontBold = Check1.Value
End Sub
Private Sub Check2_Click()
Text1.FontItalic = Check2.Value
End Sub
Private Sub Form_Load()
Text1.FontSize = 30
Check1.Caption = "粗体"
Check2.Caption = "斜体"
End Sub
窗体上一个textbox 两个checkbox
帐号解封 庆祝一下~~~~~偶回来啰~~~~~~~~
展开全部
加入一个文本框:text1,
二个复选框按钮:
check1(caption属性改为:粗体),
check2(caption属性改为:斜体)
下面是代码:
Private Sub Form_Load()
Text1.Text = "测试区域"
Text1.FontSize = 25
Text1.ForeColor = vbRed
End Sub
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
End Sub
二个复选框按钮:
check1(caption属性改为:粗体),
check2(caption属性改为:斜体)
下面是代码:
Private Sub Form_Load()
Text1.Text = "测试区域"
Text1.FontSize = 25
Text1.ForeColor = vbRed
End Sub
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
新建一个text,一个复选框
text的text属性为“测试区”,字体为斜体
复选框的caption属性为“粗体”,value属性为0(未选)
代码如下:
Option Explicit
Private Sub Check1_Click()
If Check1.Value = 0 Then
text1.FontItalic = True
text1.FontBold = False
Else
text1.FontItalic = False
text1.FontBold = True
End If
End Sub
text的text属性为“测试区”,字体为斜体
复选框的caption属性为“粗体”,value属性为0(未选)
代码如下:
Option Explicit
Private Sub Check1_Click()
If Check1.Value = 0 Then
text1.FontItalic = True
text1.FontBold = False
Else
text1.FontItalic = False
text1.FontBold = True
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
LABLE标签里有个FONT属性,自己试一下怎么用那个斜体和粗体吧。也可以同时将这两个设为真哦。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
只要在Check1_Click的事件代码下加
这一行代码就好了啊
Text1.FontBold = True
这一行代码就好了啊
Text1.FontBold = True
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询