1樓:
使用sysinfo控制元件,例如
在部件裡新增microsoft sysinfo control 6.0
然後在窗體(暫定叫做form1)上放置一個sysinfo控制元件name屬性設定為「mysysinfo」
準備好另一個窗體「form2」
然後在form1**中新增:
private sub form_load()if mysysinfo.osversion = 5 thenmsgbox "是win2k/xp/2003"
else
msgbox "不是win2k/xp/2003"
load form2
form2.show
unload me
end if
end sub
解釋:windows2000(win2k)的版本號是5.0,xp是5.
1,2003是5.2,版本號為5的系統只有這三個,windowsvista是6.0,win7是6.
1,win9x是4.0,等等。
2樓:匿名使用者
這個比較麻煩,很難弄的,要呼叫api函式的
3樓:匿名使用者
這個我也還不會的,看有沒有知道的人說說。
vb入門問題,關於vb的小問題
也不知道你是不是喜歡學習程式設計。如果不喜歡就應付考試就可以了。喜歡的話,一開始不知道看什麼就上圖書館找書看去吧,看得多了,你就慢慢知道學什麼了。慢慢來吧,做一些實用的小程式,為以後工作打基礎吧。關於vb的小問題 setmynum是一個變數。val表示把括號後面的數轉化為10進位制的數值形式。h是1...
關於VB的小問題,關於VB的一個小問題
程式很經典,text1.text 不是純數字經過 str val text1.text 轉換的結果就不會等於 text1.text。主要還是要了解 val str 函式的作用,val 是將字元 日期 強行轉換為數字,非數字部分則會被 pass 掉,str 則是將數字 日期 轉換成字元。你可以用isn...
VB裡關於Checkbox的小問題
已看到了補充部分,其實下面 就可以實現上述目標,或者你也可以把它放在timer控制元件內實時監視。建議用控制元件陣列check1 index 0 7 然後用下面 判斷即可。當然,不管控制元件陣列元素有多少,下面 均適用 private sub check1 click index as intege...