Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Cofnij i powtorz
ksieluk
from Alex city




Typ: neutral
Postów: 30
Zarejestrowany: Mar 2004
Cofnij i powtorz

powiedzcie jak zrobic w edytorze tekstu opcje cofnij i powtorz help


_____________________________________________
Jeżeli to jest pytanie - to pomóż mi. Jeśli odpowiedź to  powodzenia :-)

10-05-2004 09:34
Pokaż profil ksieluk  Wyślij email do ksieluk   
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003

Wystarczy troszkę poszperać w zasobach vb4all i się znajdzie:
- funkcja undo i redo w textbox Tip 48
- trochę z planet-source-code:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=22456&lngWId=1
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=48274&lngWId=1
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=6400&lngWId=1
Załuję że nie mam czasu sam napisać ci kawałka kodu ehh


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

10-05-2004 14:48
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

tylko, że w tym jest rzecz, że jak napisałem Księlukowi ten program, to ani mi, ani jemu nie działało


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

16-05-2004 14:44
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
wesol



Typ: neutral
Postów: 40
Zarejestrowany: Mar 2004

Chyba chodzi ci o to:
nowy projekt, textbox, dwa przyciski
i kopiujesz poniższy kod, wszystko masz opisane - banał
Option Explicit
Dim cofnij(100000) 'deklarujemy zmienne
Dim acofnij
Dim akursor

Private Sub Command1_Click()
akursor = Text1.SelStart 'zapis kursora by po cofnieciu nie wyladowal na poczatku tekstu
Text1.Text = cofnij(acofnij - 1) 'pole tekstowe rowne jest zapisanej wczesniej cofnietej funkcji
acofnij = actualUndo - 2 'zmiana poprzedniego cofniecia na aktualne
Text1.SelStart = akursor 'przywroceniepozycji kursora
End Sub

Private Sub Command2_Click()
akursor = Text1.SelStart 'to samo co wczesniej
If cofnij(acofnij + 1) <> "" Then Text1.Text = cofnij(acofnij + 1)
acofnij = acofnij + 1  'tylko, ze bierze
Text1.SelStart = actualCursor 'o pozycje dalej
End Sub

Private Sub Text1_Change()
acofnij = acofnij + 1 'numer undo
cofnij(acofnij) = Text1.Text 'zapis do zmiennej
End Sub


_____________________________________________
Odwiedź moja stronkę !!!

16-05-2004 15:02
Pokaż profil wesol  Wyślij email do wesol   Odwiedź stronę wesol       3542833
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

QQQQQrcze, tak proste i tak sqteczne rozwiązanie


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

17-05-2004 16:37
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1