1、如果一行程式太長，能不能換行？
vb的程式**是允許換行書寫的，只要在每次換行的最後乙個字元加上換行字元
「_」就可以了。例如：
sub picmove()
frm.picture2.left = frm.picture1.left + _ 』
加上換行符
frm.picture1.width
end sub
2、如何在設計的時候清空存在的？
用滑鼠點中該，在屬性視窗中選中
picture
屬性，按
del鍵便可清空。
3、visual basic 如何注釋一段較長程式**？
vb注釋程式**的符號是
「'」，只要在某行程式前面加上
「'」，就可以注釋該行程式。但如果程式**很長的時候，一行一行地注釋令人覺得難以忍受。
vb本身提供了這個功能，在主選單「檢視
」選項的
「工具欄
」下，選中
edit，vb
的介面會出現一排工具按鈕，其中的手形圖示按鈕後的兩個按鈕用於
「設定注釋塊」和
「解除注釋塊」。
4、怎麼實現滑鼠一移上去就出現小提示視窗的功能？
vb 裡每個控制項都有tooltiptext屬性，只要加上一行程式就可以了。
例如：label1.tooltiptext = "這是提示！"。
5、 如何獲得當前軟體的執行磁碟目錄和命令列引數？
vb提供的系統控制項一般都有mousepointer和mouseicon屬性。我們可以尋找自己喜歡的*.ico,*.cur檔案，實現的程式如下：
screen.mousepointer= 99 』使用者滑鼠型別
screen.mouseicon=loadpicture("c:/abc/1.ico") 』讀取滑鼠的圖示檔案
7、如何設定程式的錯誤出口？
on error語句用於程式的錯誤出口處理。一般的處理方法有兩種。
1) 遇到錯誤跳轉到某一行程式去執行，on error goto someline。
例如：
on error goto err_line
...
label1.caption=「正確執行」
err_line:
...
label1.caption=「出錯了！」
2) 遇到錯誤之後忽略當前錯誤，繼續執行，on error resume next。
例如：
on error resume next
...
label1.caption=「不管對不對都要執行」
...
8、怎樣獲得鍵盤輸入和判斷敲鍵的ascii值？
把窗體的keypreview屬性設定成true，然後在form_keypress 事件裡編寫程式**如下：
private sub form_keypress(keyascii as integer)
me.caption = str(keyascii) 『取得鍵盤輸入的字元
...
end sub
9、我希望窗體一執行就在螢幕的**，怎麼實現？
vb的系統物件screen記錄了當前顯示模式的高度和寬度，可以利用這個值來設定窗體的位置。
sub centerform(frm as form) 『定義過程
frm.move (screen.width - frm.width) / 2, (screen.height - frm.height) / 2
end sub
private sub form_load()
centerform me 』呼叫過程
end sub
10、很多軟體都有滑鼠在文字框textbox一按下，就選中所有文字的功能，是怎麼實現的？
private sub text1_gotfocus()
text1.selstart = 0
text1.sellength = len(text1.text) 』過程呼叫
end sub
Visual Basic10個小程式設計
1 如果一行程式太長，能不能換行？vb的程式 是允許換行書寫的，只要在每次換行的最後乙個字元加上換行字元 就可以了。例如 sub picmove frm.picture2.left frm.picture1.left 加上換行符 frm.picture1.width end sub 2 如何在設計的...
10個Python小技巧
flag true if flag x 1else x 2print x 簡化形式 flag true x 1 if flag else 2 print x sum 0 for i in range 0,101 sum i print sum 利用求和函式sum print sum range 0,...
10個jQuery小技巧
收集的10個 jquery 小技巧 片段，可以幫你快速開發。1.返回頂部按鈕 你可以利用animate和scrolltop來實現返回頂部的動畫，而不需要使用其他外掛程式。1 a.top click function 800 3return false 4 改變scrolltop的值可以調整返回距離頂...