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):Function kodiranje(sText)
Dim abData() As Byte
Dim i As Long
Dim Str As String
abData = StrConv(sText, vbFromUnicode)
For i = 0 To UBound(abData)
Str = Str & Hex(abData(i))
Next
sText = Str
End Function
i dekodiranje:
PreuzmiIzvorni kôd (Visual Basic):Function dekodiranje(sText)
Dim abData() As Byte
Dim i As Long
Dim Str as String
Str = sText
Str = StrConv(abData, vbUnicode)
sText = Str
End Function
u formi imam ovo:
PreuzmiIzvorni kôd (Visual Basic):Private Sub cmdKodiranje_Click()
Dim sText As String
sText = Text1.Box
Call dekodiranje(sText)
Text2.Text = sText
sText = Text3.Box
Call dekodiranje(sText)
Text4.Text = sText
sText = Text5.Box
Call dekodiranje(sText)
Text6.Text = sText
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.