扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
首先command的style要设为1，否则无法改变
创新互联建站凭借专业的设计团队扎实的技术支持、优质高效的服务意识和丰厚的资源优势，提供专业的网站策划、成都网站设计、做网站、成都外贸网站建设公司、网站优化、软件开发、网站改版等服务，在成都10年的网站建设设计经验，为成都成百上千家中小型企业策划设计了网站。
然后在backcolor设置颜色
按钮的字体颜色不能改
如果想改字体颜色，简单点可以用image做按钮。
如果一定要，请看：
在工程中添加以下模块(Module):
Module modExtButton.bas
Option Explicit
这个问题的本质就是随机二字，无论c/s还是b/s里面的label1 ，只要随机设置字体颜色属性即可。而相关属性我相信您肯定知道，关键是怎样随机。vb点虐 里面有一个随机函数，只要利用该随机函数，随机生成相应的颜色即可，然后把随机颜色赋值给label的属性
在VB6中可以通过设置对象的Font属性设置字体字号，ForeColor属性设置字体颜色。\x0d\x0a例如，下面代码实现设置文本框中的字体为”隶书“字号28磅，字体颜色为红色\x0d\x0aPrivate Sub Command1_Click()\x0d\x0aText1.Font.Size = 28\x0d\x0aText1.Font.Name = "隶书"\x0d\x0aText1.ForeColor = vbRed\x0d\x0aEnd Sub
可以利用font 设置。设置方法如下：
TextBox1.Font = New System.Drawing.Font("宋体", 10)
也可以通过字体对话框来实现 如：
Private Sub myButton_Click(sender As Object, e As EventArgs)
Dim myFontDialog As FontDialog
myFontDialog = New FontDialog()
If myFontDialog.ShowDialog() = DialogResult.OK Then
' Set the control's font.
myDateTimePicker.Font = myFontDialog.Font
End If
End Sub
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网