{"id":408354,"date":"2023-07-03T09:02:18","date_gmt":"2023-07-03T01:02:18","guid":{"rendered":"https:\/\/www.idc.net\/help\/408354\/"},"modified":"2023-07-03T09:02:18","modified_gmt":"2023-07-03T01:02:18","slug":"%e5%85%a8%e9%9d%a2%e6%a6%82%e6%8b%acvb-net%e7%bc%96%e7%a8%8b%e4%b8%83%e6%ad%a5%e9%80%9a","status":"publish","type":"post","link":"https:\/\/idc.net\/help\/408354\/","title":{"rendered":"\u5168\u9762\u6982\u62ecVB.NET\u7f16\u7a0b\u4e03\u6b65\u901a"},"content":{"rendered":"<p>\u7ecf\u8fc7\u957f\u65f6\u95f4\u5b66\u4e60VB.NET\u7f16\u7a0b\uff0c\u5728\u7f16\u7a0b\u4e2d\u603b\u7ed3\u4e86\u4e00\u4e9bVB.NET\u7f16\u7a0b\u7684\u826f\u597d\u89c4\u8303\uff0c\u4e8e\u662f\u548c\u5927\u5bb6\u5206\u4eab\u4e00\u4e0b\uff0c\u770b\u5b8c\u672c\u6587\u4f60\u80af\u5b9a\u6709\u4e0d\u5c11\u6536\u83b7\uff0c\u5e0c\u671b\u672c\u6587\u80fd\u6559\u4f1a\u4f60\u66f4\u591a\u4e1c\u897f\u3002<br \/>1\"&amp;\"\u66ff\u6362\"+\"<br \/>2\u53d8\u91cf\u547d\u540d\u5927\u5c0f\u5199\uff0c\u8bed\u53e5\u9519\u843d\u6709\u79e9\uff0c\u6e90\u4ee3\u7801\u7ef4\u62a4\u65b9\u9762<br \/>3\u8bf7\u517b\u6210\u4ee5\u4e0b\u7684\u201c\u5bf9\u8c61\u547d\u540d\u7ea6\u5b9a\u201d\u826f\u597d\u4e60\u60ef<br \/>4\u5728\u7b80\u5355\u7684\u9009\u62e9\u6761\u4ef6\u60c5\u51b5\u4e0b,\u4f7f\u7528IIf()\u51fd\u6570<br \/>5\u5c3d\u91cf\u4f7f\u7528Debug.Print\u8fdb\u884c\u8c03\u8bd5<br \/>6\u5728\u91cd\u590d\u5bf9\u67d0\u4e00\u5bf9\u8c61\u7684\u5c5e\u6027\u8fdb\u884c\u4fee\u6539\u65f6\uff0c\u5c3d\u91cf\u4f7f\u7528With....End With<br \/>7MsgBox\u4e2d\u5c3d\u91cf\u4f7f\u7528\u6d88\u606f\u56fe\u6807\uff0c\u8fd9\u6837\u7a0b\u5e8f\u6bd4\u8f83\u6709\u89c4\u8303<br \/>8\u5728\u53ef\u80fd\u7684\u60c5\u51b5\u4e0b\u4f7f\u7528\u679a\u4e3e<\/p>\n<p><strong>1\u3001\"&amp;\"\u66ff\u6362\"+\"<\/strong><br \/>\u5728\u5f88\u591a\u4eba\u7684\u7f16\u7a0b\u8bed\u8a00\u4e2d\uff0c\u7528\u201c+\u201d\u6765\u8fde\u63a5\u5b57\u7b26\u4e32\uff0c\u8fd9\u6837\u5bb9\u6613\u5bfc\u81f4\u6b67\u4e49\u3002\u826f\u597d\u7684\u4e60\u60ef\u662f\u7528\u201c&amp;\u201d\u6765\u8fde\u63a5\u5b57\u7b26\u4e32.<br \/>\u4e0d\u6b63\u786e:<\/p>\n<pre>\n \n \n <ol>\n  \n  \n  <li><span><span>Dim&nbsp;sMessage&nbsp;As&nbsp;String &nbsp;<\/span><\/span><\/li>\n  \n  \n  <li><span><span>sMessage<span>&nbsp;=&nbsp;<span>\"1\"<span>&nbsp;+&nbsp;\"2\"&nbsp;<\/span><\/span><\/span><\/span><\/span><\/li>\n \n \n <\/ol><\/pre>\n<p>\u6b63\u786e:<\/p>\n<pre>\n \n \n <ol>\n  \n  \n  <li><span><span>Dim&nbsp;sMessage&nbsp;As&nbsp;String &nbsp;<\/span><\/span><\/li>\n  \n  \n  <li><span><span><font>sMessage<\/font><span>&nbsp;=&nbsp;<span><font>\"1\"<\/font><span>&nbsp;&amp;&nbsp;\"2\"&nbsp;<\/span><\/span><\/span><\/span><\/span><\/li>\n \n \n <\/ol><\/pre>\n<p>\u6ce8\u610f\uff1a\"&amp;\"\u7684\u540e\u9762\u6709\u4e2a\u7a7a\u683c<\/p>\n<p><strong>2\u3001\u53d8\u91cf\u547d\u540d\u5927\u5c0f\u5199\uff0c\u8bed\u53e5\u9519\u843d\u6709\u79e9\uff0c\u6e90\u4ee3\u7801\u7ef4\u62a4\u65b9\u9762<\/strong><\/p>\n<p>\u4e0b\u9762\u5927\u5bb6\u6bd4\u8f83\u4e00\u4e0b\u4ee5\u4e0b\u4e24\u6bb5\u4ee3\u7801:<br \/>\u8bfb\u61c2\u96be\u5ea6\u5f88\u5927\u7684\u4ee3\u7801\uff1a<\/p>\n<pre>\n \n \n <ol>\n  \n  \n  <li><span><span>Dim&nbsp;SNAME&nbsp;As&nbsp;String &nbsp;<\/span><\/span><\/li>\n  \n  \n  <li><span>Dim&nbsp;NTURN&nbsp;As&nbsp;Integer &nbsp;<\/span><\/li>\n  \n  \n  <li><span>If&nbsp;<span><font>NTURN<\/font><span>&nbsp;=&nbsp;<span><font>0<\/font><span>&nbsp;Then &nbsp;<\/span><\/span><\/span><\/span><\/span><\/li>\n  \n  \n  <li><span>If&nbsp;<span><font>SNAME<\/font><span>&nbsp;=&nbsp;<span><font>\"vbeden\"<\/font><span>&nbsp;Then &nbsp;<\/span><\/span><\/span><\/span><\/span><\/li>\n  \n  \n  <li><span>Do&nbsp;While&nbsp;NTURN&nbsp;<span><strong><font>&lt;<\/font><\/strong><span>&nbsp;<span><strong><font>4<\/font><\/strong><span>&nbsp;<\/span><\/span><\/span><\/span><\/span><\/li>\n  \n  \n  <li><span><span><font>NTURN<\/font><span><font>NTURN<\/font><span>&nbsp;=&nbsp;NTURN&nbsp;+&nbsp;1 &nbsp;<\/span><\/span><\/span><\/span><\/li>\n  \n  \n  <li><span>Loop &nbsp;<\/span><\/li>\n  \n  \n  <li><span>End&nbsp;If &nbsp;<\/span><\/li>\n  \n  \n  <li><span>End&nbsp;If&nbsp;<\/span><\/li>\n \n \n <\/ol><\/pre>\n<p>\u5bb9\u6613\u8bfb\u61c2\u7684\u4ee3\u7801\uff1a<\/p>\n<pre>\n \n \n <ol>\n  \n  \n  <li><span><span>Dim&nbsp;sName&nbsp;As&nbsp;String &nbsp;<\/span><\/span><\/li>\n  \n  \n  <li><span>Dim&nbsp;nTurn&nbsp;As&nbsp;Integer &nbsp;<\/span><\/li>\n  \n  \n  <li><span>If&nbsp;<span><font>nTurn<\/font><span>&nbsp;=&nbsp;<span><font>0<\/font><span>&nbsp;Then &nbsp;<\/span><\/span><\/span><\/span><\/span><\/li>\n  \n  \n  <li><span>If&nbsp;<span><font>sName<\/font><span>&nbsp;=&nbsp;<span><font>\"vbeden\"<\/font><span>&nbsp;Then &nbsp;<\/span><\/span><\/span><\/span><\/span><\/li>\n  \n  \n  <li><span>Do&nbsp;While&nbsp;nTurn&nbsp;<span><strong><font>&lt;<\/font><\/strong><span>&nbsp;<span><strong><font>4<\/font><\/strong><span>&nbsp;<\/span><\/span><\/span><\/span><\/span><\/li>\n  \n  \n  <li><span><span><font>nTurn<\/font><span><font>nTurn<\/font><span>&nbsp;=&nbsp;nTurn&nbsp;+&nbsp;1 &nbsp;<\/span><\/span><\/span><\/span><\/li>\n  \n  \n  <li><span>Loop &nbsp;<\/span><\/li>\n  \n  \n  <li><span>End&nbsp;If &nbsp;<\/span><\/li>\n  \n  \n  <li><span>End&nbsp;If&nbsp;<\/span><\/li>\n \n \n <\/ol><\/pre>\n<p><strong>3\u3001\u8bf7\u517b\u6210\u4ee5\u4e0b\u7684\u201c\u5bf9\u8c61\u547d\u540d\u7ea6\u5b9a\u201d\u826f\u597d\u4e60\u60ef\u63a8\u8350\u4f7f\u7528\u7684\u63a7\u4ef6\u524d\u7f00<\/strong><br \/>\u63a7\u4ef6\u7c7b\u578b \u524d\u7f00 \u4f8b\u5b50<\/p>\n<pre>\n \n \n <ol>\n  \n  \n  <li><span><span>3D&nbsp;Panel&nbsp;&nbsp;pnl&nbsp;pnlGroup &nbsp;<\/span><\/span><\/li>\n  \n  \n  <li><span>ADO&nbsp;Data&nbsp;ado&nbsp;adoBiblio &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Animated&nbsp;button&nbsp;ani&nbsp;aniMailBox &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Check&nbsp;box&nbsp;chk&nbsp;chkReadOnly &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Combo&nbsp;box,&nbsp;drop-down&nbsp;list&nbsp;box&nbsp;cbo&nbsp;cboEnglish &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Command&nbsp;button&nbsp;cmd&nbsp;cmdExit &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Common&nbsp;dialog&nbsp;&nbsp;dlg&nbsp;dlgFileOpen &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Communications&nbsp;&nbsp;com&nbsp;comFax &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Control&nbsp;\uff08\u5f53\u7279\u5b9a\u7c7b\u578b\u672a\u77e5\u65f6\uff0c\u5728\u8fc7\u7a0b\u4e2d\u6240\u4f7f\u7528\u7684\uff09&nbsp;ctr&nbsp;ctrCurrent &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Data&nbsp;dat&nbsp;datBiblio &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Data-bound&nbsp;combo&nbsp;box&nbsp;dbcbo&nbsp;dbcboLanguage &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Data-bound&nbsp;grid&nbsp;dbgrd&nbsp;dbgrdQueryResult &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Data-bound&nbsp;list&nbsp;box&nbsp;dblst&nbsp;dblstJobType &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Data&nbsp;combo&nbsp;dbc&nbsp;dbcAuthor &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Data&nbsp;grid&nbsp;dgd&nbsp;dgdTitles &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Data&nbsp;list&nbsp;dbl&nbsp;dblPublisher &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Data&nbsp;repeater&nbsp;drp&nbsp;drpLocation &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Date&nbsp;picker&nbsp;dtp&nbsp;dtpPublished &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Directory&nbsp;list&nbsp;box&nbsp;dir&nbsp;dirSource &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Drive&nbsp;list&nbsp;box&nbsp;drv&nbsp;drvTarget &nbsp;<\/span><\/li>\n  \n  \n  <li><span>File&nbsp;list&nbsp;box&nbsp;fil&nbsp;filSource &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Flat&nbsp;scroll&nbsp;bar&nbsp;fsb&nbsp;fsbMove &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Form&nbsp;frm&nbsp;frmEntry &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Frame&nbsp;fra&nbsp;fraLanguage &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Gauge&nbsp;gau&nbsp;gauStatus &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Graph&nbsp;gra&nbsp;graRevenue &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Grid&nbsp;grd&nbsp;grdPrices &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Hierarchical&nbsp;flexgrid&nbsp;flex&nbsp;flexOrders &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Horizontal&nbsp;scroll&nbsp;bar&nbsp;hsb&nbsp;hsbVolume &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Image&nbsp;img&nbsp;imgIcon &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Image&nbsp;combo&nbsp;imgcbo&nbsp;imgcboProduct &nbsp;<\/span><\/li>\n  \n  \n  <li><span>ImageList&nbsp;ils&nbsp;ilsAllIcons &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Label&nbsp;lbl&nbsp;lblHelpMessage &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Lightweight&nbsp;check&nbsp;box&nbsp;lwchk&nbsp;lwchkArchive &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Lightweight&nbsp;combo&nbsp;box&nbsp;lwcbo&nbsp;lwcboGerman &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Lightweight&nbsp;command&nbsp;button&nbsp;lwcmd&nbsp;lwcmdRemove &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Lightweight&nbsp;frame&nbsp;lwfra&nbsp;lwfraSaveOptions &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Lightweight&nbsp;horizontal&nbsp;scroll&nbsp;bar&nbsp;lwhsb&nbsp;lwhsbVolume &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Lightweight&nbsp;list&nbsp;box&nbsp;lwlst&nbsp;lwlstCostCenters &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Lightweight&nbsp;option&nbsp;button&nbsp;lwopt&nbsp;lwoptIncomeLevel &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Lightweight&nbsp;text&nbsp;box&nbsp;lwtxt&nbsp;lwoptStreet &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Lightweight&nbsp;vertical&nbsp;scroll&nbsp;bar&nbsp;lwvsb&nbsp;lwvsbYear &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Line&nbsp;lin&nbsp;linVertical &nbsp;<\/span><\/li>\n  \n  \n  <li><span>List&nbsp;box&nbsp;lst&nbsp;lstPolicyCodes &nbsp;<\/span><\/li>\n  \n  \n  <li><span>ListView&nbsp;lvw&nbsp;lvwHeadings &nbsp;<\/span><\/li>\n  \n  \n  <li><span>MAPI&nbsp;message&nbsp;mpm&nbsp;mpmSentMessage &nbsp;<\/span><\/li>\n  \n  \n  <li><span>MAPI&nbsp;session&nbsp;mps&nbsp;mpsSession &nbsp;<\/span><\/li>\n  \n  \n  <li><span>MCI&nbsp;mci&nbsp;mciVideo &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Menu&nbsp;mnu&nbsp;mnuFileOpen &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Month&nbsp;view&nbsp;mvw&nbsp;mvwPeriod &nbsp;<\/span><\/li>\n  \n  \n  <li><span>MS&nbsp;Chart&nbsp;ch&nbsp;chSalesbyRegion &nbsp;<\/span><\/li>\n  \n  \n  <li><span>MS&nbsp;Flex&nbsp;grid&nbsp;msg&nbsp;msgClients &nbsp;<\/span><\/li>\n  \n  \n  <li><span>MS&nbsp;Tab&nbsp;&nbsp;mst&nbsp;mstFirst &nbsp;<\/span><\/li>\n  \n  \n  <li><span>OLE&nbsp;container&nbsp;ole&nbsp;oleWorksheet &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Option&nbsp;button&nbsp;opt&nbsp;optGender &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Picture&nbsp;box&nbsp;pic&nbsp;picVGA &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Picture&nbsp;clip&nbsp;clp&nbsp;clpToolbar &nbsp;<\/span><\/li>\n  \n  \n  <li><span>ProgressBar&nbsp;prg&nbsp;prgLoadFile &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Remote&nbsp;Data&nbsp;rd&nbsp;rdTitles &nbsp;<\/span><\/li>\n  \n  \n  <li><span>RichTextBox&nbsp;rtf&nbsp;rtfReport &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Shape&nbsp;shp&nbsp;shpCircle &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Slider&nbsp;sld&nbsp;sldScale &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Spin&nbsp;spn&nbsp;spnPages &nbsp;<\/span><\/li>\n  \n  \n  <li><span>StatusBar&nbsp;sta&nbsp;staDateTime &nbsp;<\/span><\/li>\n  \n  \n  <li><span>SysInfo&nbsp;sys&nbsp;sysMonitor &nbsp;<\/span><\/li>\n  \n  \n  <li><span>TabStrip&nbsp;tab&nbsp;tabOptions &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Text&nbsp;box&nbsp;txt&nbsp;txtLastName &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Timer&nbsp;tmr&nbsp;tmrAlarm &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Toolbar&nbsp;tlb&nbsp;tlbActions &nbsp;<\/span><\/li>\n  \n  \n  <li><span>TreeView&nbsp;tre&nbsp;treOrganization &nbsp;<\/span><\/li>\n  \n  \n  <li><span>UpDown&nbsp;upd&nbsp;updDirection &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Vertical&nbsp;scroll&nbsp;bar&nbsp;vsb&nbsp;vsbRate&nbsp;<\/span><\/li>\n \n \n <\/ol><\/pre>\n<p>\u63a8\u8350\u4f7f\u7528\u7684\u6570\u636e\u8bbf\u95ee\u5bf9\u8c61 (DAO) \u7684\u524d\u7f00\u7528\u4e0b\u5217\u524d\u7f00\u6765\u6307\u793a\u6570\u636e\u8bbf\u95ee\u5bf9\u8c61<br \/>\u6570\u636e\u5e93\u5bf9\u8c61 \u524d\u7f00 \u4f8b\u5b50<\/p>\n<pre>\n \n \n <ol>\n  \n  \n  <li><span><span>Container&nbsp;con&nbsp;conReports &nbsp;<\/span><\/span><\/li>\n  \n  \n  <li><span>Database&nbsp;db&nbsp;dbAccounts &nbsp;<\/span><\/li>\n  \n  \n  <li><span>DBEngine&nbsp;dbe&nbsp;dbeJet &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Document&nbsp;doc&nbsp;docSalesReport &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Field&nbsp;fld&nbsp;fldAddress &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Group&nbsp;grp&nbsp;grpFinance &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Index&nbsp;ix&nbsp;idxAge &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Parameter&nbsp;prm&nbsp;prmJobCode &nbsp;<\/span><\/li>\n  \n  \n  <li><span>QueryDef&nbsp;&nbsp;qry&nbsp;qrySalesByRegion &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Recordset&nbsp;rec&nbsp;recForecast &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Relation&nbsp;rel&nbsp;relEmployeeDept &nbsp;<\/span><\/li>\n  \n  \n  <li><span>TableDef&nbsp;tbd&nbsp;tbdCustomers &nbsp;<\/span><\/li>\n  \n  \n  <li><span>User&nbsp;usr&nbsp;usrNew &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Workspace&nbsp;wsp&nbsp;wspMine&nbsp;<\/span><\/li>\n \n \n <\/ol><\/pre>\n<p>\u5e94\u7528\u7a0b\u5e8f\u9891\u7e41\u4f7f\u7528\u8bb8\u591a\u83dc\u5355\u63a7\u4ef6\uff0c\u5bf9\u4e8e\u8fd9\u4e9b\u63a7\u4ef6\u5177\u5907\u4e00\u7ec4\u552f\u4e00\u7684\u547d\u540d\u7ea6\u5b9a\u5f88\u5b9e\u7528\u3002\u9664\u4e86\u6700\u524d\u9762 \"mnu\" \u6807\u8bb0\u4ee5\u5916\uff0c\u83dc\u5355\u63a7\u4ef6\u7684\u524d\u7f00\u5e94\u8be5\u88ab\u6269\u5c55\uff1a\u5bf9\u6bcf\u4e00\u7ea7\u5d4c\u5957\u589e\u52a0\u4e00\u4e2a\u9644\u52a0\u524d\u7f00\uff0c\u5c06\u6700\u7ec8\u7684\u83dc\u5355\u7684\u6807\u9898\u653e\u5728\u540d\u79f0\u5b57\u7b26\u4e32\u7684\u6700\u540e\u3002\u4e0b\u8868\u5217\u51fa\u4e86\u4e00\u4e9b\u4f8b\u5b50\u3002<\/p>\n<p>\u63a8\u8350\u4f7f\u7528\u7684\u83dc\u5355\u524d\u7f00<\/p>\n<p>\u83dc\u5355\u6807\u9898\u5e8f\u5217 \u83dc\u5355\u5904\u7406\u5668\u540d\u79f0<\/p>\n<pre>\n \n \n <ol>\n  \n  \n  <li><span><span>File&nbsp;Open&nbsp;mnuFileOpen &nbsp;<\/span><\/span><\/li>\n  \n  \n  <li><span>File&nbsp;Send&nbsp;Email&nbsp;mnuFileSendEmail &nbsp;<\/span><\/li>\n  \n  \n  <li><span>File&nbsp;Send&nbsp;Fax&nbsp;&nbsp;mnuFileSendFax &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Format&nbsp;Character&nbsp;mnuFormatCharacter &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Help&nbsp;Contents&nbsp;mnuHelpContents&nbsp;<\/span><\/li>\n \n \n <\/ol><\/pre>\n<p>#p#<\/p>\n<p>\u5f53\u4f7f\u7528\u8fd9\u79cd\u547d\u540d\u7ea6\u5b9a\u65f6\uff0c\u4e00\u4e2a\u7279\u5b9a\u7684\u83dc\u5355\u7ec4\u7684\u6240\u6709\u6210\u5458\u4e00\u4e2a\u63a5\u4e00\u4e2a\u5730\u5217\u5728 Visual Basic \u7684\u201c\u5c5e\u6027\u201d\u7a97\u53e3\u4e2d\u3002\u800c\u4e14\uff0c\u83dc\u5355\u63a7\u4ef6\u7684\u540d\u5b57\u6e05\u695a\u5730\u8868\u793a\u51fa\u5b83\u4eec\u6240\u5c5e\u7684\u83dc\u5355\u9879\u3002\u4e3a\u5176\u5b83\u63a7\u4ef6\u9009\u62e9\u524d\u7f00\u5bf9\u4e8e\u4e0a\u9762\u6ca1\u6709\u5217\u51fa\u7684\u63a7\u4ef6\uff0c\u5e94\u8be5\u7528\u552f\u4e00\u7684\u7531\u4e24\u4e2a\u6216\u4e09\u4e2a\u5b57\u7b26\u7ec4\u6210\u7684\u524d\u7f00\u4f7f\u5b83\u4eec\u6807\u51c6\u5316\uff0c\u4ee5\u4fdd\u6301\u4e00\u81f4\u6027\u3002\u53ea\u6709\u5f53\u9700\u8981\u6f84\u6e05\u65f6\uff0c\u624d\u4f7f\u7528\u591a\u4e8e\u4e09\u4e2a\u5b57\u7b26\u7684\u524d\u7f00\u3002\u5e38\u91cf\u548c\u53d8\u91cf\u547d\u540d\u7ea6\u5b9a\u9664\u4e86\u5bf9\u8c61\u4e4b\u5916\uff0c\u5e38\u91cf\u548c\u53d8\u91cf\u4e5f\u9700\u8981\u826f\u597d\u683c\u5f0f\u7684\u547d\u540d\u7ea6\u5b9a\u3002\u672c\u8282\u5217\u51fa\u4e86 Visual Basic \u652f\u6301\u7684\u5e38\u91cf\u548c\u53d8\u91cf\u7684\u63a8\u8350\u7ea6\u5b9a\u3002\u5e76\u4e14\u8ba8\u8bba\u6807\u8bc6\u6570\u636e\u7c7b\u578b\u548c\u8303\u56f4\u7684\u95ee\u9898\u3002<\/p>\n<p>\u53d8\u91cf\u5e94\u8be5\u603b\u662f\u88ab\u5b9a\u4e49\u5728\u5c3d\u53ef\u80fd\u5c0f\u7684\u8303\u56f4\u5185\u3002\u5168\u5c40 (Public) \u53d8\u91cf\u53ef\u4ee5\u5bfc\u81f4\u6781\u5176\u590d\u6742\u7684\u72b6\u6001\u673a\u6784\uff0c\u5e76\u4e14\u4f7f\u4e00\u4e2a\u5e94\u7528\u7a0b\u5e8f\u7684\u903b\u8f91\u975e\u5e38\u96be\u4e8e\u7406\u89e3\u3002\u5168\u5c40\u53d8\u91cf\u4e5f\u4f7f\u4ee3\u7801\u7684\u91cd\u7528\u548c\u7ef4\u62a4\u66f4\u52a0\u56f0\u96be\u3002Visual Basic \u7684\u53d8\u91cf\u53ef\u4ee5\u6709\u4e0b\u5217\u8303\u56f4\u8303\u56f4 \u58f0\u660e\u4f4d\u7f6e \u53ef\u89c1\u4f4d\u7f6e\u8fc7\u7a0b\u7ea7 \u8fc7\u7a0b\uff0c\u5b50\u8fc7\u7a0b\u6216\u51fd\u6570\u8fc7\u7a0b\u4e2d\u7684 \u2018Private\u2019 \u5728\u58f0\u660e\u5b83\u7684\u8fc7\u7a0b\u4e2d\u6a21\u5757\u7ea7 \u7a97\u4f53\u6216\u4ee3\u7801\u6a21\u5757\uff08.frm\u3001.bas \uff09\u7684\u58f0\u660e\u90e8\u5206\u4e2d\u7684 \u2018Private\u2019 \u7a97\u4f53\u6216\u4ee3\u7801\u6a21\u5757\u4e2d\u7684\u6bcf\u4e00\u4e2a\u8fc7\u7a0b\u5168\u5c40 \u4ee3\u7801\u6a21\u5757\uff08.bas\uff09\u7684\u58f0\u660e\u90e8\u5206\u4e2d\u7684 \u2018Public\u2019 \u5e94\u7528\u7a0b\u5e8f\u4e2d\u7684\u6bcf\u4e00\u5904\u5728 Visual Basic \u7684\u5e94\u7528\u7a0b\u5e8f\u4e2d\uff0c\u53ea\u6709\u5f53\u6ca1\u6709\u5176\u5b83\u65b9\u4fbf\u9014\u5f84\u5728\u7a97\u4f53\u4e4b\u95f4\u5171\u4eab\u6570\u636e\u65f6\u624d\u4f7f\u7528\u5168\u5c40\u53d8\u91cf\u3002\u5f53\u5fc5\u987b\u4f7f\u7528\u5168\u5c40\u53d8\u91cf\u65f6\uff0c\u5728\u4e00\u4e2a\u5355\u4e00\u6a21\u5757\u4e2d\u58f0\u660e\u5b83\u4eec\uff0c\u5e76\u6309\u529f\u80fd\u5206\u7ec4\u3002\u7ed9\u8fd9\u4e2a\u6a21\u5757\u53d6\u4e00\u4e2a\u6709\u610f\u4e49\u7684\u540d\u79f0\uff0c\u4ee5\u6307\u660e\u5b83\u7684\u4f5c\u7528\uff0c\u5982 Public.bas\u3002<br \/>\u8f83\u597d\u7684\u7f16\u7801\u4e60\u60ef\u662f\u5c3d\u53ef\u80fd\u5199\u6a21\u5757\u5316\u7684\u4ee3\u7801\u3002\u4f8b\u5982\uff0c\u5982\u679c\u5e94\u7528\u7a0b\u5e8f\u663e\u793a\u4e00\u4e2a\u5bf9\u8bdd\u6846\uff0c\u5c31\u628a\u8981\u5b8c\u6210\u8fd9\u4e00\u5bf9\u8bdd\u4efb\u52a1\u6240\u9700\u8981\u7684\u6240\u6709\u63a7\u4ef6\u548c\u4ee3\u7801\u653e\u5728\u5355\u4e00\u7684\u7a97\u4f53\u4e2d\u3002\u8fd9\u6709\u52a9\u4e8e\u5c06\u5e94\u7528\u7a0b\u5e8f\u7684\u4ee3\u7801\u7ec4\u7ec7\u5728\u6709\u7528\u7684\u7ec4\u4ef6\u4e2d\uff0c\u5e76\u51cf\u5c0f\u5b83\u8fd0\u884c\u65f6\u7684\u5f00\u9500\u3002<br \/>\u9664\u4e86\u5168\u5c40\u53d8\u91cf\uff08\u5e94\u8be5\u662f\u4e0d\u88ab\u4f20\u9012\u7684\uff09\uff0c\u8fc7\u7a0b\u548c\u51fd\u6570\u5e94\u8be5\u4ec5\u5bf9\u4f20\u9012\u7ed9\u5b83\u4eec\u7684\u5bf9\u8c61\u64cd\u4f5c\u3002\u5728\u8fc7\u7a0b\u4e2d\u4f7f\u7528\u7684\u5168\u5c40\u53d8\u91cf\u5e94\u8be5\u5728\u8fc7\u7a0b\u8d77\u59cb\u5904\u7684\u58f0\u660e\u90e8\u5206\u4e2d\u6807\u8bc6\u51fa\u6765\u3002\u6b64\u5916\uff0c\u5e94\u8be5\u7528 ByVal \u5c06\u53c2\u6570\u4f20\u9012\u7ed9 Sub \u8fc7\u7a0b\u53ca function \u8fc7\u7a0b\uff0c\u9664\u975e\u660e\u663e\u5730\u9700\u8981\u6539\u53d8\u5df2\u4f20\u9012\u7684\u53c2\u6570\u503c\u3002\u968f\u7740\u5de5\u7a0b\u5927\u5c0f\u7684\u589e\u957f\uff0c\u5212\u5206\u53d8\u91cf\u8303\u56f4\u7684\u5de5\u4f5c\u4e5f\u8fc5\u901f\u589e\u52a0\u3002\u5728\u7c7b\u578b\u524d\u7f00\u7684\u524d\u9762\u653e\u7f6e\u5355\u5b57\u6bcd\u8303\u56f4\u524d\u7f00\u6807\u660e\u4e86\u8fd9\u79cd\u589e\u957f\uff0c\u4f46\u53d8\u91cf\u540d\u7684\u957f\u5ea6\u5e76\u6ca1\u6709\u589e\u52a0\u5f88\u591a\u3002<\/p>\n<p><strong>\u53d8\u91cf\u8303\u56f4\u524d\u7f00<\/strong><br \/>\u8303\u56f4 \u524d\u7f00 \u4f8b\u5b50<br \/>\u5168\u5c40 g gstrUserName<br \/>\u6a21\u5757\u7ea7 m mblnCalcInProgress<br \/>\u672c\u5730\u5230\u8fc7\u7a0b \u65e0 dblVelocity<br \/>\u5982\u679c\u4e00\u4e2a\u53d8\u91cf\u5728\u6807\u51c6\u6a21\u5757\u6216\u7a97\u4f53\u6a21\u5757\u4e2d\u88ab\u58f0\u660e\u4e3a Public\uff0c\u90a3\u4e48\u8be5\u53d8\u91cf\u5177\u6709\u5168\u5c40\u8303\u56f4\u3002\u5982\u679c\u4e00\u4e2a\u53d8\u91cf\u5728\u6807\u51c6\u6a21\u5757\u6216\u7a97\u4f53\u6a21\u5757\u4e2d\u88ab\u5206\u522b\u58f0\u660e\u4e3a Private\uff0c\u90a3\u4e48\u8be5\u53d8\u91cf\u6709\u6a21\u5757\u7ea7\u8303\u56f4\u3002<br \/>\u6ce8\u610f\uff1a \u4e00\u81f4\u6027\u662f\u5353\u6709\u6210\u6548\u5730\u4f7f\u7528\u8fd9\u79cd\u6280\u672f\u7684\u5173\u952e\uff1bVisual Basic \u4e2d\u7684\u8bed\u6cd5\u68c0\u67e5\u5668\u4e0d\u4f1a\u6355\u6349\u4ee5 \"p.\" \u5f00\u5934\u7684\u6a21\u5757\u7ea7\u53d8\u91cf\u3002<\/p>\n<p><strong>\u5e38\u91cf<\/strong><\/p>\n<p>\u5e38\u91cf\u540d\u7684\u4e3b\u4f53\u662f\u5927\u5c0f\u5199\u6df7\u5408\u7684\uff0c\u6bcf\u4e2a\u5355\u8bcd\u7684\u9996\u5b57\u6bcd\u5927\u5199\u3002\u5c3d\u7ba1\u6807\u51c6 Visual Basic \u5e38\u91cf\u4e0d\u5305\u542b\u6570\u636e\u7c7b\u578b\u548c\u8303\u56f4\u4fe1\u606f\uff0c\u4f46\u662f\u8c61 i\u3001s\u3001g \u548c m \u8fd9\u6837\u7684\u524d\u7f00\u5bf9\u4e8e\u7406\u89e3\u4e00\u4e2a\u5e38\u91cf\u7684\u503c\u548c\u8303\u56f4\u8fd8\u662f\u5f88\u6709\u7528\u7684\u3002\u5bf9\u4e8e\u5e38\u91cf\u540d\uff0c\u5e94\u9075\u5faa\u4e0e\u53d8\u91cf\u76f8\u540c\u7684\u89c4\u5219\u3002\u4f8b\u5982\uff1a<\/p>\n<pre>\n \n \n <ol>\n  \n  \n  <li><span><span>mintUserListMax&nbsp;&nbsp;&nbsp;'\u5bf9\u7528\u6237\u5217\u8868\u7684\u6700\u5927\u9650\u5236 &nbsp;<\/span><\/span><\/li>\n  \n  \n  <li><span>'(\u6574\u6570\u503c\uff0c\u672c\u5730\u5230\u6a21\u5757) &nbsp;<\/span><\/li>\n  \n  \n  <li><span>gstrNewLine&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'\u65b0\u884c\u5b57\u7b26 &nbsp;<\/span><\/li>\n  \n  \n  <li><span>'(\u5b57\u7b26\u4e32\uff0c\u5e94\u7528\u7a0b\u5e8f\u5168\u5c40\u4f7f\u7528)&nbsp;<\/span><\/li>\n \n \n <\/ol><\/pre>\n<p><strong>\u53d8\u91cf<\/strong><\/p>\n<p>\u58f0\u660e\u6240\u6709\u7684\u53d8\u91cf\u5c06\u4f1a\u8282\u7701\u7f16\u7a0b\u65f6\u95f4\uff0c\u56e0\u4e3a\u952e\u5165\u64cd\u4f5c\u5f15\u8d77\u7684\u9519\u8bef\u51cf\u5c11\u4e86\uff08\u4f8b\u5982\uff0c\u7a76\u7adf\u662f aUserNameTmp\uff0c\u8fd8\u662f sUserNameTmp\uff0c\u8fd8\u662f sUserNameTemp\uff09\u3002\u5728\u201c\u9009\u9879\u201d\u5bf9\u8bdd\u6846\u7684\u201c\u7f16\u8f91\u5668\u201d\u6807\u7b7e\u4e2d\uff0c\u590d\u9009\u201c\u8981\u6c42\u53d8\u91cf\u58f0\u660e\u201d\u9009\u9879\u3002Option Explicit \u8bed\u53e5\u8981\u6c42\u5728 Visual Basic \u7a0b\u5e8f\u4e2d\u58f0\u660e\u6240\u6709\u7684\u53d8\u91cf\u3002<br \/>\u5e94\u8be5\u7ed9\u53d8\u91cf\u52a0\u524d\u7f00\u6765\u6307\u660e\u5b83\u4eec\u7684\u6570\u636e\u7c7b\u578b\u3002\u800c\u4e14\u524d\u7f00\u53ef\u4ee5\u88ab\u6269\u5c55\uff0c\u7528\u6765\u6307\u660e\u53d8\u91cf\u8303\u56f4\uff0c\u7279\u522b\u662f\u5bf9\u5927\u578b\u7a0b\u5e8f\u3002<br \/>\u7528\u4e0b\u5217\u524d\u7f00\u6765\u6307\u660e\u4e00\u4e2a\u53d8\u91cf\u7684\u6570\u636e\u7c7b\u578b\u3002<br \/>\u53d8\u91cf\u6570\u636e\u7c7b\u578b<br \/>\u6570\u636e\u7c7b\u578b \u524d\u7f00 \u4f8b\u5b50<\/p>\n<pre>\n \n \n <ol>\n  \n  \n  <li><span><span>String&nbsp;\uff08\u5b57\u7b26\u4e32\u7c7b\u578b\uff09&nbsp;str&nbsp;strFName &nbsp;<\/span><\/span><\/li>\n  \n  \n  <li><span>Integer&nbsp;\uff08\u77ed\u6574\u6570\u7c7b\u578b\uff09&nbsp;int&nbsp;intQuantity &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Long&nbsp;\uff08\u957f\u6574\u6570\u7c7b\u578b\uff09&nbsp;lng&nbsp;lngDistance &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Single&nbsp;(\u5355\u7cbe\u5ea6\u6d6e\u70b9\u6570\u7c7b\u578b)&nbsp;sng&nbsp;sngAverage &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Double&nbsp;\uff08\u53cc\u7cbe\u5ea6\u6d6e\u70b9\u6570\u7c7b\u578b\uff09&nbsp;dbl&nbsp;dblTolerance &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Boolean&nbsp;\uff08\u5e03\u5c14\u7c7b\u578b\uff09&nbsp;bln&nbsp;blnFound &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Byte&nbsp;\uff08\u5b57\u8282\u7c7b\u578b\uff09&nbsp;byt&nbsp;bytRasterData &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Date&nbsp;\uff08\u65e5\u671f\u7c7b\u578b\uff09&nbsp;dte&nbsp;dteNow &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Currency&nbsp;\uff08\u8d27\u5e01\u8ba1\u7b97\u4e0e\u5b9a\u70b9\u8ba1\u7b97\u7c7b\u578b\uff09&nbsp;cur&nbsp;curRevenue &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Object&nbsp;\uff08\u5bf9\u8c61\u7c7b\u578b\uff09&nbsp;obj&nbsp;objCurrent &nbsp;<\/span><\/li>\n  \n  \n  <li><span>Variant&nbsp;\uff08\u53d8\u4f53\u7c7b\u578b\uff09&nbsp;vnt&nbsp;vntCheckSum&nbsp;<\/span><\/li>\n \n \n <\/ol><\/pre>\n<p><strong>\u63cf\u8ff0\u53d8\u91cf\u548c\u8fc7\u7a0b\u540d<\/strong><\/p>\n<p>\u53d8\u91cf\u6216\u8fc7\u7a0b\u540d\u7684\u4e3b\u4f53\u5e94\u8be5\u4f7f\u7528\u5927\u5c0f\u5199\u6df7\u5408\u5f62\u5f0f\uff0c\u5e76\u4e14\u5e94\u8be5\u8db3\u591f\u957f\u4ee5\u63cf\u8ff0\u5b83\u7684\u4f5c\u7528\u3002\u800c\u4e14\uff0c\u51fd\u6570\u540d\u5e94\u8be5\u4ee5\u4e00\u4e2a\u52a8\u8bcd\u8d77\u9996\uff0c\u5982 InitNameArray \u6216 CloseDialog\u3002<br \/>\u5bf9\u4e8e\u9891\u7e41\u4f7f\u7528\u7684\u6216\u957f\u7684\u9879\uff0c\u63a8\u8350\u4f7f\u7528\u6807\u51c6\u7f29\u7565\u8bed\u4ee5\u4f7f\u540d\u79f0\u7684\u957f\u5ea6\u5408\u7406\u5316\u3002\u4e00\u822c\u6765\u8bf4\uff0c\u8d85\u8fc7 32 \u4e2a\u5b57\u7b26\u7684\u53d8\u91cf\u540d\u5728 VGA \u663e\u793a\u5668\u4e0a\u8bfb\u8d77\u6765\u5c31\u56f0\u96be\u4e86\u3002<br \/>\u5f53\u4f7f\u7528\u7f29\u7565\u8bed\u65f6\uff0c\u8981\u786e\u4fdd\u5b83\u4eec\u5728\u6574\u4e2a\u5e94\u7528\u7a0b\u5e8f\u4e2d\u7684\u4e00\u81f4\u6027\u3002\u5728\u4e00\u4e2a\u5de5\u7a0b\u4e2d\uff0c\u5982\u679c\u4e00\u4f1a\u513f\u4f7f\u7528 Cnt\uff0c \u4e00\u4f1a\u513f\u4f7f\u7528 Count\uff0c\u5c06\u5bfc\u81f4\u4e0d\u5fc5\u8981\u7684\u6df7\u6dc6\u3002<br \/>\u7528\u6237\u5b9a\u4e49\u7684\u7c7b\u578b\u5728\u4e00\u9879\u6709\u8bb8\u591a\u7528\u6237\u5b9a\u4e49\u7c7b\u578b\u7684\u5927\u5de5\u7a0b\u4e2d\uff0c\u5e38\u5e38\u6709\u5fc5\u8981\u7ed9\u6bcf\u79cd\u7c7b\u578b\u4e00\u4e2a\u5b83\u81ea\u5df1\u7684\u4e09\u4e2a\u5b57\u7b26\u7684\u524d\u7f00\u3002\u5982\u679c\u8fd9\u4e9b\u524d\u7f00\u662f\u4ee5 \"u\" \u5f00\u59cb\u7684\uff0c\u90a3\u4e48\u5f53\u7528\u4e00\u4e2a\u7528\u6237\u5b9a\u4e49\u7c7b\u578b\u6765\u5de5\u4f5c\u65f6\uff0c\u5feb\u901f\u8bc6\u522b\u8fd9\u4e9b\u7c7b\u578b\u662f\u5f88\u5bb9\u6613\u7684\u3002\u4f8b\u5982\uff0cucli \u53ef\u4ee5\u88ab\u7528\u6765\u4f5c\u4e3a\u4e00\u4e2a\u7528\u6237\u5b9a\u4e49\u7684\u5ba2\u6237\u7c7b\u578b\u53d8\u91cf\u7684\u524d\u7f00\u3002<\/p>\n<p><strong>4\u3001\u5728\u7b80\u5355\u7684\u9009\u62e9\u6761\u4ef6\u60c5\u51b5\u4e0b,\u4f7f\u7528IIf()\u51fd\u6570<\/strong><\/p>\n<p>\u7f57\u7d22\u7684\u4ee3\u7801\uff1a<\/p>\n<pre>\n \n \n <ol>\n  \n  \n  <li><span><span>If&nbsp;<span><font>nNum<\/font><span>&nbsp;=&nbsp;<span><font>0<\/font><span>&nbsp;Then &nbsp;<\/span><\/span><\/span><\/span><\/span><\/span><\/li>\n  \n  \n  <li><span><span><font>sName<\/font><span>&nbsp;=&nbsp;<span><font>\"sancy\"<\/font><span>&nbsp;<\/span><\/span><\/span><\/span><\/span><\/li>\n  \n  \n  <li><span>Else &nbsp;<\/span><\/li>\n  \n  \n  <li><span><span><font>sName<\/font><span>&nbsp;=&nbsp;<span><font>\"Xu\"<\/font><span>&nbsp;<\/span><\/span><\/span><\/span><\/span><\/li>\n  \n  \n  <li><span>End&nbsp;If&nbsp;<\/span><\/li>\n \n \n <\/ol><\/pre>\n<p>\u7b80\u5355\u7684\u4ee3\u7801\uff1a<\/p>\n<pre>\n \n \n <ol>\n  \n  \n  <li><span><span><font>sName<\/font><span>=<span><font>IIf<\/font><span>(<span><font>nNum<\/font><span>=<span><font>0<\/font><span>,\"sancy\",\"Xu\")&nbsp;<\/span><\/span><\/span><\/span><\/span><\/span><\/span><\/span><\/span><\/li>\n \n \n <\/ol><\/pre>\n<p><strong>5\u3001\u5c3d\u91cf\u4f7f\u7528Debug.Print\u8fdb\u884c\u8c03\u8bd5<\/strong><\/p>\n<p>\u5728\u5f88\u591a\u521d\u5b66\u8005\u7684\u8c03\u8bd5\u4e2d,\u7528MsgBox\u6765\u8ddf\u8e2a\u53d8\u91cf\u503c.\u5176\u5b9e\u7528Debug.Print\u4e0d\u4ec5\u53ef\u4ee5\u8fbe\u5230\u540c\u6837\u7684\u529f\u6548,\u800c\u4e14\u5728\u7a0b\u5e8f\u6700\u540e\u7f16\u8bd1\u8fc7\u7a0b\u4e2d,\u4f1a\u88ab\u5ffd\u7565.\u800cMsgBox\u5fc5\u987b\u624b\u52a8\u6ce8\u91ca\u6216\u5220\u9664.<br \/>\u901a\u5e38\uff1a<br \/>MsgBox nName<br \/>\u5e94\u8be5\uff1a<br \/>Debug.Print nName<\/p>\n<p><strong>6\u3001\u5728\u91cd\u590d\u5bf9\u67d0\u4e00\u5bf9\u8c61\u7684\u5c5e\u6027\u8fdb\u884c\u4fee\u6539\u65f6\uff0c\u5c3d\u91cf\u4f7f\u7528With....End With<\/strong><\/p>\n<p>\u901a\u5e38\uff1a<\/p>\n<pre>\n \n \n <ol>\n  \n  \n  <li><span><span><font>Form1.Height<\/font><span>&nbsp;=&nbsp;<span><font>5000<\/font><span>&nbsp;<\/span><\/span><\/span><\/span><\/span><\/li>\n  \n  \n  <li><span><span><font>Form1.Width<\/font><span>&nbsp;=&nbsp;<span><font>6000<\/font><span>&nbsp;<\/span><\/span><\/span><\/span><\/span><\/li>\n  \n  \n  <li><span><span><font>Form1.Caption<\/font><span>&nbsp;=&nbsp;<span><font>\"This&nbsp;is&nbsp;MyLabel\"<\/font><span>&nbsp;<\/span><\/span><\/span><\/span><\/span><\/li>\n \n \n <\/ol><\/pre>\n<p>\u5e94\u8be5\uff1a<\/p>\n<pre>\n \n \n <ol>\n  \n  \n  <li><span><span>With&nbsp;Form1 &nbsp;<\/span><\/span><\/li>\n  \n  \n  <li><span><span><font>.Height<\/font><span>&nbsp;=&nbsp;<span><font>5000<\/font><span>&nbsp;<\/span><\/span><\/span><\/span><\/span><\/li>\n  \n  \n  <li><span><span><font>.Width<\/font><span>&nbsp;=&nbsp;<span><font>6000<\/font><span>&nbsp;<\/span><\/span><\/span><\/span><\/span><\/li>\n  \n  \n  <li><span><span><font>.Caption<\/font><span>&nbsp;=&nbsp;<span><font>\"This&nbsp;is&nbsp;MyLabel\"<\/font><span>&nbsp;<\/span><\/span><\/span><\/span><\/span><\/li>\n  \n  \n  <li><span>End&nbsp;With&nbsp;<\/span><\/li>\n \n \n <\/ol><\/pre>\n<p>\u8fd9\u79cd\u7ed3\u6784\u7a0b\u5e8f\u6267\u884c\u6548\u7387\u6bd4\u8f83\u9ad8\uff0c\u7279\u522b\u5728\u5faa\u73af\u8bed\u53e5\u91cc\u3002<\/p>\n<p><strong>7\u3001MsgBox\u4e2d\u5c3d\u91cf\u4f7f\u7528\u6d88\u606f\u56fe\u6807\uff0c\u8fd9\u6837\u7a0b\u5e8f\u6bd4\u8f83\u6709\u89c4\u8303<\/strong><br \/>\u4e00\u822c\u6765\u8bf4<\/p>\n<pre>\n \n \n <ol>\n  \n  \n  <li><span><span>vbInformation&nbsp;\u7528\u6765\u63d0\u793a\u786e\u8ba4\u6216\u6210\u529f\u64cd\u4f5c\u7684\u6d88\u606f &nbsp;<\/span><\/span><\/li>\n  \n  \n  <li><span>vbExclamation&nbsp;\u7528\u6765\u63d0\u793a\u8b66\u544a\u7684\u6d88\u606f &nbsp;<\/span><\/li>\n  \n  \n  <li><span>vbCritical&nbsp;\u7528\u6765\u63d0\u793a\u5371\u673a\u60c5\u51b5\u7684\u6d88\u606f &nbsp;<\/span><\/li>\n  \n  \n  <li><span>vbQuestion&nbsp;\u7528\u6765\u63d0\u793a\u8be2\u95ee\u7684\u6d88\u606f&nbsp;<\/span><\/li>\n \n \n <\/ol><\/pre>\n<p><strong>8\u3001\u5728\u53ef\u80fd\u7684\u60c5\u51b5\u4e0b\u4f7f\u7528\u679a\u4e3e<br \/>\u679a\u4e3e\u7684\u683c\u5f0f\u4e3a<\/strong><\/p>\n<pre>\n \n \n <ol>\n  \n  \n  <li><span><span>[Public&nbsp;|&nbsp;Private]&nbsp;Enum&nbsp;name &nbsp;<\/span><\/span><\/li>\n  \n  \n  <li><span>membername&nbsp;[=&nbsp;constantexpression_r_r_r] &nbsp;<\/span><\/li>\n  \n  \n  <li><span>membername&nbsp;[=&nbsp;constantexpression_r_r_r] &nbsp;<\/span><\/li>\n  \n  \n  <li><span>.... &nbsp;<\/span><\/li>\n  \n  \n  <li><span>End&nbsp;Enum&nbsp;<\/span><\/li>\n \n \n <\/ol><\/pre>\n<p>Enum \u8bed\u53e5\u5305\u542b\u4e0b\u9762\u90e8\u5206\uff1a<br \/>\u90e8\u5206 \u63cf\u8ff0<br \/>Public \u53ef\u9009\u7684\u3002\u8868\u793a\u8be5 Enum \u7c7b\u578b\u5728\u6574\u4e2a\u5de5\u7a0b\u4e2d\u90fd\u662f\u53ef\u89c1\u7684\u3002Enum \u7c7b\u578b\u7684\u7f3a\u7701\u60c5\u51b5\u662f Public\u3002<br \/>Private \u53ef\u9009\u7684\u3002\u8868\u793a\u8be5 Enum \u7c7b\u578b\u53ea\u5728\u6240\u58f0\u660e\u7684\u6a21\u5757\u4e2d\u662f\u53ef\u89c1\u7684\u3002<br \/>name \u5fc5\u9700\u7684\u3002\u8be5 Enum \u7c7b\u578b\u7684\u540d\u79f0\u3002name \u5fc5\u987b\u662f\u4e00\u4e2a\u5408\u6cd5\u7684 Visual Basic \u6807\u8bc6\u7b26\uff0c\u5728\u5b9a\u4e49\u8be5 Enum \u7c7b\u578b\u7684\u53d8\u91cf\u6216\u53c2\u6570\u65f6\u7528\u8be5\u540d\u79f0\u6765\u6307\u5b9a\u7c7b\u578b\u3002<br \/>membername \u5fc5\u9700\u7684\u3002\u7528\u4e8e\u6307\u5b9a\u8be5 Enum \u7c7b\u578b\u7684\u7ec4\u6210\u5143\u7d20\u540d\u79f0\u7684\u5408\u6cd5 Visual Basic \u6807\u8bc6\u7b26\u3002<br \/>constantexpression_r_r_r \u53ef\u9009\u7684\u3002\u5143\u7d20\u7684\u503c\uff08\u4e3a Long \u7c7b\u578b\uff09\u3002\u53ef\u4ee5\u662f\u522b\u7684 Enum \u7c7b\u578b\u3002\u5982\u679c\u6ca1\u6709\u6307\u5b9a constantexpression_r_r_r\uff0c\u5219\u6240\u8d4b\u7ed9\u7684\u503c\u6216\u8005\u662f 0\uff08\u5982\u679c\u8be5\u5143\u7d20\u662f\u7b2c\u4e00\u4e2a membername\uff09\uff0c\u6216\u8005\u6bd4\u5176\u76f4\u63a5\u524d\u9a71\u7684\u503c\u5927 1\u3002<\/p>\n<p>\u8bf4\u660e<br \/>\u6240\u8c13\u679a\u4e3e\u53d8\u91cf\uff0c\u5c31\u662f\u6307\u7528 Enum \u7c7b\u578b\u5b9a\u4e49\u7684\u53d8\u91cf\u3002\u53d8\u91cf\u548c\u53c2\u6570\u90fd\u53ef\u4ee5\u5b9a\u4e49\u4e3a Enum \u7c7b\u578b\u3002Enum \u7c7b\u578b\u4e2d\u7684\u5143\u7d20\u88ab\u521d\u59cb\u5316\u4e3a Enum \u8bed\u53e5\u4e2d\u6307\u5b9a\u7684\u5e38\u6570\u503c\u3002\u6240\u8d4b\u7ed9\u7684\u503c\u53ef\u4ee5\u5305\u62ec\u6b63\u6570\u548c\u8d1f\u6570\uff0c\u4e14\u5728\u8fd0\u884c\u65f6\u4e0d\u80fd\u6539\u53d8\u3002\u4f8b\u5982\uff1a<\/p>\n<pre>\n \n \n <ol>\n  \n  \n  <li><span><span>Enum&nbsp;SecurityLevel&nbsp;<span>IllegalEntry<span>&nbsp;=&nbsp;-1&nbsp;<span>SecurityLevel1<span>&nbsp;=&nbsp;<span>0<span>&nbsp;<span>SecurityLevel2<span>&nbsp;=&nbsp;<span>1<span>&nbsp;End&nbsp;Enum&nbsp;<\/span><\/span><\/span><\/span><\/span><\/span><\/span><\/span><\/span><\/span><\/span><\/span><\/li>\n \n \n <\/ol><\/pre>\n<p>Enum \u8bed\u53e5\u53ea\u80fd\u5728\u6a21\u5757\u7ea7\u522b\u4e2d\u51fa\u73b0\u3002\u5b9a\u4e49 Enum \u7c7b\u578b\u540e\uff0c\u5c31\u53ef\u4ee5\u7528\u5b83\u6765\u5b9a\u4e49\u53d8\u91cf\uff0c\u53c2\u6570\u6216\u8fd4\u56de\u8be5\u7c7b\u578b\u7684\u8fc7\u7a0b\u3002\u4e0d\u80fd\u7528\u6a21\u5757\u540d\u6765\u9650\u5b9a Enum \u7c7b\u578b\u3002\u7c7b\u6a21\u5757\u4e2d\u7684 Public Enum \u7c7b\u578b\u5e76\u4e0d\u662f\u8be5\u7c7b\u7684\u6210\u5458\uff1b\u53ea\u4e0d\u8fc7\u5b83\u4eec\u4e5f\u88ab\u5199\u5165\u5230\u7c7b\u578b\u5e93\u4e2d\u3002\u5728\u6807\u51c6\u6a21\u5757\u4e2d\u5b9a\u4e49\u7684 Enum \u7c7b\u578b\u5219\u4e0d\u5199\u5230\u7c7b\u578b\u5e93\u4e2d\u3002\u5177\u6709\u76f8\u540c\u540d\u5b57\u7684 Public Enum \u7c7b\u578b\u4e0d\u80fd\u65e2\u5728\u6807\u51c6\u6a21\u5757\u4e2d\u5b9a\u4e49\uff0c\u53c8\u5728\u7c7b\u6a21\u5757\u4e2d\u5b9a\u4e49\uff0c\u56e0\u4e3a\u5b83\u4eec\u5171\u4eab\u76f8\u540c\u7684\u547d\u540d\u7a7a\u95f4\u3002\u82e5\u4e0d\u540c\u7684\u7c7b\u578b\u5e93\u4e2d\u6709\u4e24\u4e2a Enum \u7c7b\u578b\u7684\u540d\u5b57\u76f8\u540c\uff0c\u4f46\u6210\u5458\u4e0d\u540c\uff0c\u5219\u5bf9\u8fd9\u79cd\u7c7b\u578b\u7684\u53d8\u91cf\u7684\u5f15\u7528\uff0c\u5c06\u53d6\u51b3\u4e8e\u54ea\u4e00\u4e2a\u7c7b\u578b\u5e93\u5177\u6709\u66f4\u9ad8\u7684\u5f15\u7528\u4f18\u5148\u7ea7\u3002<br \/>\u4e0d\u80fd\u5728 With \u5757\u4e2d\u4f7f\u7528 Enum \u7c7b\u578b\u4f5c\u4e3a\u76ee\u6807\u3002<br \/>Enum \u8bed\u53e5\u793a\u4f8b\u4e0b\u9762\u7684\u793a\u4f8b\u6f14\u793a\u7528 Enum \u8bed\u53e5\u5b9a\u4e49\u4e00\u4e2a\u547d\u540d\u5e38\u6570\u7684\u96c6\u5408\u3002\u5728\u672c\u4f8b\u4e2d\u662f\u4e00\u4e9b\u53ef\u4ee5\u9009\u62e9\u7684\u989c\u8272\u5e38\u6570\u7528\u4e8e\u8bbe\u8ba1\u6570\u636e\u5e93\u7684\u6570\u636e\u8f93\u5165\u7a97\u4f53\u3002<\/p>\n<pre>\n \n \n <ol>\n  \n  \n  <li><span><span>Public&nbsp;Enum&nbsp;InterfaceColors &nbsp;<\/span><\/span><\/li>\n  \n  \n  <li><span><span><font>icMistyRose<\/font><span>&nbsp;=&nbsp;&amp;HE1E4FF&amp; &nbsp;<\/span><\/span><\/span><\/li>\n  \n  \n  <li><span><span><font>icSlateGray<\/font><span>&nbsp;=&nbsp;&amp;H908070&amp; &nbsp;<\/span><\/span><\/span><\/li>\n  \n  \n  <li><span><span><font>icDodgerBlue<\/font><span>&nbsp;=&nbsp;&amp;HFF901E&amp; &nbsp;<\/span><\/span><\/span><\/li>\n  \n  \n  <li><span><span><font>icDeepSkyBlue<\/font><span>&nbsp;=&nbsp;&amp;HFFBF00&amp; &nbsp;<\/span><\/span><\/span><\/li>\n  \n  \n  <li><span><span><font>icSpringGreen<\/font><span>&nbsp;=&nbsp;&amp;H7FFF00&amp; &nbsp;<\/span><\/span><\/span><\/li>\n  \n  \n  <li><span><span><font>icForestGreen<\/font><span>&nbsp;=&nbsp;&amp;H228B22&amp; &nbsp;<\/span><\/span><\/span><\/li>\n  \n  \n  <li><span><span><font>icGoldenrod<\/font><span>&nbsp;=&nbsp;&amp;H20A5DA&amp; &nbsp;<\/span><\/span><\/span><\/li>\n  \n  \n  <li><span><span><font>icFirebrick<\/font><span>&nbsp;=&nbsp;&amp;H2222B2&amp; &nbsp;<\/span><\/span><\/span><\/li>\n  \n  \n  <li><span>End&nbsp;Enum&nbsp;<\/span><\/li>\n \n \n <\/ol><\/pre>\n<p>\u597d\u5904\u662f\u52a0\u5febVB.NET\u7f16\u7a0b\u901f\u5ea6<\/p>\n<p>\u3010\u7f16\u8f91\u63a8\u8350\u3011<\/p>\n<ol>\n<li><font>\u6d45\u6790VB.NET\u7ec4\u5408\u65f6\u95f4\u503c<\/font><\/li>\n<li><font>VB.NET NotifyIcon\u63a7\u4ef6\u5b66\u4e60\u7ecf\u9a8c<\/font><\/li>\n<li><font>\u6d45\u6790VB.NET\u4f7f\u7528MonthCalendar\u63a7\u4ef6<\/font><\/li>\n<li><font>VB.NET Split\u51fd\u6570\u5b66\u4e60\u7b14\u8bb0<\/font><\/li>\n<li><font>VB.NET\u6c34\u6676\u62a5\u8868\u63a7\u4ef6\u7ecf\u9a8c\u603b\u7ed3<\/font><\/li>\n<\/ol>\n","protected":false},"excerpt":{"rendered":"<p>\u7ecf\u8fc7\u957f\u65f6\u95f4\u5b66\u4e60VB.NET\u7f16\u7a0b\uff0c\u5728\u7f16\u7a0b\u4e2d\u603b\u7ed3\u4e86\u4e00\u4e9bVB.NET\u7f16\u7a0b\u7684\u826f\u597d\u89c4\u8303\uff0c\u4e8e\u662f\u548c\u5927\u5bb6\u5206\u4eab\u4e00\u4e0b\uff0c\u770b\u5b8c\u672c\u6587\u4f60\u80af [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[61],"tags":[],"class_list":["post-408354","post","type-post","status-publish","format-standard","hentry","category-website"],"_links":{"self":[{"href":"https:\/\/idc.net\/help\/wp-json\/wp\/v2\/posts\/408354","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/idc.net\/help\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/idc.net\/help\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/idc.net\/help\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/idc.net\/help\/wp-json\/wp\/v2\/comments?post=408354"}],"version-history":[{"count":0,"href":"https:\/\/idc.net\/help\/wp-json\/wp\/v2\/posts\/408354\/revisions"}],"wp:attachment":[{"href":"https:\/\/idc.net\/help\/wp-json\/wp\/v2\/media?parent=408354"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/idc.net\/help\/wp-json\/wp\/v2\/categories?post=408354"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/idc.net\/help\/wp-json\/wp\/v2\/tags?post=408354"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}