Predmet:Re: kako poslati sadrzaj textbox-a u funkciju
evo rijesio i to.
jednim klikom slanje textbox u funkciju.
Vazno je napomenuti da kada pozivamo funkciju na ovaj nacin:
ImeFunkcije(varijabla)
vrijednost koju dobijemo izracunom u funkciji moramo staviti u ImeFukcije na ovaj nacin:
ImeFunkcije=vrijednost koju dobijemo
evo ukratko:
sub ()
Dim varijabla as Integer
Dim vrijednost as Integer
vrijedost=ImeFunkcije(varijabla)
end sub
Function ImeFunkcije(varijabla)
varijabla=varijabla+1
ImeFunkcije=varijabla
End Function
[img]
[/img]
[img]
[/img]
ovo je cijeli kod:
koristimo 4 textbox-a
dva tastera (buton)
kodDek je logicka varijabla tipa boolen koja okrece ako je kodiranje onda je sljedece dekodiranje i obrnuto. Koristi nam za koristenje samo jednog tastera na kojem se okrece ispis u ovisnosti boolen varijable, a i funkcija ce izvrsiti radnje ovisno o dekKod, tj. ako je kodDek=True izvrsiti ce se dekodiranje, a kodDek=False onda ce se izvrsiti kodiranje
PreuzmiIzvorni kôd (Visual Basic):Option Explicit
Dim kodDek As Boolean 'dimenzioniranje kodDek logicke varijable kao boolen na globalnoj razini
Private Sub Command1_Click()
Dim f As Integer
'prolazak kroz sve textbox uz pomoc Controls
'imamo 4 textbox-a f=1 to 4, broj=f
'izabiremo ih uz pomoc Me.Controls("ImeKontrole" & Cstr(broj).text)="ono sto zelimo ispisati"
For f = 1 To 4
'ovisno dali je kodDek True ili False
If kodDek = True Then
'poziva funkciju kodiranjeDekodiranje i rezultat vraca u isti textbox
Me.Controls("Text" & CStr(f)).text = kodiranjeDekodiranje(Me.Controls("Text" & CStr(f)).text)
Else
'poziva funkciju kodiranjeDekodiranje i rezultat vraca u isti textbox
Me.Controls("Text" & CStr(f)).text = kodiranjeDekodiranje(Me.Controls("Text" & CStr(f)).text)
End If
Next f
'okrecemo logicku varijablu ako je kodDek = False onda je kodDek= True i obrnuto
If kodDek = False Then
kodDek = True
Else
kodDek = False
End If
End Sub
Function kodiranjeDekodiranje(sText)
'dimenzioniranje varijabli koje koriste oba uvjeta
'sText je varijabla na globalnoj razini koju smo poslali u funkciju
Dim i As Long
Dim Str As String
If kodDek = True Then
Command1.Caption = "KODIRANJE" 'zamjena ispisa na tasteru
For i = 1 To Len(sText) Step 2
Str = Str & Chr("&H" & Mid(sText, i, 2))
Next i
Else
Dim abData() As Byte 'dimenzioniranje varijable koju koristi samo ovaj uvijet
Command1.Caption = "DEKODIRANJE" 'zamjena ispisa na tasteru
abData = StrConv(sText, vbFromUnicode)
For i = 0 To UBound(abData)
Str = Str & Hex(abData(i))
Next
End If
'vracanje vrijednosti Str u samu funkciju kodiranjeDekodiranje
kodiranjeDekodiranje = Str
End Function
Private Sub Command3_Click()
Unload Me
End Sub
za rijesenje ovoga problema pomoglo mi je:
- izlaganje zxz u skoli vb za pocetnike (koju proucavam svaki dan)
- korisni kodovi od zxz
- upornost, volja, vjezbanje
- podrska Gjoreskog
zivot je moja domovina.