怎樣在vb中能把窗體的顏色設置為自動的顏色

BackColor、ForeColor 屬性

BackColor－返回或設置對象的背景顏色。ForeColor－返回或設置在對象裏顯示圖片和文本的前景顏色。

以下代碼是改變窗體背景色和改變圖片框背景和前景色的代碼：

1

2

3

4

5

6

7

8

9

10

11

12

Private Sub Form_Load()

Timer1.Interval = 500

Picture1.FontSize = 30

<a href="/s?wd=End&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1Y3nycYmyckuWRYmHDkrAfL0ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EnHfYnHb3n1Dv" target="_blank" class="baidu-highlight">End</a> Sub

Private Sub Timer1_Timer()

Picture1.Cls

BackColor = QBColor(Rnd * 15)

Picture1.BackColor = QBColor(Rnd * 15)

Picture1.ForeColor = QBColor(Rnd * 10)

Picture1.Print "ABC"

<a href="/s?wd=End&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1Y3nycYmyckuWRYmHDkrAfL0ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EnHfYnHb3n1Dv" target="_blank" class="baidu-highlight">End</a> Sub