JBTALKS.CC

标题: 【原創】VB.NET 偷懶手冊 [打印本页]
作者: goodhermit95    时间: 2008-10-6 08:51 PM
标题: 【原創】VB.NET 偷懶手冊
偷懶前
  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    时间: 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



衰仔进步咯
作者: goodday    时间: 2008-10-6 09:39 PM
董大卫的书厉害吗？？



是不是有书学的比较厉害呢
快呼吁大家买书 学习啦
作者: goodhermit95    时间: 2008-10-6 11:19 PM
标题: 回复 #2 goodday 的帖子
噢噢·
原来如此
因为我写的都是小Software所以这样子很快
作者: goodhermit95    时间: 2008-10-6 11:20 PM
标题: 回复 #3 goodday 的帖子
肯定啦

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



欢迎光临 JBTALKS.CC (https://www.jbtalks.cc/) Powered by Discuz! X2.5