Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Mój notatnik

MatiCraft

Przez MatiCraft
w Niezbędnik Programisty - Archiwum

Rekomendowane odpowiedzi

MatiCraft Pomocnik

MatiCraft

Opublikowano
Pomocnik

MatiCraft

Opublikowano

Chcę Wam zaprezentować mój mini notatnik.Oceńcie i krytykujcie jak z kodem i ogólnie wszystkim.

Potrafi:

-Zapisać tekst

-Wczytywać tekst

-Zmieniać czcionke i kolor czcionki

-Cofać

Czyli typowy notatnik

 

Source: (troche pomieszane)

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <misc.au3>
#include <GuiEdit.au3>

$Form2_1 = GUICreate("Mini Notatnik v1.0", 434, 335, -1, -1, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP))
GUISetBkColor(0xD4D0C8)
$Button1 = GUICtrlCreateButton("Zapisz", 8, 272, 128, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xC0C0C0)
GUICtrlSetCursor (-1, 0)
$Button3 = GUICtrlCreateButton("Wczytaj", 152, 272, 128, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xC0C0C0)
GUICtrlSetCursor (-1, 0)
$Button4 = GUICtrlCreateButton("Wyczysć", 296, 272, 128, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xC0C0C0)
GUICtrlSetCursor (-1, 0)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 417, 257)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xC0C0C0)
$Button7 = GUICtrlCreateButton("Ustaw Czcionkę", 152, 304, 128, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xC0C0C0)
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("Cofnij", 8, 304, 128, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xC0C0C0)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
_GUICtrlEdit_Undo($Edit1)
Case $Button7
$font = _ChooseFont()
$cNazwa = $font[2]
$cRozmiar = $font[3]
$cKolor = $font[5]
$cStyl = $font[4]
$cEfekt = BitOR($font[1],2)
GUICtrlSetFont($Edit1,$cRozmiar,$cStyl,$cEfekt,$cNazwa)
GUICtrlSetColor($Edit1,$cKolor)
Case $Button4
GUICtrlSetData($Edit1,"")
Case $Button3
$pw = FileOpenDialog("Gdzie jest plik",@DesktopDir,"Pliki Tekstowe (*.txt)")
$pw2 = FileRead($pw)
GUICtrlSetData($Edit1,$pw2)
Case $Button1
Local $d = @DesktopDir
$p = FileSaveDialog("Gdzie zapisać",$d,"Pliki Tekstowe (*.txt)",2,"plik tekstowy")
$rE = GUICtrlRead($Edit1)
$p2 = $p&".txt"
FileWrite($p2,$rE)
EndSwitch
WEnd

Lub ściągnij:

http://speedy.sh/Bbv6z/Notatnik.exe

tapne Budowniczy

tapne

Opublikowano
Budowniczy

tapne

Opublikowano

ciekawe i ładnie zrobiony, trafiłeś tym szarym kolorem idealnie ;]

jeszcze może dorób strony pisania tekstu inne gówienka : )

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

fajne, ale zrób pogróbienie kursywe konkretnego tekstu :D(nie całego tylko fragmenty) albo ctrl+z,y (napisz jak kiedys ci sie uda)

to bedzie supcio ;D

@down

bardziej myślałem nad _GUICtrlEdit_Undo

ziuto Znawca

ziuto

Opublikowano
Znawca

ziuto

Opublikowano

dodaj jeszcze wybieranie czcionki..

 

;Script by ziuto

;Source-code Autoit v3

$User = InputBox("Twoj nick", "Podaj swoj nick", "tu go wpisz")

If $User = "ziuto" Then

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Sam sie lubie", 50, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam sobie 5 gwiazdek", 30, 40)

ElseIf $User <> "ziuto" Then

MsgBox(0, "Powitanie", "Siema " & $User)

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Lubie cie ziuto", 47, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam ci 5 gwiazdek ziuto", 25, 40)

EndIf

GUISetState(@SW_SHOW, $gui)

