本文整理汇总了VB.NET中System.ConsoleKeyInfo.Equals方法的典型用法代码示例。如果您正苦于以下问题：VB.NET ConsoleKeyInfo.Equals方法的具体用法？VB.NET ConsoleKeyInfo.Equals怎么用？VB.NET ConsoleKeyInfo.Equals使用的例子？那么恭喜您, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在类System.ConsoleKeyInfo的用法示例。
在下文中一共展示了ConsoleKeyInfo.Equals方法的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: Sample
' This example demonstrates the ConsoleKeyInfo.Equals() method.
Imports System.Text
Class Sample
Public Shared Sub Main()
Dim k1 As String = vbCrLf & "Enter a key ......... "
Dim k2 As String = vbCrLf & "Enter another key ... "
Dim key1 As String = ""
Dim key2 As String = ""
Dim areKeysEqual As String = "The {0} and {1} keys are {2}equal."
Dim equalValue As String = ""
Dim prompt As String = "Press the escape key (ESC) to quit, " & _
"or any other key to continue."
Dim cki1 As ConsoleKeyInfo
Dim cki2 As ConsoleKeyInfo
'
' The Console.TreatControlCAsInput property prevents this example from
' ending if you press CTL+C, however all other operating system keys and
' shortcuts, such as ALT+TAB or the Windows Logo key, are still in effect.
'
Console.TreatControlCAsInput = True
' Request that the user enter two key presses. A key press and any
' combination shift, CTRL, and ALT modifier keys is permitted.
Do
Console.Write(k1)
cki1 = Console.ReadKey(False)
Console.Write(k2)
cki2 = Console.ReadKey(False)
Console.WriteLine()
'
key1 = KeyCombination(cki1)
key2 = KeyCombination(cki2)
If cki1.Equals(cki2) Then
equalValue = ""
Else
equalValue = "not "
End If
Console.WriteLine(areKeysEqual, key1, key2, equalValue)
'
Console.WriteLine(prompt)
cki1 = Console.ReadKey(True)
Loop While cki1.Key <> ConsoleKey.Escape
End Sub
' Note: This example requires the Escape (Esc) key.
' The KeyCombination() method creates a string that specifies what
' key and what combination of shift, CTRL, and ALT modifier keys
' were pressed simultaneously.
Protected Shared Function KeyCombination(ByVal sourceCki As ConsoleKeyInfo) As String
Dim sb As New StringBuilder()
sb.Length = 0
Dim keyCombo As String
If sourceCki.Modifiers <> 0 Then
If(sourceCki.Modifiers And ConsoleModifiers.Alt) <> 0 Then
sb.Append("ALT+")
End If
If(sourceCki.Modifiers And ConsoleModifiers.Shift) <> 0 Then
sb.Append("SHIFT+")
End If
If(sourceCki.Modifiers And ConsoleModifiers.Control) <> 0 Then
sb.Append("CTL+")
End If
End If
sb.Append(sourceCki.Key.ToString())
keyCombo = sb.ToString()
Return keyCombo
End Function 'KeyCombination
End Class输出：
Enter a key ......... a Enter another key ... a The A and A keys are equal. Press the escape key (ESC) to quit, or any other key to continue. Enter a key ......... a Enter another key ... A The A and SHIFT+A keys are not equal. Press the escape key (ESC) to quit, or any other key to continue. Enter a key ......... S Enter another key ... The ALT+SHIFT+S and ALT+CTL+F keys are not equal. Press the escape key (ESC) to quit, or any other key to continue. Enter a key ......... Enter another key ... The UpArrow and UpArrow keys are equal. Press the escape key (ESC) to quit, or any other key to continue.