广告广告
  加入我的最爱 设为首页 风格修改
首页 首尾
 手机版   订阅   地图  繁体 
您是第 3210 个阅读者
 
发表文章 发表投票 回覆文章
  可列印版   加为IE收藏   收藏主题   上一主题 | 下一主题   
scottyang
数位造型
个人文章 个人相簿 个人日记 个人地图
路人甲
级别: 路人甲 该用户目前不上站
推文 x0 鲜花 x6
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片
推文 x0
[Basic] [分享] VB写程式的八个优良习惯
1、"&"置换"+"
2、变量命名大小写,语句错落有秩,源代码维护方面
3、请养成以下的「物件命名约定」良好习惯
4、在简单的选取条件情况下,使用IIf()函数
5、尽量使用Debug.Print进行除错
6、在重复对某一对象的属性进行修改时,尽量使用With....End With
7、MsgBox中尽量使用消息图示,这样程式比较有规范
8、在i能的情况下使用枚举


1、"&"置换"+"
在很多人的写程式语系中,用「+」来连线字串,这样容易导致歧义。良好的习惯是用「&」来连线字串.

不正确:
Dim sMessage As String
sMessage = "1" + "2"

正确:
Dim sMessage As String
sMessage = "1" & "2"

注意:"&"的后面有个空格

2、变量命名大小写,语句错落有秩,源代码维护方面

下面大家比较一下以下两段代码:

读懂难度很大的代码:

Dim SNAME As String
Dim NTURN As Integer

If NTURN = 0 Then
If SNAME = "vbeden" Then
Do While NTURN < 4
NTURN = NTURN + 1
Loop
End If
End If

容易读懂的代码:

Dim sName As String
Dim nTurn As Integer

If nTurn = 0 Then
If sName = "vbeden" Then
Do While nTurn < 4
nTurn = nTurn + 1
Loop
End If
End If

[返回索引]

3、请养成以下的「物件命名约定」良好习惯

推荐使用的控件前缀

控件类型 前缀 例子
3D Panel pnl pnlGroup
ADO Data ado adoBiblio
Animated button ani aniMailBox
Check box chk chkReadOnly
Combo box, drop-down list box cbo cboEnglish
Command button cmd cmdExit
Common dialog dlg dlgFileOpen
Communications com comFax
Control (当特定类型不详时,在过程中所使用的) ctr ctrCurrent
Data dat datBiblio
Data-bound combo box dbcbo dbcboLanguage
Data-bound grid dbgrd dbgrdQueryResult
Data-bound list box dblst dblstJobType
Data combo dbc dbcAuthor
Data grid dgd dgdTitles
Data list dbl dblPublisher
Data repeater drp drpLocation
Date picker dtp dtpPublished
Directory list box dir dirSource
Drive list box drv drvTarget
File list box fil filSource
Flat scroll bar fsb fsbMove
Form frm frmEntry
Frame fra fraLanguage
Gauge gau gauStatus
Graph gra graRevenue
Grid grd grdPrices
Hierarchical flexgrid flex flexOrders
Horizontal scroll bar hsb hsbVolume
Image img imgIcon
Image combo imgcbo imgcboProduct
ImageList ils ilsAllIcons
Label lbl lblHelpMessage
Lightweight check box lwchk lwchkArchive
Lightweight combo box lwcbo lwcboGerman
Lightweight command button lwcmd lwcmdRemove
Lightweight frame lwfra lwfraSaveOptions
Lightweight horizontal scroll bar lwhsb lwhsbVolume
Lightweight list box lwlst lwlstCostCenters
Lightweight option button lwopt lwoptIncomeLevel
Lightweight text box lwtxt lwoptStreet
Lightweight vertical scroll bar lwvsb lwvsbYear
Line lin linVertical
List box lst lstPolicyCodes
ListView lvw lvwHeadings
MAPI message mpm mpmSentMessage
MAPI session mps mpsSession
MCI mci mciVideo
Menu mnu mnuFileOpen
Month view mvw mvwPeriod
MS Chart ch chSalesbyRegion
MS Flex grid msg msgClients
MS Tab mst mstFirst
OLE container ole oleWorksheet
Option button opt optGender
Picture box pic picVGA
Picture clip clp clpToolbar
ProgressBar prg prgLoadFile
Remote Data rd rdTitles
RichTextBox rtf rtfReport
Shape shp shpCircle
Slider sld sldScale
Spin spn spnPages
StatusBar sta staDateTime
SysInfo sys sysMonitor
TabStrip tab tabOptions
Text box txt txtLastName
Timer tmr tmrAlarm
Toolbar tlb tlbActions
TreeView tre treOrganization
UpDown upd updDirection
Vertical scroll bar vsb vsbRate

