未定義的變數賦值為0（預設）
dim m as integer, j as integer, x as single, s as string , k
'等效於
dim m%,j%,x!,s$,k
option explicit
private sub text1_lostfocus()
if not isnumeric(text1.text) then
text1.setfocus
text1.text = ""
end if
end sub
private sub text2_lostfocus()
if not isnumeric(text2.text) then
text2.text = ""
text2.setfocus
end if
end sub
private sub text3_gotfocus()
dim x!, y!
x = text1.text
y = text2.text
text3.text = x + y
end sub
執行setfocus時卡死，視窗不響應任何操作，只看見游標在下乙個text一直閃爍（卡死了）
原因未知，筆者操作環境win10，vb版本如下：
在多個使用setfocus的程式裡面出現類似情況。
例子誰是**中如下寫法沒有輸出：
另外一種寫法可以：
put get 針對隨機檔案或者二進位制檔案讀寫
write、print、input、line input針對順序檔案的讀寫操作
input #1,s
write #1,s
模式為binary並且使用get的時候，get #1,,s如果s不夠大可能讀不到任何東西（而且還不報錯）
VB6 0 程式設計入門
識別符號 使用者在程式設計時定義的名稱。關鍵字 vb中擁有固定含義 不能被重新定義的識別符號。常見關鍵字 as 定義乙個變數 date 日期函式 else 條件語句中的 否則 error 錯誤物件 let 屬性定義的關鍵字 me 當前物件 null 表示變數不包含有效資料 nothing 將物件變數...
VB6 0函式集合
一 型別轉換類函式 1.ctype x 格式 p cbool x 將x轉換為 布林 boolean 型別 p cbyte x 將x轉換為 位元組 byte 型別 p ccur x 將x轉換為 金額 currency 型別 p cdate x 將x轉換為 日期 date 型別 p cdbl x 將x轉...
VB6 0 的快捷鍵
工作需要不得不搞vb6.0，那個難受啊 f1 顯示msdn幫助。當然你要安裝msdn，否則得不到真正的幫助了 f2 顯示物件瀏覽器。這裡你可以看到物件的各種屬性 方法與事件 f3 查詢一下個 f4 顯示當前選中控制項的屬性窗體 f5 執行程式 vb.net則是f8了 f7 由窗體設計切換到對應的 窗...