option explicit
dim s as
string
private
sub command1_click()
cd.filter = "txt|*.txt"
cd.showopen
text1 = cd.filename
endsub
private
sub command2_click()
dim temp as
string, b() as
string, st as
string, m as
string
s = ""
open text1 for input as #1
dountil eof(1)
line input #1, temp
b = split(temp, " ")
m = right(b(0), len(b(0)) - 1)
st = "public property get " & m & "() as " & b(1) & vbcrlf & _
m & "=" & b(0) & vbcrlf & _
"end property" & vbcrlf & _
"public property let " & m & "(byval vnewvalue as " & b(1) & ")" & vbcrlf & _
b(0) & " = vnewvalue" & vbcrlf & _
"end property" & vbcrlf
s = s & st
loop
close #1
text2 = s
endsub
private
sub form_load()
text1 = ""
text2 = ""
endsub
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 程式設計入門
識別符號 使用者在程式設計時定義的名稱。關鍵字 vb中擁有固定含義 不能被重新定義的識別符號。常見關鍵字 as 定義乙個變數 date 日期函式 else 條件語句中的 否則 error 錯誤物件 let 屬性定義的關鍵字 me 當前物件 null 表示變數不包含有效資料 nothing 將物件變數...
個人筆記 VB6 0入門
未定義的變數賦值為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 i...