请问在VB中的窗体背景颜色的设置代码是怎样的啊？ vb中颜色设置的代码是什么？
\u5982\u4f55\u66f4\u6539VB\u4e2d\u4ee3\u7801\u7a97\u53e3\u7684\u80cc\u666f\u989c\u8272\uff0c\u5b57\u4f53\u989c\u8272\u7b49Private Sub Command1_Click()
Print "HELLO,VB"
Form1.ForeColor = "&H0000FF" ' \u7a97\u4f53\u5b57\u4f53\u989c\u8272\u901a\u8fc7ForeColor\u5c5e\u6027\u8bbe\u7f6e\uff0c\u8fd9\u91cc\u8bbe\u7f6e\u4e3a\u7ea2\u8272
Form1.BackColor = "&H00FF00" ' \u7a97\u4f53\u80cc\u666f\u989c\u8272\u901a\u8fc7BackColor\u5c5e\u6027\u8bbe\u7f6e\uff0c\u8fd9\u91cc\u8bbe\u7f6e\u4e3a\u7eff\u8272
End Sub
\u7528\u989c\u8272\u5e38\u6570\uff1aForm1.BackColor = vbRed '\u7ea2\u3002
Form1.BackColor = vbBlue '\u84dd\u3002
Form1.BackColor = vbWhite '\u767d\u3002
\u7528QBColor\u51fd\u6570\uff1aForm1.BackColor = QBColor(n) 'n\u7684\u503c\u662f0\u523015\u3002
\u7528RGB\u51fd\u6570\uff1aForm1.BackColor = RGB(r, g, b) 'r\u3001g\u3001b\u7684\u503c\u5206\u522b\u662f0\u5230255\u3002
vb\u7684\u4f18\u52bf\uff1a
VB\u4e3a\u4f7f\u7528\u8005\u63d0\u4f9b\u4e86\u4e00\u4e2a\u529f\u80fd\u5f3a\u5927\u800c\u53c8\u6613\u4e8e\u64cd\u4f5c\u7684\u96c6\u6210\u5f00\u53d1\u73af\u5883\uff0c\u7528VB\u5f00\u53d1\u5e94\u7528\u7a0b\u5e8f\u7684\u5927\u90e8\u5206\u5de5\u4f5c\u90fd\u53ef\u4ee5\u901a\u8fc7\u8be5\u96c6\u6210\u5f00\u53d1\u73af\u5883\u6765\u5b8c\u6210\u3002
\u5728Windows\u4e0b\uff0c\u542f\u52a8VB\u540e\u51fa\u73b0\u5728\u5c4f\u5e55\u4e0a\u7684\u753b\u9762\u5c31\u662fVB\u7684\u96c6\u6210\u5f00\u53d1\u73af\u5883\u3000(IDE)\u3002VB\u7684\u96c6\u6210\u5f00\u53d1\u73af\u5883\u4e5f\u79f0\u4e3aVB\u7684\u4e3b\u7a97\u53e3\uff0c\u7531\u201c\u6807\u9898\u680f\u201d\u3001\u201c\u83dc\u5355\u680f\u201d\u3001\u201c\u5de5\u5177\u680f\u201d\u3001\u201c\u63a7\u4ef6\u5de5\u5177\u7bb1\u201d\u3001\u201c\u7a97\u4f53\u8bbe\u8ba1\u5668\u201d\u3001\u201c\u5de5\u7a0b\u8d44\u6e90\u7ba1\u7406\u5668\u201d\u3001\u201c\u5c5e\u6027\u8bbe\u7f6e\u7a97\u53e3\u201d\u548c\u201c\u7a97\u4f53\u5e03\u5c40\u7a97\u53e3\u201d\u7b49\u7ec4\u6210\u3002
VB\u96c6\u6210\u5f00\u53d1\u73af\u5883\u4e2d\u8fd8\u6709\u51e0\u4e2a\u5728\u5fc5\u8981\u65f6\u624d\u4f1a\u663e\u793a\u51fa\u6765\u7684\u5b50\u7a97\u53e3\uff0c\u5373\u201c\u4ee3\u7801\u7f16\u8f91\u5668\u201d\u548c\u7528\u4e8e\u7a0b\u5e8f\u8c03\u8bd5\u7684\u201c\u7acb\u5373\u201d\u3001\u201c\u672c\u5730\u201d\u548c\u201c\u76d1\u89c6\u201d\u7a97\u53e3\u7b49\u3002
form1.BackColor = vbRed
form1.BackColor = RGB(255,255,0)
有QBColor，只能有16个颜色
还可以使用系统颜色，系统颜色的颜色值是&H80000000 + ID
绛旓細鍙互鍦ㄥ睘鎬ч潰鏉块噷闈㈢殑BackColor璁剧疆鎴栬呭彲浠ョ敤浠ｇ爜 姣斿锛欶orm1.BackColor=vbBlack '绐椾綋鑳屾櫙涓洪粦鑹
绛旓細璁剧疆BackColor灞炴 form1.BackColor = vbRed form1.BackColor = RGB(255,255,0)
绛旓細Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)form1.backcolor = vbRed endsubPrivate Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)form1.backcolor = vbGreen end sub ...
绛旓細绐椾綋鑳屾櫙棰滆壊閫氳繃BackColor灞炴ц缃紝杩欓噷璁剧疆涓虹豢鑹睧nd Sub
绛旓細forecolor銆傚湪VB绋嬪簭涓粡甯镐細鐢ㄥ埌鑳屾櫙鑹插僵forecolor銆傛墍浠ヨ缃獥浣撹儗鏅浘鐗囩殑灞炴ф槸forecolor銆傜獥浣撹儗鏅湪VB鏄竴涓姛鑳藉己澶х殑鍙鍖栫殑寮鍙戝伐鍏枫
绛旓細VB鐨勭獥浣撹儗鏅鑷姩鍙樿壊浠ｇ爜鎬庝箞鍐 Private Sub Command1_Click()Print "HELLO,VB"Form1.ForeColor = "&H0000FF" ' 绐椾綋瀛椾綋棰滆壊閫氳繃ForeColor灞炴ц缃紝杩欓噷璁剧疆涓虹孩鑹 Form1.BackColor = "&H00FF00" ' 绐椾綋鑳屾櫙棰滆壊閫氳繃BackColor灞炴ц缃紝杩欓噷璁剧疆涓虹豢鑹 End Sub ...
绛旓細vb鍗曟満绐椾綋,绐椾綋鑳屾櫙鑹涓虹櫧鑹茬殑瀹炵幇浠ｇ爜濡備笅锛歅rivate Sub Command1_Click()Me.BackColor = &H4080& '鎴栧叾浠栦唬琛棰滆壊鐨鏁板糆nd SubVB 鐨涓績鎬濇兂灏辨槸瑕佷究浜庣▼搴忓憳浣跨敤锛屾棤璁烘槸鏂版墜鎴栬呬笓瀹躲俈B浣跨敤浜嗗彲浠ョ畝鍗曞缓绔嬪簲鐢ㄧ▼搴忕殑 GUI 绯荤粺锛屼絾鏄張鍙互寮鍙戠浉褰撳鏉傜殑绋嬪簭銆俈B 鐨勭▼搴忔槸涓绉嶅熀浜庣獥浣撶殑鍙鍖...
绛旓細宸ュ叿鑿滃崟/閫夐」,鍦ㄥ脊鍑虹殑瀵硅瘽妗嗕腑閫夆滅紪杈戝櫒鏍煎紡鈥濇爣绛撅紝鏇存敼鍓嶆櫙鑹插拰鑳屾櫙鑹鍗冲彲銆
绛旓細VB涓獥浣撻鑹鍙氳繃璁剧疆绐椾綋鐨凚ackColor鏉ユ敼鍙樸侭ackColor銆丗oreColor 灞炴 BackColor锛嶈繑鍥炴垨璁剧疆瀵硅薄鐨鑳屾櫙棰滆壊銆侳oreColor锛嶈繑鍥炴垨璁剧疆鍦ㄥ璞￠噷鏄剧ず鍥剧墖鍜屾枃鏈殑鍓嶆櫙棰滆壊銆備互涓嬩唬鐮佹槸鏀瑰彉绐椾綋鑳屾櫙鑹鍜屾敼鍙樺浘鐗囨鑳屾櫙鍜屽墠鏅壊鐨勪唬鐮侊細1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Form_Load()Timer1....
绛旓細绗竴涓棶棰橈細1.鎵撳紑VB锛屽湪鈥滃伐绋嬧濃啋鈥滈儴浠垛濅腑閫夋嫨鈥淢icrosoft Common Dialog Control 6.0鈥濆崟鍑荤‘瀹氥2.鍦ㄧ獥浣涓坊鍔犺繖涓狢ommondialog鎺т欢锛屽啀娣诲姞涓涓寜閽3.鍙屽嚮鎸夐挳鍐嶆坊鍔犲涓嬩唬鐮侊細Private Sub Command1_Click()CommonDialog1.ShowColor Form1.BackColor = CommonDialog1.Color End Sub 4.鎸塅5...
