{"id":429,"date":"2007-10-31T18:03:57","date_gmt":"2007-10-31T10:03:57","guid":{"rendered":"http:\/\/www.jason695.idv.tw:81\/wordpress\/?p=429"},"modified":"2007-10-31T18:03:57","modified_gmt":"2007-10-31T10:03:57","slug":"vb%e5%af%ab%e7%a8%8b%e5%bc%8f%e7%9a%84%e5%85%ab%e5%80%8b%e5%84%aa%e8%89%af%e7%bf%92%e6%85%a3","status":"publish","type":"post","link":"https:\/\/jason695.why3s.tw\/wordpress\/2007\/10\/31\/vb%e5%af%ab%e7%a8%8b%e5%bc%8f%e7%9a%84%e5%85%ab%e5%80%8b%e5%84%aa%e8%89%af%e7%bf%92%e6%85%a3\/","title":{"rendered":"VB\u5beb\u7a0b\u5f0f\u7684\u516b\u500b\u512a\u826f\u7fd2\u6163"},"content":{"rendered":"<p><strong>1\u3001&#8221;&amp;&#8221;\u7f6e\u63db&#8221;+&#8221;<br \/>\n2\u3001\u8b8a\u91cf\u547d\u540d\u5927\u5c0f\u5beb\uff0c\u8a9e\u53e5\u932f\u843d\u6709\u79e9\uff0c\u6e90\u4ee3\u78bc\u7dad\u8b77\u65b9\u9762<br \/>\n3\u3001\u8acb\u990a\u6210\u4ee5\u4e0b\u7684\u300c\u7269\u4ef6\u547d\u540d\u7d04\u5b9a\u300d\u826f\u597d\u7fd2\u6163<br \/>\n4\u3001\u5728\u7c21\u55ae\u7684\u9078\u53d6\u689d\u4ef6\u60c5\u6cc1\u4e0b,\u4f7f\u7528IIf()\u51fd\u6578<br \/>\n5\u3001\u76e1\u91cf\u4f7f\u7528Debug.Print\u9032\u884c\u9664\u932f<br \/>\n6\u3001\u5728\u91cd\u8907\u5c0d\u67d0\u4e00\u5c0d\u8c61\u7684\u5c6c\u6027\u9032\u884c\u4fee\u6539\u6642\uff0c\u76e1\u91cf\u4f7f\u7528With&#8230;.End With<br \/>\n7\u3001MsgBox\u4e2d\u76e1\u91cf\u4f7f\u7528\u6d88\u606f\u5716\u793a\uff0c\u9019\u6a23\u7a0b\u5f0f\u6bd4\u8f03\u6709\u898f\u7bc4<br \/>\n8\u3001\u5728\u53ef\u80fd\u7684\u60c5\u6cc1\u4e0b\u4f7f\u7528\u679a\u8209<br \/>\n<\/strong><\/p>\n<p>1\u3001&#8221;&amp;&#8221;\u7f6e\u63db&#8221;+&#8221;<br \/>\n\u5728\u5f88\u591a\u4eba\u7684\u5beb\u7a0b\u5f0f\u8a9e\u7cfb\u4e2d\uff0c\u7528\u300c+\u300d\u4f86\u9023\u7dda\u5b57\u4e32\uff0c\u9019\u6a23\u5bb9\u6613\u5c0e\u81f4\u6b67\u7fa9\u3002\u826f\u597d\u7684\u7fd2\u6163\u662f\u7528\u300c&amp;\u300d\u4f86\u9023\u7dda\u5b57\u4e32.<\/p>\n<p>\u4e0d\u6b63\u78ba:<br \/>\nDim sMessage As String<br \/>\nsMessage = &#8220;1&#8221; + &#8220;2&#8221;<\/p>\n<p>\u6b63\u78ba:<br \/>\nDim sMessage As String<br \/>\nsMessage = &#8220;1&#8221; &amp; &#8220;2&#8221;<\/p>\n<p>\u6ce8\u610f\uff1a&#8221;&amp;&#8221;\u7684\u5f8c\u9762\u6709\u500b\u7a7a\u683c<\/p>\n<p>2\u3001\u8b8a\u91cf\u547d\u540d\u5927\u5c0f\u5beb\uff0c\u8a9e\u53e5\u932f\u843d\u6709\u79e9\uff0c\u6e90\u4ee3\u78bc\u7dad\u8b77\u65b9\u9762<\/p>\n<p>\u4e0b\u9762\u5927\u5bb6\u6bd4\u8f03\u4e00\u4e0b\u4ee5\u4e0b\u5169\u6bb5\u4ee3\u78bc:<\/p>\n<p>\u8b80\u61c2\u96e3\u5ea6\u5f88\u5927\u7684\u4ee3\u78bc\uff1a<\/p>\n<p>Dim SNAME As String<br \/>\nDim NTURN As Integer<\/p>\n<p>If NTURN = 0 Then<br \/>\nIf SNAME = &#8220;vbeden&#8221; Then<br \/>\nDo While NTURN &lt; 4<br \/>\nNTURN = NTURN + 1<br \/>\nLoop<br \/>\nEnd If<br \/>\nEnd If<\/p>\n<p>\u5bb9\u6613\u8b80\u61c2\u7684\u4ee3\u78bc\uff1a<\/p>\n<p>Dim sName As String<br \/>\nDim nTurn As Integer<\/p>\n<p>If nTurn = 0 Then<br \/>\nIf sName = &#8220;vbeden&#8221; Then<br \/>\nDo While nTurn &lt; 4<br \/>\nnTurn = nTurn + 1<br \/>\nLoop<br \/>\nEnd If<br \/>\nEnd If<\/p>\n<p>[\u8fd4\u56de\u7d22\u5f15]<\/p>\n<p>3\u3001\u8acb\u990a\u6210\u4ee5\u4e0b\u7684\u300c\u7269\u4ef6\u547d\u540d\u7d04\u5b9a\u300d\u826f\u597d\u7fd2\u6163<\/p>\n<p>\u63a8\u85a6\u4f7f\u7528\u7684\u63a7\u4ef6\u524d\u7db4<\/p>\n<p>\u63a7\u4ef6\u985e\u578b \u524d\u7db4 \u4f8b\u5b50<br \/>\n3D Panel  pnl pnlGroup<br \/>\nADO Data ado adoBiblio<br \/>\nAnimated button ani aniMailBox<br \/>\nCheck box chk chkReadOnly<br \/>\nCombo box, drop-down list box cbo cboEnglish<br \/>\nCommand button cmd cmdExit<br \/>\nCommon dialog  dlg dlgFileOpen<br \/>\nCommunications  com comFax<br \/>\nControl \uff08\u7576\u7279\u5b9a\u985e\u578b\u4e0d\u8a73\u6642\uff0c\u5728\u904e\u7a0b\u4e2d\u6240\u4f7f\u7528\u7684\uff09 ctr ctrCurrent<br \/>\nData dat datBiblio<br \/>\nData-bound combo box dbcbo dbcboLanguage<br \/>\nData-bound grid dbgrd dbgrdQueryResult<br \/>\nData-bound list box dblst dblstJobType<br \/>\nData combo dbc dbcAuthor<br \/>\nData grid dgd dgdTitles<br \/>\nData list dbl dblPublisher<br \/>\nData repeater drp drpLocation<br \/>\nDate picker dtp dtpPublished<br \/>\nDirectory list box dir dirSource<br \/>\nDrive list box drv drvTarget<br \/>\nFile list box fil filSource<br \/>\nFlat scroll bar fsb fsbMove<br \/>\nForm frm frmEntry<br \/>\nFrame fra fraLanguage<br \/>\nGauge gau gauStatus<br \/>\nGraph gra graRevenue<br \/>\nGrid grd grdPrices<br \/>\nHierarchical flexgrid flex flexOrders<br \/>\nHorizontal scroll bar hsb hsbVolume<br \/>\nImage img imgIcon<br \/>\nImage combo imgcbo imgcboProduct<br \/>\nImageList ils ilsAllIcons<br \/>\nLabel lbl lblHelpMessage<br \/>\nLightweight check box lwchk lwchkArchive<br \/>\nLightweight combo box lwcbo lwcboGerman<br \/>\nLightweight command button lwcmd lwcmdRemove<br \/>\nLightweight frame lwfra lwfraSaveOptions<br \/>\nLightweight horizontal scroll bar lwhsb lwhsbVolume<br \/>\nLightweight list box lwlst lwlstCostCenters<br \/>\nLightweight option button lwopt lwoptIncomeLevel<br \/>\nLightweight text box lwtxt lwoptStreet<br \/>\nLightweight vertical scroll bar lwvsb lwvsbYear<br \/>\nLine lin linVertical<br \/>\nList box lst lstPolicyCodes<br \/>\nListView lvw lvwHeadings<br \/>\nMAPI message mpm mpmSentMessage<br \/>\nMAPI session mps mpsSession<br \/>\nMCI mci mciVideo<br \/>\nMenu mnu mnuFileOpen<br \/>\nMonth view mvw mvwPeriod<br \/>\nMS Chart ch chSalesbyRegion<br \/>\nMS Flex grid msg msgClients<br \/>\nMS Tab  mst mstFirst<br \/>\nOLE container ole oleWorksheet<br \/>\nOption button opt optGender<br \/>\nPicture box pic picVGA<br \/>\nPicture clip clp clpToolbar<br \/>\nProgressBar prg prgLoadFile<br \/>\nRemote Data rd rdTitles<br \/>\nRichTextBox rtf rtfReport<br \/>\nShape shp shpCircle<br \/>\nSlider sld sldScale<br \/>\nSpin spn spnPages<br \/>\nStatusBar sta staDateTime<br \/>\nSysInfo sys sysMonitor<br \/>\nTabStrip tab tabOptions<br \/>\nText box txt txtLastName<br \/>\nTimer tmr tmrAlarm<br \/>\nToolbar tlb tlbActions<br \/>\nTreeView tre treOrganization<br \/>\nUpDown upd updDirection<br \/>\nVertical scroll bar vsb vsbRate<\/p>\n<p>&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8211;<br \/>\n\u63a8\u85a6\u4f7f\u7528\u7684\u8cc7\u6599\u8a2a\u554f\u7269\u4ef6 (DAO) \u7684\u524d\u7db4<br \/>\n\u7528\u4e0b\u5217\u524d\u7db4\u4f86\u6307\u793a\u8cc7\u6599\u8a2a\u554f\u7269\u4ef6<br \/>\n\u8cc7\u6599\u5eab\u7269\u4ef6 \u524d\u7db4 \u4f8b\u5b50<br \/>\nContainer con conReports<br \/>\nDatabase db dbAccounts<br \/>\nDBEngine dbe dbeJet<br \/>\nDocument doc docSalesReport<br \/>\nField fld fldAddress<br \/>\nGroup grp grpFinance<br \/>\nIndex ix idxAge<br \/>\nParameter prm prmJobCode<br \/>\nQueryDef  qry qrySalesByRegion<br \/>\nRecordset rec recForecast<br \/>\nRelation rel relEmployeeDept<br \/>\nTableDef tbd tbdCustomers<br \/>\nUser usr usrNew<br \/>\nWorkspace wsp wspMine<\/p>\n<p>&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8211;<\/p>\n<p>\u5957\u7528\u7a0b\u5f0f\u983b\u7e41\u4f7f\u7528\u8a31\u591a\u9078\u55ae\u63a7\u4ef6\uff0c\u5c0d\u65bc\u9019\u4e9b\u63a7\u4ef6\u5177\u5099\u4e00\u7fa4\u7d44\u552f\u4e00\u7684\u547d\u540d\u7d04\u5b9a\u5f88\u5be6\u7528\u3002\u9664\u4e86\u6700\u524d\u9762 &#8220;mnu&#8221; \u6a19\u793a\u4ee5\u5916\uff0c\u9078\u55ae\u63a7\u4ef6\u7684\u524d\u7db4\u61c9\u8a72\u88ab\u5ef6\u4f38\uff1a\u5c0d\u6bcf\u4e00\u7d1a\u5d4c\u5957\u589e\u52a0\u4e00\u500b\u9644\u52a0\u524d\u7db4\uff0c\u5c07\u6700\u7d42\u7684\u9078\u55ae\u7684\u6a19\u984c\u653e\u5728\u540d\u7a31\u5b57\u4e32\u7684\u6700\u5f8c\u3002\u4e0b\u8868\u5217\u51fa\u4e86\u4e00\u4e9b\u4f8b\u5b50\u3002<\/p>\n<p>\u63a8\u85a6\u4f7f\u7528\u7684\u9078\u55ae\u524d\u7db4<br \/>\n\u9078\u55ae\u6a19\u984c\u5e8f\u5217 \u9078\u55ae\u8655\u7406\u5668\u540d\u7a31<br \/>\nFile Open mnuFileOpen<br \/>\nFile Send Email mnuFileSendEmail<br \/>\nFile Send Fax  mnuFileSendFax<br \/>\nFormat Character mnuFormatCharacter<br \/>\nHelp Contents mnuHelpContents<\/p>\n<p>\u7576\u4f7f\u7528\u9019\u7a2e\u547d\u540d\u7d04\u5b9a\u6642\uff0c\u4e00\u500b\u7279\u5b9a\u7684\u9078\u55ae\u7fa4\u7d44\u7684\u6240\u6709\u6210\u54e1\u4e00\u500b\u63a5\u4e00\u500b\u5730\u5217\u5728 Visual Basic \u7684\u300c\u5c6c\u6027\u300d\u8996\u7a97\u4e2d\u3002\u800c\u4e14\uff0c\u9078\u55ae\u63a7\u4ef6\u7684\u540d\u5b57\u6e05\u695a\u5730\u8868\u793a\u51fa\u5b83\u5011\u6240\u5c6c\u7684\u9078\u55ae\u9805\u3002<\/p>\n<p>\u70ba\u5176\u5b83\u63a7\u4ef6\u9078\u53d6\u524d\u7db4<\/p>\n<p>\u5c0d\u65bc\u4e0a\u9762\u6c92\u6709\u5217\u51fa\u7684\u63a7\u4ef6\uff0c\u61c9\u8a72\u7528\u552f\u4e00\u7684\u7531\u5169\u500b\u6216\u4e09\u500b\u5b57\u5143\u7fa4\u7d44\u6210\u7684\u524d\u7db4\u4f7f\u5b83\u5011\u6a19\u6e96\u5316\uff0c\u4ee5\u4fdd\u6301\u4e00\u81f4\u6027\u3002\u53ea\u6709\u7576\u9700\u8981\u6f84\u6e05\u6642\uff0c\u624d\u4f7f\u7528\u591a\u65bc\u4e09\u500b\u5b57\u5143\u7684\u524d\u7db4\u3002<\/p>\n<p>\u5e38\u91cf\u548c\u8b8a\u91cf\u547d\u540d\u7d04\u5b9a<br \/>\n\u9664\u4e86\u5c0d\u8c61\u4e4b\u5916\uff0c\u5e38\u91cf\u548c\u8b8a\u91cf\u4e5f\u9700\u8981\u826f\u597d\u683c\u5f0f\u7684\u547d\u540d\u7d04\u5b9a\u3002\u672c\u7bc0\u5217\u51fa\u4e86 Visual Basic \u652f\u63f4\u7684\u5e38\u91cf\u548c\u8b8a\u91cf\u7684\u63a8\u85a6\u7d04\u5b9a\u3002\u4e26\u4e14\u8a0e\u8ad6\u6a19\u8b58\u8cc7\u6599\u985e\u578b\u548c\u7bc4\u570d\u7684\u554f\u984c\u3002<\/p>\n<p>\u8b8a\u91cf\u61c9\u8a72\u7e3d\u662f\u88ab\u5b9a\u7fa9\u5728\u76e1\u53ef\u80fd\u5c0f\u7684\u7bc4\u570d\u5167\u3002\u5168\u5c40 (Public) \u8b8a\u91cf\u53ef\u4ee5\u5c0e\u81f4\u6975\u5176\u8907\u96dc\u7684\u72c0\u614b\u6a5f\u69cb\uff0c\u4e26\u4e14\u4f7f\u4e00\u500b\u5957\u7528\u7a0b\u5f0f\u7684\u908f\u8f2f\u975e\u5e38\u96e3\u65bc\u7406\u89e3\u3002\u5168\u5c40\u8b8a\u91cf\u4e5f\u4f7f\u4ee3\u78bc\u7684\u91cd\u7528\u548c\u7dad\u8b77\u66f4\u52a0\u56f0\u96e3\u3002<\/p>\n<p>Visual Basic \u4e2d\u7684\u8b8a\u91cf\u53ef\u4ee5\u6709\u4e0b\u5217\u7bc4\u570d<\/p>\n<p>\u7bc4\u570d \u8072\u660e\u4f4d\u7f6e \u53ef\u898b\u4f4d\u7f6e<br \/>\n\u904e\u7a0b\u7d1a \u904e\u7a0b\uff0c\u5b50\u904e\u7a0b\u6216\u51fd\u6578\u904e\u7a0b\u4e2d\u7684 \u300ePrivate\u300f \u5728\u8072\u660e\u5b83\u7684\u904e\u7a0b\u4e2d<br \/>\n\u6a21\u7d44\u7d1a \u7a97\u9ad4\u6216\u4ee3\u78bc\u6a21\u7d44\uff08.frm\u3001.bas \uff09\u7684\u8072\u660e\u90e8\u5206\u4e2d\u7684 \u300ePrivate\u300f \u7a97\u9ad4\u6216\u4ee3\u78bc\u6a21\u7d44\u4e2d\u7684\u6bcf\u4e00\u500b\u904e\u7a0b<br \/>\n\u5168\u5c40 \u4ee3\u78bc\u6a21\u7d44\uff08.bas\uff09\u7684\u8072\u660e\u90e8\u5206\u4e2d\u7684 \u300ePublic\u300f \u5957\u7528\u7a0b\u5f0f\u4e2d\u7684\u6bcf\u4e00\u8655<\/p>\n<p>\u5728 Visual Basic \u7684\u5957\u7528\u7a0b\u5f0f\u4e2d\uff0c\u53ea\u6709\u7576\u6c92\u6709\u5176\u5b83\u65b9\u4fbf\u9014\u5f91\u5728\u7a97\u9ad4\u4e4b\u9593\u5171\u4eab\u8cc7\u6599\u6642\u624d\u4f7f\u7528\u5168\u5c40\u8b8a\u91cf\u3002\u7576\u5fc5\u9808\u4f7f\u7528\u5168\u5c40\u8b8a\u91cf\u6642\uff0c\u5728\u4e00\u500b\u55ae\u4e00\u6a21\u7d44\u4e2d\u8072\u660e\u5b83\u5011\uff0c\u4e26\u6309\u529f\u80fd\u5206\u7fa4\u7d44\u3002\u7d66\u9019\u500b\u6a21\u7d44\u53d6\u4e00\u500b\u6709\u610f\u7fa9\u7684\u540d\u7a31\uff0c\u4ee5\u6307\u660e\u5b83\u7684\u4f5c\u7528\uff0c\u5982 Public.bas\u3002<\/p>\n<p>\u8f03\u597d\u7684\u7de8\u78bc\u7fd2\u6163\u662f\u76e1\u53ef\u80fd\u5beb\u6a21\u7d44\u5316\u7684\u4ee3\u78bc\u3002\u4f8b\u5982\uff0c\u82e5\u679c\u5957\u7528\u7a0b\u5f0f\u986f\u793a\u4e00\u500b\u5c0d\u8a71\u6846\uff0c\u5c31\u628a\u8981\u5b8c\u6210\u9019\u4e00\u5c0d\u8a71\u4efb\u52d9\u6240\u9700\u8981\u7684\u6240\u6709\u63a7\u4ef6\u548c\u4ee3\u78bc\u653e\u5728\u55ae\u4e00\u7684\u7a97\u9ad4\u4e2d\u3002\u9019\u6709\u52a9\u65bc\u5c07\u5957\u7528\u7a0b\u5f0f\u7684\u4ee3\u78bc\u7fa4\u7d44\u7e54\u5728\u6709\u7528\u7684\u5143\u4ef6\u4e2d\uff0c\u4e26\u6e1b\u5c0f\u5b83\u57f7\u884c\u6642\u7684\u958b\u92b7\u3002<\/p>\n<p>\u9664\u4e86\u5168\u5c40\u8b8a\u91cf\uff08\u61c9\u8a72\u662f\u4e0d\u88ab\u50b3\u905e\u7684\uff09\uff0c\u904e\u7a0b\u548c\u51fd\u6578\u61c9\u8a72\u50c5\u5c0d\u50b3\u905e\u7d66\u5b83\u5011\u7684\u5c0d\u8c61\u52d5\u4f5c\u3002\u5728\u904e\u7a0b\u4e2d\u4f7f\u7528\u7684\u5168\u5c40\u8b8a\u91cf\u61c9\u8a72\u5728\u904e\u7a0b\u8d77\u59cb\u8655\u7684\u8072\u660e\u90e8\u5206\u4e2d\u6a19\u8b58\u51fa\u4f86\u3002\u6b64\u5916\uff0c\u61c9\u8a72\u7528 ByVal \u5c07\u53c3\u6578\u50b3\u905e\u7d66 Sub \u904e\u7a0b\u53ca function \u904e\u7a0b\uff0c\u9664\u975e\u660e\u986f\u5730\u9700\u8981\u6539\u8b8a\u5df2\u50b3\u905e\u7684\u53c3\u6578\u503c\u3002<\/p>\n<p>\u96a8\u8457\u5de5\u7a0b\u5927\u5c0f\u7684\u589e\u9577\uff0c\u5283\u5206\u8b8a\u91cf\u7bc4\u570d\u7684\u5de5\u4f5c\u4e5f\u8fc5\u901f\u589e\u52a0\u3002\u5728\u985e\u578b\u524d\u7db4\u7684\u524d\u9762\u653e\u7f6e\u55ae\u5b57\u6bcd\u7bc4\u570d\u524d\u7db4\u6a19\u660e\u4e86\u9019\u7a2e\u589e\u9577\uff0c\u4f46\u8b8a\u91cf\u540d\u7684\u9577\u5ea6\u4e26\u6c92\u6709\u589e\u52a0\u5f88\u591a\u3002<\/p>\n<p>\u8b8a\u91cf\u7bc4\u570d\u524d\u7db4<\/p>\n<p>\u7bc4\u570d \u524d\u7db4 \u4f8b\u5b50<br \/>\n\u5168\u5c40 g gstrUserName<br \/>\n\u6a21\u7d44\u7d1a m mblnCalcInProgress<br \/>\n\u8fd1\u7aef\u5230\u904e\u7a0b \u7121 dblVelocity<\/p>\n<p>\u82e5\u679c\u4e00\u500b\u8b8a\u91cf\u5728\u6a19\u6e96\u6a21\u7d44\u6216\u7a97\u9ad4\u6a21\u7d44\u4e2d\u88ab\u8072\u660e\u70ba Public\uff0c\u90a3\u9ebc\u8a72\u8b8a\u91cf\u5177\u6709\u5168\u5c40\u7bc4\u570d\u3002\u82e5\u679c\u4e00\u500b\u8b8a\u91cf\u5728\u6a19\u6e96\u6a21\u7d44\u6216\u7a97\u9ad4\u6a21\u7d44\u4e2d\u88ab\u5206\u5225\u8072\u660e\u70ba Private\uff0c\u90a3\u9ebc\u8a72\u8b8a\u91cf\u6709\u6a21\u7d44\u7d1a\u7bc4\u570d\u3002<\/p>\n<p>\u6ce8\u610f\uff1a \u4e00\u81f4\u6027\u662f\u5353\u6709\u6210\u6548\u5730\u4f7f\u7528\u9019\u7a2e\u6280\u8853\u7684\u95dc\u9375\uff1bVisual Basic \u4e2d\u7684\u8a9e\u6cd5\u6aa2\u67e5\u5668\u4e0d\u6703\u64f7\u53d6\u4ee5 &#8220;p.&#8221; \u958b\u982d\u7684\u6a21\u7d44\u7d1a\u8b8a\u91cf\u3002<\/p>\n<p>\u5e38\u91cf<br \/>\n\u5e38\u91cf\u540d\u7684\u4e3b\u9ad4\u662f\u5927\u5c0f\u5beb\u6df7\u5408\u7684\uff0c\u6bcf\u500b\u55ae\u8a5e\u7684\u9996\u5b57\u6bcd\u5927\u5beb\u3002\u5118\u7ba1\u6a19\u6e96 Visual Basic \u5e38\u91cf\u4e0d\u5305\u62ec\u8cc7\u6599\u985e\u578b\u548c\u7bc4\u570d\u8a0a\u606f\uff0c\u4f46\u662f\u8c61 i\u3001s\u3001g \u548c m \u9019\u6a23\u7684\u524d\u7db4\u5c0d\u65bc\u7406\u89e3\u4e00\u500b\u5e38\u91cf\u7684\u503c\u548c\u7bc4\u570d\u9084\u662f\u5f88\u6709\u7528\u7684\u3002\u5c0d\u65bc\u5e38\u91cf\u540d\uff0c\u61c9\u9075\u5faa\u8207\u8b8a\u91cf\u76f8\u540c\u7684\u898f\u5247\u3002\u4f8b\u5982\uff1a<\/p>\n<p>mintUserListMax \u00a0 &#8216;\u5c0d\u4f7f\u7528\u8005\u6e05\u55ae\u7684\u6700\u5927\u9650\u5236<br \/>\n&#8216;(\u6574\u6578\u503c\uff0c\u8fd1\u7aef\u5230\u6a21\u7d44)<br \/>\ngstrNewLine \u00a0  \u00a0  &#8216;\u65b0\u884c\u5b57\u5143<br \/>\n&#8216;(\u5b57\u4e32\uff0c\u5957\u7528\u7a0b\u5f0f\u5168\u5c40\u4f7f\u7528)<\/p>\n<p>\u8b8a\u91cf<br \/>\n\u8072 \u660e\u6240\u6709\u7684\u8b8a\u91cf\u5c07\u6703\u7bc0\u7701\u5beb\u7a0b\u5f0f\u6642\u9593\uff0c\u56e0\u70ba\u9375\u5165\u52d5\u4f5c\u5f15\u8d77\u7684\u932f\u8aa4\u6e1b\u5c11\u4e86\uff08\u4f8b\u5982\uff0c\u7a76\u7adf\u662f aUserNameTmp\uff0c\u9084\u662f sUserNameTmp\uff0c\u9084\u662f sUserNameTemp\uff09\u3002\u5728\u300c\u9078\u9805\u300d\u5c0d\u8a71\u6846\u7684\u300c\u7de8\u8f2f\u5668\u300d\u6a19\u7c64\u4e2d\uff0c\u5fa9\u9078\u300c\u8981\u6c42\u8b8a\u91cf\u8072\u660e\u300d\u9078\u9805\u3002Option Explicit \u8a9e\u53e5\u8981\u6c42\u5728 Visual Basic \u7a0b\u5f0f\u4e2d\u8072\u660e\u6240\u6709\u7684\u8b8a\u91cf\u3002<\/p>\n<p>\u61c9\u8a72\u7d66\u8b8a\u91cf\u52a0\u524d\u7db4\u4f86\u6307\u660e\u5b83\u5011\u7684\u8cc7\u6599\u985e\u578b\u3002\u800c\u4e14\u524d\u7db4\u53ef\u4ee5\u88ab\u5ef6\u4f38\uff0c\u7528\u4f86\u6307\u660e\u8b8a\u91cf\u7bc4\u570d\uff0c\u7279\u5225\u662f\u5c0d\u5927\u578b\u7a0b\u5f0f\u3002<\/p>\n<p>\u7528\u4e0b\u5217\u524d\u7db4\u4f86\u6307\u660e\u4e00\u500b\u8b8a\u91cf\u7684\u8cc7\u6599\u985e\u578b\u3002<\/p>\n<p>\u8b8a\u91cf\u8cc7\u6599\u985e\u578b<\/p>\n<p>\u8cc7\u6599\u985e\u578b \u524d\u7db4 \u4f8b\u5b50<br \/>\nString \uff08\u5b57\u4e32\u985e\u578b\uff09 str strFName<br \/>\nInteger \uff08\u77ed\u6574\u6578\u985e\u578b\uff09 int intQuantity<br \/>\nLong \uff08\u9577\u6574\u6578\u985e\u578b\uff09 lng lngDistance<br \/>\nSingle (\u55ae\u7cbe\u5ea6\u6d6e\u9ede\u6578\u985e\u578b) sng sngAverage<br \/>\nDouble \uff08\u96d9\u7cbe\u5ea6\u6d6e\u9ede\u6578\u985e\u578b\uff09 dbl dblTolerance<br \/>\nBoolean \uff08\u5e03\u723e\u985e\u578b\uff09 bln blnFound<br \/>\nByte \uff08\u4f4d\u5143\u7d44\u985e\u578b\uff09 byt bytRasterData<br \/>\nDate \uff08\u65e5\u671f\u985e\u578b\uff09 dte dteNow<br \/>\nCurrency \uff08\u8ca8\u5e63\u8a08\u7b97\u8207\u5b9a\u9ede\u8a08\u7b97\u985e\u578b\uff09 cur curRevenue<br \/>\nObject \uff08\u7269\u4ef6\u985e\u578b\uff09 obj objCurrent<br \/>\nVariant \uff08\u8b8a\u9ad4\u985e\u578b\uff09 vnt vntCheckSum<\/p>\n<p>\u63cf\u8ff0\u8b8a\u91cf\u548c\u904e\u7a0b\u540d<\/p>\n<p>\u8b8a\u91cf\u6216\u904e\u7a0b\u540d\u7684\u4e3b\u9ad4\u61c9\u8a72\u4f7f\u7528\u5927\u5c0f\u5beb\u6df7\u5408\u5f62\u5f0f\uff0c\u4e26\u4e14\u61c9\u8a72\u8db3\u5920\u9577\u4ee5\u63cf\u8ff0\u5b83\u7684\u4f5c\u7528\u3002\u800c\u4e14\uff0c\u51fd\u6578\u540d\u61c9\u8a72\u4ee5\u4e00\u500b\u52d5\u8a5e\u8d77\u9996\uff0c\u5982 InitNameArray \u6216 CloseDialog\u3002<\/p>\n<p>\u5c0d\u65bc\u983b\u7e41\u4f7f\u7528\u7684\u6216\u9577\u7684\u9805\uff0c\u63a8\u85a6\u4f7f\u7528\u6a19\u6e96\u7e2e\u7565\u8a9e\u4ee5\u4f7f\u540d\u7a31\u7684\u9577\u5ea6\u5408\u7406\u5316\u3002\u4e00\u822c\u4f86\u8aaa\uff0c\u8d85\u904e 32 \u500b\u5b57\u5143\u7684\u8b8a\u91cf\u540d\u5728 VGA \u986f\u793a\u5668\u4e0a\u8b80\u8d77\u4f86\u5c31\u56f0\u96e3\u4e86\u3002<\/p>\n<p>\u7576\u4f7f\u7528\u7e2e\u7565\u8a9e\u6642\uff0c\u8981\u78ba\u4fdd\u5b83\u5011\u5728\u6574\u500b\u5957\u7528\u7a0b\u5f0f\u4e2d\u7684\u4e00\u81f4\u6027\u3002\u5728\u4e00\u500b\u5de5\u7a0b\u4e2d\uff0c\u82e5\u679c\u4e00\u6703\u5152\u4f7f\u7528 Cnt\uff0c \u4e00\u6703\u5152\u4f7f\u7528 Count\uff0c\u5c07\u5c0e\u81f4\u4e0d\u5fc5\u8981\u7684\u6df7\u6dc6\u3002<\/p>\n<p>\u4f7f\u7528\u8005\u5b9a\u7fa9\u7684\u985e\u578b<br \/>\n\u5728\u4e00\u9805\u6709\u8a31\u591a\u4f7f\u7528\u8005\u5b9a\u7fa9\u985e\u578b\u7684\u5927\u5de5\u7a0b\u4e2d\uff0c\u5e38\u5e38\u6709\u5fc5\u8981\u7d66\u6bcf\u7a2e\u985e\u578b\u4e00\u500b\u5b83\u81ea\u5df1\u7684\u4e09\u500b\u5b57\u5143\u7684\u524d\u7db4\u3002\u82e5\u679c\u9019\u4e9b\u524d\u7db4\u662f\u4ee5 &#8220;u&#8221; \u958b\u59cb\u7684\uff0c\u90a3\u9ebc\u7576\u7528\u4e00\u500b\u4f7f\u7528\u8005\u5b9a\u7fa9\u985e\u578b\u4f86\u5de5\u4f5c\u6642\uff0c\u5feb\u901f\u8b58\u5225\u9019\u4e9b\u985e\u578b\u662f\u5f88\u5bb9\u6613\u7684\u3002\u4f8b\u5982\uff0cucli \u53ef\u4ee5\u88ab\u7528\u4f86\u4f5c\u70ba\u4e00\u500b\u4f7f\u7528\u8005\u5b9a\u7fa9\u7684\u5ba2\u6236\u985e\u578b\u8b8a\u91cf\u7684\u524d\u7db4\u3002<\/p>\n<p>[\u8fd4\u56de\u7d22\u5f15]<\/p>\n<p>4\u3001\u5728\u7c21\u55ae\u7684\u9078\u53d6\u689d\u4ef6\u60c5\u6cc1\u4e0b,\u4f7f\u7528IIf()\u51fd\u6578<\/p>\n<p>\u7f85\u7d22\u7684\u4ee3\u78bc\uff1a<br \/>\nIf nNum = 0 Then<br \/>\nsName = &#8220;sancy&#8221;<br \/>\nElse<br \/>\nsName = &#8220;Xu&#8221;<br \/>\nEnd If<\/p>\n<p>\u7c21\u55ae\u7684\u4ee3\u78bc\uff1a<br \/>\nsName=IIf(nNum=0,&#8221;sancy&#8221;,&#8221;Xu&#8221;)<\/p>\n<p>5\u3001\u76e1\u91cf\u4f7f\u7528Debug.Print\u9032\u884c\u9664\u932f<\/p>\n<p>\u5728\u5f88\u591a\u521d\u5b78\u8005\u7684\u9664\u932f\u4e2d,\u7528MsgBox\u4f86\u8ffd\u8e64\u8b8a\u91cf\u503c.\u5176\u5be6\u7528Debug.Print\u4e0d\u50c5\u53ef\u4ee5\u9054\u5230\u540c\u6a23\u7684\u529f\u6548,\u800c\u4e14\u5728\u7a0b\u5f0f\u6700\u5f8c\u7de8\u8b6f\u904e\u7a0b\u4e2d,\u6703\u88ab\u5ffd\u7565.\u800cMsgBox\u5fc5\u9808\u624b\u52d5\u8a3b\u91cb\u6216\u522a\u9664.<\/p>\n<p>\u901a\u5e38\uff1a<br \/>\nMsgBox nName<\/p>\n<p>\u61c9\u8a72\uff1a<br \/>\nDebug.Print nName<\/p>\n<p>6\u3001\u5728\u91cd\u8907\u5c0d\u67d0\u4e00\u5c0d\u8c61\u7684\u5c6c\u6027\u9032\u884c\u4fee\u6539\u6642\uff0c\u76e1\u91cf\u4f7f\u7528With&#8230;.End With<\/p>\n<p>\u901a\u5e38\uff1a<br \/>\nForm1.Height = 5000<br \/>\nForm1.Width = 6000<br \/>\nForm1.Caption = &#8220;This is MyLabel&#8221;<\/p>\n<p>\u61c9\u8a72\uff1a<br \/>\nWith Form1<br \/>\n.Height = 5000<br \/>\n.Width = 6000<br \/>\n.Caption = &#8220;This is MyLabel&#8221;<br \/>\nEnd With<br \/>\n\u9019\u7a2e\u7d50\u69cb\u7a0b\u5f0f\u57f7\u884c\u6548\u7387\u6bd4\u8f03\u9ad8\uff0c\u7279\u5225\u5728\u5faa\u74b0\u8a9e\u53e5\u88e1\u3002<\/p>\n<p>7\u3001MsgBox\u4e2d\u76e1\u91cf\u4f7f\u7528\u6d88\u606f\u5716\u793a\uff0c\u9019\u6a23\u7a0b\u5f0f\u6bd4\u8f03\u6709\u898f\u7bc4<\/p>\n<p>\u4e00\u822c\u4f86\u8aaa<\/p>\n<p>vbInformation \u7528\u4f86\u63d0\u793a\u78ba\u8a8d\u6216\u6210\u529f\u52d5\u4f5c\u7684\u6d88\u606f<\/p>\n<p>vbExclamation \u7528\u4f86\u63d0\u793a\u8b66\u793a\u7684\u6d88\u606f<\/p>\n<p>vbCritical \u7528\u4f86\u63d0\u793a\u5371\u6a5f\u60c5\u6cc1\u7684\u6d88\u606f<\/p>\n<p>vbQuestion \u7528\u4f86\u63d0\u793a\u8a62\u554f\u7684\u6d88\u606f<\/p>\n<p>[\u8fd4\u56de\u7d22\u5f15]<\/p>\n<p>8\u3001\u5728\u53ef\u80fd\u7684\u60c5\u6cc1\u4e0b\u4f7f\u7528\u679a\u8209<\/p>\n<p>\u679a\u8209\u7684\u683c\u5f0f\u70ba<br \/>\n[Public | Private] Enum name<br \/>\nmembername [= constantexpression]<br \/>\nmembername [= constantexpression]<br \/>\n&#8230;.<br \/>\nEnd Enum<\/p>\n<p>Enum \u8a9e\u53e5\u5305\u62ec\u4e0b\u9762\u90e8\u5206\uff1a<\/p>\n<p>\u90e8\u5206 \u63cf\u8ff0<br \/>\nPublic \u53ef\u9078\u7684\u3002\u8868\u793a\u8a72 Enum \u985e\u578b\u5728\u6574\u500b\u5de5\u7a0b\u4e2d\u90fd\u662f\u53ef\u898b\u7684\u3002Enum \u985e\u578b\u7684\u9810\u8a2d\u60c5\u6cc1\u662f Public\u3002<br \/>\nPrivate \u53ef\u9078\u7684\u3002\u8868\u793a\u8a72 Enum \u985e\u578b\u53ea\u5728\u6240\u8072\u660e\u7684\u6a21\u7d44\u4e2d\u662f\u53ef\u898b\u7684\u3002<br \/>\nname \u5fc5\u9700\u7684\u3002\u8a72 Enum \u985e\u578b\u7684\u540d\u7a31\u3002name \u5fc5\u9808\u662f\u4e00\u500b\u5408\u6cd5\u7684 Visual Basic \u6a19\u8b58\u7b26\uff0c\u5728\u5b9a\u7fa9\u8a72 Enum \u985e\u578b\u7684\u8b8a\u91cf\u6216\u53c3\u6578\u6642\u7528\u8a72\u540d\u7a31\u4f86\u6307\u5b9a\u985e\u578b\u3002<br \/>\nmembername \u5fc5\u9700\u7684\u3002\u7528\u65bc\u6307\u5b9a\u8a72 Enum \u985e\u578b\u7684\u7fa4\u7d44\u6210\u5143\u7d20\u540d\u7a31\u7684\u5408\u6cd5 Visual Basic \u6a19\u8b58\u7b26\u3002<br \/>\nconstantexpression \u53ef\u9078\u7684\u3002\u5143\u7d20\u7684\u503c\uff08\u70ba Long \u985e\u578b\uff09\u3002\u53ef\u4ee5\u662f\u5225\u7684 Enum \u985e\u578b\u3002\u82e5\u679c\u6c92\u6709\u6307\u5b9a constantexpression\uff0c\u5247\u6240\u8ce6\u7d66\u7684\u503c\u6216\u662f\u662f 0\uff08\u82e5\u679c\u8a72\u5143\u7d20\u662f\u7b2c\u4e00\u500b membername\uff09\uff0c\u6216\u662f\u6bd4\u5176\u76f4\u63a5\u524d\u9a45\u7684\u503c\u5927 1\u3002<\/p>\n<p>\u8aaa\u660e<br \/>\n\u6240\u8b02\u679a\u8209\u8b8a\u91cf\uff0c\u5c31\u662f\u6307\u7528 Enum \u985e\u578b\u5b9a\u7fa9\u7684\u8b8a\u91cf\u3002\u8b8a\u91cf\u548c\u53c3\u6578\u90fd\u53ef\u4ee5\u5b9a\u7fa9\u70ba Enum \u985e\u578b\u3002Enum \u985e\u578b\u4e2d\u7684\u5143\u7d20\u88ab\u8d77\u59cb\u5316\u70ba Enum \u8a9e\u53e5\u4e2d\u7279\u6b8a\u7684\u5e38\u91cf\u503c\u3002\u6240\u8ce6\u7d66\u7684\u503c\u53ef\u4ee5\u5167\u542b\u6b63\u6578\u548c\u8ca0\u6578\uff0c\u4e14\u5728\u57f7\u884c\u6642\u4e0d\u80fd\u6539\u8b8a\u3002\u4f8b\u5982\uff1a<\/p>\n<p>Enum SecurityLevel IllegalEntry = -1 SecurityLevel1 = 0 SecurityLevel2 = 1 End Enum<\/p>\n<p>Enum \u8a9e\u53e5\u53ea\u80fd\u5728\u6a21\u7d44\u5c64\u7d1a\u4e2d\u51fa\u73fe\u3002\u5b9a\u7fa9 Enum \u985e\u578b\u5f8c\uff0c\u5c31\u53ef\u4ee5\u7528\u5b83\u4f86\u5b9a\u7fa9\u8b8a\u91cf\uff0c\u53c3\u6578\u6216\u8fd4\u56de\u8a72\u985e\u578b\u7684\u904e\u7a0b\u3002\u4e0d\u80fd\u7528\u6a21\u7d44\u540d\u4f86\u9650\u5b9a Enum \u985e\u578b\u3002\u985e\u6a21\u7d44\u4e2d\u7684 Public Enum \u985e\u578b\u4e26\u4e0d\u662f\u8a72\u985e\u7684\u6210\u54e1\uff1b\u53ea\u4e0d\u904e\u5b83\u5011\u4e5f\u88ab\u5beb\u5165\u5230\u985e\u578b\u5eab\u4e2d\u3002\u5728\u6a19\u6e96\u6a21\u7d44\u4e2d\u5b9a\u7fa9\u7684 Enum \u985e\u578b\u5247\u4e0d\u5beb\u5230\u985e\u578b\u5eab\u4e2d\u3002\u5177\u6709\u76f8\u540c\u540d\u5b57\u7684 Public Enum \u985e\u578b\u4e0d\u80fd\u65e2\u5728\u6a19\u6e96\u6a21\u7d44\u4e2d\u5b9a\u7fa9\uff0c\u53c8\u5728\u985e\u6a21\u7d44\u4e2d\u5b9a\u7fa9\uff0c\u56e0\u70ba\u5b83\u5011\u5171\u4eab\u76f8\u540c\u7684\u547d\u540d\u7a7a\u9593\u3002\u82e5\u4e0d\u540c\u7684\u985e\u578b\u5eab\u4e2d\u6709\u5169\u500b Enum \u985e\u578b\u7684\u540d\u5b57\u76f8\u540c\uff0c\u4f46\u6210\u54e1\u4e0d\u540c\uff0c\u5247\u5c0d\u9019\u7a2e\u985e\u578b\u7684\u8b8a\u91cf\u7684\u5f15\u7528\uff0c\u5c07\u53d6\u6c7a\u65bc\u54ea\u4e00\u500b\u985e\u578b\u5eab\u5177\u6709\u66f4\u9ad8\u7684\u5f15\u7528\u512a\u5148\u7d1a\u3002<\/p>\n<p>\u4e0d\u80fd\u5728 With \u584a\u4e2d\u4f7f\u7528 Enum \u985e\u578b\u4f5c\u70ba\u76ee\u7684\u3002<\/p>\n<p>Enum \u8a9e\u53e5\u793a\u4f8b<br \/>\n\u4e0b\u9762\u7684\u793a\u4f8b\u6f14\u793a\u7528 Enum \u8a9e\u53e5\u5b9a\u7fa9\u4e00\u500b\u547d\u540d\u5e38\u91cf\u7684\u96c6\u5408\u3002\u5728\u672c\u4f8b\u4e2d\u662f\u4e00\u4e9b\u53ef\u4ee5\u9078\u53d6\u7684\u5f69\u8272\u5e38\u91cf\u7528\u65bc\u8a2d\u8a08\u8cc7\u6599\u5eab\u7684\u8cc7\u6599\u8f38\u5165\u7a97\u9ad4\u3002<\/p>\n<p>Public Enum InterfaceColors<br \/>\nicMistyRose = &amp;HE1E4FF&amp;<br \/>\nicSlateGray = &amp;H908070&amp;<br \/>\nicDodgerBlue = &amp;HFF901E&amp;<br \/>\nicDeepSkyBlue = &amp;HFFBF00&amp;<br \/>\nicSpringGreen = &amp;H7FFF00&amp;<br \/>\nicForestGreen = &amp;H228B22&amp;<br \/>\nicGoldenrod = &amp;H20A5DA&amp;<br \/>\nicFirebrick = &amp;H2222B2&amp;<br \/>\nEnd Enum<\/p>\n<p>\u597d\u8655\u662f\u52a0\u5feb\u5beb\u7a0b\u5f0f\u901f\u5ea6<\/p>\n","protected":false},"excerpt":{"rendered":"<p>1\u3001&#8221;&amp;&#8221;\u7f6e\u63db&#8221;+&#8221; 2\u3001\u8b8a\u91cf\u547d\u540d\u5927\u5c0f\u5beb\uff0c\u8a9e\u53e5\u932f\u843d\u6709\u79e9 &hellip; <a href=\"https:\/\/jason695.why3s.tw\/wordpress\/2007\/10\/31\/vb%e5%af%ab%e7%a8%8b%e5%bc%8f%e7%9a%84%e5%85%ab%e5%80%8b%e5%84%aa%e8%89%af%e7%bf%92%e6%85%a3\/\" class=\"more-link\">\u95b1\u8b80\u5168\u6587 <span class=\"screen-reader-text\">VB\u5beb\u7a0b\u5f0f\u7684\u516b\u500b\u512a\u826f\u7fd2\u6163<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[2],"tags":[],"class_list":["post-429","post","type-post","status-publish","format-standard","hentry","category-net","no-featured-image"],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/jason695.why3s.tw\/wordpress\/wp-json\/wp\/v2\/posts\/429","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/jason695.why3s.tw\/wordpress\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/jason695.why3s.tw\/wordpress\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/jason695.why3s.tw\/wordpress\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/jason695.why3s.tw\/wordpress\/wp-json\/wp\/v2\/comments?post=429"}],"version-history":[{"count":0,"href":"https:\/\/jason695.why3s.tw\/wordpress\/wp-json\/wp\/v2\/posts\/429\/revisions"}],"wp:attachment":[{"href":"https:\/\/jason695.why3s.tw\/wordpress\/wp-json\/wp\/v2\/media?parent=429"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/jason695.why3s.tw\/wordpress\/wp-json\/wp\/v2\/categories?post=429"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/jason695.why3s.tw\/wordpress\/wp-json\/wp\/v2\/tags?post=429"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}