Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: NotePad - czyli jak zrobić edytor tekstów
Adrian



Typ: neutral
Postów: 59
Zarejestrowany: Jan 2005
NotePad - czyli jak zrobić edytor tekstów

Zaczynamy! Włączamy Visual Basica naszym oczom powinno się ukazać takie okienko

Wybieramy Standard EXE.Widzimy forme, teraz na pasku menu wybieramy Tools > Menu Editor


Na początek robimy takie menu:

Oczywiście możemy dodać: autora, strone www ale to już zróbcie sami.Czerwonym kolorem zaznaczyłem taką strzałeczke widzicie ? Ta strzałeczka robi takie kropeczki czyli takie coś co można nazwać Opcją Menu.
Niebieskim kolorem zaznaczyłem insert to właśnie nim robimy nowe kategorie menu i opcje menu(pamietajcie o strzałce)
Czarnym kolorem podkreslłem klawisz Next poprostu w ciskasz i masz właściwości wcześniejszej opcji bądź kategori menu.
Zielonym kolorem klawisz delete czyli usuń (chyba wszyscy wiedzą do czego służy.
Zróbmy to co jest na obrazku
Napoczątku Insert i tam gdzie pisze caption wpisujemy &Plik a tam gdzie name mnuPlik(jest to kategoria menu),posobnie robimy opcje menu tylo teraz wciskamy Insert>Strzałeczka i wpisujemy Caption &Nowy i Name mnuNowy i tak robimy cały czas tylko zmieniają sie nazwy opcji menu i kategori menu.Pamietajcie najlepiej będzie jeżeli zawsze na poczatku nazwy menu(Name) będzie mnu ponieważ jest to skrót i poprostu będziemy wiedzieć co i jak.Kiedy skończyliśmy robić menu na formie kładziemy TextBoxa

Widzice na obrazku że na niebieskim paseczku jest napisane MyText BezNazwy00 wiecie jak to zmienić ?? Pamietacie MenuEditor i Caption Zróbcie tak samo tylko  że właściwości  są narogu z prawej strony.Jak będziecie zmieniać nazwe(Name)to najlepiej będzie jeśli na początku napiszecie frm(Nazwa) oczywiście bez nawiasów. Zajmijmy się kodem programu wpierw TextBoxem jakoś tak niewymiarowo wygląda kliknijcie na Formatke(Nie na TextBoxa)

Pomiędy Private a End Sub (są to ramy prog.) wisujemy:
Text1.Top = 0
Text1.Left = 0
I co jak wygląda ?? Ładniej ??

Zajmijmy sie Menu:
Najpierw Nowy:
Text1.Text = ""
Teraz Otwórz najpierw musimy dodać kontrolke Common Dialog wciskamy Ctrl + T  i jak znajdziemy
Microsoft CommonDialog zaznaczamy i bierzemy Ok .
CommonDialoga nazywamy CD
Wchodzimy do kodu programu i na samej górze (tam gdzie nie ma Private i End Sub) wklejamy Deklaracje

Function Read(Filename As String) As String
Dim b
Dim x
Dim Bufor As String
Dim Kanal As Integer
Dim oLini As Integer

Kanal = FreeFile
oLini = 0

Open Filename For Input As Kanal
    While EOF(Kanal) <> -1
        Line Input #Kanal, Bufor
        Read = Read & Bufor & vbNewLine
       
    Wend
Close Kanal
Read = Left(Read, Len(Read) - 2)
End Function

następnie wbieramy menu Otwórz i dajemy taki kod:


On Error GoTo Byk
With cd
.Filter = "Pliki textowe|*.txt|Wszystkie pliki|*.*"
.ShowOpen
Text1.Text = Read(.Filename)
End With
Byk:

Teraz Zapisz:

On Error GoTo Byk
Dim Zapis As String
With cd
.Filter = "Pliki textowe|*.txt|"
.ShowSave
If Right(.Filename, 4) = ".txt" Then Zapis = .Filename Else Zapis = .Filename & ".txt"
Open Zapis For Output As #1
Print #1, Text1.Text
Close #1
End With
Byk:

A następnie drukuj:

Printer.Print Text1.Text

A na końcu czyli Zamknij

End

I tak oto mamy całą kategorie Pliki

Czas na kategorie format.Wpierw Kolor czcionki
Robimy nową formatkę nazywamy ją frmKolory
zmieniamy jej właściwość BorderStyle na FixedToolWindow.
Kładziemy tam z 20 buttonów (o nazwie cmdKolor)
ale nie jeden po drugim tylko kopiujemy 1 Buttona klikając Ctrl + C
i wklejamy Ctrl + V. Tak powstały nam Indeksowane Buttony. Zmieniamy im właściwosć Style na Graphic i wybieramy im kolory poprzez zmienianie właściwości BackColor

Teraz kod programu kliknij dwa razy na któregoś z CommandButtonów to  między Private a End Sub (tak samo jak wcześniej) wpisujemy:
frm(nazwa).Text1.ForeColor = cmdKolor(index).BackColor
frmKolory.Hide

i to zamienia nam kolor tekstu na jaki tam wybraliśmy !

Teraz rozmiar czcionki:

Klikamy na mnuRozmiarCzcionki i wpisujemy takie coś

b = inputbox "Podaj wielkość fonta.", "Font"
text1.FontSize = b
printer.FontSize = b

Oto efekt:



Teraz ostatnia rzecz a mianowicie Pogrubienie  wcikamy menu mnuPogrubiny i wpisujemy:

If Text1.FontBold = False Then
Text1.FontBold = True
Printer.FontBold = True
mnuPogrubiony.Checked = True
Else

Text1.FontBold = False
Printer.FontBold = False
mnuPogrubiony.Checked = False
End If

Tak oto mamy Pogrubienie
A zapomniałem jakbyście chcieli dać kursywe to można zrobić nową opcje menu np mnuKursywa
to podobnie jak z tekstem pogrubionym czyli:

If Text1.FontItalic = False Then
Text1.FontItalic = True
mnuPogrubiony.Checked = True
Printer.FontItalic = True
Else
Text1.FontItalic = False
mnuPogrubiony.Checked = False
Printer.FontItalic = False

End If

Tak oto kończy się kursik o robieniu Edytora Tekstów wszystkich bardzo proszę aby do tego posta dodawali nowe opcję sugestję oceny kursu. Chce aby mój mały kursik o małym edytorze zmienił sie w OGROMNY POST LICZACY 100 Stron. Nie uważacie ze było by wspaniałe zająć sie robieniem Profesionalnego edytora tekstów?? 
Pieszcie też opinie o moim kursie. Oczywiście róbcie to jeżeli macie ochotę!

                    Pozdrawiam Adrian



_____________________________________________
+_+ADI SOFTWARE+_+

13-02-2005 13:25
Pokaż profil Adrian  Wyślij email do Adrian   Odwiedź stronę Adrian  
Coldzik




Typ: neutral
Postów: 75
Zarejestrowany: Jul 2003

Hehehe wydaje mi sie ze takie tutoriale to fajna rzecz. Jakby kazdy cos fajnego dawal na forum to wiele by mozna sie nauczyc, tylko do tego osobny dzial by sie nadal. Ja akurat potrafie pisac edytor tekstu ale mysle ze bardzo dobry pomysl Adrian dales. Tez sprobuje cos wykombinowac i dac jakis tutorial

13-02-2005 16:31
Pokaż profil Coldzik  Wyślij email do Coldzik        5319206
Adrian



Typ: neutral
Postów: 59
Zarejestrowany: Jan 2005

Dzięki za pochwałe Ale nie sądze żeby dał ktoś osobny dział   Ale Super by było gdyby ktoś tak owy założyl! Nie wiem kogo poprosić żeby tak owy powstał. Może Jelcyna???  A tak pozatym to niedługo mój pościk pojdzie w zapomnienie Bo kto sie Edytorem Tekstów zainteresuje

            Pozdrawiam

ps. Coldzik Kombinuj!  
ps2.Może dam opis jak zrobić KeyLoggera>>
ps3.Sory za to: tak owy


_____________________________________________
+_+ADI SOFTWARE+_+

13-02-2005 17:53
Pokaż profil Adrian  Wyślij email do Adrian   Odwiedź stronę Adrian  
Coldzik




Typ: neutral
Postów: 75
Zarejestrowany: Jul 2003

Ehh no przydal by sie taki dzial jednak ostatnio cos Jelcyna nie widuje wogole na forum. Widocznie olal juz nas i VB . Wogole na tym forum by sie jakies zmiany przydaly bo forum to wyglada jak by jakies przed wojenne bylo. BTW. czy za to forum oplacany jest abonament?????? "Ilość zarejestrowanych osób: 580 | Ilość odwiedzin: 149448 | Zostało jeszcze 47 dni abonamentu." bo jezeli tak to ktos jest fajny jak w czasach darmochy internetowej pobiera oplate za tak mizerne forum. Jezeli sie myle to przepraszam

13-02-2005 18:03
Pokaż profil Coldzik  Wyślij email do Coldzik        5319206
Adrian



Typ: neutral
Postów: 59
Zarejestrowany: Jan 2005
no może

Przydało by się zrobić nowe lepsze forum a to zostawić dla info. Bo naprzykład na freefronthost jest konto 100mb i na nim forum można było by dać "  Ale niwiem czy ktoś by je odwiedzał .


_____________________________________________
+_+ADI SOFTWARE+_+

13-02-2005 18:16
Pokaż profil Adrian  Wyślij email do Adrian   Odwiedź stronę Adrian  
marcin_an
Forumowicz




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

Jelcyn rzeczywiście się ostatnio nie pojawia, więc może ja dorzucę kilka słów wyjaśnień w sprawie forum (w razie czego poprawiać mnie natychmiast!):
Temat zmiany serwera z forum i samego forum już był wielokrotnie poruszany razem z tematem remontu całego serwisu. W dziale VB4All jest nawet odpowiedni post z "listą życzeń". Powstało nawet forum (adresu nie podam), które miało zastąpić obecne i niektórzy już pozakładali sobie konta, ale narazie panuje wokół tematu cisza - nie wiem, co dalej, czy wogóle będzie dalej rozwijane. Ponadto na nowe forum trzeba też przenieść wszystkie posty z board.freeweb.pl - a to jednak trochę roboty. Jesli chodzi o kolorystykę - jest dopasowana do stylu całego serwisu i miała ulec zmianie razem z remontem witryny. Ja mogę powiedzieć tylko tyle. Reszta informacji u Jelcyna i Mortara.

http://board.freeweb.pl/posts.php?board_id=1543&topic_id=82721&division=612 -- to jest post z listą życzeń


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

13-02-2005 19:23
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Coldzik




Typ: neutral
Postów: 75
Zarejestrowany: Jul 2003

Takie przenosiny napewno nie beda latwe. I nie chodzi o to by wszystkie posty przenosic na nowe forum tylko chodzi o to ze nikt tam nie bedzie sie pojawial, bo ludzie znaja juz to forum i wiedza ze tu sie moga dowiedziec, dlatego nalezy to forum przerobic by bylo ladniejsze

13-02-2005 21:12
Pokaż profil Coldzik  Wyślij email do Coldzik        5319206
marcin_an
Forumowicz




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

Ale to nie zależy od Jelcyna, bo nie on jest adminem serwera z tego co wiem. Poza tym nie widzę problemu w zmienieniu kilku adresów - co za różnica, czy link 'forum' będzie prowadził na board.freeweb.pl czy gdziekolwiek indziej? Wiem, że część osób (w tym ja) ma linki bezpośrednio do samego forum, ale przecież część z nich korzysta z newsletter'a, a resztę można poinformować przylepiając post z odpowiednią informacją. Największym problemem będzie jednak chyba przenoszenie postów - podobno były jakies problemy z zarchowizowaniem zawartości tego forum. No i oczywiscie przeszkoda w postaci braku czasu również występuje. Przecież Jelcyn nie jest tylko dla nas, a Mortar też tym bardziej nie ma już chyba zbyt wiele czasu (ale niech w tej sprawie wypowiadają się oni sami).

[Post edytowany dnia 13-02-2005 21:50 przez marcin_an]


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

13-02-2005 21:46
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Adrian



Typ: neutral
Postów: 59
Zarejestrowany: Jan 2005

Taki mały off topic sie zrobił Marcin no niby tak ale mi chodzi oto że np. Ktoś z nas zrobi lepsze forum od tego ale te posty zostaną tu i to będzie stare forum.


_____________________________________________
+_+ADI SOFTWARE+_+

13-02-2005 22:28
Pokaż profil Adrian  Wyślij email do Adrian   Odwiedź stronę Adrian  
al45




Typ: neutral
Postów: 4
Zarejestrowany: Dec 2004


Chce aby mój mały kursik o małym edytorze zmienił sie w OGROMNY POST LICZACY 100 Stron. Nie uważacie ze było by wspaniałe zająć sie robieniem Profesionalnego edytora tekstów?? 




Pracuję już nad takim edytorem od około 1,5 roku, efekty można zobaczyć pod linkiem w mojej stopce.

[Post edytowany dnia 14-02-2005 16:59 przez al45]


_____________________________________________
Notatnik eXPert - Zaawansowany edytor tekstowy

_____________________________________________

14-02-2005 16:54
Pokaż profil al45  Wyślij email do al45   Odwiedź stronę al45  
Adrian



Typ: neutral
Postów: 59
Zarejestrowany: Jan 2005

Wow. Dobry ten edytor ! Pozdro Al45


_____________________________________________
+_+ADI SOFTWARE+_+

14-02-2005 20:42
Pokaż profil Adrian  Wyślij email do Adrian   Odwiedź stronę Adrian  
Adrian



Typ: neutral
Postów: 59
Zarejestrowany: Jan 2005

Ale w Vb go napisałeś ?????


_____________________________________________
+_+ADI SOFTWARE+_+

14-02-2005 20:53
Pokaż profil Adrian  Wyślij email do Adrian   Odwiedź stronę Adrian  
al45




Typ: neutral
Postów: 4
Zarejestrowany: Dec 2004


Ale w Vb go napisałeś ?????


Oczywiście, że w VB - dokładnie w VB6
Odpowiednią notkę dodałem w oknie Notatnik eXPert-Informacje.

VB to taki dziwny język, czasem myślisz, że nie da się w nim zrobić pewnych rzeczy ale trochę się pogimnastykujesz i okazuje się, że jednak można :-)


