Текстовый редактор

[merin]

В общем сейчас работаю на VB5, проблема возникла такая : создаю простейший текстовый редактор с MDI формой, меняет шрифт, размер шрифта, вот только не могу сменить цвет текста, создал отдельную форму с массивом кнопок, окрашеных в различные цвета (препод так сказал сделать), нужно чтоб при нажатии кнопки, текст активного окна окрашивался в аналогичный цвет. Помогите кто может, от этого курсача оч много зависит.

[DeMONiZ]

Сегодня видел в инете исходник текстового редактора поищи.
Что то вас последнее время много у кого курсовой у кого контрольная у кого диплом....под конец учебного года...

[merin]

я тоже видел, только на VB6 ,а мне на пятом надо. тем более осталось то совсем мало.

[DeMONiZ]

А что они сильно отличаются?

[merin]

качал я его, он у меня даже в бэйсике не открылся.

[iGrok]

качал я его, он у меня даже в бэйсике не открылся.

Открой блокнотом, и изучи код...

[merin]

там точно не тем методом сделана смена цвета...

[Хакер]

кнопок, окрашеных в различные цвета (препод так сказал сделать)

Препод балбес.

[arvitaly]

Препод балбес.

Или не может добиться большего от студентов, так хоть работа со свойствами объектов, хоть какое-то ООП

[merin]

нет, у меня текст в обычном текст боксе, препод первый год преподает, выкобенивается оч, у меня в принципе почти всё сделано и всё её устраивает, вот цвета ей надо чтоб менялись нажатием на разноцветные кнопочки, кнопочки массивом сделал, осталось придумать как это дело оживить.

[Maxxx.!!!.]

А у тебя каким параметром меняется цвет кнопки? Насколько я понял, если это обычная Command кнопка, то вы выставил в Style у нее Graphical, и цвет поменял через BackColor.

Если это так, то вот:

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

Text1.ForeColor = Command1.BackColor

где Text1- твой текстбокс, а Command1 - нужная кнопка.

[Maxxx.!!!.]

Препод балбес

Неа, не балбес, а дура, т.к:

всё её устраивает, вот цвета ей надо

Этим, я думаю, и объясняется страсть к разноцветным кнопочкам, думаю, преимущественно розовым

[Хакер]

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

[iGrok]

<offtop>

Этим, я думаю, и объясняется страсть к разноцветным кнопочкам, думаю, преимущественно розовым

Угу... А палитра там "100 оттенков розового"... Ага...

Интересно, если взять picturebox, нарисовать там палитру, и сделать, чтобы цвет менялся при щелчке мышься по нужному цвету, она грохнется в обморок, или просто поставит "незачёт" потому, что ей нужны "кнопочки"?

Вот с этих преподов я и фигею последние годы... А потом мы удивляемся, чего это у нас так хреново с элементарной компьютерной грамотностью...
</offtop>

[Maxxx.!!!.]

Ну, само собой, т.к. если пользователь сменит "Тему", то все эти украшательства сойдут на нет. Да и нехорошо это. Но раз человеку надо - надо предлагать варианты.

[merin]

да, препод женского пола))) кстати этот способ выдает ошибку... там вроде через индекс делать надо, она так сказала. кстати как сделать через пикчер бокс ?

[Maxxx.!!!.]

Этот способ не может давать ошибку. Т.к. он - примитивнее некуда. Что тебе не понятно: меняешь имя текстбокса на свое, меняешь имя кнопки на свое (если у тебя массив, пиши его индекс).

[merin]

в общем я новичек, и многого не умею,и вот что у меня в коде, для смены цвета в первом текстовом поле:

Private Sub Command1_Click(Index As Integer)
Form1.Text1.ForeColor = Command1.BackColor
End Sub

и вот какая ошибка вылезает:

Compile error:
Method or data member not found.

[merin]

кнопки сделаны массивом...

[Хакер]

merin, почему в методе класса идёт обращение к конкретному экземпляру класса, ссылка на который содержится в переменной Form1?

[Хакер]

[Хакер] :: Вырезано. Предупреждение. , только что в viewtopic.php?f=1&t=39602 с этими массивами мучался , сам я ими никогда и не пользовался. Ну, наверное, как-то так:

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

Private Sub Command1_Click(Index As Integer)
Text1.ForeColor = Command1(Index).BackColor
End Sub

[Maxxx.!!!.]

Все, теперь буду говорить только "Блин" (надеюсь, это не "эвфемизированное ругательство").

[merin]

в данный момент я пытаюсь менять цвет только в 1 форме, в "подопытном текстовом окне" то есть в котором наглядно показывается что будет с текстом после корректировки надписи (изменения размера,шрифта и цвета), изменение цвета в активных дочерних окнах я сделаю сам, но для этого надо научиться менять цвет в первом текст боксе, на первой форме...

[Maxxx.!!!.]

Ты скажи, код-то работает?

[merin]

Maxxx.!!!
спасибо большое =)))) всё заработало)) оч благодарен

[merin]

ещё вопрос... вот к примеру код смены шрифта:
MDIForm1.ActiveForm.Text1.FontName = Combo2.FontName
но если попробовать его сменить, когда не открыто ни одного дочернего окна, то вылезет ошибка, и приложение закроется... как это изменить?

[Maxxx.!!!.]

Пожалуйста!

ActiveForm - это АКТИВНОЕ окно. ...когда не открыто ни одного дочернего окна ... - мозг-то включти, как тебе что-то поменяется на том, чего нет
Делай проверку перед сменой шрифта на наличие хоть одного активного окна.

[merin]

как

[iGrok]

Все, теперь буду говорить только "Блин" (надеюсь, это не "эвфемизированное ругательство").

Эвфемизированное, эвфемизированное. Только это - более-менее нейтральное.

как

If Not MDIForm1.ActiveForm Is Nothing Then MDIForm1.ActiveForm.Text1.FontName = Combo2.FontName

[Maxxx.!!!.]

Справка тебе на что? Я лично без понятия, MDI не увлекаюсь.