Страница: 1 |
Всем приветы! Я програмлю текстовый редактор... Да... в институте грузят нас не мало... так вот! Мне очень нужна помощь! 1) Как закрыть внутреннюю форму проги через внешнюю... т.е. типа есть основная форма текстового редактора, а в нем можно создовать новые, в которых то и будет весь текст... так вот как их правильно закрывать командой из "того" первого окна MDI формы??? 2) Как загнать названия всех имеющихся в системе шрифтов в combolist для дальнейшего применения??? (и размеры шрифтов) 3) Как заставить менять шрифты и размеры в тексте во внутренней форме через внешнюю??? Очень надеюсь на Ваши полезные ответы и советы! А то я уж за%бался выдумывать всякие команды, которые, на мой взгляд, что то изменят... тока багов больше... Спасибо!
Закрыть MDIChild по-моему можно просто коммандой Unload MDSIChildFormname Привет! Лови мыло с примером! Спасибо за ответы! 2Shkoda отдельное спасибо за пример! надеюсь найдёшь пример с шрифтами в У меня ещё появился вопрос: каким образом, прои открытии файла в текстовом редакторе, можно открыть картинку (bmp или jpg) чтоб она грузанулась в ту MDI (внутренюю) форму, где помимо RichTextBox-а есть уже заранее поставленный PictureBox... Очень жду ответов... (препод грузит меня конкретно и требует результата...) 2Padre Unload MDSIChildFormname НЕ закрывает форму MDIChild... мож ещё какие-нибудь варианты есть? По поводу картинки. Если у тебя есть главная форма MDIForm1 и дочерняя форма Form1, а на главной лежит CommonDialog control, то это выглядит так и отлично работает: CommonDialog1.ShowOpen 2Padre Спасибо! а вот с закрытием формы (дочерней) есть ещё мысли? т.к. предыдущая твоя мысль не работает... Да всё в принципе похоже. Та же ситуация: если у тебя есть главная форма MDIForm1 и дочерняя форма Form1, а на главной есть пункт меню mnuCloseChildForm, то это выглядит так и отлично работает: Private Sub mnuCloseChildForm_Click() Загнать шрифты в Комбобокс не сложно, могу намылить пример, а вот юзать их оттуда я так сходу и не могу сказать Я так понял тебе нужно в тексте иметь картинку. И мне кажется, что картинка может бытьв любом месте. Тогда такая мысль - использовать формат HTML с соответствующим контролом, а не RichTextBox. Это пока мысль, как привести ее в код пока не знаю, но думаю возможно. Если получится PS. Кстати, может есть идеи по моему вопросу: "Помогите обработать адреса" Вот так я добавлял шрифты в ComboBox Private Sub MDIForm_Load() Private Sub FontAdd() Set btx = Toolbar1.Buttons.Add(, "combo1", , tbrPlaceholder) With Combo1 Всем спасибо за ответы! 2Padre: Чего-то долго ты молчишь... я ж тебе исходники дал уж 2 дня назад... сказал бы хоть што нить... Страница: 1 |
Вопрос: MDI форма и RTF...
Добавлено: 17.03.03 23:38
Автор вопроса: LEKS | ICQ: 221151724
Ответы
Всего ответов: 12
Номер ответа: 1
Автор ответа:
P
ICQ: 346632205
Вопросов: 5
Ответов: 86
Профиль | | #1
Добавлено: 18.03.03 01:17
Номер ответа: 2
Автор ответа:
Shkoda
Вопросов: 3
Ответов: 9
Профиль | | #2
Добавлено: 18.03.03 09:37
Номер ответа: 3
Автор ответа:
LEKS
ICQ: 221151724
Вопросов: 2
Ответов: 7
Профиль | | #3
Добавлено: 18.03.03 23:21
ComboBox...
Номер ответа: 4
Автор ответа:
LEKS
ICQ: 221151724
Вопросов: 2
Ответов: 7
Профиль | | #4
Добавлено: 18.03.03 23:30
Номер ответа: 5
Автор ответа:
P
ICQ: 346632205
Вопросов: 5
Ответов: 86
Профиль | | #5
Добавлено: 19.03.03 00:20
Form1.Picture1 = LoadPicture(MDIForm1.CommonDialog1.FileName)
Номер ответа: 6
Автор ответа:
LEKS
ICQ: 221151724
Вопросов: 2
Ответов: 7
Профиль | | #6
Добавлено: 19.03.03 00:31
Номер ответа: 7
Автор ответа:
P
ICQ: 346632205
Вопросов: 5
Ответов: 86
Профиль | | #7
Добавлено: 19.03.03 00:35
Unload Form1
End Sub
Номер ответа: 8
Автор ответа:
P
ICQ: 346632205
Вопросов: 5
Ответов: 86
Профиль | | #8
Добавлено: 19.03.03 00:43
Номер ответа: 9
Автор ответа:
Shkoda
Вопросов: 3
Ответов: 9
Профиль | | #9
Добавлено: 19.03.03 09:41
Номер ответа: 10
Автор ответа:
vitus
Вопросов: 9
Ответов: 43
Web-сайт:
Профиль | | #10
Добавлено: 19.03.03 11:01
For I = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(I)
Next
Combo1.ListIndex = 0
FontAdd
End sub
Dim btx As Button
btx.Width = 2000
.Width = Toolbar1.Buttons("combo1").Width
.Top = Toolbar1.Buttons("combo1").Top
.Left = Toolbar1.Buttons("combo1").Left
.ListIndex = 0
End With
Show
End Sub
Номер ответа: 11
Автор ответа:
LEKS
ICQ: 221151724
Вопросов: 2
Ответов: 7
Профиль | | #11
Добавлено: 20.03.03 22:39
Номер ответа: 12
Автор ответа:
P
ICQ: 346632205
Вопросов: 5
Ответов: 86
Профиль | | #12
Добавлено: 21.03.03 00:58
Sorry, просто времени сразу на всё не хватает, приходиться уделять на всё по немного времени