{"id":6812,"date":"2023-09-27T15:46:18","date_gmt":"2023-09-27T07:46:18","guid":{"rendered":"http:\/\/www.aiersheng.cc\/?p=6812"},"modified":"2023-09-27T15:59:06","modified_gmt":"2023-09-27T07:59:06","slug":"6812","status":"publish","type":"post","link":"https:\/\/www.aiersheng.cc\/?p=6812","title":{"rendered":"vb \u8ba1\u7b97\u5668"},"content":{"rendered":"

\"\u672a\u6807\u9898-1.jpg\"\/<\/p>\n

\u5f88\u7b80\u6d01\u7684\u8ba1\u7b97\u5668\uff0c\u4ee3\u7801\u4e5f\u5f88\u5c11\uff0c\u53ea\u670911\u884c\uff0c\u4f46\u529f\u80fd\u5374\u4e0d\u7b80\u5355\uff0c\u9664\u4e86\u52a0\u51cf\u4e58\u9664\uff0c\u8fd8\u652f\u6301\u516c\u5f0f\u8f93\u5165\uff1a<\/p>\n

<\/p>\n

\u4e00\u3001\u6240\u6709\u4ee3\u7801\u5982\u4e0b\uff1a<\/span><\/strong><\/p>\n

<\/p>\n

'\u70b9\u4e86\u6570\u5b57\u3001\u8fd0\u7b97\u7b26<\/span><\/p>\n

Private Sub Command1_Click(Index As Integer)<\/p>\n

Text1.Text = Text1.Text & Command1(Index).Caption<\/p>\n

End Sub<\/p>\n

'\u70b9\u4e86 = \u8ba1\u7b97<\/span><\/p>\n

Private Sub Command2_Click()<\/p>\n

Dim a As New ScriptControl<\/p>\n

a.Language = "vbs"<\/p>\n

Text1.Text = a.Eval(Text1.Text)<\/p>\n

End Sub<\/p>\n

'\u70b9\u4e86 <- \u9000\u683c<\/span><\/p>\n

Private Sub Command3_Click()<\/p>\n

Text1.Text = Left(Text1.Text, Len(Text1.Text) – 1)<\/p>\n

End Sub<\/p>\n

<\/p>\n

\u4e8c\u3001\u77e5\u8bc6\u70b9\uff1a<\/span><\/strong><\/p>\n

\uff08\u4e00\uff09\u3001\u7a0b\u5e8f\u4e2d\u4f7f\u7528\u4e86\u63a7\u4ef6\u6570\u7ec4\u3002<\/span><\/p>\n

 \u63a7\u4ef6\u6570\u7ec4\u662f\u7531\u4e00\u7ec4\u76f8\u540c\u7c7b\u578b\u7684\u63a7\u4ef6\u7ec4\u6210\u3002\u5b83\u4eec\u5171\u7528\u4e00\u4e2a\u63a7\u4ef6\u540d\uff0c\u7edd\u5927\u90e8\u5206\u7684\u5c5e\u6027\u4e5f\u76f8\u540c\uff0c\u4f46\u6709\u4e00\u4e2a\u5c5e\u6027\u4e0d\u540c\uff0c\u5373Index\u5c5e\u6027\u7684\u503c\u4e0d\u540c\u3002\u5f53\u5efa\u7acb\u63a7\u4ef6\u6570\u7ec4\u65f6\uff0c\u7cfb\u7edf\u7ed9\u6bcf\u4e2a\u5143\u7d20\u8d4b\u4e00\u4e2a\u552f\u4e00\u7684\u7d22\u5f15\u53f7(Index)\uff0c\u901a\u8fc7\u5c5e\u6027\u7a97\u53e3\u7684Index\u5c5e\u6027\uff0c\u53ef\u4ee5\u77e5\u9053\u8be5\u63a7\u4ef6\u7684\u4e0b\u6807\u662f\u591a\u5c11\uff0c\u7b2c1\u4e2a\u5143\u7d20\u4e0b\u6807\u662f0\u3002\u4f8b\u5982\uff0c\u63a7\u4ef6\u6570\u7ec4LblTm(6)\u8868\u793a\u63a7\u4ef6\u6570\u7ec4\u540d\u4e3aLblTm\u7684\u7b2c7\u4e2a\u5143\u7d20\u3002 \r\n         \u63a7\u4ef6\u6570\u7ec4\u6700\u5927\u7684\u7279\u70b9\u662f\uff1a\u63a7\u4ef6\u6570\u7ec4\u5171\u4eab\u540c\u6837\u7684\u4e8b\u4ef6\u8fc7\u7a0b\u3002\u6240\u4ee5\u9002\u7528\u4e8e\u82e5\u5e72\u4e2a\u63a7\u4ef6\u6267\u884c\u7684\u64cd\u4f5c\u76f8\u4f3c\u7684\u573a\u5408\uff0c\u4f8b\u5982\uff0c\u63a7\u4ef6\u6570\u7ec4cmdShuzi\u670910\u4e2a\u547d\u4ee4\u6309\u94ae\uff0c\u5219\u4e0d\u7ba1\u5355\u51fb\u54ea\u4e2a\u547d\u4ee4\u6309\u94ae\uff0c\u5c31\u4f1a\u8c03\u7528\u540c\u4e00\u4e2a\u5355\u51fb\u4e8b\u4ef6\u8fc7\u7a0b\u3002\u4e3a\u4e86\u533a\u5206\u662f\u63a7\u4ef6\u6570\u7ec4\u4e2d\u7684\u54ea\u4e2a\u5143\u7d20\u89e6\u53d1\u4e86\u4e8b\u4ef6\uff0c\u5728\u7a0b\u5e8f\u8fd0\u884c\u65f6\uff0c\u901a\u8fc7\u4f20\u9001\u7ed9\u8fc7\u7a0b\u7684\u7d22\u5f15\u503c\uff08\u5373\u4e0b\u6807\u503c\uff09\u6765\u786e\u5b9a\u3002<\/pre>\n
\"\u672a\u6807\u9898-2.jpg\"\/<\/p>\n
\u5982\u4f55\u521b\u5efa\u63a7\u4ef6\u6570\u7ec4?<\/p>\n
\u82e5\u5df2\u6709\u4e00\u63a7\u4ef6\u540d\u4e3aCommand1\uff0c\u53f3\u51fb\u8be5\u63a7\u4ef6\uff0c\u5355\u51fb\u5feb\u6377\u83dc\u5355\u4e2d\u7684\u201c\u590d\u5236\u201d\uff0c\u518d\u53f3\u51fb\u63a7\u4ef6\u6240\u5728\u7a97\u4f53\uff08\u6216\u5176\u4e2d\u7684\u4e00\u4e2a\u7c7b\u4f3cFrame\u7684\u5bb9\u5668\u63a7\u4ef6\uff09\uff0c\u5355\u51fb\u5feb\u6377\u83dc\u5355\u4e2d\u7684\u201c\u7c98\u8d34\u201d\uff0cVB\u4f1a\u5f39\u51fa\u4e00\u4e2a\u5bf9\u8bdd\u6846\uff0c\u663e\u793a\u201c\u5df2\u7ecf\u6709\u4e00\u4e2a\u63a7\u4ef6\u4e3a 'Command1'\u3002\u521b\u5efa\u4e00\u4e2a\u63a7\u4ef6\u6570\u7ec4\u5417\uff1f\u201d\u5355\u51fb\u201c\u662f\u201d\u6309\u94ae\uff0c\u5c31\u53ef\u521b\u5efa\u4e00\u4e2a\u540d\u79f0\uff08Name\u5c5e\u6027\uff09\u4e3a<\/span><\/span>'Command1<\/span><\/span>\u201d\u7684\u63a7\u4ef6\u6570\u7ec4\uff0c\u88ab\u590d\u5236\u7684\u63a7\u4ef6\u4e3aCommand1(0)\uff0c\u7c98\u8d34\u7684\u63a7\u4ef6\u4e3aCommand1(1)\u3002<\/span><\/p>\n
\uff08\u4e8c\uff09\u3001\u628a\u5b57\u7b26\u4e32\u5f53\u547d\u4ee4\u6267\u884c\u3002<\/span><\/p>\n
\u5728\u8fd9\u4e2a\u4f8b\u5b50\u4e2d\uff0c\u76f4\u63a5\u4f7f\u7528\u6587\u672c\u6846text1\u4e2d\u7684\u5b57\u7b26\u4e32\u5f53\u4f5c\u547d\u4ee4\u53bb\u6267\u884c\u3002\u8981\u4f7f\u7528\u8fd9\u4e2a\u65b9\u6cd5\uff0c\u9700\u8981\u5728\u83dc\u5355\u201c\u5de5\u7a0b\u201d->\u201c\u5f15\u7528\u201d \u4e2d\u52fe\u9009\u201cMicrosoft Script Control 1.0"<\/span><\/p>\n
\"\u672a\u6807\u9898-3.jpg\"\/<\/p>\n
\u4e4b\u540e\u5b9a\u4e49\u53d8\u91cfa<\/p>\n
Dim a As New ScriptControl<\/p>\n
\u8bbe\u7f6e\u811a\u672c\u8bed\u8a00\u4e3a\u201dvbs"<\/p>\n
a.Language = "vbs"<\/p>\n
\u6700\u540e\u6267\u884ceval\u65b9\u6cd5<\/p>\n
Text1.Text = a.Eval(Text1.Text)<\/p>\n
<\/p>\n
<\/p>\n","protected":false},"excerpt":{"rendered":"
\u5f88\u7b80\u6d01\u7684\u8ba1\u7b97\u5668\uff0c\u4ee3\u7801\u4e5f\u5f88\u5c11\uff0c\u53ea\u670911\u884c\uff0c\u4f46\u529f\u80fd\u5374\u4e0d\u7b80\u5355\uff0c\u9664\u4e86\u52a0\u51cf\u4e58\u9664\uff0c\u8fd8\u652f\u6301\u516c\u5f0f\u8f93\u5165\uff1a \u4e00\u3001\u6240\u6709\u4ee3\u7801\u5982\u4e0b\uff1a & […]<\/p>\n","protected":false},"author":1,"featured_media":6817,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"aside","meta":{"footnotes":""},"categories":[68],"tags":[],"class_list":["post-6812","post","type-post","status-publish","format-aside","has-post-thumbnail","hentry","category-zzjy","post_format-post-format-aside"],"_links":{"self":[{"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/posts\/6812","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=6812"}],"version-history":[{"count":0,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/posts\/6812\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/media\/6817"}],"wp:attachment":[{"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=6812"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=6812"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=6812"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}