Aktywne Wpisy
Ryptun +70
Będę to wstawiał codziennie dopóki wykop nie zostanie naprawiony
Tag do czarno/biało listowania #codziennawytlaczanka
#michau #wykop #nowywykop #wykop20 #heheszki #humorobrazkowy #memy #michalbialek
Tag do czarno/biało listowania #codziennawytlaczanka
#michau #wykop #nowywykop #wykop20 #heheszki #humorobrazkowy #memy #michalbialek
JohnCasey +1
A co sądzicie o sytuacji, w której karakan prowokuje sąsiada do najechania na Polskę, pluje mu w mordę, urządza prowokacje, zaczepia za nogawki, wysyła ciężki sprzęt wojskowy, publicznie i jawnie na forum światowym ciska po tym sąsiedzie i macha szabelką, bo ułańska fantazja go ponosi...
I teraz:
Kto rozsądny i z jakiego #!$%@?@ mać powodu miałby takiemu oszołomowi bronić kraju, kiedy on ze swoimi kumplami Morawieckimi w takiej sytuacji #!$%@?ą odrzutowcem do
I teraz:
Kto rozsądny i z jakiego #!$%@?@ mać powodu miałby takiemu oszołomowi bronić kraju, kiedy on ze swoimi kumplami Morawieckimi w takiej sytuacji #!$%@?ą odrzutowcem do
Aktywne Znaleziska
result = ""
do while len(box) > 10
result = result + left(box, 10) + ";"
box = right(box, len(box) - 10)
loop
Dim a As String
Dim rozwiazanie As String
a = textboxjegonazwa.text
Do While Len(a) > 0
rozwiazanie = rozwiazanie & Left(a, 10) & ";"
If Len(a) >= 10 Then
a = Right(a, Len(a) - 10)
Else
a = ""
End If
Loop
rozwiazanie = Left(rozwiazanie, Len(rozwiazanie) - 1)
MsgBox rozwiazanie
Private Sub TextBox1_Change()
idx = InStrRev(Me.TextBox1.text, ";")
Length = Len(Me.TextBox1.text)
If (idx = Length - 10) Or Length = 10 Then
Me.TextBox1.text = Me.TextBox1.text + ";"
End If
End Sub
I możesz z ifa wywalić "or length = 10", w zasadzie to nie jest do niczego potrzebne.
A, i backspace nie będzie w tym textboxie działał, bo po skasowaniu średnika automatycznie pojawi się nowy.