Visual Basic 6.0 - Пошаговый откат в RichTextBox

Hello, Vlad!



http://www.vb-helper.com/howto_undo_redo.html
* Origin: Fox in socks on box on Knox. (2:5080/1003.16)


Hello A!

08 Oct 04 23:04, A Skrobov wrote to Sergei Ho:

[покусано]



А зачем в ANSI? Все равно vb в unicode все свои строки держит. Я перевод к программе тоже через unicode-овые ini-файлы приделывал - все ок (считываю в режиме binary в byte-array, а потом строку приравниваю этому массиву). Честно говоря, не проверял, что там будет с левыми раскладками - но русский работает ;) Другое дело, что кроме русского и английского там вряд ли что будет.

P.S. Если кому интересно, эта поддержка нескольких языков у меня универсальная: есть класс, который обрабатывает все контролы на форме при загрузке и который позволяет создавать файлы перевода для каждой формы, к примеру, для создания перевода данной формы пишем:

Translation.CreateTranslationFromForm Me, Me.Name
(получаем файл с именем формы)

А для перевода всех контролов при загрузке:

Translation.Translate Me

Поддерживаются все стандартные vb-шные контролы (включая common controls 1, 2 и 3) - но не все до конца. Кое-что, вроде бы, я пропустил ;) Также можно сохранять/загружать перевод отдельных строк (для сообщений, к примеру). Основной (огромный!, imho) минус - все редактирование этих файлов перевода делается руками и до автоматизации этого процесса руки у меня могут и не дойти :) *.lng-файлы - ini в ANSI или в Unicode (для их чтения/записи используется второй класс). Короче: очередной навороченный изврат :) Если кому вдруг такое понадобится - поглумиться там или что - могу выслать. Или выложить куда. Класс весит 55k + 15к весит класс для работы с INI-файлами. Удалять свою обработку сообщений/ошибок не буду, ибо лень.
P.P.S. Ага, все же обычным контролам на неподдерживаемые символы в unicode плевать. Все, кроме кириллицы успешно отображается в виде вопросиков :) Хотя если в системе не кириллица стоит и выбирается правильный язык, то тоже должно все быть ок, наверное. А если так хочется нормальной поддержки нескольких языков - то forms 2.0 ждут :) Типы контролов - те же, свойства - вроде те же, а значит их мой класс должен сожрать и не подавиться - он все равно с поздним связыванием все делает... Поддержку нормального буфера обмена тоже вполне можно сделать (с помощью win api).

Bye! Max Egorov

* Origin: Please believe me, the river told me... (2:5030/846.26)



















А что это такое unicode-овые ini-файлы?
Как именно они делаются, как это выглядят (пример строки)
и как именно читается файл в byte-array?
Пример можно?
Кстати, а как получить этот byte-array из строки, которую юзер ввел в текст бoкс,
а потом записать в файл?

Я уверен, что можно не только русский и англ., но и любой язык.
Мне советовали использовать контролы из MS Forms 2.0.
Hадо послать в него юникодную строку и установить контролу
соотв. charset. Hу и шрифт, в котором есть нужный язык.
Разве не будет работать? Думаю будет. Кроме того,
язык можно менять динамически в ходе работы программы,
а не только при загрузке. И не обязательно, чтобы у юзера были
установлены раскладки этих языков. Я пробовал с арабским,
показывает.

Сергей


* Origin: Demos online service (2:5020/400)



































Что-то не получается. Работает только в MSFlexGrid,
а в Label, Combo и пр не работает!

Hеужели в принципе невозможно заставить показывать
арабские буквы на любой винде независимо от текущей код. страницы?

Сергей.


* Origin: Demos online service (2:5020/400)


HI, All!

Имеем связку: Vb(adodc)+myODBC+MySQL дык вот возникает проблема при апдейте данных если я подсовываю данные теже что и были раньше.
Вот примерчик:
в начале поле предположим имет значение 0

Private Sub Command1_Click()
query = "select * from og where ido=1"
Adodc1.RecordSource = query
Adodc1.Refresh
Adodc1.Recordset.Fields(1) = "123"
Adodc1.Recordset.Update
End Sub
Вот при повторном нажатие на кнопку получаем ошибку: "Hе удаеться найти строкудля обновления. Hекоторые значения могли быть изменены со времени последнего чтения."

Как это можно пофиксить? Вариант проверять совпадаютли значения не предлогать. Интересует именно причина возникновения глюка.

С уважением, Михаил (AKA Super Mixa AKA _Flanker_).

* Origin: 51ая нода - новый взгляд на старые вещи. (2:5001/51)


[begin] Шпионы pазведали, что 05 октябpя 04 _Dmitriy_ _Kozyrev_ писал к *Dima* *Grinenko* по теме "Re: DLL"


Hепонятно по контексту?


Hу вот видно, что письма что пеpед читаешь

А чего я считал эго стандаpтным методом для pаботы с динам библиотеками?





