巴顿专贴（第四号）：特别技巧专版：十七种可用一行代码完成的技巧：

Question

强！！！！！！！
能不能帮个忙？？？
http://www.csdn.net/Expert/topic/476/476088.shtm
谢谢：）

Answer 1

快速找到选中的OptionButton 
OptionButton控件经常是作为控件数组存在的，要快速找到其中的哪一个被选中，可以使用下面的代码： 
’假设控件数组包含3个OptionButton控件 intSelected = Option(0).Value * 0 - Option(1).Value * 1 - Option(2).Value * 2 
注意，因为第一个操作数总是0，所以上述代码可以精简如下： intSelected = -Option(1).Value - Option(2).Value * 2 

Answer 2

去年的,好东东:VB超频快餐，让我一次用个够！
http://www.etechnic.com.cn/document/20010223/2001022309391501.shtml

Answer 3

 iif的效率好像不怎么高！

Answer 4

循环中使用比较累，但是写出来的代码比较整洁
对于4、字串有效性检测：If IsNull(StrOrg) Or StrOrg="" then可以：If Len(StrOrg & "")<>0 then
len(strorg&"')<>0
strorg&""<>""
哪个好？

Answer 5

：　playyuer(女㊣爱)　
毕竟是(女㊣爱)　!!!!!!!!!!

Answer 6

：　playyuer(女㊣爱)　
毕竟是(女㊣爱)　!!!!!!!!!!

Answer 7

代码究竟是简洁好 还是易读好还没有一个定论，单从效率来讲:
if a=13 then 
   b=true
  else
   b=false
end if
---------------
b=iif(a=13,true,false)
   
这两种写法计算机执行的指令条数都是一样的，谈不上效率谁高谁底巴顿 是吧!

Answer 8

代码究竟是简洁好 还是易读好还没有一个定论，单从效率来讲:
if a=13 then 
   b=true
  else
   b=false
end if
---------------
b=iif(a=13,true,false)
   
这两种写法计算机执行的指令条数都是一样的，谈不上效率谁高谁底巴顿 是吧!

Answer 9

If A=true Then
    C= Not B
Else
    C=  B
End If可以：C=A XOR B
这种方法是一行命令的效率高，因为XOR就是进位，硬件实现的。IF需要更多的计算机原语

Answer 10

13、指定只读CombBox的当前值，如果能确认这个值就在其中，一定不会错，则：  Combbox=CurValue
  
  注意，不可以写成：Combbox.text=CurValue
  前者实际是写 _default 这个属性，而后者则是写Text 因为只读，则会导致错误毫无疑问，这一条是错误的。
我不知道你的“只读CombBox”是什么意思，但是，
哪怕你同时设置某个combobox的 style=2 ,locked=true,enabled=false
只要你能确认这个值就在其list中，使用
Combbox.text=CurValue
就绝对不会出错。实际上，对于combobox ,_default 这个属性后面还是连到TEXT，
这两个属性是完全等价的。

Answer 11

>>编程要讲效率，尽管现在的计算机，速度是不成问题，但是，如果一行代码能完成，为什么要用更多的代码了？我认为把这句话去掉会更好。一行代码效率就高???
一个人写代码，可能是简洁点好，我更偏向于易读
一堆人写代码，一定是易读点好。

Answer 12

同意sandder(包含中)的话：虽然一句话代码较为简洁，但简洁的代码不一定能产生简洁的机器码。盲目地追求代码的简洁也与无数前人总结出的软件工程学不符。我并非针对这个贴子的任何人。实际上大家水平都比我高得太多。但如果让我选择,为了日后维护和可重用性更好，我倒宁愿选择可读性。

Answer 13

快速导出ado.recordset中的数据至文本文件：
dim ExpData as string
dim adoReport as adodb.recordset
........
    adoReport.movefirst
'写标题**************
    ExpData = adoReport.Fields(0).Name
    For I = 1 To adoReport.Fields.Count - 1
        ExpData = ExpData & "," & adoReport.Fields(I).Name
    Next I
    ExpData = ExpData & Chr(10)'取数据，csv格式，只需一句：*******************
    ExpData = ExpData & adoReport.GetString(adClipString, , ",", Chr(10), ",")
    
'存入csv文件，excel等应用程序可直接打开*******************
    dim strFileName as string
    strfilename = "c:\aaa.csv"  '此处可用CommonDialog等生成文件名****
    Open strFileName For Output As #1
    Print #1, ExpData
    Close #1

Answer 14

快速导出ado.recordset中的数据至文本文件：
dim ExpData as string
dim adoReport as adodb.recordset
........
    adoReport.movefirst
'写标题**************
    ExpData = adoReport.Fields(0).Name
    For I = 1 To adoReport.Fields.Count - 1
        ExpData = ExpData & "," & adoReport.Fields(I).Name
    Next I
    ExpData = ExpData & Chr(10)'取数据，csv格式，只需一句：*******************
    ExpData = ExpData & adoReport.GetString(adClipString, , ",", Chr(10), ",")'两句话既可放入剪贴板，粘贴到excel等应用程序中去******************
Clipboard.clear
Clipboard.SetText ExpData    
'存入csv文件，excel等应用程序可直接打开*******************
    dim strFileName as string
    strfilename = "c:\aaa.csv"  '此处可用CommonDialog等生成文件名****
    Open strFileName For Output As #1
    Print #1, ExpData
    Close #1

Answer 15

同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)　
同意withstudy(王永丰)