_____________________________________________
Notatnik eXPert - Zaawansowany edytor tekstowy

_____________________________________________

14-02-2005 21:53
Pokaż profil al45  Wyślij email do al45   Odwiedź stronę al45  
DJK



Typ: neutral
Postów: 871
Zarejestrowany: Feb 2004

Dodam, że VB można zrobić wszystko co się zechce pomijając kilka szczegółow jak np. szybkość i wątki (chociaż istnieją funkcje z rodziny Threads)


_____________________________________________
Jeśli można coś zrobić w sposób optymalny to czemu nie

15-02-2005 00:29
Pokaż profil DJK  Wyślij email do DJK   Odwiedź stronę DJK  
Adrian



Typ: neutral
Postów: 59
Zarejestrowany: Jan 2005

DJK wszystko ???? A zrobisz Emulator Snesa albo Game Boya ???


_____________________________________________
+_+ADI SOFTWARE+_+

15-02-2005 20:18
Pokaż profil Adrian  Wyślij email do Adrian   Odwiedź stronę Adrian  
DJK



Typ: neutral
Postów: 871
Zarejestrowany: Feb 2004

Jakby się uparł to by zrobił - zaznaczam, napisałem "pomijając kilka szczegółów


_____________________________________________
Jeśli można coś zrobić w sposób optymalny to czemu nie

16-02-2005 00:10
Pokaż profil DJK  Wyślij email do DJK   Odwiedź stronę DJK  
Wszystkich odpowiedzi: 15 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1