【原創】VB.NET 偷懶手冊

goodhermit95

偷懶前

1. Public Class Form1
   
2. Private Sub Button1_Click(Byval sender As System.Object,Byval e As System.EventArgs)Handles Button1.Click
   
3. If System.IO.File.Exist("C:\windows\regedit.exe") Then
   
4. ToolStripProgressBar1.Value = 0
   
5. ToolStripStatusLabel1.Text = "Registry : File Exist"
   
6. System.Diagnostics.Process.Start("C:\windows\regedit.exe")
   
7. ToolStripProgressBar1.Value = 100
   
8. Else
   
9. ToolStripProgressBar1.Value = 0
   
10. ToolStripStatusLabel1.Text = "Registry : File Doesn't Exist"
    
11. ToolStripProgressBar1.Value = 100
    
12. End If
    
13. End Sub
    
14. End Class

复制代码

偷懶后

1. Imports System
   
2. Imports System.IO
   
3. Imports System.Diagnostics
   
4. Imports System.IO.File
   
5. Public Class Form1
   
6. Private Sub Button1_Click(Byval o As Object,Byval e As EventArgs)Handles Button1.Click
   
7. Dim a As String = "C:\windows\regedit.exe"
   
8. Dim b = ToolStripStatusLabel1.Text
   
9. Dim c = ToolStripProgressBar1.Value
   
10. If Exist(a) Then
    
11. c = 0
    
12. b = "Registry : File Exist"
    
13. Process.Start(a)
    
14. c = 100
    
15. Else
    
16. c = 0
    
17. b = "Registry : File Doesn't Exist"
    
18. c = 100
    
19. End If
    
20. End Sub
    
21. End Class

复制代码

怎么樣？不錯吧？

1. 使用Imports
比如要用到System.IO.File.Exist( ) 的話，你可以這樣

1. Imports System
   
2. Imports System.IO
   
3. Imports System.IO.File

复制代码

過後在程式區就可以這樣

1. Exist( )

复制代码

2. 使用短名字
在Dim，Const，Set ，For…Next等等的東西儘量用短名，比如a，b，c

3. 使用Dim

3.1 使用Dim來簡略字
現在程式區上面輸入（使用第二章的短名偷懶法）

1. Dim a As String
   
2. a = "東西"

复制代码

那么在下面程式區如果用到很多的話就可以派上用場了

1. Textbox1.Text = a
   
2. Textbox2.Text = a
   
3. Textbox3.Text = a

复制代码

3.2 在Dim之後直接放等於
在第3.1單元，可以這樣

1. Dim a As String =  "東西"

复制代码

3.3 用Dim來取代名字

3.3.1 用Dim來取代物件名字
比如ToolStripStatusLabel1，是不是很長？可以這樣

1. Dim a = ToolStripStatusLabel1
   
2. a.Text = "東西"

复制代码

是不是節省很多？

3.3.2 用Dim來取代物件名字+設定
比如在ProgressBar、ToolStripStatusLabel，一直要變動Value、字，可以這樣

1. Dim a = ToolStripStatusLabel1.Text
   
2. Dim b = ProgressBar1.Value
   
3. a = "東西"
   
4. b = 50

复制代码

4. 使用空格、點、等於等等符號偷懶
比如System.Diagnostics.Process.Start("C:\")
可以打為

1. syst<dot>diagn<dot>pro<dot>str("C:\")

复制代码

這個方法很快哦！！

5. 把True & False 改成 1、0
比如Me.Enabled = True、你可以

1. Me.Enabled = 1

复制代码

6. 把Me吃掉
由单元5：直接 Enabled = 1

[ 本帖最后由 goodhermit95 于 2008-10-6 11:18 PM 编辑 ]

goodday

我的方法
你不能记着全部的 a-z 的东西啦
几天后更死

我的
dim strSQL as string = "select * from abc"

str = string 咯
bool = boolean
int = integer
double = dbl

为什么小字母？？

a  == private
A == public

dim arryStrKey as new array

dim objConn as new sqldaaconnection

我的大小的都能 分辨是 object 或 string 还有 public private friend



衰仔进步咯

goodday

董大卫的书厉害吗？？



是不是有书学的比较厉害呢
快呼吁大家买书 学习啦

goodhermit95

噢噢·
原来如此
因为我写的都是小Software所以这样子很快

goodhermit95

肯定啦

不过……我拿他的Sample 那个多手跟他Upgrade到一大堆Error