私人?Sub?Form_Load()
文本2。文字?=?“妳好嗎?”
文本2。FontSize?=?20
文本2。FontBold?=?真實的
結束?潛水艇
私人?Sub?Text1_Change(索引?作為?整數)
暗淡?AA?作為?整數,?BB?作為?線
AA?=?索引
如果?AA?=?0?然後呢?BB?=?“紅色”
如果?AA?=?1?然後呢?BB?=?“綠色”
如果?AA?=?2?然後呢?BB?=?“藍色”
如果?IsNumeric(Text1(AA))。正文)?=?假的?然後
MsgBox?“妳輸入了”?& amp?BB?& amp?"不是數字,所有顏色的值必須是0到255之間的正整數!"
Text1(AA)。文字?=?""
Text1(AA)。SetFocus
退出?潛水艇
結束?如果
如果?Val(Text1(AA))。正文)?& lt?0?還是?Val(Text1(AA))。正文)?& gt?255?然後
MsgBox?“妳輸入了”?& amp?BB?& amp?“號碼不正確。不能小於0,也不能大於255!"
Text1(AA)。文字?=?""
Text1(AA)。SetFocus
退出?潛水艇
結束?如果
如果?Val(Text1(0))。正文)?& gt=?0?然後呢。Val(Text1(0))。正文)?& lt=?255?然後呢。Val(Text1(1))。正文)?& gt=?0?然後呢。Val(Text1(1))。正文)?& lt=?255?然後呢。Val(Text1(2))。正文)?& gt=?0?然後呢。Val(Text1(2))。正文)?& lt=?255?然後
文本2。前景色?=?RGB(Val(Text1(0))。正文),?Val(Text1(1))。正文),?Val(Text1(2))。正文))
結束?如果
結束?潛水艇