本文整理匯總了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.