To je malo teze c&p jer toga ima posvuda a neznam kako da ti kazem gdje da sta stavis...a Gink nije ni radjen u Ireni koja je ocitana preko dll-a nego neke stare verzije..
Reci cu ti ovako, kada tip umre ja sam napravio da detektira sva slova i brojke na tastaturi i onda sam sam stavio taj detektor sub da se pokrece dok se ne stisne Enter ali nikako se onaj drugi key detector sto je uvjek aktivan nesmije pokretati sada (ako koristi vec neke tipke koji ovaj koristi).
Kad god se stisne slovo ono ode u neku verijablu i tu varijablu isp[isujes na sredini ekrana pa sve izgleda kao neki textbox
\
Nije tesko, samo pokusaj skuziti!
A detektiranje tipki ti meni ovako izgleda (ovo je bez Irene, ali je slicno) i na dnu imas jednu zanimljivu funkciju koja slaze detektirana slova u varijablu i brise ako stisnes backspace:[vb]'// Detect the keys for ENTER YOUR NAME
Public Sub Detect_Keys_HS()
'// Retrieve the information
On Error Resume Next
DIDevice.GetDeviceStateKeyboard DIState 'get the keyboard state
If Err Then DIDevice.Acquire
'// Exit / Confirm
If DIState.Key(DIK_ESCAPE) = 128 And FadeInMenu = 0 Then HSNameConfirm = True
If DIState.Key(DIK_RETURN) = 128 And FadeInMenu = 0 Then HSNameConfirm = True
'// Keys
' 0
If tmpKeys.n0 = False And DIState.Key(DIK_0) = 128 Then
tmpKeys.n0 = True
hs_KeyDetected "0"
ElseIf DIState.Key(DIK_0) = 0 And tmpKeys.n0 Then
tmpKeys.n0 = False
End If
' 1
If tmpKeys.n1 = False And DIState.Key(DIK_1) = 128 Then
tmpKeys.n1 = True
hs_KeyDetected "1"
ElseIf DIState.Key(DIK_1) = 0 And tmpKeys.n1 Then
tmpKeys.n1 = False
End If
' 2
If tmpKeys.n2 = False And DIState.Key(DIK_2) = 128 Then
tmpKeys.n2 = True
hs_KeyDetected "2"
ElseIf DIState.Key(DIK_2) = 0 And tmpKeys.n2 Then
tmpKeys.n2 = False
End If
' 3
If tmpKeys.n3 = False And DIState.Key(DIK_3) = 128 Then
tmpKeys.n3 = True
hs_KeyDetected "3"
ElseIf DIState.Key(DIK_3) = 0 And tmpKeys.n3 Then
tmpKeys.n3 = False
End If
' 4
If tmpKeys.n4 = False And DIState.Key(DIK_4) = 128 Then
tmpKeys.n4 = True
hs_KeyDetected "4"
ElseIf DIState.Key(DIK_4) = 0 And tmpKeys.n4 Then
tmpKeys.n4 = False
End If
' 5
If tmpKeys.n5 = False And DIState.Key(DIK_5) = 128 Then
tmpKeys.n5 = True
hs_KeyDetected "5"
ElseIf DIState.Key(DIK_5) = 0 And tmpKeys.n5 Then
tmpKeys.n5 = False
End If
' 6
If tmpKeys.n6 = False And DIState.Key(DIK_6) = 128 Then
tmpKeys.n6 = True
hs_KeyDetected "6"
ElseIf DIState.Key(DIK_6) = 0 And tmpKeys.n6 Then
tmpKeys.n6 = False
End If
' 7
If tmpKeys.n7 = False And DIState.Key(DIK_7) = 128 Then
tmpKeys.n7 = True
hs_KeyDetected "7"
ElseIf DIState.Key(DIK_7) = 0 And tmpKeys.n7 Then
tmpKeys.n7 = False
End If
' 8
If tmpKeys.n8 = False And DIState.Key(DIK_8) = 128 Then
tmpKeys.n8 = True
hs_KeyDetected "8"
ElseIf DIState.Key(DIK_8) = 0 And tmpKeys.n8 Then
tmpKeys.n8 = False
End If
' 9
If tmpKeys.n9 = False And DIState.Key(DIK_9) = 128 Then
tmpKeys.n9 = True
hs_KeyDetected "9"
ElseIf DIState.Key(DIK_9) = 0 And tmpKeys.n9 Then
tmpKeys.n9 = False
End If
' A
If tmpKeys.A = False And DIState.Key(DIK_A) = 128 Then
tmpKeys.A = True
hs_KeyDetected "A"
ElseIf DIState.Key(DIK_A) = 0 And tmpKeys.A Then
tmpKeys.A = False
End If
' B
If tmpKeys.B = False And DIState.Key(DIK_B) = 128 Then
tmpKeys.B = True
hs_KeyDetected "B"
ElseIf DIState.Key(DIK_B) = 0 And tmpKeys.B Then
tmpKeys.B = False
End If
' C
If tmpKeys.C = False And DIState.Key(DIK_C) = 128 Then
tmpKeys.C = True
hs_KeyDetected "C"
ElseIf DIState.Key(DIK_C) = 0 And tmpKeys.C Then
tmpKeys.C = False
End If
' D
If tmpKeys.D = False And DIState.Key(DIK_D) = 128 Then
tmpKeys.D = True
hs_KeyDetected "D"
ElseIf DIState.Key(DIK_D) = 0 And tmpKeys.D Then
tmpKeys.D = False
End If
' E
If tmpKeys.E = False And DIState.Key(DIK_E) = 128 Then
tmpKeys.E = True
hs_KeyDetected "E"
ElseIf DIState.Key(DIK_E) = 0 And tmpKeys.E Then
tmpKeys.E = False
End If
' F
If tmpKeys.F = False And DIState.Key(DIK_F) = 128 Then
tmpKeys.F = True
hs_KeyDetected "F"
ElseIf DIState.Key(DIK_F) = 0 And tmpKeys.F Then
tmpKeys.F = False
End If
' G
If tmpKeys.G = False And DIState.Key(DIK_G) = 128 Then
tmpKeys.G = True
hs_KeyDetected "G"
ElseIf DIState.Key(DIK_G) = 0 And tmpKeys.G Then
tmpKeys.G = False
End If
' H
If tmpKeys.H = False And DIState.Key(DIK_H) = 128 Then
tmpKeys.H = True
hs_KeyDetected "H"
ElseIf DIState.Key(DIK_H) = 0 And tmpKeys.H Then
tmpKeys.H = False
End If
' I
If tmpKeys.I = False And DIState.Key(DIK_I) = 128 Then
tmpKeys.I = True
hs_KeyDetected "I"
ElseIf DIState.Key(DIK_I) = 0 And tmpKeys.I Then
tmpKeys.I = False
End If
' J
If tmpKeys.J = False And DIState.Key(DIK_J) = 128 Then
tmpKeys.J = True
hs_KeyDetected "J"
ElseIf DIState.Key(DIK_J) = 0 And tmpKeys.J Then
tmpKeys.J = False
End If
' K
If tmpKeys.K = False And DIState.Key(DIK_K) = 128 Then
tmpKeys.K = True
hs_KeyDetected "K"
ElseIf DIState.Key(DIK_K) = 0 And tmpKeys.K Then
tmpKeys.K = False
End If
' L
If tmpKeys.L = False And DIState.Key(DIK_L) = 128 Then
tmpKeys.L = True
hs_KeyDetected "L"
ElseIf DIState.Key(DIK_L) = 0 And tmpKeys.L Then
tmpKeys.L = False
End If
' M
If tmpKeys.M = False And DIState.Key(DIK_M) = 128 Then
tmpKeys.M = True
hs_KeyDetected "M"
ElseIf DIState.Key(DIK_M) = 0 And tmpKeys.M Then
tmpKeys.M = False
End If
' N
If tmpKeys.N = False And DIState.Key(DIK_N) = 128 Then
tmpKeys.N = True
hs_KeyDetected "N"
ElseIf DIState.Key(DIK_N) = 0 And tmpKeys.N Then
tmpKeys.N = False
End If
' O
If tmpKeys.O = False And DIState.Key(DIK_O) = 128 Then
tmpKeys.O = True
hs_KeyDetected "O"
ElseIf DIState.Key(DIK_O) = 0 And tmpKeys.O Then
tmpKeys.O = False
End If
' P
If tmpKeys.P = False And DIState.Key(DIK_P) = 128 Then
tmpKeys.P = True
hs_KeyDetected "P"
ElseIf DIState.Key(DIK_P) = 0 And tmpKeys.P Then
tmpKeys.P = False
End If
' Q
If tmpKeys.Q = False And DIState.Key(DIK_Q) = 128 Then
tmpKeys.Q = True
hs_KeyDetected "Q"
ElseIf DIState.Key(DIK_Q) = 0 And tmpKeys.Q Then
tmpKeys.Q = False
End If
' R
If tmpKeys.R = False And DIState.Key(DIK_R) = 128 Then
tmpKeys.R = True
hs_KeyDetected "R"
ElseIf DIState.Key(DIK_R) = 0 And tmpKeys.R Then
tmpKeys.R = False
End If
' S
If tmpKeys.S = False And DIState.Key(DIK_S) = 128 Then
tmpKeys.S = True
hs_KeyDetected "S"
ElseIf DIState.Key(DIK_S) = 0 And tmpKeys.S Then
tmpKeys.S = False
End If
' T
If tmpKeys.T = False And DIState.Key(DIK_T) = 128 Then
tmpKeys.T = True
hs_KeyDetected "T"
ElseIf DIState.Key(DIK_T) = 0 And tmpKeys.T Then
tmpKeys.T = False
End If
' U
If tmpKeys.U = False And DIState.Key(DIK_U) = 128 Then
tmpKeys.U = True
hs_KeyDetected "U"
ElseIf DIState.Key(DIK_U) = 0 And tmpKeys.U Then
tmpKeys.U = False
End If
' V
If tmpKeys.V = False And DIState.Key(DIK_V) = 128 Then
tmpKeys.V = True
hs_KeyDetected "V"
ElseIf DIState.Key(DIK_V) = 0 And tmpKeys.V Then
tmpKeys.V = False
End If
' W
If tmpKeys.W = False And DIState.Key(DIK_W) = 128 Then
tmpKeys.W = True
hs_KeyDetected "W"
ElseIf DIState.Key(DIK_W) = 0 And tmpKeys.W Then
tmpKeys.W = False
End If
' X
If tmpKeys.X = False And DIState.Key(DIK_X) = 128 Then
tmpKeys.X = True
hs_KeyDetected "X"
ElseIf DIState.Key(DIK_X) = 0 And tmpKeys.X Then
tmpKeys.X = False
End If
' Y
If tmpKeys.Y = False And DIState.Key(DIK_Y) = 128 Then
tmpKeys.Y = True
hs_KeyDetected "Y"
ElseIf DIState.Key(DIK_Y) = 0 And tmpKeys.Y Then
tmpKeys.Y = False
End If
' Z
If tmpKeys.Z = False And DIState.Key(DIK_Z) = 128 Then
tmpKeys.Z = True
hs_KeyDetected "Z"
ElseIf DIState.Key(DIK_Z) = 0 And tmpKeys.Z Then
tmpKeys.Z = False
End If
' SPACE
If tmpKeys.SPACE = False And DIState.Key(DIK_SPACE) = 128 Then
tmpKeys.SPACE = True
hs_KeyDetected " "
ElseIf DIState.Key(DIK_SPACE) = 0 And tmpKeys.SPACE Then
tmpKeys.SPACE = False
End If
' backSpace
If tmpKeys.BACKSPACE = False And DIState.Key(DIK_BACKSPACE) = 128 Then
tmpKeys.BACKSPACE = True
hs_KeyDetected "-"
ElseIf DIState.Key(DIK_BACKSPACE) = 0 And tmpKeys.BACKSPACE Then
tmpKeys.BACKSPACE = False
End If
End Sub
'////////////////////////////
Public Sub hs_KeyDetected(KeyName As String)
' Check - backspace key
If KeyName = "-" And Len(HSName) > 0 Then
HSName = Mid(HSName, 1, Len(HSName) - 1)
' Sound of key
Play "key"
End If
' Check - name to long
If Len(HSName) > 19 Then Exit Sub
' Check - if backspase exit
If KeyName = "-" Then Exit Sub
HSName = HSName & KeyName
' Sound of key
Play "key"
End Sub[/vb]
Covece kolko if-ova na jednom mestu 