如何用vb保存修改过的颜色？最好对初学者适用的解决方法 怎样才能学好VB
Vb\u4e2d\uff0c\u5982\u4f55\u4fee\u6539\u547d\u4ee4\u6309\u94ae\u7684\u989c\u8272\uff1f\u7528\u6807\u51c6\u63a7\u4ef6\u662f\u65e0\u6cd5\u6539\u53d8\u7684\u3002\u6709\u4e24\u79cd\u65b9\u6cd5\u53ef\u4ee5\u89e3\u51b3\uff1a
(1)\u91c7\u7528\u56fe\u7247\u6846\u6765\u4ee3\u66ff
(2)\u641cxp\u63a7\u4ef6\uff0c\u662fwindows xp\u98ce\u683c\u7684\u63a7\u4ef6\uff08\u5982\u547d\u4ee4\u6309\u94ae\u3001\u5355\u9009\u6309\u94ae\u3001\u590d\u9009\u6846\u2026\u2026\uff09\u3002\u901a\u5e38\u90fd\u4f1a\u6709\u793a\u4f8b\u8bf4\u660e\uff0c\u989c\u8272\u5f88\u4e30\u5bcc\uff0c\u4e5f\u5f88\u6f02\u4eae
\u8bb0\u4f4f\uff0c\u6ca1\u6709\u6700\u5dee\u7684\u5f00\u53d1\u5de5\u5177\uff0c\u53ea\u6709\u6700\u5dee\u7684\u7a0b\u5e8f\u5458\u3002
C\u53ef\u4ee5\u64cd\u4f5c\u5e95\u5c42\uff0cVB\u4e5f\u53ef\u4ee5\uff0c\u867d\u7136\u901f\u5ea6\u4e0d\u662f\u5f88\u5feb\uff1b
\u5b66\u597dC\u53ef\u4ee5\u5bf9\u5d4c\u5165\u5f0f\u548c\u5e95\u5c42\u5f00\u53d1\u8fdb\u884c\u5f88\u5927\u7a0b\u5ea6\u7684\u5f00\u53d1\uff0c\u4f46\u662f\u5728windows\u7cfb\u7edf\u4e2d\u5c0f\u7a0b\u5e8f\u4e0a\uff0cVB\u6709\u7740\u5f97\u5929\u72ec\u539a\u7684\u4f18\u52bf\uff0c\u6548\u7387\u9ad8\uff0c\u4ea7\u671f\u77ed\uff0c\u6613\u4e8e\u4e0a\u624b\uff0c\u5bf9windows\u53ef\u63a7\u6027\u9ad8\uff0c\u6240\u4ee5\u8bf4\u6ca1\u6709\u4ec0\u4e48\u8fc7\u4e0d\u8fc7\u65f6\u7684\u8f6f\u4ef6\uff0c\u7a0b\u5e8f\u9053\u7406\u90fd\u76f8\u901a\uff0c\u53ea\u8981\u4f60\u7528\u5fc3\uff0cC\uff0cC++\uff0c.net\u90fd\u53ef\u4ee5\u5b66\u4f1a\u3002
\u5b66\u4e60\u672c\u8eab\u5c31\u662f\u82e6\u95f7\u7684\uff0c\u6ca1\u6709\u82e6\u95f7\u7684\u8fc7\u7a0b\u54ea\u6765\u4f18\u5f02\u7684\u5b66\u8bc6\uff1f
\u575a\u6301\u5427\uff01\u625b\u8fc7\u53bb\u5c31\u597d\u4e86\uff01
-----------------------
\u5982\u4f55\u5b66\u597dVB
\u5e8f\uff1a\u4e0d\u8981\u8001\u662f\u60f3\u7740\u8c01\u201c\u6700\u6709\u94b1\u9014\u201d\uff0c\u8fd9\u4e9b\u90fd\u4e0d\u662f\u6211\u4eec\u5e94\u5f53\u8003\u8651\u7684\uff0c\u6211\u4eec\u8981\u8003\u8651\u7684\u662f\u600e\u6837\u624d\u80fd\u771f\u6b63\u7684\u7cbe\u901aVB\u3002\u5982\u679c\u6210\u4e3a\u4e86VB\u7684\u4e13\u5bb6\uff0c\u5e94\u5f53\u5f88\u5bb9\u6613\u8d5a\u5230\u94b1\u7684\u3002VB\u7a0b\u5e8f\u5458\u4e3a\u4ec0\u4e48\u5de5\u8d44\u4f4e\uff0c\u4e0d\u662fVB\u4e0d\u884c\uff0c\u662f\u56e0\u4e3a\u5927\u90e8\u4efdVB\u7a0b\u5e8f\u5458\u4e0d\u884c\uff0c\u4ed6\u4eec\u53ea\u61c2\u5f97\u7528\u63a7\u4ef6\uff0c\u800c\u6ca1\u6709\u4ec0\u4e48\u7f16\u7a0b\u7684\u601d\u60f3\u3002\u800cVB\u7684\u521d\u5b66\u90fd\u53ea\u4f1a\u7528\u63a7\u4ef6\u548c\u7b80\u5355\u7684API\u5c31\u8bf4\u7cbe\u901aVB\u4e86\uff0c\u663e\u7136\u5f71\u54cd\u7684\u6574\u4e2aVB\u5728\u7a0b\u5e8f\u754c\u7684\u5730\u4f4d\uff0c\u8fd9\u4e9b\u4eba\u663e\u7136\u4e0d\u80fd\u79f0\u4e3a\u7a0b\u5e8f\u5458\u7684\uff0c\u53ea\u80fd\u76f8\u5f53\u4e8e\u4f1a\u4f7f\u7528VB\u4e86\uff0c\u5c31\u50cf\u4f1aWord\u4e00\u6837\u3002\u5982\u679cVB\u7a0b\u5e8f\u5458\u90fd\u61c2\u7684\u6570\u636e\u7ed3\u6784\uff0cUML\u7b49\uff0c\u5c31\u5b8c\u5168\u662f\u53e6\u5916\u4e00\u56de\u4e8b\u4e86\u3002\u6709\u8ba4\u4e3aVB\u529f\u80fd\u5f31\uff0c\u8bf7\u6ce8\u610f\uff1a\u4ed9\u525195\u7248\u5c31\u662f\u7528VB4\u505a\u7684\uff0c\u8fd8\u6709DirectX SDK7\u4e2d\u6709\u4e2a\u4e00\u5f88\u597d\u73a9\u76843D\u6e38\u620f\uff0c\u58f0\u97f3\u548c\u52a8\u753b\u90fd\u975e\u5e38\u597d\uff0c\u4e5f\u662f\u7528VB\u5199\u7684\u3002\u6240\u4ee5VB\u80fd\u505a\u5f88\u591a\u4e1c\u897f\uff0c\u53ea\u8981\u4f60\u60f3\u53bb\u505a\u3002
\uff081\uff09VB\u4e0d\u53ea\u662f\u6570\u636e\u5e93\u548c\u62a5\u8868\u3002\u4e0d\u8981\u4ee5\u4e3aVB\u5c31\u662f\u6570\u636e\u5e93\u548c\u62a5\u8868\uff0c\u8fd9\u53ea\u662fVB\u5f3a\u5927\u529f\u80fd\u7684\u4e00\u5c0f\u90e8\u4efd\u3002\u5982\u679c\u8fd9\u6b64\u90fd\u641e\u4e0d\u6e05\uff0c\u8fd8\u662f\u597d\u597d\u7684\u770b\u4e00\u4e0b\u76f8\u5173\u7684\u4e66\u7c4d\uff0c\u6bd4\u5728\u8fd9\u91cc\u95ee\u95ee\u9898\u6709\u7528\u591a\u4e86\u3002\u6211\u4ee5\u524d\u6ca1\u6709\u5b66\u8fc7\u6570\u636e\u5e93\uff0c\u53ea\u662f\u6709\u4e9b\u7f16\u7a0b\u7684\u601d\u8def\uff0c\u540e\u6765\u5b66\u6570\u636e\u5e93\u5c31\u975e\u5e38\u5bb9\u6613\u4e86\u3002\u6211\u505a\u62a5\u8868\u4e00\u822c\u7528RichTextBox\u6216\u662fFrom\u6765\u505a\uff0c\u4e00\u822c\u90fd\u80fd\u505a\u7684\u5f88\u597d\uff0c\u4e5f\u4e0d\u7528\u53bb\u8003\u8651\u4ec0\u4e48\u6c34\u6676\u62a5\u8868\u4e86\u3002
\uff082\uff09\u4e0d\u8981\u8ff7\u4fe1\u4e8eAPI\u3002API\u80fd\u505a\u5f88\u591a\u4e1c\u897f\uff0c\u4f46\u6709\u4e9b\u4e1c\u897f\u5728VB\u91cc\u9762\u7684\u51fd\u6570\u4e2d\u5c31\u6709\uff0cAPI\u53ea\u662fVB\u5bf9WindowsSDK\u7684\u5c01\u88c5\u800c\u5df2\u3002\u5982\u679c\u60f3\u5b66\u597dAPI\uff0c\u5efa\u8bae\u5b66\u4e60SDK\u3002\u5982\u679cVB\u672c\u8eab\u5c31\u80fd\u5f88\u597d\u7684\u652f\u6301\u8fd9\u4e2a\u529f\u80fd\uff0c\u4f55\u5fc5\u8fd8\u8981\u7528API\u5462\u3002
\uff083\uff09\u4e0d\u8981\u4ec0\u4e48\u90fd\u60f3\u7740\u63a7\u4ef6\u3002\u5982\u679c\u505a\u7a0b\u5e8f\u90fd\u60f3\u7740\u7b2c\u4e09\u65b9\u63a7\u4ef6\u7684\u8bdd\uff0c\u4ee3\u4ef7\u662f\u5f88\u9ad8\u7684\uff0c\u4e0d\u4ec5\u7a0b\u5e8f\u5927\uff0c\u5b89\u5168\u6027\u4e5f\u4f4e\u4e86\u5f88\u591a\u3002\u5176\u5b9eVB\u672c\u8eab\u5e26\u7684\u63a7\u4ef6\u5df2\u7ecf\u5b8c\u5168\u591f\u7528\u4e86\u3002
\uff084\uff09\u8ba4\u8ba4\u771f\u771f\u7684\u628aMSDN\u4e2d\u5173\u4e8eVB\u7684\u5185\u5bb9\u597d\u597d\u770b\u4e00\u770b\uff0c\u7279\u522b\u662f\u51fd\u6570\u548c\u8bed\u53e5\uff0c\u5f88\u6709\u7528\u7684\u3002
\uff085\uff09\u9047\u5230\u95ee\u9898\u4e0d\u8981\u76f4\u63a5\u6765\u8fd9\u91cc\u95ee\uff0c\u81ea\u5df1\u597d\u597d\u60f3\u4e00\u60f3\uff0c\u8bd5\u7740\u89e3\u51b3\u8fd9\u4e2a\u95ee\u9898\uff0c\u8fd9\u867d\u7136\u5728\u65f6\u95f4\u4e0a\u6162\u4e86\uff0c\u53ef\u662f\u5728\u81ea\u8eab\u7684\u63d0\u9ad8\u4e0a\u5374\u6709\u5f88\u5927\u7684\u5e2e\u52a9\u3002
\uff086\uff09\u6ca1\u4e8b\u7684\u65f6\u5019\uff0c\u591a\u7814\u7a76\u4e9b\u8bed\u8a00\u4e0a\u7684\u4e1c\u897f\uff0c\u5982\u6570\u636e\u7ed3\u6784\u548c\u7b97\u6cd5\uff0c\u4e0d\u8981\u8001\u662f\u60f3\u7740\u4ec0\u4e48\u82b1\u54e8\u7684\u4e1c\u897f\u3002\u8fd9\u5bf9\u4ee5\u540e\u7684\u63d0\u9ad8\u975e\u5e38\u6709\u5e2e\u52a9\u3002
\u5982\u4f55\u5b66\u597dVB\u7a0b\u5e8f\u8bbe\u8ba1
1,\u5b66\u4e60\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u57fa\u672c\u8981\u6c42
2,Vb\u7684\u529f\u80fd\u53ca\u7279\u70b9
3,\u5b66\u4e60VB\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u65b9\u6cd5
\u5bf9\u5b66\u4e60\u8005\u77e5\u8bc6\u7684\u8981\u6c42:
\u9996\u5148,\u5b66\u4e60\u7a0b\u5e8f\u8bbe\u8ba1\u8981\u5177\u5907\u4e00\u5b9a\u7684\u6570\u5b66\u57fa\u7840.\u8ba1\u7b97\u673a\u4e0e\u6570\u5b66\u6709\u5f88\u5927\u7684\u8054\u7cfb,\u7efc\u89c2\u8ba1\u7b97\u673a\u5386\u53f2,\u8ba1\u7b97\u673a\u7684\u6570\u5b66\u6a21\u578b(\u56fe\u7075\u673a,\u7531Alan Turing\u63d0\u51fa)\u548c\u4f53\u7cfb\u7ed3\u6784(\u7531John Von Neuman\u63d0\u51fa)\u7b49\u90fd\u662f\u7531\u6570\u5b66\u5bb6\u63d0\u51fa\u7684,\u6700\u65e9\u7684\u8ba1\u7b97\u673a\u4e5f\u662f\u4e3a\u6570\u503c\u8ba1\u7b97\u800c\u8bbe\u8ba1\u7684.\u56e0\u6b64,\u8981\u5b66\u4e60\u597d\u8ba1\u7b97\u673a\u5c31\u8981\u6709\u4e00\u5b9a\u7684\u6570\u5b66\u57fa\u7840.\u4e0d\u8fc7\u5bf9\u4e8e\u521d\u5b66\u8005\u6765\u8bf4,\u5728\u6570\u5b66\u57fa\u7840\u65b9\u9762\u7684\u8981\u6c42\u5e76\u4e0d\u662f\u5f88\u9ad8,\u4ece\u6211\u4e2a\u4eba\u7684\u89d2\u5ea6\u6765\u770b,\u6709\u9ad8\u4e2d\u6570\u5b66\u6c34\u5e73\u5c31\u5dee\u4e0d\u591a\u4e86.
\u5982\u4f55\u5b66\u597dVB\u7a0b\u5e8f\u8bbe\u8ba1
\u5b66\u4e60\u7a0b\u5e8f\u8bbe\u8ba1\u57fa\u672c\u8981\u6c42
\u5bf9\u5b66\u4e60\u8005\u77e5\u8bc6\u7684\u8981\u6c42:
\u5176\u6b21,\u5b66\u4e60\u7a0b\u5e8f\u8bbe\u8ba1\u8981\u6709\u4e00\u5b9a\u7684\u903b\u8f91\u601d\u7ef4\u80fd\u529b.\u903b\u8f91\u601d\u7ef4\u9700\u8981\u957f\u65f6\u95f4\u7684\u953b\u70bc,\u5982\u679c\u4f60\u89c9\u5f97\u81ea\u5df1\u5728\u903b\u8f91\u601d\u7ef4\u80fd\u529b\u4e0a\u6709\u4e0d\u8db3,\u4e5f\u6ca1\u6709\u5173\u7cfb,\u56e0\u4e3a\u7f16\u5199\u7a0b\u5e8f\u672c\u8eab\u4e5f\u662f\u5bf9\u903b\u8f91\u601d\u7ef4\u7684\u953b\u70bc.\u521d\u5b66\u7a0b\u5e8f\u8bbe\u8ba1\u5e94\u5177\u5907\u7684\u903b\u8f91\u57fa\u7840\u53ef\u4ee5\u4ece\u9ad8\u4e2d\u6570\u5b66\u4e2d\u5b66\u5230.
\u5982\u4f55\u5b66\u597dVB\u7a0b\u5e8f\u8bbe\u8ba1
\u5b66\u4e60\u7a0b\u5e8f\u8bbe\u8ba1\u57fa\u672c\u8981\u6c42
\u719f\u6089Visual Basic\u64cd\u4f5c\u73af\u5883\u4e0e\u8bbe\u8ba1\u5de5\u5177,\u80fd\u8bbe\u8ba1\u5e94\u7528\u7a0b\u5e8f\u754c\u9762.
\u638c\u63e1,\u7406\u89e3\u9762\u5411\u5bf9\u8c61\u7a0b\u5e8f\u8bbe\u8ba1\u57fa\u672c\u6982\u5ff5
\u638c\u63e1VB\u8bed\u8a00\u7684\u57fa\u7840\u77e5\u8bc6,\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u65b9\u6cd5,
\u80fd\u9605\u8bfb\u4e00\u822c\u96be\u7684\u7a0b\u5e8f;
\u80fd\u5e94\u7528\u7f16\u5199\u4e00\u4e9b\u7b80\u5355\u7a0b\u5e8f;
\u5177\u6709\u7528Visual Basic\u5f00\u53d1Windows\u73af\u5883\u4e0b\u5e94\u7528\u7a0b\u5e8f\u7684\u80fd\u529b\u548c\u9605\u8bfb\u5206\u6790\u4e00\u822c\u96be\u5ea6\u7684VB\u7a0b\u5e8f\u7684\u80fd\u529b.
\u5982\u4f55\u5b66\u597dVB\u7a0b\u5e8f\u8bbe\u8ba1
VB\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u57fa\u672c\u8981\u6c42
Visual Basic \u7b80\u4ecb
Visual Basic \u662fMicrosoft \u516c\u53f8\u5f00\u53d1\u7684Windows \u5e94\u7528\u7a0b\u5e8f\u5f00\u53d1\u5de5\u5177,Visual \u2014\u2014"\u53ef\u89c6\u5316\u7684",\u662f\u4e00\u79cd\u5f00\u53d1\u56fe\u5f62\u6237\u754c\u9762(GUI)\u7684\u65b9\u6cd5.\u4f7f\u5f97\u975e\u8ba1\u7b97\u673a\u4e13\u4e1a\u7684\u4eba\u4e5f\u53ef\u4ee5\u5f00\u53d1\u51fa\u4e13\u4e1a\u7684Windows\u8f6f\u4ef6.
Visual Basic\u7ee7\u627f\u4e86BASIC\u8bed\u8a00\u7b80\u5355\u6613\u5b66\u7684\u4f18\u70b9,\u53c8\u589e\u52a0\u4e86\u8bb8\u591a\u65b0\u7684\u529f\u80fd,\u5b83\u91c7\u7528\u9762\u5411\u5bf9\u8c61\u4e0e\u4e8b\u4ef6\u9a71\u52a8\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u601d\u60f3,\u4f7f\u7f16\u7a0b\u53d8\u5f97\u66f4\u52a0\u65b9\u4fbf,\u5feb\u6377.\u4f7f\u7528Visual Basic\u65e2\u53ef\u4ee5\u5f00\u53d1\u4e2a\u4eba\u6216\u5c0f\u7ec4\u4f7f\u7528\u7684\u5c0f\u578b\u5de5\u5177,\u53c8\u53ef\u4ee5\u5f00\u53d1\u591a\u5a92\u4f53\u8f6f\u4ef6,\u6570\u636e\u5e93\u5e94\u7528\u7a0b\u5e8f,\u7f51\u7edc\u5e94\u7528\u7a0b\u5e8f\u7b49\u5927\u578b\u8f6f\u4ef6.\u662f\u56fd\u5185\u5916\u6700\u6d41\u884c\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00\u4e4b\u4e00.
2,VB\u7684\u529f\u80fd\u53ca\u7279\u70b9
\u82f1\u6587Visual\u7684\u610f\u601d\u662f"\u89c6\u89c9\u7684","\u53ef\u89c6\u7684Baisc"\u8fd9\u4e2a\u540d\u5b57\u53ef\u80fd\u62bd\u8c61\u4e86\u70b9,\u4f46\u5b9e\u9645\u4e0a\u5b83\u5374\u662f\u6700\u76f4\u89c2\u7684\u7f16\u7a0b\u65b9\u6cd5,\u4e4b\u6240\u4ee5\u53eb\u505a"\u53ef\u89c6",\u4f60\u53ea\u8981\u770b\u5230VB\u7684\u754c\u9762\u5c31\u4f1a\u660e\u767d,\u5b9e\u9645\u4e0a\u4f60\u65e0\u9700\u7f16\u7a0b,\u5c31\u53ef\u4ee5\u5b8c\u6210\u8bb8\u591a\u6b65\u9aa4.
\u5728VB\u4e2d\u5f15\u5165\u4e86\u63a7\u4ef6\u7684\u6982\u5ff5,\u5728Windows\u4e2d\u63a7\u4ef6\u7684\u8eab\u5f71\u65e0\u5904\u4e0d\u5728,\u5982\u6309\u94ae,\u6587\u672c\u6846\u7b49,VB\u628a\u8fd9\u4e9b\u63a7\u4ef6\u6a21\u5f0f\u5316,\u5e76\u4e14\u6bcf\u4e2a\u63a7\u4ef6\u90fd\u6709\u82e5\u5e72\u5c5e\u6027\u7528\u6765\u63a7\u5236\u63a7\u4ef6\u7684\u5916\u89c2,\u5de5\u4f5c\u65b9\u6cd5,\u80fd\u591f\u54cd\u5e94\u7528\u6237\u64cd\u4f5c(\u4e8b\u4ef6).
\u8fd9\u6837\u4f60\u5c31\u53ef\u4ee5\u8c61\u5728\u753b\u677f\u4e0a\u4e00\u6837,\u968f\u610f\u70b9\u51e0\u4e0b\u9f20\u6807,\u4e00\u4e2a\u6309\u94ae\u5c31\u5b8c\u6210\u4e86,\u8fd9\u4e9b\u5728\u4ee5\u524d\u7684\u7f16\u7a0b\u8bed\u8a00\u4e0b\u662f\u8981\u7ecf\u8fc7\u76f8\u5f53\u590d\u6742\u7684\u5de5\u4f5c\u7684.
\u4f55\u4e3a\u53ef\u89c6
Visual Basic\u7684\u7279\u70b9
1. \u5177\u6709\u9762\u5411\u5bf9\u8c61\u7684\u53ef\u89c6\u5316\u8bbe\u8ba1\u5de5\u5177
2. \u4e8b\u4ef6\u9a71\u52a8\u7684\u7f16\u7a0b\u673a\u5236
3. \u7ed3\u6784\u5316\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00
4. \u63d0\u4f9b\u4e86\u6613\u5b66\u6613\u7528\u7684\u5e94\u7528\u7a0b\u5e8f\u96c6\u6210\u5f00\u53d1\u73af\u5883
5.\u652f\u6301\u591a\u79cd\u6570\u636e\u5e93\u7cfb\u7edf\u7684\u8bbf\u95ee
6.\u9ad8\u5ea6\u53ef\u79fb\u690d\u5316\u7684\u4ee3\u7801
7.VB6.0\u5728\u5f00\u53d1\u73af\u5883\u4e0a,\u7f51\u7edc\u529f\u80fd\u7b49\u7684\u5927\u5927\u589e\u5f3a
Visual Basic\u7684\u7279\u70b9
\u53ef\u89c6\u5316\u8bbe\u8ba1: Visual Basic\u4e3a\u7528\u6237\u63d0\u4f9b\u5927\u91cf\u7684\u754c\u9762\u5143\u7d20(\u5728Visual Basic\u4e2d\u79f0\u4e3a\u63a7\u4ef6\u5bf9\u8c61),\u4f8b\u5982 "\u7a97\u4f53","\u83dc\u5355","\u547d\u4ee4\u6309\u94ae","\u5de5\u5177\u6309\u94ae","\u68c0\u67e5\u6846"\u7b49\u7b49,\u7528\u6237\u53ea\u9700\u8981\u5229\u7528\u9f20\u6807,\u952e\u76d8\u628a\u8fd9\u4e9b\u63a7\u4ef6\u5bf9\u8c61\u62d6\u52a8\u5230\u9002\u5f53\u7684\u4f4d\u7f6e,\u8bbe\u7f6e\u5b83\u4eec\u7684\u5927\u5c0f,\u5f62\u72b6,\u5c5e\u6027\u7b49,\u5c31\u53ef\u4ee5\u8bbe\u8ba1\u51fa\u6240\u9700\u7684\u5e94\u7528\u7a0b\u5e8f\u754c\u9762.
Visual Basic\u7684\u7279\u70b9
\u4e8b\u4ef6\u9a71\u52a8\u7f16\u7a0b:Windows\u64cd\u4f5c\u7cfb\u7edf\u51fa\u73b0\u4ee5\u6765,\u56fe\u5f62\u5316\u7684\u7528\u6237\u754c\u9762\u548c\u591a\u4efb\u52a1\u591a\u8fdb\u7a0b\u7684\u5e94\u7528\u7a0b\u5e8f\u8981\u6c42\u7a0b\u5e8f\u8bbe\u8ba1\u4e0d\u80fd\u662f\u5355\u4e00\u6027\u7684,\u5728\u4f7f\u7528Visual Basic\u8bbe\u8ba1\u5e94\u7528\u7a0b\u5e8f\u65f6,\u5fc5\u987b\u9996\u5148\u786e\u5b9a\u5e94\u7528\u7a0b\u5e8f\u5982\u4f55\u540c\u7528\u6237\u8fdb\u884c\u4ea4\u4e92.(\u4f8b\u5982\u53d1\u751f\u9f20\u6807\u5355\u51fb,\u952e\u76d8\u8f93\u5165\u7b49\u4e8b\u4ef6\u65f6,\u7528\u6237\u5fc5\u987b\u7f16\u5199\u4ee3\u7801\u63a7\u5236\u8fd9\u4e9b\u4e8b\u4ef6\u7684\u54cd\u5e94\u65b9\u6cd5)\u8fd9\u5c31\u662f\u6240\u8c13\u7684\u4e8b\u4ef6\u9a71\u52a8\u7f16\u7a0b.
\u7a0b\u5e8f\u8bbe\u8ba1\u65b9\u6cd5\u6982\u8ff0
1.\u521d\u671f\u7684\u7a0b\u5e8f\u8bbe\u8ba1
\u9ad8\u8fd0\u884c\u6548\u7387,\u5c11\u5360\u7528\u5185\u5b58\u4e3a\u76ee\u6807
2.\u7ed3\u6784\u5316\u7a0b\u5e8f\u8bbe\u8ba1
\u7a0b\u5e8f\u7684\u53ef\u8bfb\u6027,\u53ef\u7ef4\u62a4\u6027\u4e3a\u76ee\u6807
\u7a0b\u5e8f=\u7b97\u6cd5+\u6570\u636e\u7ed3\u6784+\u8ba1\u7b97\u673a\u8bed\u8a00+\u9762\u5411\u8fc7\u7a0b\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u65b9\u6cd5
3.\u9762\u5411\u5bf9\u8c61\u7684\u7a0b\u5e8f\u8bbe\u8ba1(OOP)
\u964d\u4f4e\u7a0b\u5e8f\u7684\u590d\u6742\u6027,\u63d0\u9ad8\u8f6f\u4ef6\u7684\u5f00\u6cd5\u6548\u7387\u548c\u6539\u5584\u5de5\u4f5c\u754c\u9762\u4e3a\u76ee\u6807
\u7a0b\u5e8f=\u5bf9\u8c61+\u6d88\u606f+\u9762\u5411\u5bf9\u8c61\u7684\u7a0b\u5e8f\u8bbe\u8ba1
\u9762\u5411\u5bf9\u8c61\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u5177\u6709\u5982\u4e0b\u7684\u4f18\u70b9:
1.\u7b26\u5408\u4eba\u4eec\u4e60\u60ef\u7684\u601d\u7ef4\u65b9\u6cd5,\u4fbf\u4e8e\u5206\u89e3\u5927\u578b\u7684\u590d\u6742\u591a\u53d8\u7684\u95ee\u9898.\u7531\u4e8e\u5bf9\u8c61\u5bf9\u5e94\u4e8e\u73b0\u5b9e\u4e16\u754c\u4e2d\u7684\u5b9e\u4f53,\u56e0\u800c\u53ef\u4ee5\u5f88\u81ea\u7136\u5730\u6309\u7167\u73b0\u5b9e\u4e16\u754c\u4e2d\u5904\u7406\u5b9e\u4f53\u7684\u65b9\u6cd5\u6765\u5904\u7406\u5bf9\u8c61,\u8f6f\u4ef6\u5f00\u53d1\u8005\u53ef\u4ee5\u5f88\u65b9\u4fbf\u5730\u4e0e\u95ee\u9898\u63d0\u51fa\u8005\u8fdb\u884c\u6c9f\u901a\u548c\u4ea4\u6d41.
2.\u6613\u4e8e\u8f6f\u4ef6\u7684\u7ef4\u62a4\u548c\u529f\u80fd\u7684\u589e\u51cf.\u5bf9\u8c61\u7684\u5c01\u88c5\u6027\u53ca\u5bf9\u8c61\u4e4b\u95f4\u7684\u677e\u6563\u7ec4\u5408,\u90fd\u7ed9\u8f6f\u4ef6\u7684\u4fee\u6539\u548c\u7ef4\u62a4\u5e26\u6765\u4e86\u65b9\u4fbf.
3.\u53ef\u91cd\u7528\u6027\u597d.\u91cd\u590d\u4f7f\u7528\u4e00\u4e2a\u7c7b(\u7c7b\u662f\u5bf9\u8c61\u7684\u5b9a\u4e49,\u5bf9\u8c61\u662f\u7c7b\u7684\u5b9e\u4f8b\u5316),\u53ef\u4ee5\u6bd4\u8f83\u65b9\u4fbf\u5730\u6784\u9020\u51fa\u8f6f\u4ef6\u7cfb\u7edf,\u52a0\u4e0a\u7ee7\u627f\u7684\u65b9\u5f0f,\u6781\u5927\u5730\u63d0\u9ad8\u4e86\u8f6f\u4ef6\u5f00\u53d1\u7684\u6548\u7387.
4.\u4e0e\u53ef\u89c6\u5316\u6280\u672f\u76f8\u7ed3\u5408,\u6539\u5584\u4e86\u5de5\u4f5c\u754c\u9762.\u968f\u7740\u57fa\u4e8e\u56fe\u5f62\u754c\u9762\u64cd\u4f5c\u7cfb\u7edf\u7684\u6d41\u884c,\u9762\u5411\u5bf9\u8c61\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u65b9\u6cd5\u4e5f\u5c06\u6df1\u5165\u4eba\u5fc3.\u5b83\u4e0e\u53ef\u89c6\u5316\u6280\u672f\u76f8\u7ed3\u5408,\u4f7f\u4eba\u673a\u754c\u9762\u8fdb\u5165GUI\u65f6\u4ee3.
(1)\u517b\u6210\u826f\u597d\u7684\u5b66\u4e60\u4e60\u60ef
VB\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u5165\u95e8\u5b66\u4e60\u5e76\u4e0d\u96be,\u4f46\u5374\u662f\u4e00\u4e2a\u5341\u5206\u91cd\u8981\u7684\u8fc7\u7a0b,\u56e0\u4e3a\u7a0b\u5e8f\u8bbe\u8ba1\u601d\u60f3\u5c31\u5728\u8fd9\u65f6\u5f62\u6210\u7684,\u826f\u597d\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u4e60\u60ef\u4e5f\u5728\u8fd9\u4e2a\u9636\u6bb5\u517b\u6210.
(2)\u5b66\u4e60\u7a0b\u5e8f\u8bbe\u8ba1\u8981\u6ce8\u91cd\u7406\u89e3\u4e00\u4e9b\u91cd\u8981\u7684\u6982\u5ff5.
VB\u7a0b\u5e8f\u8bbe\u8ba1\u672c\u8eab\u5e76\u4e0d\u590d\u6742,\u7ffb\u5f00\u4e00\u672c\u7a0b\u5e8f\u8bbe\u8ba1\u5b66\u4e60\u7684\u4e66\u7c4d,\u770b\u5230\u7684\u65e0\u975e\u5c31\u662f\u53d8\u91cf,\u51fd\u6570,\u6761\u4ef6\u8bed\u53e5,\u5faa\u73af\u8bed\u53e5\u7b49\u6982\u5ff5.\u4f46\u8981\u771f\u6b63\u80fd\u8fdb\u884c\u7a0b\u5e8f\u8bbe\u8ba1,\u9700\u8981\u6df1\u5165\u7406\u89e3\u8fd9\u4e9b\u6982\u5ff5.\u56e0\u6b64,\u5728\u7a0b\u5e8f\u5165\u95e8\u9636\u6bb5\u8fd8\u662f\u5e94\u8be5\u91cd\u89c6\u6982\u5ff5\u7684\u5b66\u4e60.
3,\u5b66\u4e60VB\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u65b9\u6cd5
(3)\u81ea\u5df1\u52a8\u624b\u7f16\u5199\u7a0b\u5e8f
\u7a0b\u5e8f\u8bbe\u8ba1\u5165\u95e8\u9636\u6bb5\u8981\u7ecf\u5e38\u81ea\u5df1\u52a8\u624b\u7f16\u5199\u7a0b\u5e8f,\u4eb2\u81ea\u52a8\u624b\u8fdb\u884c\u7a0b\u5e8f\u8bbe\u8ba1\u662f\u521b\u9020\u6027\u601d\u7ef4\u5e94\u7528\u7684\u4f53\u73b0,\u662f\u57f9\u517b\u903b\u8f91\u601d\u7ef4\u7684\u597d\u65b9\u6cd5.\u56e0\u6b64\u4e00\u5b9a\u8981\u591a\u52a8\u624b\u7f16\u5199\u7a0b\u5e8f,\u800c\u4e14\u8981\u4ece\u5c0f\u7a0b\u5e8f\u5f00\u53d1\u5f00\u59cb,\u9010\u6e10\u63d0\u9ad8\u5f00\u53d1\u7a0b\u5e8f\u7684\u89c4\u6a21.
(4)\u9605\u8bfb,\u501f\u7b7e\u522b\u4eba\u8bbe\u8ba1\u7684\u597d\u7a0b\u5e8f
\u591a\u770b\u522b\u4eba\u8bbe\u8ba1\u597d\u7684\u7a0b\u5e8f\u4ee3\u7801,\u5305\u62ec\u6559\u6750\u4e0a\u7684\u4f8b\u9898\u7a0b\u5e8f.\u5728\u8bfb\u61c2\u522b\u4eba\u7a0b\u5e8f\u540e,\u8981\u60f3\u4ed6\u4e3a\u4ec0\u4e48\u8fd9\u4e48\u8bbe\u8ba1 \u80fd\u4e0d\u80fd\u5c06\u7a0b\u5e8f\u4fee\u6539\u5b8c\u6210\u66f4\u591a\u7684\u529f\u80fd \u5219\u53ef\u4ee5\u5b66\u5230\u522b\u4eba\u4f18\u79c0\u7684\u4e1c\u897f,\u5e2e\u52a9\u81ea\u5df1\u63d0\u9ad8\u81ea\u8eab\u6c34\u5e73.
3,\u5b66\u4e60VB\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u65b9\u6cd5
(5) VB\u7a0b\u5e8f\u8bbe\u8ba1\u5b66\u4e60\u7684\u91cd\u70b9
\u91cd\u70b9\u653e\u5728\u601d\u8def,\u7b97\u6cd5,\u7f16\u7a0b\u6784\u601d\u548c\u7a0b\u5e8f\u5b9e\u73b0\u4e0a.
\u8bed\u53e5\u53ea\u662f\u8868\u8fbe\u5de5\u5177,\u8981\u6c42\u5802\u4e0a\u79ef\u6781\u601d\u8003,\u5c3d\u91cf\u5f53\u5802\u5b66\u61c2,\u5e76\u505a\u5230\u7075\u6d3b\u5e94\u7528.
\u5b66\u4f1a\u5229\u7528\u8ba1\u7b97\u673a\u7f16\u7a0b\u624b\u6bb5\u5206\u6790\u95ee\u9898\u548c\u89e3\u51b3\u95ee\u9898.
(6)\u517b\u6210\u826f\u597d\u7684\u7f16\u7a0b\u4e60\u60ef
\u5f3a\u8c03\u53ef\u8bfb\u6027;\u53d8\u91cf\u8981\u52a0\u6ce8\u91ca;
\u7a0b\u5e8f\u6784\u601d\u8981\u6709\u8bf4\u660e;
\u5b66\u4f1a\u5982\u4f55\u8c03\u8bd5\u7a0b\u5e8f;
\u5bf9\u8fd0\u884c\u7ed3\u679c\u8981\u505a\u6b63\u786e\u4e0e\u5426\u7684\u5206\u6790.
3,\u5b66\u4e60VB\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u65b9\u6cd5
\u5b66\u597dVB\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u5177\u4f53\u8981\u6c42:
(1)\u8bfe\u524d\u9884\u4e60,\u8ba4\u771f\u542c\u8bfe\u5e76\u4f5c\u9002\u5f53\u505a\u7b14\u8bb0,\u8bfe\u540e\u8981\u8ba4\u771f\u590d\u4e60\u6d88\u5316\u6240\u5b66\u5185\u5bb9,\u5b8c\u6210\u4f5c\u4e1a.
(2)\u591a\u5199\u7a0b\u5e8f,\u6ce8\u91cd\u5b9e\u8df5
\u7a0b\u5e8f\u8bbe\u8ba1\u8bfe\u662f\u9ad8\u5f3a\u5ea6\u7684\u8111\u529b\u52b3\u52a8,\u4e0d\u662f\u542c\u4f1a\u7684,\u4e5f\u4e0d\u662f\u770b\u4f1a\u7684,\u800c\u662f\u7ec3\u4f1a\u7684.
\u53ea\u6709\u81ea\u5df1\u52a8\u624b,\u7f16\u5199\u4e00\u4e9b\u7a0b\u5e8f,\u624d\u4f1a\u6709\u6210\u5c31\u611f,\u8fdb\u800c\u5bf9\u8bfe\u7a0b\u4ea7\u751f\u5174\u8da3,\u5b66\u8d77\u6765\u624d\u6bd4\u8f83\u4ece\u5bb9.\u53ea\u6709\u5f53\u4f60\u5728\u7f16\u5199\u5927\u91cf\u7a0b\u5e8f\u4e4b\u540e,\u624d\u80fd\u83b7\u5f97\u771f\u77e5\u707c\u89c1,\u611f\u5230\u8fd0\u7528\u81ea\u5982.
\u52a8\u624b\u80fd\u529b\u7684\u57f9\u517b\u662f\u8fd9\u95e8\u8bfe\u548c\u4ee5\u5f80\u8bfe\u7a0b\u6700\u5927\u7684\u4e0d\u540c\u4e4b\u5904.
3,\u5b66\u4e60VB\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u65b9\u6cd5
(3)\u4e0a\u673a\u8c03\u8bd5\u7a0b\u5e8f\u5e94\u6ce8\u610f\u7684\u51e0\u70b9:
\u4e0a\u673a\u524d\u5e94\u8ba4\u771f\u628a\u5b9e\u9a8c\u9898\u5728\u7528\u7eb8\u4e0a\u505a\u4e00\u505a(\u5305\u62ec\u7a97\u4f53\u754c\u9762\u8bbe\u8ba1,\u4e8b\u4ef6\u4ee3\u7801\u7684\u7f16\u5199\u7b49)
\u6bcf\u6b21\u4e0a\u673a\u540e\u5e94\u603b\u7ed3,\u628a\u6ca1\u6709\u641e\u6e05\u695a\u7684\u95ee\u9898\u8bb0\u5f55\u4e0b\u6765,\u8bf7\u6559\u8001\u5e08\u6216\u540c\u5b66.
\u5e73\u65f6\u5e94\u591a\u62bd\u8bfe\u4f59\u65f6\u95f4\u591a\u4e0a\u673a\u8c03\u8bd5\u7a0b\u5e8f.\u6ce8\u610f\u7cfb\u7edf\u7684\u63d0\u793a\u4fe1\u606f,\u9047\u5230\u95ee\u9898\u591a\u95ee\u51e0\u5f00\u4e3a\u4ec0\u4e48.
3,\u5b66\u4e60VB\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u65b9\u6cd5
(4)\u4fdd\u6301\u826f\u597d\u7684\u5b66\u4e60\u5fc3\u6001
\u8981\u6709\u81ea\u4fe1,\u81ea\u5f3a,\u79ef\u6781\u4e3b\u52a8\u5b66\u4e60.
\u514b\u670d\u754f\u96be\u60c5\u7eea,\u6811\u7acb\u5b66\u597d\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u4fe1\u5fc3.
VB\u91cd\u70b9\u548c\u96be\u70b9(\u6587\u6863\u4e0b\u8f7d):
http://www.learn-qdtvu.com/media_file/2004_12_03/20041203105249.doc
1、在电脑里，颜色是用R、G、B三色组合而成。而在VB下，颜色是以Long类型整数表示的。
一个颜色的RGB值你可以用Windows下的“画笔”取得。而知道一个颜色的RGB值之后，可以用RGB函数获取它的Long类型颜色值。
所谓的：CD1.ShowColor、Frame1.BackColor这些值，其实都是Long类型整数。
以下程序用来以数组保存10种颜色的数组。
Dim tColors() As Long
ReDim tColors(9)
tColors(0)=RGB(0,0,0) '黑色
tColors(1)=RGB(255,255,255) '白色
tColors(2)=RGB(128,128,128) '深灰色
tColors(3)=RGB(192,192,192) '浅灰色
tColors(4)=RGB(255,0,0) '亮红色
tColors(5)=RGB(0,255,0) '亮绿色
tColors(6)=RGB(255,128,0) '亮橙色
tColors(7)=RGB(192,200,255) '淡蓝色
tColors(8)=RGB(255,255,0) '亮黄色
tColors(9)=RGB(128,64,0) '棕色
只要把你的控件颜色对应数组里的一个元素就可以了。
比如：
Frame1.BackColor=tColors(0)
Frame2.BackColor=tColors(1)
2、保存数组到文件。
Dim tColors() As Long
ReDim tColors(x) 'x是你的数组元素数量。
Open "Color.bin" For Binary As #1
Put #1,1,tColors()
Close #1
3、读取数组。
Dim tColors() As Long
ReDim tColors(x) 'x是你的数组元素数量
Open "Color.bin" For Binary As #1
Get #1,1,tColors()
Close #1
只要你灵活运用读写数组和以数组保存颜色的方法，相信你一定能写出这种程序来。
给你写了一个例子：
Private priColors() As Long
Private Sub Command1_Click()
'选择背景颜色按钮
With CommonDialog1
.ShowColor
priColors(0) = .Color
End With
AppColor
End Sub
Private Sub Command2_Click()
'选择前景颜色按钮
With CommonDialog1
.ShowColor
priColors(1) = .Color
End With
AppColor
End Sub
Private Sub Command3_Click()
'储存颜色按钮
SaveColor
End Sub
Private Sub Command4_Click()
'读取颜色按钮
LoadColor
AppColor
End Sub
Private Sub Form_Load()
ReDim priColors(1)
LoadColor
If priColors(0) = priColors(1) Then
priColors(0) = RGB(215, 215, 215)
priColors(1) = RGB(0, 0, 0)
End If
AppColor
End Sub
Private Sub SaveColor()
'保存颜色
Open "Colors.bin" For Binary As #1
Put #1, 1, priColors()
Close #1
End Sub
Private Sub LoadColor()
'读取颜色
Open "Colors.bin" For Binary As #1
Get #1, 1, priColors()
Close #1
End Sub
Private Sub AppColor()
'应用颜色
ObjAppColor Frame1: ObjAppColor Frame2: ObjAppColor Frame3
ObjAppColor Label1: ObjAppColor Label2: ObjAppColor Label3
ObjAppColor Form1
End Sub
Private Sub ObjAppColor(ByRef pObject As Object)
'应用颜色到单个对象
pObject.BackColor = priColors(0)
pObject.ForeColor = priColors(1)
End Sub
下面的复制到你代码里应该就可以，代码也不会长
Private Sub Form_Load()
Dim i As Control
CD1.ShowColor
For Each i In Controls
Select Case TypeName(i)
' Case "TextBox"
case ease
i.BackColor = CD1.Color
If CD1.Color = vbWhite Then i.ForeColor = vbBlack
End Select
Next
End Sub
另加入代码，关闭程序时保存颜色
Private Sub Form_Load()
Dim a As String
If Dir("d:1.txt") = "" Then
Else
Open "d:1.txt" For Input As #1
Line Input #1, a
Frame1.BackColor = a
Line Input #1, a
Frame2.BackColor = a
Line Input #1, a
Frame3.BackColor = a
Line Input #1, a
Form1.BackColor = a
Line Input #1, a
Label3.ForeColor = a
Line Input #1, a
Label2.ForeColor = a
Line Input #1, a
Label1.ForeColor = a
Close (1)
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open "d:\1.txt" For Output As #1
Write #1, Frame1.BackColor
Write #1, Frame2.BackColor
Write #1, Frame3.BackColor
Write #1, Form1.BackColor
Write #1, Label1.BackColor
Write #1, Label2.BackColor
Write #1, Label3.BackColor
Close (1)
End Sub
下面俩个过程是我在语音投影圣经中的代码,你只须改一下对象就能使用.
'载入
Dim aa, bb As Integer
Dim DiaoChu()
bb = 0
Open App.Path & "\YuYin.bat" For Binary As #1
'VoiceCB.Text = Input(LOF(1), #1)
Do While Not EOF(1)
Line Input #1, aa
bb = bb + 1
DiaoChu(bb) = aa
If bb = 11 Then Exit Do
Loop
Close #1
On Error Resume Next
TTsApps.VoiceCB.Text = DiaoChu(1) '读出第一行 语音
TTsApps.RateSldr.Value = DiaoChu(2) '读出第二行 语速
SouSoZJ.Combo1(0).ListIndex = DiaoChu(3) '读出第三行 字体
SouSoZJ.Combo1(1).ListIndex = DiaoChu(4) '读出第四行 字号
SouSoZJ.Combo1(2).ListIndex = DiaoChu(5) '读出第五行 行距
SouSoZJ.Combo1(3).ListIndex = DiaoChu(6) '读出第六行 节号
SouSoZJ.Combo1(4).ListIndex = DiaoChu(7) '读出第七行 语言
SouSoZJ.Pictur(0).BackColor = DiaoChu(8) '读出第八行 经文
SouSoZJ.Pictur(1).BackColor = DiaoChu(9) '读出第九行 节色
SouSoZJ.Pictur(2).BackColor = DiaoChu(10) '读出第十行 背景
SouSoZJ.Pictur(3).BackColor = DiaoChu(11) '读出第十一行 标题
Erase DiaoChu() '语句将原来的数组删除。
'保存文件
Open App.Path & "\YuYin.bat" For Output As #1
Print #1, Trim(TTsApps.VoiceCB.Text) '保存到第一行 语音
Print #1, Trim(TTsApps.RateSldr.Value) '保存到第二行 语速
Print #1, Trim(SouSoZJ.Combo1(0).ListIndex) '保存到第三行 字体
Print #1, Trim(SouSoZJ.Combo1(1).ListIndex) '保存到第四行 字号
Print #1, Trim(SouSoZJ.Combo1(2).ListIndex) '保存到第五行 行距
Print #1, Trim(SouSoZJ.Combo1(3).ListIndex) '保存到第六行 节号
Print #1, Trim(SouSoZJ.Combo1(4).ListIndex) '保存到第七行 语言
Print #1, Trim(SouSoZJ.Pictur(0).BackColor) '保存到第八行 经文
Print #1, Trim(SouSoZJ.Pictur(1).BackColor) '保存到第九行 节色
Print #1, Trim(SouSoZJ.Pictur(2).BackColor) '保存到第十行 背景
Print #1, Trim(SouSoZJ.Pictur(3).BackColor) '保存到第十一行 标题
Close #1
绛旓細lX And P.y = lY Then Exit Sub lX = P.x: lY = P.y h = WindowFromPoint(lX, lY)hD = GetDC(h)ScreenToClient h, P r = GetPixel(hD, P.x, P.y)Me.Caption = Hex$(r) 'r灏辨槸鏌愮偣鐨勯鑹 '鍦ㄦ鎻掑叆棰滆壊鍒ゆ柇鐨勮鍙 'if r=浜嬪厛鐨勯鑹 then '...'end if End Sub ...
绛旓細鍒嗙被: 鐢佃剳/缃戠粶 >> 绋嬪簭璁捐 >> 鍏朵粬缂栫▼璇█ 闂鎻忚堪:濡傞锛岃楂樻墜甯繖 鎴鐢╲b鍐欑殑绋嬪簭~甯屾湜鑳界粰鍑轰唬鐮 瑙ｆ瀽:妤间笂鐓ф湰瀹ｇ锛岄敊璇 绠鍗曪紝鍏堢敤WindowsFromPoint鑾峰緱绐楀彛HWND 鍐嶇敤GetDC鑾峰緱hDC 鍐嶇敤GetPixel鍗冲彲銆傛垜缁欏嚭涓涓繃绋嬶紝璇ヨ繃绋嬪畬鎴愬皢绐楀彛鑳屾櫙鑹叉敼涓洪紶鏍囨寚鍚鐨勯鑹锛歄n Error Resume ...
绛旓細杩欎笉鏄寜閿簿鐏典箞锛焏im a,b,c,x,y,color,YS //澹版槑鍙橀噺 GetCursorPos x, y //寰楀埌褰撳墠榧犳爣鐨勫潗鏍囦綅缃 骞淇濆瓨鍒板彉閲弜,y涓 Color=GetPixelColor(x,y)//寰楀埌鎸囧畾鍧愭爣浣嶇疆鐨勯鑹 骞朵繚瀛樺埌鍙橀噺color涓 YS=Color a = mid(Color,1,2)b = mid(Color,3,2)c = mid(Color,5,2)YS = c...
绛旓細hBmp For i = LeftSrc To WidthSrc - 1 For j = TopSrc To HeightSrc - 1 lngOut(i, j) = RGB(bytDataOut(0, i, j), bytDataOut(1, i, j), bytDataOut(2, i, j))Next Next MsgBox "鏁版嵁宸插瓨鏀惧湪lngOut鏁扮粍閲岄潰" & lngOut(5, 5)End Sub 淇敼浜涓,杩欐娌￠棶棰樺暒 ...
绛旓細浣犲ソ锛屾垜涓嶇煡閬撲綘鏄敤浠涔堟柟娉淇濆瓨鐨锛屼笉杩.net閲岀殑color鏈変竴涓柟娉曟槸Color.FromArgb 浣犲彲浠ヨ繖涔堝仛锛宒im c as color=richtextbox1.ForeColor dim colorstring as string=c.ToArgb().ToString colorstring灏辨槸棰滆壊鐨勫硷紙瀛楃涓诧級鍐嶆妸colorstring淇濆瓨鍒癷ni鏂囦欢鍔犺浇棰滆壊鐨勬椂鍊欙紝浠巌ni閲岃鍙朿olorstring ...
绛旓細淇敼VB浠ｇ爜鐨勫瓧浣撱佸ぇ灏忋佷互鍙棰滆壊鍙互鍙傝冧笅闈㈢殑浠ｇ爜锛歅rivateSubForm锛縇oad Label1銆傚瓧浣擄紳锛傚父瑙勶紓锛涘皢瀛椾綋鏀逛负甯歌瀛椾綋 Label1銆傚瓧褰㈠ぇ灏忥紳50鈥濆瓧褰㈠ぇ灏 鏀瑰彉瀛椾綋棰滆壊DAO涓虹孩鑹蹭负鍓嶆ゼ锛vbRed锛嘗abel1銆傛爣绛捐嚜鍔ㄦ敼鍙樺ぇ灏忎笌鏂囨湰鍐呭 EndSub
绛旓細浣犲彇涓涓偣鐨勯鑹锛屽彧璋冪敤涓娆etPixel锛岃繖鎬ц兘缁濆涓嶆槸闂锛屽張涓嶆槸璁╀綘澶т竴涓ぇ鍥鹃噷闈㈡湁闈炲父澶х殑寰幆锛岃繖鏍峰氨澶熶簡锛歯TmpColor = GetPixel(GetDC(0), x, y)
绛旓細Text1 = X Text2 = Y Text3 = Point(X, Y)Text4 = (Val(Text3) Mod 65536) Mod 256 'Red Text5 = (Val(Text3) Mod 65536) \ 256 'Green Text6 = Val(Text3) \ 65536 'Blue Shape1.FillColor = RGB(Val(Text4), Val(Text5), Val(Text6))End Sub PictureBox鍒ゆ柇鑹插僵浠ｇ爜:...
绛旓細'浣跨敤DIB鑾峰彇鍥捐薄锛屾牴鎹粬浜轰唬鐮淇敼锛孖mgData()涓淇濆瓨鐨鏄棰滆壊 Private Declare Function GetDIBits Lib "gdi32" (ByVal aHDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long...
绛旓細selection.Interior.color=vbred '灏嗛夋嫨鍖哄煙鐨勮儗鏅缃负绾㈣壊 selection.font.color=vbred '灏嗛夋嫨鍖哄煙鐨勫瓧浣撹缃负绾㈣壊 鏇村鐢ㄦ硶鍙互鐧惧害vba鏀瑰彉棰滆壊
