以下代码是打开(vs2010)→新建项目→双击新建按钮：
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    End Sub
End Class
以下代码是网上的：（问题：如何把以下的代码放入以上的代码中使用？谢谢。）
Imports System.Management
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim disk As ManagementBaseObject , strResult As String
    Dim diskClass = New ManagementClass("Win32_LogicalDisk") , disks As ManagementObjectCollection
    disks = diskClass.GetInstances()
  For Each disk In disks
     strResult = ""
     strResult += "磁盘名称:" & disk("Name") & vbCrLf
     strResult += "磁盘卷标:" & disk("VolumeName") & vbCrLf
      MsgBox(strResult)
  Next
End Sub

[此贴子已经被作者于2017-6-27 10:25编辑过]

'连抄你都不会，以下代码是抄完的结果。


'先命名空间,需要在项目里面先添加引用System.Management
Imports System.Management

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'点击代码内贴代码
        Dim disk As ManagementBaseObject, strResult As String
        Dim diskClass = New ManagementClass("Win32_LogicalDisk"), disks As ManagementObjectCollection
        disks = diskClass.GetInstances()
        For Each disk In disks
            strResult = ""
            strResult += "磁盘名称:" & disk("Name") & vbCrLf
            strResult += "磁盘卷标:" & disk("VolumeName") & vbCrLf
            MsgBox(strResult)
        Next
    End Sub
End Class

[此贴子已经被作者于2017-6-26 12:18编辑过]

收到的鲜花

• HVB6 于 2017-06-27 10:24 送鲜花  7朵  

运行不了，请您试试。谢谢。

需要先在项目==添加引用，System.Management

收到的鲜花

• HVB6 于 2017-06-27 10:23 送鲜花  7朵   附言：好文章

木有，请给个截图。谢谢。

请看下图:

收到的鲜花

• HVB6 于 2017-06-27 10:23 送鲜花  7朵   附言：好文章

哈哈，这是一步一步都教