Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (2):1,2
 Prikazi prvu neprocitanu poruku

#1 03.11.2014 14:49
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:BackSpace
Pozdrav svima evo i mene nakon duzeg vremena.
Evo jedna tema.Radim jednu touch kasu.Pa me zanima ima li iko iskustva kako na tipkovnici napravit tipku za brisanje odnosno napisati kod.
Ili kako pozvati windows tipkovnicu.neke sam tipke isprogramiro evo primjer:
Recimo kad stisnemo tipku "A" ide ovaj code:
Me.TextProba = Me.TextProba & "" & "A"
Miro
↑  ↓

#2 03.11.2014 15:25
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: BackSpace
nešto sam uspio ali ako imate bolje rješenje napišite.
ja sam ovo napiso i radi:

Me.Duzina = Len(Me.TextProba) - 1
Me.TextProba = Left(Me.TextProba, Me.Duzina)

Znači izračuna prvo koliko sam upisao znakova u text polje i onda oduzmem jedno polje od zadnjeg sa ovom Left naredbom.
Miro
↑  ↓

#3 04.11.2014 00:06
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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. ↑  ↓

#4 04.11.2014 09:36
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: BackSpace
Ovo je dobro ali moram praviti svoju jer ovde su mi mala slova.jer prstima se mora radit.Ne znam da li je moguće za sve tipke programirati sendKey.
Miro
Ovaj post je ureden 1 puta. Posljednja izmjena 04.11.2014 09:38 od strane miro35. ↑  ↓

#5 04.11.2014 14:31
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: BackSpace
Evo jedan primjer.
Nedostaje tu jos tastera ali se nadam da ces ih moci dodati.
Select case radi prema vrijednosti value tastera.
Dao sam primjer del velika i mala slova i slova.
Ako zapne pisi.

Prilozi:
Informacije o tipu datoteke za:zip  tastatura.zip
Preuzimanja:283
Velicina datoteke:12.33 KB

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#6 04.11.2014 15:40
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: BackSpace
Ovo je odlično.
Evo moj primjer tek je započet.pa probaj pritisnuti taster CapsLock da vidiÅ¡ Å¡ta se dogadja.Možda imaÅ¡ neki savjet Å¡ta bi trebalo joÅ¡ i kako.

Prilozi:
Informacije o tipu datoteke za:rar  TastaturaPrimjer.rar
Preuzimanja:237
Velicina datoteke:20.36 KB

Miro
↑  ↓

#7 04.11.2014 17:01
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: BackSpace
Jel ovo sve tstera sto ti treba.
Dali bi ti odgovaralo da radi kao ono moje?
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#8 05.11.2014 09:09
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: BackSpace
Da to su svi.Služe mi samo za unos artikala. Isto tako mislio sam koristit ovu tipkovnicu i za unos cijene.Znači napravit ću joÅ¡ jedno polje koje će biti skriveno. Tako kad na formi artikala pritisnem tipkovnicu onda će se na formi tipkovnice pojaviti polje ovisno da li unosim cijenu ili naziv ili Å¡ifru artikla.
Tako sam nekako planiro.
Miro
↑  ↓

#9 05.11.2014 10:43
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: BackSpace
Molim te pogledaj ovo Å¡to sam napravio.Znači napiso sam kod za tipku Q i malo q ,i isto tako za onu tipku BackSpace znači da briÅ¡e zadnje slovo iz text polja a ne čitavu riječ.

Prilozi:
Informacije o tipu datoteke za:rar  TastaturaPrimjer1.rar
Preuzimanja:229
Velicina datoteke:23.44 KB

Miro
↑  ↓

#10 05.11.2014 22:48
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: BackSpace
Dobro si ovo napravio samo ima da se nakucas koda.
Ono mije ti je bilo jednostavnije za uradit, samo da si tamo napravio ovako lijepe tastere sa toggle kontrolom i to je sve.
Kod je vec bio napravljen za sve u caption pises mala slova a u tag velika.
Sve bi radilo sa postojecim kodom sem ovog tastera za brisanje po jedan od pozada a i za to je ostavljeno prostora u onoj poceduri.

Ovo tvoje je dobro samo kazem valja se nakucati koda.
Ako ti nije tesko izdizajnirati ono moje sa toggle botom a ja cu kod odraditi.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (2):1,2

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 7: 44 am.