Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: MDI форма и RTF... Добавлено: 17.03.03 23:38  

Автор вопроса:  LEKS | ICQ: 221151724 

Всем приветы!

Я програмлю текстовый редактор...

Да... в институте грузят нас не мало...  так вот!

Мне очень нужна помощь!

1) Как закрыть внутреннюю форму проги через внешнюю...

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

2) Как загнать названия всех имеющихся в системе шрифтов в combolist для дальнейшего применения??? (и размеры шрифтов)

3) Как заставить менять шрифты и размеры в тексте во внутренней форме через внешнюю???

Очень надеюсь на Ваши полезные ответы и советы!

А то я уж за%бался выдумывать всякие команды, которые, на мой взгляд, что то изменят...  тока багов больше...

Спасибо!

Ответить

  Ответы Всего ответов: 12  

Номер ответа: 1
Автор ответа:
 P



ICQ: 346632205 

Вопросов: 5
Ответов: 86
 Профиль | | #1 Добавлено: 18.03.03 01:17

Закрыть MDIChild по-моему можно просто коммандой

Unload MDSIChildFormname

Ответить

Номер ответа: 2
Автор ответа:
 Shkoda



Вопросов: 3
Ответов: 9
 Профиль | | #2 Добавлено: 18.03.03 09:37

Привет!

Лови мыло с примером!

Ответить

Номер ответа: 3
Автор ответа:
 LEKS



ICQ: 221151724 

Вопросов: 2
Ответов: 7
 Профиль | | #3 Добавлено: 18.03.03 23:21

Спасибо за ответы! 

2Shkoda  отдельное спасибо за пример! 

надеюсь найдёшь пример с шрифтами в
ComboBox...

У меня ещё появился вопрос: 

каким образом, прои открытии файла в текстовом редакторе, можно открыть картинку (bmp или jpg) чтоб она грузанулась в ту MDI (внутренюю) форму, где помимо RichTextBox-а  есть уже заранее поставленный PictureBox...

Очень жду ответов... (препод грузит меня конкретно и требует результата...)

Ответить

Номер ответа: 4
Автор ответа:
 LEKS



ICQ: 221151724 

Вопросов: 2
Ответов: 7
 Профиль | | #4 Добавлено: 18.03.03 23:30

2Padre

Unload MDSIChildFormname НЕ закрывает форму MDIChild...    мож ещё какие-нибудь варианты есть?

Ответить

Номер ответа: 5
Автор ответа:
 P



ICQ: 346632205 

Вопросов: 5
Ответов: 86
 Профиль | | #5 Добавлено: 19.03.03 00:20

По поводу картинки. Если у тебя есть главная форма MDIForm1 и дочерняя форма Form1, а на главной лежит CommonDialog control, то это выглядит так и отлично работает:

CommonDialog1.ShowOpen
Form1.Picture1 = LoadPicture(MDIForm1.CommonDialog1.FileName)

Ответить

Номер ответа: 6
Автор ответа:
 LEKS



ICQ: 221151724 

Вопросов: 2
Ответов: 7
 Профиль | | #6 Добавлено: 19.03.03 00:31

2Padre

Спасибо!

а вот с закрытием формы (дочерней) есть ещё мысли?         т.к. предыдущая твоя мысль не работает...

Ответить

Номер ответа: 7
Автор ответа:
 P



ICQ: 346632205 

Вопросов: 5
Ответов: 86
 Профиль | | #7 Добавлено: 19.03.03 00:35

Да всё в принципе похоже. Та же ситуация: если у тебя есть главная форма MDIForm1 и дочерняя форма Form1, а на главной есть пункт меню mnuCloseChildForm, то это выглядит так и отлично работает:

Private Sub mnuCloseChildForm_Click()
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

Я так понял тебе нужно в тексте иметь картинку. И мне кажется, что картинка может бытьв любом месте. Тогда такая мысль - использовать формат HTML с соответствующим контролом, а не RichTextBox.

Это пока мысль, как привести ее в код пока не знаю, но думаю возможно. Если получится

PS. Кстати, может есть идеи по моему вопросу: "Помогите обработать адреса"

Ответить

Номер ответа: 10
Автор ответа:
 vitus



Вопросов: 9
Ответов: 43
 Web-сайт: www.jgukz.narod.ru
 Профиль | | #10
Добавлено: 19.03.03 11:01

Вот так я добавлял шрифты в ComboBox

Private Sub MDIForm_Load()
    For I = 0 To Screen.FontCount - 1
        Combo1.AddItem Screen.Fonts(I)
    Next
    Combo1.ListIndex = 0
    FontAdd
 End sub

Private Sub FontAdd()
   Dim btx As Button

    Set btx = Toolbar1.Buttons.Add(, "combo1", , tbrPlaceholder)
    btx.Width = 2000

   With Combo1
      .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

Всем спасибо за ответы!

2Padre: Чего-то долго ты молчишь... я ж тебе исходники дал уж 2 дня назад... сказал бы хоть што нить... 

Ответить

Номер ответа: 12
Автор ответа:
 P



ICQ: 346632205 

Вопросов: 5
Ответов: 86
 Профиль | | #12 Добавлено: 21.03.03 00:58
Sorry, просто времени сразу на всё не хватает, приходиться уделять на всё по немного времени

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам