查看: 1811|回复: 4

【原創】VB.NET 偷懶手冊

[复制链接]

goodhermit95

2008-10-6 08:51 PM

偷懶前

Public Class Form1
Private Sub Button1_Click(Byval sender As System.Object,Byval e As System.EventArgs)Handles Button1.Click
If System.IO.File.Exist("C:\windows\regedit.exe") Then
ToolStripProgressBar1.Value = 0
ToolStripStatusLabel1.Text = "Registry : File Exist"
System.Diagnostics.Process.Start("C:\windows\regedit.exe")
ToolStripProgressBar1.Value = 100
Else
ToolStripProgressBar1.Value = 0
ToolStripStatusLabel1.Text = "Registry : File Doesn't Exist"
ToolStripProgressBar1.Value = 100
End If
End Sub
End Class

复制代码

偷懶后

Imports System
Imports System.IO
Imports System.Diagnostics
Imports System.IO.File
Public Class Form1
Private Sub Button1_Click(Byval o As Object,Byval e As EventArgs)Handles Button1.Click
Dim a As String = "C:\windows\regedit.exe"
Dim b = ToolStripStatusLabel1.Text
Dim c = ToolStripProgressBar1.Value
If Exist(a) Then
c = 0
b = "Registry : File Exist"
Process.Start(a)
c = 100
Else
c = 0
b = "Registry : File Doesn't Exist"
c = 100
End If
End Sub
End Class

复制代码

怎么樣？不錯吧？

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

Imports System
Imports System.IO
Imports System.IO.File

复制代码

過後在程式區就可以這樣

Exist( )

复制代码

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

3. 使用Dim

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

Dim a As String
a = "東西"

复制代码

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

Textbox1.Text = a
Textbox2.Text = a
Textbox3.Text = a

复制代码

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

Dim a As String = "東西"

复制代码

3.3 用Dim來取代名字

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

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

复制代码

是不是節省很多？

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

Dim a = ToolStripStatusLabel1.Text
Dim b = ProgressBar1.Value
a = "東西"
b = 50

复制代码

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

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

复制代码

這個方法很快哦！！

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

Me.Enabled = 1

复制代码

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

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

goodday

2008-10-6 09:37 PM

我的方法
你不能记着全部的 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