While $User = "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie sie", "Sam sie lubie :o")

Case $msg = $button_dam_ci_5_gwiazdek

MsgBox(0, "Dam sobie 5 gwiadek", "Ze bym to ja mogl sam sobie dac")

EndSelect

WEnd

While $User <> "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie cie", "A za co ?")

InputBox("A za co ?", "Za co mnie lubisz ?", "???")

MsgBox(0, "Za to", "Aha" & @CRLF & "Dobrze to wiedziec xD" & @CRLF & "Nq")

ShellExecute("http://www.mpcforum.pl/")

ExitLoop

Case $msg = $button_dam_ci_5_gwiazdek

ShellExecute("http://www.mpcforum.pl/user/259390-ziuto/")

EndSelect

WEnd


ziuto Znawca

ziuto

Opublikowano
Znawca

ziuto

Opublikowano

a nie lepiej te przyciski dać w górnym pasku np

to przed while

 

$filemenu = GUICtrlCreateMenu("Plik")
$newfileitem = GUICtrlCreateMenuItem("Nowy[tab]Cltr+N",$filemenu)
$fileitem = GUICtrlCreateMenuItem("Odtwórz[tab]Cltr+O",$filemenu)
$saveitem = GUICtrlCreateMenuItem("Zapisz[tab]Cltr+S",$filemenu)
GuiCtrlSetState($saveitem,$GUI_DISABLE)
$saveasitem = GUICtrlCreateMenuItem("Zapisz jako...[tab]Cltr+Alt+S",$filemenu)
GuiCtrlSetState($saveasitem,$GUI_DISABLE)
GUICtrlCreateMenuItem("",$filemenu)
$exititem = GUICtrlCreateMenuItem("Zamknij[tab]Esc",$filemenu)
$editmenu = GUICtrlCreateMenu("Edycja")
GuiCtrlSetState($editmenu,$GUI_DISABLE)
$backitem = GUICtrlCreateMenuItem("Cofnij[tab]Cltr+Z",$editmenu)
GUICtrlCreateMenuItem("",$editmenu)
$delitem = GUICtrlCreateMenuItem("Usuń[tab]Del",$editmenu)
$cutitem = GUICtrlCreateMenuItem("Wytnij[tab]Cltr+X",$editmenu)
$copyitem = GUICtrlCreateMenuItem("Kopiuj[tab]Cltr+C",$editmenu)
$pasteitem = GUICtrlCreateMenuItem("Wklej[tab]Cltr+V",$editmenu)
GUICtrlCreateMenuItem("",$editmenu)
$finditem = GUICtrlCreateMenuItem("Znajdź...[tab]Cltr+F",$editmenu)
$replaceitem = GUICtrlCreateMenuItem("Zamień...[tab]Cltr+H",$editmenu)
GUICtrlCreateMenuItem("",$editmenu)
$allitem = GUICtrlCreateMenuItem("Zaznacz wszystko[tab]Cltr+A",$editmenu)

pamiętaj że [tab] masz zamienić na ten długi odstęp tab

rzeczy z paska tym wyłączasz

GuiCtrlSetState($zmienna,$GUI_DISABLE)

a tym włączasz

GuiCtrlSetState($zmienna,$GUI_ENABLE)

 

to w while

 

If $nMsg = $newfileitem Then
Nowy()
EndIf
If $nMsg = $fileitem Then
Otworz()
EndIf
If $nMsg = $saveitem Then
Zapisz()
EndIf
If $nMsg = $saveasitem Then
Zapisz_jako()
EndIf
If $nMsg = $backitem Then
Send("^z")
EndIf
If $nMsg = $delitem Then
Send("{Del}")
EndIf
If $nMsg = $cutitem Then
Send("^x")
EndIf
If $nMsg = $copyitem Then
Send("^c")
EndIf
If $nMsg = $pasteitem Then
Send("^v")
EndIf
If $nMsg = $finditem Then
Znajdz()
EndIf
If $nMsg = $replaceitem Then
Zamien()
EndIf
If $nMsg = $allitem Then
Send("{Tab}")
EndIf

