Несколько вопросов: о RTF, о массивах, рейтингах и т.д.

[Maxxx.!!!.]

1)Как сделать UNDO в RTFBox'e? В VB.NET, помню, специальный метод под эту тему был, а VB6, что-то не найду его?

2)Хотел сделатьProgressBar: чтобы когда у меня шел цикл с вычислениями он по-маленьку прибавлялся, но вот беда - когда цикл выполняется система загружена под завязку (проц почти полностью забит) и ПрогрБар заполняется сразу на все 100% только при выходе из цикла, что не есть хорошо. Может VB просто не успевает его отрисовывать?

3)Объявляю массив в модуле (Public ZZZ(100) as String), а потом хочу его уже в форме изменить ReDim'ом, а VB выдает ошибку? А можно ли вообще изменять размер глобального массива?

4)И самое сложное: есть массив, например, ZZZ(1000) as String. Весь он запит словами. Нужно создать рейтинг слов, т.е., например, завести массив Word стринговский, и WordChart лонговский и чтобы получилось так, что, например, в Word(50) было слово, а в WordChart(50) - было указано сколько раз это слово встречалось в массиве ZZZ. У самого ума не хватает придумать корректно работающий механизм...
Заранее благодарен.

[EUGY]

Послать в окно SendMessage(RichTextBox1.Hwnd,EM_UNDO,0,0)
...
Использовать DoEvents в цикле для перерисовки ProgressBar
...
Redim использовать только для динамических массивов (объявленных без указания длины), Public или Private не имеет значения.

[GSerg]

1) Послав EM_UNDO
2) DoEvents
3) Можно, если он динамический, а не статический, как у тебя.
4) Коллекция, каждый элемент которой - Array("слово", число).


4 вопроса.
Из них имеющихся на форуме в достатке: 4, оригинальных: 0.
И это не первый раз.
Как думаешь, Maxxx.!!!., не выписать ли тебе предупреждение за злостное неипользование поиска?

[Maxxx.!!!.]

4 вопроса.
Из них имеющихся на форуме в достатке: 4, оригинальных: 0.
И это не первый раз.
Как думаешь, Maxxx.!!!., не выписать ли тебе предупреждение за злостное неипользование поиска?

Простите, дурака грешного, я больше так не буду! Я буду молиться на Поиск!

[Maxxx.!!!.]

Redim использовать только для динамических массивов (объявленных без указания длины), Public или Private не имеет значения.

Все-равно не работает Пишу в модуле

Код: Выделить всё

Public ArrWord As String

А потом в коде формы:

Код: Выделить всё

ReDim ArrWord(ii) As String

ii - это переменная типа Long

VB выдает ошибку: Compile Array: Expected array.
Вот.

[GSerg]

Скобки поставь.

Maxxx.!!!., знаешь, чтобы осуществить сложение, надо знать о существовании оператора "плюс" и о том, что он ставится между аргументами. Может пора книжку почитать "VB для чайников"? А то загружать форум такими вопросами неполезно.

[EUGY]

Ну чё вам, места жалко? Пусть спрашивает человек.

[EUGY]

To: Maxxx.!!!

Public ArrWord As String - 'это объявлена строка

Public ArrWord() As String - 'это объявлен динамический массив строк (без указания длины)

Public ArrWord(666) As String - 'это объявлен статический массив строк


ReDim ArrWord(ii) As String ' так не надо, это в неявном виде объявление нового массива

'В твоем случае правильно так
Public ArrWord() As String

...
Dim ii as Long
ii=666
ReDim ArrWord(ii)

[Cytron]

Public ArrWord () As String
ReDim ArrWord(ii) As String
иначе ты обьявиш строку а потом хочешь из нее сделать массив

[Maxxx.!!!.]

:neutral:
Скобки поставь.

Maxxx.!!!., знаешь, чтобы осуществить сложение, надо знать о существовании оператора "плюс" и о том, что он ставится между аргументами. Может пора книжку почитать "VB для чайников"? А то загружать форум такими вопросами неполезно.

Есть у меня книги For Teapot. Только там ни хрена не написано про создание динамических массивов. Поэтому и спрашиваю. И я думаю, что чем больше в форуме контента, пусть даже такого бестолкового, тем лучше. Но, может быть, я не прав...

[Maxxx.!!!.]

To: Maxxx.!!!

Public ArrWord As String - 'это объявлена строка

Public ArrWord() As String - 'это объявлен динамический массив строк (без указания длины)

Public ArrWord(666) As String - 'это объявлен статический массив строк


ReDim ArrWord(ii) As String ' так не надо, это в неявном виде объявление нового массива

'В твоем случае правильно так
Public ArrWord() As String

...
Dim ii as Long
ii=666
ReDim ArrWord(ii)

Спасибо! Ступил я конкретно... Из строки, действительно, массив вряд ли получится

[Andrey Fedorov]