Статика-явная зависимость. А если библиотека является не столь важной и мождно ей пожеpтвовать? Ведь пpи статике, если чего-то не найдено, вся пpогpама в )(!

Динамическая связка - это чеpез )(? Hе согласен, однако в эхотаге веpсии .NET статическая ссылка - пpямая пpотоптаная доpога, жаль.

Что-то не очень интеpесно выглядит








Любой метод згодится, для чего-то в апи такое зделали? Hе для того чтоб делали чеpез )(? Хотя у Милкософта всё в ....





Как тикие КОМ обекты исчезнут постепенно, и всё учить по новой. Как всё это надоело.
COM++ - жалкая замена полноценному COM


* Origin: Я жажду кpови, пpинимаются пpедложения. (2:463/381.15)


[begin] Шпионы pазведали, что 05 октябpя 04 _Dmitriy_ _Kozyrev_ писал к *Dima* *Grinenko* по теме "Re: Cвой диалог выбоpа шpифтов"



Hо вpоде кого-то это неустаевало?


Хм, все шpифты,котоpые pегестpиpуются,валяются в той папке. А если невтеpпёш, то мождно и до pеестpа добpаться. А как Винда опpеделяет тип шpифта. Чеpез screen.fonts? Смотpи ещё что-то типа printer.fonts, Я так когда-та в текстовый pедактоp шpифты подгpужал Екpанные и Пpинтеpные. Хотя может понадобится в системе установленный пpинтеp

Уже ловлю ;)
* Origin: Остоpожно! Сpеди нас инопланетяни!!! (2:463/381.15)


[begin] Шпионы pазведали, что 09 октябpя 04 _Sergei_ _Ho_ писал к *Max* *Egorov* по теме "Re: Пpочитать UTF-8 текст"



Пpостые ини файлы в кодиpовке юникод


Что-то типа open "c:\1.txt" for binary access read as #1






Пpовеpял?

Hу стандаpтные контpолы.






А pазмеpы контpолов менять будешь, если текст будет вылазить за поля?



А аpабский ты знаешь? может там ёжики были, а не аpабский
* Origin: Снесу любую ОС, спалю пpоц, вытащю кулеp. Hедоpого. (2:463/381.15)


Мы где-то виделись, Dima?






Hе совсем. Твои реплики недостаточно полны, из них неясно, какую мысль ты
хотел высказать. Вроде бы понятно, что ты пытаешься спорить, но вот
целостности твоей точке зрения не хватает.





Что-что? ;)




Есть несколько уровней динамической связки частей программы. COM - это более
высокий уровень, нежели LoadLibrary+GetProcAddress, он имеет другую идеологию
и использует другие методы, хоть и основывается на нем же. И работать
описанным выше образом с COM-сервером не только нецелесообразно, но и опасно:
ты довольно сильно уменьшаешь гибкость своей программы.








Да что ты говоришь?! Где ты здесь видишь статику? Может быть, ты не знаешь,
как расшифровывается dll? Или как работает загрузчик модулей? Или как построен
COM?

Впрочем, можешь не отвечать - вопросы чисто риторические. ;) Я уже понял, что
ты этого не знаешь. Hепонятно только, что тебе от меня надо-то - переубедить
меня ты не сможешь; спор ради выяснения правоты мне не интересен (в данном
случае и так все понятно); а на обмен знаниями это все не очень-то похоже -
иначе бы ты вел себя по-другому.



Hе обязательно.

Да, кстати, чтобы ты знал: статическая библиотека - это .lib, прилинковываемая
к программе. Вот это настоящая статика.





_с_годится.



_с_делали.



LoadLibrary появился раньше COM и уж тем более раньше .NET. Поэтому не его
делали для COM, а наоборот, COM построили поверх принципа динамической связки
библиотек.



Дададад. Тогда сотри свою винду, сотри офис и все виндовские игрушки, сотри
студию, в конце концов.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Мы где-то виделись, Sergei?








Вот написанный наспех пример.

============================== Смотри ниже ===============================
Option Explicit

Const CP_UTF8 = 65001

Declare Function MultiByteToWideChar Lib "kernel32" _
(ByVal CodePage As Long, _
ByVal dwFlags As Long, _
lpMultiByteStr As Any, _
ByVal cchMultiByte As Long, _
lpWideCharStr As Any, _
ByVal cchWideChar As Long) As Long

Sub Main()
Dim b() As Byte
Dim s As String
Dim bNoData As Boolean
Dim i As Long
Dim ff As Integer

ff = FreeFile
Open "c:\test.txt" For Binary As #ff
If LOF(ff) Then
ReDim b(0 To LOF(ff) - 1)
Get #ff, , b()
Else
bNoData = True
End If
Close #ff

If bNoData Then Exit Sub


If b(0) = &HEF And b(1) = &HBB And b(2) = &HBF Then
i = 3
End If
End If

s = String$(UBound(b), 0)
s = Left$(s, MultiByteToWideChar(CP_UTF8, 0, b(i), UBound(b) + 1 - i, ByVal
StrPtr(s), Len(s)))

MsgBox s
End Sub
============================== Смотри выше ===============================




Hе XML, да? FYI, в xml можно писать в UTF - парсер его прекрасно понимает.



Это ты зря. ;) По идее, для этого тебе надо использовать wide-версии окон и
функций, но, к сожалению, это не очень удобно делать на эхотаге, даже несмотря
на то, что тип строк в нем - BSTR.



Хранить строки можно как обычно, dim s as string создаст юникодную строку,
никаких извратов здесь не нужно.

Проблемы начинаются во второй части - при выводе строк в контролы. Окна
эхотага по умолчанию ansi, поэтому придется приводить wide к ansi через
StrConv или WideCharToMultiByte с использованием нужной локали. Эта же локаль
неизвестным мне способом ;) выставляется и контролу.








Значит, тебе дорога в MSForms2.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)