vb.net例程集锦(13)

原作者:kuku 添加时间:2007-06-02 原文发表:2007-06-02 人气:44 来源：互联网

本文章共28074字，分19页，当前第13页，快速翻页：

-----------------------------------------------------------------------------------------------------------------------------------------------

本文提示：《vb.net例程集锦(13)》是本站编辑们为广大网友精选的实用文章，本文阐述了关于文章的相关理论，相对来说专业性强，但是本文只是针对于某个问题提出的见解与论述，未必能辐射到相关问题的方方面面，所以本文处理问题的方法仅仅为您提供一些参考。更多问题请查阅学习中国网其他栏目哦.

-----------------------------------------------------------------------------------------------------------------------------------------------

processtype = \"Intel Xeon \"
Case 180
processtype = \"AS400 Family \"
Case 181
processtype = \"Intel Xeon processor MP \"
Case 182
processtype = \"AMD AthlonXP Family \"
Case 183
processtype = \"AMD AthlonMP Family \"
Case 184
processtype = \"Intel Itanium 2 \"
Case 185
processtype = \"AMD Opteron Family \"
Case 190
processtype = \"K7 \"
Case 200
processtype = \"IBM390 Family \"
Case 201
processtype = \"G4 \"
Case 202
processtype = \"G5 \"
Case 250
processtype = \"i860 \"
Case 251
processtype = \"i960 \"
Case 260
processtype = \"SH-3 \"
Case 261
processtype = \"SH-4 \"
Case 280
processtype = \"ARM \"
Case 281
processtype = \"StrongARM \"
Case 300
processtype = \"6x86 \"
Case 301
processtype = \"MediaGX \"
Case 302
processtype = \"MII \"
Case 320
processtype = \"WinChip \"
Case 350
processtype = \"DSP \"
Case 500
processtype = \"Video Processor \"
End Select
ListBox1.Items.Add(\"Family: \" & processtype)

End Function
Function CpuStat(ByVal CpuStNUM)
Dim stat
Select Case CpuStNUM
Case 0
stat = \"Unknown \"
Case 1
stat = \"CPU Enabled \"
Case 2
stat = \"CPU Disabled by User via BIOS Setup \"
Case 3
stat = \"CPU Disabled By BIOS (POST Error) \"
Case 4
stat = \"CPU is Idle \"
Case 5
stat = \"Reserved \"
Case 6
stat = \"Reserved \"
Case 7
stat = \"Other \"
End Select
ListBox1.Items.Add(\"CpuStatus: \" & stat)
End Function
Function processortype(ByVal proctypenum)
Dim proctype
Select Case proctypenum
Case 1
proctype = \"Other \"
Case 2
proctype = \"Unknown \"
Case 3
proctype = \"Central Processor \"
Case 4
proctype = \"Math Processor \"
Case 5
proctype = \"DSP Processor \"
Case 6
proctype = \"Video Processor \"
End Select
ListBox1.Items.Add(\"Processor Type: \" & proctype)

End Function
End Class

得到CD-ROM信息
Imports System.Management
Public Class Form1
Inherits System.Windows.Forms.Form

#Region \" Windows 窗体设计器生成的代码 \"

Public Sub New()
MyBase.New()

\'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()

\'在 InitializeComponent() 调用之后添加任何初始化

End Sub

\'窗体重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

\'Windows 窗体设计器所必需的
\'注意: 以下过程是 Windows 窗体设计器所必需的
\'可以使用 Windows 窗体设计器修改此过程。
\'不要使用代码编辑器修改它。
Private components As System.ComponentModel.IContainer

本文章更多内容：<<上一页 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - 11 - 12 - 13 - 14 - 15 - 16 - 17 - 18 - 19 - 下一页>>

本页地址