Hallo,
da es mit meinem gedächtnis leider langsam bergab geht, habe ich mir
ein kleines utility gebastelt um nicht jedes Mal den ascii-code
nachschlagen zu müssen.
Vielleicht findet es ja auch der eine oder andere nützlich, daher hier
der code:
Fenster1.MouseUp:
Sub MouseUp(X As Integer, Y As Integer)
quit
End Sub
Fenster1.MouseDown:
Function MouseDown(X As Integer, Y As Integer) As Boolean
return true
End Function
Fenster1.Open:
Sub Open()
self.left=10
self.top=10
dic=new dictionary
dic.Value(0)=Nil
dic.Value(1)=Nil
dic.Value(2)=Nil
dic.Value(3)=Nil
dic.Value(4)=Nil
dic.Value(5)=Nil
dic.Value(6)=Nil
dic.Value(7)=Nil
dic.Value(8)="Backspace = 8"
dic.Value(9)="HTab = 9"
dic.Value(10)="LF = 10"
dic.Value(11)="VTab = 11"
dic.Value(12)="FF = 12"
dic.Value(13)="CR = 13"
dic.Value(14)=Nil
dic.Value(15)=Nil
dic.Value(16)=Nil
dic.Value(17)=Nil
dic.Value(18)=Nil
dic.Value(19)=Nil
dic.Value(20)=Nil
dic.Value(21)=Nil
dic.Value(22)=Nil
dic.Value(23)=Nil
dic.Value(24)=Nil
dic.Value(25)=Nil
dic.Value(26)=Nil
dic.Value(27)=Nil
dic.Value(28)=Nil
dic.Value(29)=Nil
dic.Value(30)=Nil
dic.Value(31)=Nil
dic.Value(32)="Leertaste = 32"
dic.Value(33)="! = 33"
dic.Value(34)=chr(34)+" = 34"
dic.Value(35)="# = 35"
dic.Value(36)="$ = 36"
dic.Value(37)="% = 37"
dic.Value(38)="&& = 38"
dic.Value(39)="' = 39"
dic.Value(40)="( = 40"
dic.Value(41)=") = 41"
dic.Value(42)="* = 42"
dic.Value(43)="+ = 43"
dic.Value(44)=", = 44"
dic.Value(45)="- = 45"
dic.Value(46)=". = 46"
dic.Value(47)="/ = 47"
dic.Value(48)="0 = 48"
dic.Value(49)="1 = 49"
dic.Value(50)="2 = 50"
dic.Value(51)="3 = 51"
dic.Value(52)="4 = 52"
dic.Value(53)="5 = 53"
dic.Value(54)="6 = 54"
dic.Value(55)="7 = 55"
dic.Value(56)="8 = 56"
dic.Value(57)="9 = 57"
dic.Value(58)=": = 58"
dic.Value(59)="; = 59"
dic.Value(60)="< = 60"
dic.Value(61)="= = 61"
dic.Value(62)="> = 62"
dic.Value(63)="? = 63"
dic.Value(64)="@ = 64"
dic.value(65)="A = 65"
dic.value(66)="B = 66"
dic.value(67)="C = 67"
dic.value(68)="D = 65"
dic.value(69)="E = 69"
dic.value(70)="F = 70"
dic.value(71)="G = 71"
dic.value(72)="H = 72"
dic.value(73)="I = 73"
dic.value(74)="J = 74"
dic.value(75)="K = 75"
dic.value(76)="L = 76"
dic.value(77)="M = 77"
dic.value(78)="N = 78"
dic.value(79)="O = 79"
dic.value(80)="P = 80"
dic.value(81)="Q = 81"
dic.value(82)="R = 82"
dic.value(83)="S = 83"
dic.value(84)="T = 84"
dic.value(85)="U = 85"
dic.value(86)="V = 86"
dic.value(87)="W = 87"
dic.value(88)="X = 88"
dic.value(89)="Y = 89"
dic.value(90)="Z = 90"
dic.Value(91)="[ = 91"
dic.Value(92)="\ = 92"
dic.Value(93)="] = 93"
dic.Value(94)="^ = 94"
dic.Value(95)=" _ = 95"
dic.Value(96)="` = 96"
dic.Value(97)="a = 97"
dic.Value(98)="b = 98"
dic.Value(99)="c = 99"
dic.Value(100)="d = 100"
dic.Value(101)="e = 101"
dic.Value(102)="f = 102"
dic.Value(103)="g = 103"
dic.Value(104)="h = 104"
dic.Value(105)="i = 105"
dic.Value(106)="j = 106"
dic.Value(107)="k = 107"
dic.Value(108)="l = 108"
dic.Value(109)="m = 109"
dic.Value(110)="n = 110"
dic.Value(111)="o = 111"
dic.Value(112)="p = 112"
dic.Value(113)="q = 113"
dic.Value(114)="r = 114"
dic.Value(115)="s = 115"
dic.Value(116)="t = 116"
dic.Value(117)="u = 117"
dic.Value(118)="v = 118"
dic.Value(119)="w = 119"
dic.Value(120)="x = 120"
dic.Value(121)="y = 121"
dic.Value(122)="z = 122"
dic.Value(123)="{ = 123"
dic.Value(124)="| = 124"
dic.Value(125)="} = 125"
dic.Value(126)="~ = 126"
dic.Value(127)="Del = 127"
dic.Value(128)="Ä = 128"
dic.Value(129)="Å = 129"
dic.Value(130)="Ç = 130"
dic.Value(131)="É = 131"
dic.Value(132)="Ñ = 132"
dic.Value(133)="Ö = 133"
dic.Value(134)="Ü = 134"
dic.Value(135)="á = 135"
dic.Value(136)="à = 136"
dic.Value(137)="â = 137"
dic.Value(138)="ä = 138"
dic.Value(139)="ã = 139"
dic.Value(140)="å = 140"
dic.Value(141)="ç = 141"
dic.Value(142)="é = 142"
dic.Value(143)="è = 143"
dic.Value(144)="ê = 144"
dic.Value(145)="ë = 145"
dic.Value(146)="í = 146"
dic.Value(147)="ì = 147"
dic.Value(148)="î = 148"
dic.Value(149)="ï = 149"
dic.Value(150)="ñ = 150"
dic.Value(151)="ó = 151"
dic.Value(152)="ò = 152"
dic.Value(153)="ô = 153"
dic.Value(154)="ö = 154"
dic.Value(155)="õ = 155"
dic.Value(156)="ú = 156"
dic.Value(157)="ù = 157"
dic.Value(158)="û = 158"
dic.Value(159)="ü = 159"
dic.Value(160)="† = 160"
dic.Value(161)="° = 161"
dic.Value(162)="¢ = 162"
dic.Value(163)="£ = 163"
dic.Value(164)="§ = 164"
dic.Value(165)="• = 165"
dic.Value(166)="¶ = 166"
dic.Value(167)="ß = 167"
dic.Value(168)="® = 168"
dic.Value(169)="© = 169"
dic.Value(170)="™ = 170"
dic.Value(171)="´ = 171"
dic.Value(172)="¨ = 172"
dic.Value(173)="≠ = 173"
dic.Value(174)="Æ = 174"
dic.Value(175)="Ø = 175"
dic.Value(176)="∞ = 176"
dic.Value(177)="± = 177"
dic.Value(178)="≤ = 178"
dic.Value(179)="≥ = 179"
dic.Value(180)="¥ = 180"
dic.Value(181)="µ = 181"
dic.Value(182)="∂ = 182"
dic.Value(183)="∑ = 183"
dic.Value(184)="∏ = 184"
dic.Value(185)="π = 185"
dic.Value(186)="∫ = 186"
dic.Value(187)="ª = 187"
dic.Value(188)="º = 188"
dic.Value(189)="Ω = 189"
dic.Value(190)="æ = 190"
dic.Value(191)="ø = 191"
dic.Value(192)="¿ = 192"
dic.Value(193)="¡ = 193"
dic.Value(194)="¬ = 194"
dic.Value(195)="√ = 195"
dic.Value(196)="ƒ = 196"
dic.Value(197)="≈ = 197"
dic.Value(198)="∆ = 198"
dic.Value(199)="« = 199"
dic.Value(200)="» = 200"
dic.Value(201)="… = 201"
dic.Value(202)="(space) = 202"
dic.Value(203)="À = 203"
dic.Value(204)="Ã = 204"
dic.Value(205)="Õ = 205"
dic.Value(206)="Π= 206"
dic.Value(207)="œ = 207"
dic.Value(208)="– = 208"
dic.Value(209)="— = 209"
dic.Value(210)="“ = 210"
dic.Value(211)="” = 211"
dic.Value(212)="‘ = 212"
dic.Value(213)="’ = 213"
dic.Value(214)="÷ = 214"
dic.Value(215)="◊ = 215"
dic.Value(216)="ÿ = 216"
dic.Value(217)="Ÿ = 217"
dic.Value(218)="⁄ = 218"
dic.Value(219)=Nil
dic.Value(220)="‹ = 220"
dic.Value(221)="› = 221"
dic.Value(222)="fi = 222"
dic.Value(223)="fl = 223"
dic.Value(224)="‡ = 224"
dic.Value(225)="· = 225"
dic.Value(226)="‚ = 226"
dic.Value(227)="„ = 227"
dic.Value(228)="‰ = 228"
dic.Value(229)="Â = 229"
dic.Value(230)="Ê = 230"
dic.Value(231)="Á = 231"
dic.Value(232)="Ë = 232"
dic.Value(233)="È = 233"
dic.Value(234)="Í = 234"
dic.Value(235)="Î = 235"
dic.Value(236)="Ï = 236"
dic.Value(237)="Ì = 237"
dic.Value(238)="Ò = 238"
dic.Value(239)="Ô = 239"
dic.Value(240)=" = 240"
dic.Value(241)="Ò = 241"
dic.Value(242)="Ú = 242"
dic.Value(243)="Û = 243"
dic.Value(244)="Ù = 244"
dic.Value(245)="ı = 245"
dic.Value(246)=Nil
dic.Value(247)=Nil
dic.Value(248)=Nil
dic.Value(249)=Nil
dic.Value(250)=Nil
dic.Value(251)=Nil
dic.Value(252)=Nil
dic.Value(253)=Nil
dic.Value(254)=Nil
dic.Value(255)=Nil
End Sub
Fenster1.KeyDown:
Function KeyDown(Key As String) As Boolean
dim cb as new clipboard
dim k as Integer
dim s as string
k=asc(key)
ergebnis.text= dic.Value(dic.Key(k))
s="+chr("+str(k)+")+"
cb.Text=s
cb.close
End Function
Compiliert ist das bei mir links oben in der ecke des schreibtischs,
sodass ich es immer anklicken kann und dann - in meinem code-text
zurückgekehrt - mit apfel-v einfüge.
Ich habe noch ein übriges getan und lasse es mit rb per iKey zusammen
starten.
Viel spass
enno
|