锐客网

  1. 首页 > 睿知 > it技术 > >

vbnet如何文字变色 vb窗体字体颜色

IT技术文字

VB.NET，如何用代码实现改变字体、颜色、加粗，以及恢复默认?1、2和3:你怎么改的,就怎么恢复默认
3:textbox1.font=new
font(
字体
名称，字体大?。?
字形
) ， 字形有加粗常规倾斜
下划线
等几种 。
请问VB.NET里面改textbox文字颜色（forecolor）和背景颜色(backcolor)怎么弄？有具体的题目?。?/h2>Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
TextBox1.ForeColor = Color.Red
Else
TextBox1.ForeColor = Color.Black
End If
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked = True Then
TextBox1.BackColor = Color.Yellow
Else
TextBox1.BackColor = Color.White
End If
End Sub
如何让vb中的label或text中的部分文字变颜色Vb中Label或者Text只能设置一种文字颜色，无法使部分文字变色
但可以换一种思路，例如
在label中，如果想将部分文字设为其他颜色，可以在label控件上再加一个与这些文字宽度相等的新的label ， 平时隐藏，改变文字时，显示 ， 并使它上面的文字显示为制定颜色，且调整位置至与原来的文字重叠，就可以达到使部分文字变色的目的了 。
vb.net 如何使文字能渐变颜色，就是颜色慢慢变淡然后在慢慢恢复？也容易vbnet如何文字变色 ， 如果是黑白三个颜色加上相同的渐变量vbnet如何文字变色，彩色的是起始颜色的三个分量与终止颜色的对应三个分量的差值vbnet如何文字变色，再除于相同的份数，就得出三原色各自的步进量 。
窗体上放个图片框试试下面代码vbnet如何文字变色：
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim startColor As Color = Color.Red
Dim endColor As Color = Color.Green
Dim s As String = "vb.net 如何使文字能渐变颜色，就是颜色慢慢变淡然后在慢慢恢复vbnet如何文字变色？"
Dim Steps As Integer = s.Length \ 2
Dim StepR As Integer = (CInt(endColor.R) - startColor.R) \ Steps
Dim StepG As Integer = (CInt(endColor.G) - startColor.G) \ Steps
Dim StepB As Integer = (CInt(endColor.B) - startColor.B) \ Steps
Dim R As Integer = startColor.R
Dim G As Integer = startColor.G
Dim B As Integer = startColor.B
Dim drawFont As New System.Drawing.Font("Arial", 16)
Dim X As Integer = 50
For i As Integer = 1 To Steps
Dim drawBrush As New SolidBrush(Color.FromArgb(R, G, B))
e.Graphics.DrawString(s.Substring(i - 1, 1), drawFont, drawBrush, X, 50.0)
X += 18
R += StepR
G += StepG
B += StepB
Next
For i As Integer = 1 To Steps
Dim drawBrush As New SolidBrush(Color.FromArgb(R, G, B))
e.Graphics.DrawString(s.Substring(i + Steps - 1, 1), drawFont, drawBrush, X, 50.0)
X += 18
R -= StepR
G -= StepG
B -= StepB
Next
End Sub
VB中 如何改变下拉选项中字体的颜色Private Sub Combo1_Click()
If Combo1.Text = "红" Then
Label1.ForeColor = RGB(255, 0, 0) '无论哪种色彩都是可以根据这三个数值调vbnet如何文字变色的
ElseIf Combo1.Text = "黄" Then
Label1.ForeColor = RGB(0, 255, 0)
ElseIf Combo1.Text = "黑" Then
Label1.ForeColor = RGB(0, 0, 0)
End If
End Sub
Private Sub Form_Load()
Label1 = "写入vbnet如何文字变色你想改变颜色vbnet如何文字变色的字体"
Combo1.AddItem "红"
Combo1.AddItem "黄"
Combo1.AddItem "黑"
End Sub
'上面的代的是VB6的

推荐阅读


上一篇：mongodb启动bat，mongodb启动报错

下一篇：如何正确的认识内容电商，如何正确的认识内容电商营销