一个简单的复杂问题,急急急!

Question

如何将text1.text的值,它可能是"vbkeyf1","vbkeyf2"等值,我要将它们转成vbkeyf1,vbkeyf2,也就是数字112,113,因为text1.text可能的值太多,但它们都可以转换出来,这怎么办?急,请高手指点!
马上结贴!

Answer 1

查一个MSDN“Keycode 常数”可能会对你有所帮助。

Answer 2

select case text1
  case "vbkeyf1"
     text2=112
  case ...
   ...
end select

Answer 3

Private Function Getcode(ByVal v As String) As Long
Select Case v
  Case "None"
    Getcode = 0
  Case "vbKeyA"
    Getcode = 65
  Case "vbKeyB"
    Getcode = 66
  Case "vbKeyC"
    Getcode = 67
  Case "vbKeyD"
    Getcode = 68
    
  Case "vbKeyE"
    Getcode = 69
  Case "vbKeyF"
    Getcode = 70
  Case "vbKeyG"
    Getcode = 71
  Case "vbKeyH"
    Getcode = 72
  
  Case "vbKeyI"
    Getcode = 73
  Case "vbKeyJ"
    Getcode = 74
  Case "vbKeyK"
    Getcode = 75
  Case "vbKeyL"
    Getcode = 76
  
  Case "vbKeyM"
    Getcode = 77
  Case "vbKeyN"
    Getcode = 78
  Case "vbKeyO"
    Getcode = 79
  Case "vbKeyP"
    Getcode = 80
  
  Case "vbKeyQ"
    Getcode = 81
  Case "vbKeyR"
    Getcode = 82
  Case "vbKeyS"
    Getcode = 83
  Case "vbKeyT"
    Getcode = 84
    
  Case "vbKeyU"
    Getcode = 85
  Case "vbKeyV"
    Getcode = 86
  Case "vbKeyW"
    Getcode = 87
  Case "vbKeyX"
    Getcode = 88
  
  Case "vbKeyY"
    Getcode = 89
  Case "vbKeyZ"
    Getcode = 90
  
  Case "VbKeyF1"
    Getcode = 112
  Case "VbKeyF2"
    Getcode = 113
  Case "VbKeyF3"
    Getcode = 114
  Case "VbKeyF4"
    Getcode = 115
  Case "VbKeyF5"
    Getcode = 116
  Case "VbKeyF6"
    Getcode = 117
  Case "VbKeyF7"
    Getcode = 118
  Case "VbKeyF8"
    Getcode = 119
  Case "VbKeyF9"
    Getcode = 120
  Case "VbKeyF10"
    Getcode = 121
  Case "VbKeyF11"
    Getcode = 122
  Case "VbKeyF12"
    Getcode = 123
End Select
End Function我写出来,快累死了!谢谢大家!