--------------------------------------------------------------------------------
推荐使用的资料访问物件 (DAO) 的前缀
用下列前缀来指示资料访问物件
资料库物件 前缀 例子
Container con conReports
Database db dbAccounts
DBEngine dbe dbeJet
Document doc docSalesReport
Field fld fldAddress
Group grp grpFinance
Index ix idxAge
Parameter prm prmJobCode
QueryDef qry qrySalesByRe ..

访客只能看到部份内容,免费 加入会员 或由脸书 Google 可以看到全部内容




献花 x2 回到顶端 [楼 主] From:台湾中华电信 | Posted:2005-10-02 17:18 |
kuuga
数位造型
个人文章 个人相簿 个人日记 个人地图
小有名气
级别: 小有名气 该用户目前不上站
推文 x0 鲜花 x22
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

看了很久,有些部份,还看不懂(因为自己是初学者)。
不过,有些地方,实作了一下。真的好棒呀。谢谢。



好想看『明智小五郎 对 怪人二十面相』哦。
田村正和好帅
献花 x0 回到顶端 [1 楼] From:APNIC | Posted:2005-10-04 22:58 |
wensing
数位造型
个人文章 个人相簿 个人日记 个人地图
初露锋芒
级别: 初露锋芒 该用户目前不上站
推文 x0 鲜花 x11
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

呵呵..
今天又学到东西噜...
看来以后写VB的时候该注意注意了^^~~
感谢大大的分享喔^^~ 表情


献花 x0 回到顶端 [2 楼] From:台湾中华电信 | Posted:2005-10-10 23:10 |
xxx1474 手机
个人头像
个人文章 个人相簿 个人日记 个人地图
小人物
级别: 小人物 该用户目前不上站
推文 x0 鲜花 x15
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

1.我是乖宝宝我都用&
2.我写大程式都会用大小分明的变数~(小程式就... 表情 )
3.[初心者]看不大懂 表情 不过好像是说一些变数名词要有规范的使用吧
4.IIF函数常常用~简短那几个byte我也爽 表情
5.Debug.Print偶尔用说XD
6.用那个可以剪短程式码长度二来又可以看得清清楚楚~
7.我常用~~不用那种药用啥= =?用数字?我记不起来~"~
8.枚举→有看没有懂~又是初心者害的 表情 ~


献花 x0 回到顶端 [3 楼] From:台湾中华电信 | Posted:2005-11-01 01:28 |
芦洲阿良
个人头像
个人文章 个人相簿 个人日记 个人地图
小人物
级别: 小人物 该用户目前不上站
推文 x0 鲜花 x3
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

谢谢分享这么多的小习惯
我以后会注意的
现在虽然不是很重要
但是以后程式越来越复杂的时候
这些细节就很重要了!


献花 x0 回到顶端 [4 楼] From:台湾教育部 | Posted:2005-11-10 15:04 |
v855617
个人文章 个人相簿 个人日记 个人地图
初露锋芒
级别: 初露锋芒 该用户目前不上站
推文 x0 鲜花 x20
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

还有一点 写程式要写注解
另外 就是好的程式不见得要用到很特殊的指令
写出的程式让人好懂 好维护
至于速度 得要多动能 有空可以翻翻资料结构相关书籍


献花 x0 回到顶端 [5 楼] From:台湾台湾宽频 | Posted:2005-12-01 01:13 |
gohere
数位造型
个人文章 个人相簿 个人日记 个人地图
小人物
级别: 小人物 该用户目前不上站
推文 x0 鲜花 x12
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

对于"&"置换"+" 这一点
如果我上课没听错的话
"+" 好像是 VB.NET 用来取代 VB6.0 大家常用 的 "&"

不知道我的观念对不对,请大家指教


献花 x0 回到顶端 [6 楼] From:台湾中华电信 | Posted:2005-12-07 12:17 |

首页  发表文章 发表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.017370 second(s),query:16 Gzip disabled
本站由 瀛睿律师事务所 担任常年法律顾问 | 免责声明 | 本网站已依台湾网站内容分级规定处理 | 连络我们 | 访客留言