31.12.2007, 08:31 | #1 (permalink) |
Member
Регистрация: 24.12.2007
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Пробывал писать так: Код:
Private Sub Combo1_Change() Text1.FontSize = Combo1.Text End Sub Код:
Private Sub Combo1_Change() If Combo1.Text = "12" Then Text1.FontSize = 12 End Sub Подскажите плиз, чо я делаю не так? 2)Как сделать, что бы при нажатии на кнопку запускался *.exe/*.avi файл??? |
31.12.2007, 08:31 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Важная информация так же может находиться по данным ссылкам Цифровое и спутниковое ТВ: несколько вопросов Несколько вопросов по сетевым и беспроводным подключениям, аппаратная часть ACDSee, несколько вопросов Несколько вопросов по усилителю |
31.12.2007, 19:58 | #2 (permalink) | ||
Имперская инквизиция
Регистрация: 14.02.2007
Сообщений: 6,097
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3046
|
Цитата:
Итак, правильнее будет: Private Sub Combo1_Change() Textbox1.FontSize = Combobox1.Fontsize (размер шрифта в текством поле при изменении значения ниспадающего списка будет равен шрифту сего же ниспадающего списка) либо, если хочешь поставить другой размер шрифта: Textbox1.FontSize = х, где х - произвольное число, размер буковок Цитата:
для открытия файла есть функция SHELL ........ юзай MSDN, это лишь подсказка - остальное должен понять сам |
||
31.12.2007, 22:53 | #3 (permalink) | ||
Member
Регистрация: 24.12.2007
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
Цитата:
|
||
01.01.2008, 00:21 | #5 (permalink) |
Member
Регистрация: 24.12.2007
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
У меня в комбобоксе несколько элементов ( "8","9","12","24","48" и т.д.). Мне надо, что бы при выборе "48" в текстовом поле шрифт становился размером 48, ну и т.д.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
01.01.2008, 09:22 | #7 (permalink) |
Member
Регистрация: 24.12.2007
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Так ваще не работает.
Попробывал, ради интереса, написал: Код:
Private Sub Combo1_Change() Text1.Text = Combo1.Text End Sub P.S. Забыл сказать: Когда было написано Код:
Private Sub Combo2_Change() Text1.FontSize = Combo2.Text End Sub |
01.01.2008, 12:13 | #8 (permalink) | |||
Имперская инквизиция
Регистрация: 14.02.2007
Сообщений: 6,097
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3046
|
Цитата:
Цитата:
Цитата:
|
|||
01.01.2008, 12:35 | #9 (permalink) | ||
Member
Регистрация: 24.12.2007
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
Цитата:
|
||
02.11.2008, 14:31 | #10 (permalink) |
Member
Регистрация: 01.11.2008
Сообщений: 58
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Хм,почитал,самому стало интересноскоро напишу че как делать
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|