Протестируйте классику - NOTEPAD

[BV]

Вот решил не отставать от прогрессивной массы начинающих программёров и создал свой Блокнот. Хотел бы услышать мнение о своём творении, на которое ушло не много не мало 5 месяцев!
Здесь только EXE файл. К нему нужны компоненты Rich, Comdlg, Comctl.

[deepslam]

интересная программулина )))
особенно понравилась возможность смотреть файлы в разных кодировках

[KDima]

К нему нужны компоненты Rich, Comdlg, Comctl компоненты.

Неплохо
Вопрос: Как ты реализовывал ToolBar?

Прозрачность следует сделать на уровне 70-90% а не 10%-20%
Почему загруженность моего компа = 0%
Он конечно быстрый, но не настолько...
Вспомни про пользователей который пользуются ALT!
В меню пиши & для пунктов перед клавишей вызова.
Еще немного модифицыровать и notepad.exe можно будет поменять...

[BV]

Спасибо за высказывания.
Насчёт символа & - обязательно учту.
Насчёт прозрачности - есть идея зделать её настраиваемой.
Если есть ещё к.л. пожелания или мнения, прошу высказать их и скорее всего они будут учтены в следующей версии программы.

[KDima]

2
Вопрос: Как ты реализовывал ToolBar?

[A.A.Z.]

Неплохой Блокнот, но только не очень понял с изменением шрифта: он может только весь текст одинаковым шрифтом делать? Тогда, если не секрет, зачем был нужен RTB?
[off] 5 месяцев?? Не много ли? Прога, вроде, не огромная [/off]

[BV]

Первое - что значит "как реализовал ToolBar"? Конкретезируй вопрос.
Второе - RTF нужен для обработки БОЛЬШИХ текстовых файлов (а то в TextBox'е быстро наступает Overflow) и более качественной печати на принтер.

[A.A.Z.]

А, понял...

[A.A.Z.]

Тогда это советую

[KDima]

Первое - что значит "как реализовал ToolBar"? Конкретезируй вопрос.

Ну ты просто положил его на форму, добавил манифест и получилось это?

[BV]

ЭТО???
Я просто использовал ToolBar1 из коллекции CommonControls5 и ресурс с начинкой для XP стиля (где-то на форуме VIsual Basic недавно видел готовый пример). Вот ЭТО и получилось...

A.A.Z
ГМ... Спасибо. Попробую.

[Шнурок]

мне понравилось, как ты сделал ресайз...а то у мну все время эрроры выскакивали.

[BV]

Это небольшое дополнение к Блокноту, где описываются незадействованные функции и возможности, а также есть несколько иконок, которые я сделал специально для программы.

Также хочу сказать что при возникновении к.л. ошибки блокнот создаёт в своей папке файл NDebug.log, где пишет все необходимые сведенья для её устранения. И если таковая возникнет, прошу вписать в сообщение содержимое этого файла (на форуме) или отослать мне на e-mail.

[Mleha]

[Program]
Program Name=Notepad
Program Version=1.5
[Error]
Error Description=Type mismatch
Error Number=13
Current Form=FrmMain
[System]
Current System=Microsoft Windows XP
System Updates=
System Version=5.01.2600
[Environment]
System Folder=D:\WINDOWS\System32\
Windows Folder=D:\WINDOWS\
Temp Folder=D:\DOCUME~2\Leha\LOCALS~1\Temp\
Application Folder=C:\Downloads\NTPD\
[Memory]
Total Memory=267 943 936 Byte
Available Memory=121 733 120 Byte
[Resources]
Free System Resources=0%
Free User Resources=0%
Free GDI Resources=0%
[Calendar]
Time=16:52:08
Date=10.01.2005

Проблемы с заменой и поиском. как я понял ищет только слова или часть текста, разделенную спец. симв.
А в общем неплохо - понравилось!

[KDima]

Важно: ключи нельзя использовать одновременно, в противном случае выполнится только последний (например, в командной строке "C:\Example.txt" /P /L - программа прочтёт и выполнит только ключ /L)

Это прошлый век! Парси строчку и всё!

[Шнурок]

Жутко не удобно то, что нельзя форматировать текст.
RTB - лучше.
Я не очень понял, зачем ты сделал кнопки форматирования, если нельзя форматировать отдельные слова, строки...

[BV]

2 KDima

Это прошлый век! Парси строчку и всё!

Поподробнее можно?

2 Mleha - Спасибо за интересный LOG [/quote]

[KDima]

Поподробнее можно?

Парсинг - разделение строки на массив, в роли разделителя выступает некий символ/строка.

Хотя в твоём случае всё легче!

Public Sub ParceCmd(Cmd As String)
Dim fPos As Integer
Dim MidRet As String

Cmd = UCase$(Trim$(Cmd))

fPos = InStr(1, Cmd, " ")
If fPos = 0 Then: MsgBox "Bad Prompt!": Exit Sub
For i = fPos + 1 To Len(Cmd) - 1
MidRet = Mid$(Cmd, i, 2)
If MidRet = "/P" Then
MsgBox "Print File!"
ElseIf MidRet = "/A" Then
MsgBox "Load All!"
ElseIf MidRet = "/L" Then
MsgBox "Log it!"
End If
Next i
End Sub

[BV]

2 KDima

Ага... Я всё это делал до версии 1.3 с помощью Array
Вот собственно код:

Private Function GetCommandArray() As Variant
Dim sChar, CmdLine As String
Dim CmdLnLen, i, MaxArgs, NumArgs As Long
Dim InArg As Boolean
MaxArgs = 16
ReDim ArgArray(MaxArgs)
NumArgs = 0
InArg = False
CmdLine = Command$
CmdLnLen = Len(CmdLine)
For i = 1 To CmdLnLen
sChar = Mid$(CmdLine, i, 1)
If (sChar <> Chr$(32) And sChar <> vbTab) Then
If Not InArg Then
If NumArgs = MaxArgs Then Exit For
NumArgs = NumArgs + 1
InArg = True
End If
ArgArray(NumArgs) = ArgArray(NumArgs) & sChar
Else
InArg = False
End If
Next i
ReDim Preserve ArgArray(NumArgs)
GetCommandArray = ArgArray()
End Function

Ну а этот метод просто проще.

А убрал я такую вещь для предотвращения кое-каких ошибок.[/code]

[skord]

Не плохо... Сделай функции работы с HTML и подсветку его синтаксиса

[skord]

Да... Попытался открыть html'ку и заметил что открыть его не получится т.к. нету варианта "любые файлы" - *.*
Нехорошо...

[Tin]

Ну не сказал бы что фантан... Просто юзаешь стандартные свойства РТБ... Сделай что бы кодировку можно было бы менять уже после открытия файла... Но впринципе все функции блокнота она выполняет

[Ramzes]

Все нормально, только глюк с полупрозрачностью, когда убераешь, то панель инструментов, какая то глючная стает!

[BV]

Нда... Спасибо за высказывания.

Да... Попытался открыть html'ку и заметил что открыть его не получится т.к. нету варианта "любые файлы" - *.*
Нехорошо...

Просто сними флаг с меню "Фильтр типов файлов"

Сделай что бы кодировку можно было бы менять уже после открытия файла...

И я тоже думал так сделать. Скоро будет.

Не плохо... Сделай функции работы с HTML и подсветку его синтаксиса

Это же Блокнот а не WordPad.

Все нормально, только глюк с полупрозрачностью, когда убераешь, то панель инструментов, какая то глючная стает!

Вот уж незнаю, как это так у тебя получается
У меня всё нормально.