VB溫標轉換

以下是華氏與攝氏之間轉換的程式設計：

private sub command1_click() '

攝氏→華氏

if trim(text1.text) = "" then text1.text = "0" '

呼叫自定義函式

label3.caption = transth(val(text1.text), true)

label4.caption = "

攝氏度"

label5.caption = "

華氏度"

end sub

private sub command2_click() '

華氏→攝氏

if trim(text1.text) = "" then text1.text = "0" '

呼叫自定義函式

label3.caption = transth(val(text1.text), true)

label4.caption = "

華氏度"

label5.caption = "

攝氏度"

end sub

private function transth(sngt as single, blnctof as boolean) as string

if blnctof then

transth = format(sngt * 9 / 5 + 32, "0.#") '

攝氏→華氏

else

transth = format((sngt - 32) * 5 / 9, "0.#") '

華氏→攝氏

end if

end function

private sub text1_keypress(keyascii as integer) '

文字框鍵盤事件過程

'若案件非數字鍵或回刪鍵，取消按鍵

if not isnumeric(chr(keyascii)) and keyascii <> 8 then

keyascii = 0

end if

end sub

VB型別轉換

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轉換為 雙精度 dou...

型別轉換函式 VB

語法 cbool expression cbyte expression ccur expression cdate expression cdbl expression cdec expression cint expression clng expression csng expression ...

VB中Unicode的轉換

vb本身的字串格式就是unicode，用winsock傳送字串的話，會預設把字串轉換為ansi的格式進行傳送。ansi格式，對於英文符號等仍然使用單位元組，漢字使用雙位元組。如果需要進行轉換的話，可以用strconv來進行。如 dim bytefilename as byte bytefilenam...