编码规范_vb.htm

delphi&java&visul c++的各种语言的编程规范,语言通俗易懂,编程高手的心得!

<p class=MsoNormal style='margin-top:6.0pt;margin-right:0cm;margin-bottom:6.0pt;
margin-left:0cm'><span lang=EN-US style='font-size:9.0pt;font-family:"\000B";
color:black'><br>
</span><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:"\000B";
mso-hansi-font-family:"\000B";color:black'>应该用一致的前缀来命名对象，使人们容易识别对象的类型。下面列出了</span><span
lang=EN-US style='font-size:9.0pt;font-family:"\000B";color:black'> Visual
Basic </span><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:
"\000B";mso-hansi-font-family:"\000B";color:black'>支持的一些推荐使用的对象约定。</span><span
lang=EN-US style='font-size:9.0pt;font-family:"\000B";color:black'><br>
<br>
</span><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:"\000B";
mso-hansi-font-family:"\000B";color:black'>推荐使用的控件前缀</span><span lang=EN-US
style='font-size:9.0pt;font-family:"\000B";color:black'><br>
</span><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:"\000B";
mso-hansi-font-family:"\000B";color:black'>控件类型</span><span style='font-size:
9.0pt;font-family:"\000B";color:black'> </span><span style='font-size:9.0pt;
font-family:宋体;mso-ascii-font-family:"\000B";mso-hansi-font-family:"\000B";
color:black'>前缀</span><span style='font-size:9.0pt;font-family:"\000B";
color:black'> </span><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:
"\000B";mso-hansi-font-family:"\000B";color:black'>例子</span><span lang=EN-US
style='font-size:9.0pt;font-family:"\000B";color:black'> <br>
3D Panel&nbsp;&nbsp;pnl pnlGroup <br>
ADO Data ado adoBiblio <br>
Animated button ani aniMailBox <br>
Check box chk chkReadOnly <br>
Combo box, drop-down list box cbo cboEnglish <br>
Command button cmd cmdExit <br>
Common dialog&nbsp;&nbsp;dlg dlgFileOpen <br>
Communications&nbsp;&nbsp;com comFax <br>
Control </span><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:
"\000B";mso-hansi-font-family:"\000B";color:black'>（当特定类型未知时，在过程中所使用的）</span><span
lang=EN-US style='font-size:9.0pt;font-family:"\000B";color:black'> ctr
ctrCurrent <br>
Data dat datBiblio <br>
Data-bound combo box dbcbo dbcboLanguage <br>
Data-bound grid dbgrd dbgrdQueryResult <br>
Data-bound list box dblst dblstJobType <br>
Data combo dbc dbcAuthor <br>
Data grid dgd dgdTitles <br>
Data list dbl dblPublisher <br>
Data repeater drp drpLocation <br>
Date picker dtp dtpPublished <br>
Directory list box dir dirSource <br>
Drive list box drv drvTarget <br>
File list box fil filSource <br>
Flat scroll bar fsb fsbMove <br>
Form frm frmEntry <br>
Frame fra fraLanguage <br>
Gauge gau gauStatus <br>
Graph gra graRevenue <br>
Grid grd grdPrices <br>
Hierarchical flexgrid flex flexOrders <br>
Horizontal scroll bar hsb hsbVolume <br>
Image img imgIcon <br>
Image combo imgcbo imgcboProduct <br>
ImageList ils ilsAllIcons <br>
Label lbl lblHelpMessage <br>
Lightweight check box lwchk lwchkArchive <br>
Lightweight combo box lwcbo lwcboGerman <br>
Lightweight command button lwcmd lwcmdRemove <br>
Lightweight frame lwfra lwfraSaveOptions <br>
Lightweight horizontal scroll bar lwhsb lwhsbVolume <br>
Lightweight list box lwlst lwlstCostCenters <br>
Lightweight option button lwopt lwoptIncomeLevel <br>
Lightweight text box lwtxt lwoptStreet <br>
Lightweight vertical scroll bar lwvsb lwvsbYear <br>
Line lin linVertical <br>
List box lst lstPolicyCodes <br>
ListView lvw lvwHeadings <br>
MAPI message mpm mpmSentMessage <br>
MAPI session mps mpsSession <br>
MCI mci mciVideo <br>
Menu mnu mnuFileOpen <br>
Month view mvw mvwPeriod <br>
MS Chart ch chSalesbyRegion <br>
MS Flex grid msg msgClients <br>
MS Tab&nbsp;&nbsp;mst mstFirst <br>
OLE container ole oleWorksheet <br>
Option button opt optGender <br>
Picture box pic picVGA <br>
Picture clip clp clpToolbar <br>
ProgressBar prg prgLoadFile <br>
Remote Data rd rdTitles <br>
RichTextBox rtf rtfReport <br>
Shape shp shpCircle <br>
Slider sld sldScale <br>
Spin spn spnPages <br>
StatusBar sta staDateTime <br>
SysInfo sys sysMonitor <br>
TabStrip tab tabOptions <br>
Text box txt txtLastName <br>
Timer tmr tmrAlarm <br>
Toolbar tlb tlbActions <br>
TreeView tre treOrganization <br>
UpDown upd updDirection <br>
Vertical scroll bar vsb vsbRate <br>
<br>
<br>
</span><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:"\000B";
mso-hansi-font-family:"\000B";color:black'>推荐使用的数据访问对象</span><span lang=EN-US
style='font-size:9.0pt;font-family:"\000B";color:black'> (DAO) </span><span
style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:"\000B";
mso-hansi-font-family:"\000B";color:black'>的前缀</span><span lang=EN-US
style='font-size:9.0pt;font-family:"\000B";color:black'><br>
</span><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:"\000B";
mso-hansi-font-family:"\000B";color:black'>用下列前缀来指示数据访问对象。</span><span
lang=EN-US style='font-size:9.0pt;font-family:"\000B";color:black'><br>
<br>
</span><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:"\000B";
mso-hansi-font-family:"\000B";color:black'>数据库对象</span><span style='font-size:
9.0pt;font-family:"\000B";color:black'> </span><span style='font-size:9.0pt;
font-family:宋体;mso-ascii-font-family:"\000B";mso-hansi-font-family:"\000B";
color:black'>前缀</span><span style='font-size:9.0pt;font-family:"\000B";
color:black'> </span><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:
"\000B";mso-hansi-font-family:"\000B";color:black'>例子</span><span lang=EN-US
style='font-size:9.0pt;font-family:"\000B";color:black'> <br>
Container con conReports <br>
Database db dbAccounts <br>
DBEngine dbe dbeJet <br>
Document doc docSalesReport <br>
Field fld fldAddress <br>
Group grp grpFinance <br>
Index ix idxAge <br>
Parameter prm prmJobCode <br>
QueryDef&nbsp;&nbsp;qry qrySalesByRegion <br>
Recordset rec recForecast <br>
Relation rel relEmployeeDept <br>
TableDef tbd tbdCustomers <br>
User usr usrNew <br>
Workspace wsp wspMine <br>
<br>
<br>
</span><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:"\000B";
mso-hansi-font-family:"\000B";color:black'>一些例子：</span><span lang=EN-US
style='font-size:9.0pt;font-family:"\000B";color:black'><br>
<br>
Dim dbBiblio As Database<br>
Dim recPubsInNY As Recordset, strSQLStmt As String<br>
Const DB_READONLY =
4&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;' </span><span
style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:"\000B";
mso-hansi-font-family:"\000B";color:black'>设置常量。</span><span lang=EN-US
style='font-size:9.0pt;font-family:"\000B";color:black'><br>
'</span><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:"\000B";
mso-hansi-font-family:"\000B";color:black'>打开数据库。</span><span lang=EN-US
style='font-size:9.0pt;font-family:"\000B";color:black'><br>
Set dbBiblio = OpenDatabase(&quot;BIBLIO.MDB&quot;)<br>
' </span><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:
"\000B";mso-hansi-font-family:"\000B";color:black'>为</span><span lang=EN-US
style='font-size:9.0pt;font-family:"\000B";color:black'>SQL </span><span
style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:"\000B";
mso-hansi-font-family:"\000B";color:black'>语句设置文本。</span><span lang=EN-US
style='font-size:9.0pt;font-family:"\000B";color:black'><br>
strSQLStmt = &quot;SELECT * FROM Publishers WHERE _<br>
&nbsp;&nbsp; State = 'NY'&quot;<br>
' </span><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:
"\000B";mso-hansi-font-family:"\000B";color:black'>创建新的记录集对象。</span><span
lang=EN-US style='font-size:9.0pt;font-family:"\000B";color:black'><br>
Set recPubsInNY = db.OpenRecordset(strSQLStmt, _<br>
&nbsp;&nbsp; dbReadOnly)<br>
<br>
</span><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:"\000B";
mso-hansi-font-family:"\000B";color:black'>推荐使用的菜单前缀</span><span lang=EN-US
style='font-size:9.0pt;font-family:"\000B";color:black'><br>
</span><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:"\000B";
mso-hansi-font-family:"\000B";color:black'>应用程序频繁使用许多菜单控件，对于这些控件具备一组唯一的命名约定很实用。除了最前面</span><span
lang=EN-US style='font-size:9.0pt;font-family:"\000B";color:black'>
&quot;mnu&quot; </span><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:
"\000B";mso-hansi-font-family:"\000B";color:black'>标记以外，菜单控件的前缀应该被扩展：对每一级嵌套增加一个附加前缀，将最终的菜单的标题放在名称字符串的最后。下表列出了一些例子。</span><span
lang=EN-US style='font-size:9.0pt;font-family:"\000B";color:black'><br>
<br>
</span><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:"\000B";
mso-hansi-font-family:"\000B";color:black'>菜单标题序列</span><span
style='font-size:9.0pt;font-family:"\000B";color:black'> </span><span
style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:"\000B";
mso-hansi-font-family:"\000B";color:black'>菜单处理器名称</span><span lang=EN-US
style='font-size:9.0pt;font-family:"\000B";color:black'> <br>
File Open mnuFileOpen <br>
File Send Email mnuFileSendEmail <br>
File Send Fax&nbsp;&nbsp;mnuFileSendFax <br>
Format Character mnuFormatCharacter <br>
Help Contents mnuHelpContents <br>
<br>
<br>
</span><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:"\000B";
mso-hansi-font-family:"\000B";color:black'>当使用这种命名约定时，一个特定的菜单组的所有成员一个接一个地列在</span><span
lang=EN-US style='font-size:9.0pt;font-family:"\000B";color:black'> Visual
Basic </span><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:
"\000B";mso-hansi-font-family:"\000B";color:black'>的“属性”窗口中。而且，菜单控件的名字清楚地表示出它们所属的菜单项。</span><span
lang=EN-US style='font-size:9.0pt;font-family:"\000B";color:black'><br>
<br>
</span><span style='font-size:9.0pt;font-family:宋体;mso-ascii-font-family:"\000B";
mso-hansi-font-family:"\000B";color:black'>为其它控件选择前缀</span><span lang=EN-US
style='font-size:9.0pt;font-family:"\000B";color:black'><br>