VB6本身不是.NET架構(gòu)的,要檢測(cè)是否安裝.NET框架,需得VB.NET,代碼如下:
創(chuàng)新互聯(lián)建站專(zhuān)注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù),包含不限于網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站、邊壩網(wǎng)絡(luò)推廣、小程序定制開(kāi)發(fā)、邊壩網(wǎng)絡(luò)營(yíng)銷(xiāo)、邊壩企業(yè)策劃、邊壩品牌公關(guān)、搜索引擎seo、人物專(zhuān)訪、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等,從售前售中售后,我們都將竭誠(chéng)為您服務(wù),您的肯定,是我們最大的嘉獎(jiǎng);創(chuàng)新互聯(lián)建站為所有大學(xué)生創(chuàng)業(yè)者提供邊壩建站搭建服務(wù),24小時(shí)服務(wù)熱線:028-86922220,官方網(wǎng)址:www.cdcxhl.com
'WMI檢查本機(jī)是否安裝了.NET Framework
Public Function IsMSFrameworkInstalled() As Boolean
On Error Resume Next
Dim objWMIService
Dim colItems
Dim objItem
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Product")
For Each objItem In colItems
If InStr(objItem.Name, "Microsoft .NET Framework") 0 Then
IsMSFrameworkInstalled = True
End If
Next
End Function
'調(diào)用:
MsgBox IsMSFrameworkInstalled()
vb6不支持.Net哦
如果你要用VB.Net的話,要裝Visual Studio。你可以用免費(fèi)的Visual Studio Express,微軟官網(wǎng)上有
你可以在vb.net里將你需要的空間做成控件并生成ocx控件或生成dll控件庫(kù),再到vb6里調(diào)用就成了。