VB查看DIRECTX 版本
生活随笔
收集整理的這篇文章主要介紹了
VB查看DIRECTX 版本
小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.
'引用Windows Scripting Host Object
Dim regwsh, Value, DValue, temp As String
Set regwsh = New IWshShell_Class
DValue = regwsh.RegRead("HKLM/SOFTWARE/MICROSOFT/DirectX/InstalledVersion")
Value = regwsh.RegRead("HKLM/SOFTWARE/MICROSOFT/DirectX/Version")
For i = LBound(DValue) To UBound(DValue)
? temp = temp & DValue(i)
Next i
MsgBox "您機器DirectX版本為 :" & vbCrLf & "DirectX " & Mid(temp, 4, 1) & "." & _
Right(temp, 1) & "(" & Value & ")"
Set regwsh = Nothing
?
總結(jié)
以上是生活随笔為你收集整理的VB查看DIRECTX 版本的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： Windows8和Windows10系统
- 下一篇： SD卡接口定义