możesz to zrobić pod Case ja wolałem w tedy if

 

funckje(nie wszystkie resztę sam dorób bo już gotowe masz tylko wyciąć i wkleić w funkcję odpowiednie elementy)

 

Func Znajdz()
_GUICtrlEdit_Find($Edit1)
EndFunc
Func Zamien()
_GUICtrlEdit_Find($Edit1,True)
EndFunc

 

nad wyświetlaniem tego i resztą sam kombinuj..

to fragmenty z mojego edytora którego nie skończyłem..

a i HotKeySet myślę że sam zrobisz

a jak nie to

 

HotKeySet("^s","Zapisz")
HotKeySet("^!s","Zapisz_jako")
HotKeySet("^f","Znajdz")
HotKeySet("^h","Zamien")

tylko pamiętaj aby zrobić odpowiednie funkcję do tego

 

a i jak chcesz wyłączać je to

 

HotKeySet("^s")
HotKeySet("^!s")
HotKeySet("^f")
HotKeySet("^h")

 

jeśli chcesz ustawić kolor paska to dodaj to przed while

 

SetMenuColor($filemenu,0x99bbee)
SetMenuColor($editmenu,0xeebb99)

Func SetMenuColor($nMenuID,$nColor)
Local $hMenu,$hBrush,$stMenuInfo
Local Const $MIM_APPLYTOSUBMENUS = 0x80000000
Local Const $MIM_BACKGROUND = 0x00000002

$hMenu = GUICtrlGetHandle($nMenuID)

$hBrush = DllCall("gdi32.dll","hwnd","CreateSolidBrush","int",$nColor)
$hBrush = $hBrush[0]

$stMenuInfo = DllStructCreate("dword;dword;dword;uint;dword;dword;ptr")
DllStructSetData($stMenuInfo,1,DllStructGetSize($stMenuInfo))
DllStructSetData($stMenuInfo,2,BitOR($MIM_APPLYTOSUBMENUS,$MIM_BACKGROUND))
DllStructSetData($stMenuInfo,5,$hBrush)
DllCall("user32.dll","int","SetMenuInfo","hwnd",$hMenu,"ptr",DllStructGetPtr($stMenuInfo))

EndFunc

kolor paska ustawiasz tu

SetMenuColor($zmienna,0x99bbee)

0x99bbee to 99 ilość czerwonego(od 00 do ff jak coś) , bb ilość zielonego , ee ilość niebieskiego w tym przypadku wyjdzie kolor jasno pomarańczowy

a tu 0xeebb99 błękitny

 

 

;Script by ziuto

;Source-code Autoit v3

$User = InputBox("Twoj nick", "Podaj swoj nick", "tu go wpisz")

If $User = "ziuto" Then

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Sam sie lubie", 50, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam sobie 5 gwiazdek", 30, 40)

ElseIf $User <> "ziuto" Then

MsgBox(0, "Powitanie", "Siema " & $User)

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Lubie cie ziuto", 47, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam ci 5 gwiazdek ziuto", 25, 40)

EndIf

GUISetState(@SW_SHOW, $gui)

While $User = "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie sie", "Sam sie lubie :o")

Case $msg = $button_dam_ci_5_gwiazdek

MsgBox(0, "Dam sobie 5 gwiadek", "Ze bym to ja mogl sam sobie dac")

EndSelect

WEnd

While $User <> "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie cie", "A za co ?")

InputBox("A za co ?", "Za co mnie lubisz ?", "???")

MsgBox(0, "Za to", "Aha" & @CRLF & "Dobrze to wiedziec xD" & @CRLF & "Nq")

ShellExecute("http://www.mpcforum.pl/")

ExitLoop

Case $msg = $button_dam_ci_5_gwiazdek

ShellExecute("http://www.mpcforum.pl/user/259390-ziuto/")

EndSelect

WEnd


Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...