Технический форум - Несколько вопросов по VB

Технический форум (http://www.tehnari.ru/)

- Форум программистов (http://www.tehnari.ru/f22/)

- - Несколько вопросов по VB (http://www.tehnari.ru/f22/t8016/)

1)Как сделать, что бы при выборе размера шрифта в ComboBox1 изменялся шрифт в текстовом поле Text1?????
Пробывал писать так:

Код:

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 файл???

Цитата:

Сообщение от Helius

Код:
Private Sub Combo1_Change()
Text1.FontSize = Combo1.Text
End Sub

дословно - ты присваиваешь размеру шрифта текстового поля Text1 ТЕКСТ, находящийся в выпадающем списке 1.
Итак, правильнее будет:

Private Sub Combo1_Change()
Textbox1.FontSize = Combobox1.Fontsize (размер шрифта в текством поле при изменении значения ниспадающего списка будет равен шрифту сего же ниспадающего списка)
либо, если хочешь поставить другой размер шрифта:
Textbox1.FontSize = х, где х - произвольное число, размер буковок

Цитата:

Сообщение от Helius

Код:
Private Sub Combo1_Change()
If Combo1.Text = "12" Then Text1.FontSize = 12
End Sub

сие при изменении значения ниспадающего списка, если значение текста оного выбирается равным "12" (либо вбивается руками) производит изменение высоты шрифта текстового поля до 12 (смысл чего мне глубоко не понятен) :D

для открытия файла есть функция SHELL ........ юзай MSDN, это лишь подсказка - остальное должен понять сам

Цитата:

Сообщение от -ViрeR-

Private Sub Combo1_Change()
Textbox1.FontSize = Combobox1.Fontsize (размер шрифта в текством поле при изменении значения ниспадающего списка будет равен шрифту сего же ниспадающего списка)
либо, если хочешь поставить другой размер шрифта:
Textbox1.FontSize = х, где х - произвольное число, размер буковок

Так в Combobox'е шрифт всех элементов одинаковый, поэтому при выборе размер шрифта в текстовом поле меняться не будет...

Цитата:

Сообщение от -ViрeR-

для открытия файла есть функция SHELL ........ юзай MSDN, это лишь подсказка - остальное должен понять сам

Спасибо. тока вот MSDN у меня нету((( ща буду качать...

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

У меня в комбобоксе несколько элементов ( "8","9","12","24","48" и т.д.). Мне надо, что бы при выборе "48" в текстовом поле шрифт становился размером 48, ну и т.д.

private combobox1_change
if isnumeric (combobox1.text) then
textbox1.fontsize = combobox1.text
else
end

Так ваще не работает.

Попробывал, ради интереса, написал:

Код:

Private Sub Combo1_Change()

Text1.Text = Combo1.Text

End Sub

Опять ни какой реакции.... Получаеться дело в чем-то другом....

P.S. Забыл сказать: Когда было написано

Код:

Private Sub Combo2_Change()

Text1.FontSize = Combo2.Text

End Sub

тогда шрифт менялся, если в комбобокс цифры вводить вручную

Цитата:

Сообщение от Helius

Private Sub Combo1_Change()
Text1.Text = Combo1.Text
End Sub

вообще ахинея ......... уже объяснял выше

Цитата:

Сообщение от Helius

тогда шрифт менялся, если в комбобокс цифры вводить вручную

не только вручную, но и при выборе любого числового пункта из ниспадающего списка

Цитата:

Сообщение от Helius

Так ваще не работает

так в ниспадающий список ты хоть что-то загонял в виде списка или руками набиваешь??

Цитата:

Сообщение от -ViрeR-

не только вручную, но и при выборе любого числового пункта из ниспадающего списка

Нет! тока если вводил вручную, а при выборе из списка шрифт не менялся!

Цитата:

Сообщение от -ViрeR-

так в ниспадающий список ты хоть что-то загонял в виде списка или руками набиваешь??

Пробывал по разному....

Хм,почитал,самому стало интересно:)скоро напишу че как делать:)