Prikazi cijelu temu 21.04.2015 15:43
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:kako poslati sadrzaj textbox-a u funkciju
[img][/img]

na slici se vidi da imam 6xText.box i 3xtipke. Tipke su kodiranje,dekodiranje i izlaz
u modulu imamo funkcije za:
kodiranje:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function kodiranje(sText)
  2.     Dim abData() As Byte
  3.     Dim i As Long
  4.     Dim Str As String
  5.     abData = StrConv(sText, vbFromUnicode)
  6.     For i = 0 To UBound(abData)
  7.         Str = Str & Hex(abData(i))
  8.     Next
  9.     sText = Str
  10. End Function

i dekodiranje:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function dekodiranje(sText)
  2.     Dim abData() As Byte
  3.     Dim i As Long
  4.     Dim Str as String
  5.     Str = sText
  6.     Str = StrConv(abData, vbUnicode)
  7.     sText = Str
  8. End Function

u formi imam ovo:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub cmdKodiranje_Click()
  2.     Dim sText As String
  3.    
  4.     sText = Text1.Box
  5.     Call dekodiranje(sText)
  6.     Text2.Text = sText
  7.    
  8.     sText = Text3.Box
  9.     Call dekodiranje(sText)
  10.     Text4.Text = sText
  11.    
  12.     sText = Text5.Box
  13.     Call dekodiranje(sText)
  14.     Text6.Text = sText
  15. End Sub
Moj kod u varijablu sText stavlja vrijednost odgovarajuceg TextBox-a, poziva funkciju (kodiranje) i zatim vracenu vrijednost stavlja u odgovarajuci TextBox.
Htio bi smanjiti kod programa, a i nauciti nesto o slanju podataka iz TextBox-a u funkciju.

PITANJE:
Da li je moguce pritiskom na tipku (kodiranje) proslijediti funkciji (kodiranje) vrijednosti TextBox 1,3,5, a ona automatski vrati ispis u TextBox-ove 2,4,6 ili to nije moguce pa cu i dalje koristiti ovaj svoj kod
hmmm? malo sam isprobavao sa function(sText as TextBox) ali nisam uspio.
Ne znam dali sam dobro objasnio?
zivot je moja domovina.