Prikazi cijelu temu 04.11.2014 00:06
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: BackSpace
Citat:
Evo jedna tema.Radim jednu touch kasu.Pa me zanima ima li iko iskustva kako na tipkovnici napravit tipku za brisanje odnosno napisati kod.
Pa tipku za brisanje imas to je taster delete.
Ako hoces napraviti svoj na formu+i onda ide:
SendKeys "{DELETE}", True

Ako pak zelis cijelu tataturu onda mozes pozvati tastaturu shelom da ne pravis sve tastere na formi.
Shell     
PreuzmiIzvorni kôd (Visual Basic):
  1. Function sell()
  2. Dim SistemRut As String
  3.  
  4. SistemRut = EnvironN("SystemRoot")
  5. Shell SistemRut & "\system32\osk.exe"
  6. End Function
  7.  
  8. Function EnvironN(Indeks As String)
  9.  
  10. '--------------------------------------------------------
  11.  
  12. 'Info sistema
  13.  
  14. '-------------------------------------------------------
  15.  
  16. Dim EnvString, Indx, Msg, PathLen
  17. Indx = 1
  18.  
  19. Do
  20.     EnvString = Environ(Indx)
  21.       If InStr(1, EnvString, Indeks) > 0 Then
  22.       EnvironN = Mid(EnvString, Len(Indeks) + 2)
  23.       Exit Do
  24.       End If
  25.         Indx = Indx + 1
  26. Loop Until EnvString = ""
  27. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 2 puta. Posljednja izmjena 04.11.2014 00:08 od strane zxz.