Есть у меня книги For Teapot. Только там ни хрена не написано про создание динамических массивов. Поэтому и спрашиваю.

Ну ты все же не игнорируй клавишу F1 - ее нажатие зачастую освобождает от необходимости задавать подобные вопросы. А знать английский в объеме прочтения Help-a - просто необходимо - без этого никак...

[Maxxx.!!!.]

Ну ты все же не игнорируй клавишу F1 - ее нажатие зачастую освобождает от необходимости задавать подобные вопросы. А знать английский в объеме прочтения Help-a - просто необходимо - без этого никак...[/quote]

Я бы и рад на нее нажать, только когда я пару лет наза покупал VB, то на диске не было MSND. А теперь, когда мне он по зарез нужен, я не где его не могу найти. Вот полный VS Studio 2005 с MSND у меня есть, только он для .NET платформы и про VB6.0 там ни слова... Так и живу...

[Maxxx.!!!.]

Послать в окно SendMessage(RichTextBox1.Hwnd,EM_UNDO,0,0)

Не получается. В модуле написал:

Код: Выделить всё

Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long

А в нужной процедуре на форме:

Код: Выделить всё

SendMessage frmRTF.rtfbox.hWnd, EM_UNDO, 0, 0

Но - никаких действий не происходит. Я, наверное, где-то что-то пропустил?

[GSerg]

Объявление EM_UNDO, по всей видимости?

[Maxxx.!!!.]

Объявление EM_UNDO, по всей видимости?

Хмм... В каком-то примере я нашел такой код:

Код: Выделить всё

Const EM_UNDO = &H304

Я в модуде и написал:

Код: Выделить всё

Public  Const EM_UNDO = &H304

Или как-то по другому надо это объявить?

[GSerg]

Да нет, так и надо, в принципе...
И ещё надо последний 0 byval...
Хотя и первый тоже, раз у тебя такое объявление.

[EUGY]

Сколько живу, всегда строку считают массивом...
По крайней мере не в VB. Народ, учите ASM!

Нервы... нервы... А ведь казалось бы, ну пропусти ты этот пост, и предыдущий с манифестом...

[EUGY]

VB 6 и т.д. приучает пользоваться переменными строк.
Удобно, конечно. Особо приближенные к приплюснутому C знают горькую правду. Но зачем-же детей пугать.

[GSerg]

Сколько живу, всегда строку считают массивом...
По крайней мере не в VB. Народ, учите ASM!

Ну сделай мне из строки массив строк

Ибо, имхо, весьма некрасиво вырывать фразу из контекста. Для целей данного топика не имеет никакого значения, представляет ли строка из себя массив байт, шортов или чего-то ещё. И подобное замечание о природе строки, на мой взгляд, ничем, кроме как неполезным показанием собственной крутизны, не является.

[EUGY]

Call Split("устное_предупреждение_модератору", "_")

[GSerg]

Я его и до того перечитал, и сейчас перечитал ещё раз. Это ты перечитай топик с начала, а потом ту фразу Maxxx.!!!., на которую ты отреагировал. И посмотри, какой массив имелся в виду, и сравни его с тем, о котором говорил ты.
Результат - в моих глазах - выглядит как ничем не обоснованный понт на тему "а я знаю, что там в строке, а вы нет".

[GSerg]

Тебя так смутил объяснительный оборот, выделенный тире?
Ок...

[tyomitch]

Я просто обратил внимание, на то что строка в нормальных языках - массив байтов.

Так, повод для холивара готов

В Жаве строка -- это массив двухбайтных юникодных символов.
Стало быть, Жава -- это ненормальный язык?

[Viper]

с таким подходом, переменная или же массив ЛЮБОГО типа есть массив байтов

[GSerg]

Не вижу разницы между содержимым первых кавычек и вторых.
Более того, данным постом автор опровергает сказанное !Viper!ом при помощи подтверждения сказанного !Viper!ом, что само по себе забавно.

[GSerg]

Наверное, ты обладаешь неким тайным знанием о русском языке; не будем тревожить тебя в нём.
Но всё же захотелось сказать, что время от времени (когда случай... хм... подходящий) мы выносим замечания с формулировкой, как здесь.

[Maxxx.!!!.]

Да нет, так и надо, в принципе...
И ещё надо последний 0 byval...
Хотя и первый тоже, раз у тебя такое объявление.

Блин, ну если все правильно, то почему же не работает? В модуле я эту функцию объявил, конствнту тоже. Я даже пробовал перед Declare ставить Public - никакой реакции... Даже понять не могу, где я еще мог ступить

[GSerg]

И ещё надо последний 0 byval...
Хотя и первый тоже, раз у тебя такое объявление.

[Maxxx.!!!.]

И ещё надо последний 0 byval...
Хотя и первый тоже, раз у тебя такое объявление.

А это как понимать? Т.е., еще что-то надо объявить?