Visual Basic10個小程式設計

2021-04-13 07:17:12 字數 2352 閱讀 6679

1、如果一行程式太長,能不能換行?

vb的程式**是允許換行書寫的,只要在每次換行的最後乙個字元加上換行字元

「_」就可以了。例如:

sub picmove()

frm.picture2.left = frm.picture1.left + _ 』

加上換行符

frm.picture1.width

end sub

2如何在設計的時候清空存在的?

用滑鼠點中該,在屬性視窗中選中

picture

屬性,按

del鍵便可清空。

3visual basic如何注釋一段較長程式**?

vb注釋程式**的符號是

「'」,只要在某行程式前面加上

「'」,就可以注釋該行程式。但如果程式**很長的時候,一行一行地注釋令人覺得難以忍受。

vb本身提供了這個功能,在主選單「檢視

」選項的

「工具欄

」下,選中

edit,vb

的介面會出現一排工具按鈕,其中的手形圖示按鈕後的兩個按鈕用於

「設定注釋塊」和

「解除注釋塊」。

4、怎麼實現滑鼠一移上去就出現小提示視窗的功能?

vb 裡每個控制項都有tooltiptext屬性,只要加上一行程式就可以了。

例如:label1.tooltiptext = "這是提示!"。

5、 如何獲得當前軟體的執行磁碟目錄和命令列引數?

vb提供的系統控制項一般都有mousepointer和mouseicon屬性。我們可以尋找自己喜歡的*.ico,*.cur檔案,實現的程式如下:

screen.mousepointer= 99 』使用者滑鼠型別

screen.mouseicon=loadpicture("c:abc1.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的值可以調整返回距離頂...