vb中前景色

⑴ VB6.0的代碼窗口裡的前景色,背景色,標識色被改的一團糟,求默認設置

都自動，你試試。。

⑵ VB設計如圖所示的改變文本框中文字字體及文本框前景色及背景顏色設置的菜單，一個簡單窗體

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then

Text1.Enabled = False

PopupMenu Me.右擊

Text1.Enabled = True

End If

End Sub

Private Sub text背景_Click()

CommonDialog1.ShowColor

Text1.BackColor = CommonDialog1.Color

End Sub

Private Sub text前景_Click()

CommonDialog1.ShowColor

Text1.ForeColor = CommonDialog1.Color

End Sub

Private Sub 字體_Click()

On Error Resume Next

CommonDialog1.ShowFont

Text1.FontBold = CommonDialog1.FontBold

Text1.FontItalic = CommonDialog1.FontItalic

Text1.FontName = CommonDialog1.FontName

Text1.FontSize = CommonDialog1.FontSize

End Sub

⑶ vb中滑鼠指針移動到標簽時,標簽前景色變為藍色

PrivateSubLabel1_MouseMove(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)HandlesLabel1.MouseMove
Label1.BackColor=Color.Black
EndSub

Private Sub Label1_MouseLeave1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseLeave
Label1.BackColor = Color.White
End Sub

⑷ vb中怎麼用timer交換前景色和背景色

PrivateSubTimer1_Timer()
Me.BackColor=IIf(Me.BackColor=vbYellow,vbRed,vbYellow)
Me.ForeColor=IIf(Me.ForeColor=vbRed,vbYellow,vbRed)
EndSub

⑸ 如何用vb中print方法設置窗體前景色

Private Sub Form_Click()
Me.ForeColor = vbRed
Print "abc123"
End Sub

⑹ VB中怎麼判斷excel中某個單元格的前景色

VB中判斷excel中某個單元格的前景色也就是獲取font的顏色。
在excel中，所謂的前回景色就是字體顏色，所以獲取答和設置字體顏色的方法如下：
Sub getForegroundColor() '定義子過程
Dim dData As Range '定義單元格範圍
Dim Cell As Range '指定cell范圍
Set dData = Sheets("Sheet1").Range("l2:l10000") '賦值范圍

For Each Cell In dData.Cells '循環判斷
If Cell.Font.Color = 16777215 Then
Cell.offset(,1).Font.Color = 16777215 』設置顏色
End If
Next
End Sub

⑺ vb怎樣設置按鈕前景色

把style屬性設置為 graphic 然後就可以通過設置 backcolor 屬性來改變顏色了。

⑻ vb程序單擊「紅色」單選按鈕，標簽的前景色變為紅色。請問如何做，請寫出代碼謝謝！

PrivateSubOption1_Click()
Label1.ForeColor=vbRed

EndSub

PrivateSubOption2_Click()
Label1.ForeColor=vbYellow

EndSub

⑼ vb中時鍾中怎麼控制標簽的前景色變化

使用Rnd函數和QBColor 函數，生成0-15的隨機整數，來改變制標簽的前景色。

PrivateSubForm_Load()
Timer1.Interval=500
EndSub

PrivateSubTimer1_Timer()
Label1.ForeColor=QBColor(Int((16*Rnd)))
EndSub

⑽ 在vb中用隨機函數設置label的背景色、前景色

Private Sub Form_click()
Label1.FontSize = 30
Randomize
Label1.ForeColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
Label1.BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
End Sub