16,554
社区成员
发帖
与我相关
我的任务
分享
Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
Me.ContextMenuStrip1.Enabled = False
If Me.ListView1.SelectedItems.Count > 0 Then
Select Case Me.ListView1.SelectedItems(0).Text
Case Me.ListView1.Items(0).Text, Me.ListView1.Items(1).Text
Me.ContextMenuStrip1.Enabled = True
End Select
End If
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
With ListView1
Dim i As Int16
For i = 0 To .SelectedItems.Count - 1
Select Case Trim(.SelectedItems(i).Text)
Case "本機磁碟(C:)", "本機磁碟(E:)"
.ContextMenu = ContextMenu1
Case Else
.ContextMenu = Nothing
End Select
Next
End With
End Sub