Question

vb 滚动条选择性改变字体和背景颜色

Answer 1

Private Sub HScroll1_Change()
If Option_B.Value = True Then
Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Else
Text1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End If
End Sub
Private Sub HScroll2_Change()
If Option_B.Value = True Then
Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Else
Text1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End If
End Sub
Private Sub HScroll3_Change()
If Option_B.Value = True Then
Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Else
Text1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End If
End Sub

Private Sub Option_B_Click()
Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub

Private Sub Option_F_Click()
Text1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub