Несколько вопросов по VB

[Helius]

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

 

[VipeR]

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

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

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

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

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

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

 

[Helius]

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

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

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

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

 

[VipeR]

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

 

[Helius]

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

 

[VipeR]

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

 

[Helius]

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

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

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

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

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

Private Sub Combo2_Change()
Text1.FontSize = Combo2.Text
End Sub

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

 

[VipeR]

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

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

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

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

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

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

 

[Helius]

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

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

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

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

 

[Chyvakoff]

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

 

[Chyvakoff]

Посмотреть вложение 325
А команда fontsize вообще отсутствует в прграмме.
У меня Microsoft Visual Studio .NET 2003
а вы на чём пишете?

 

[Dalas]

Не отображается при открывании фотография

В общем, сделал давненько восстановление данных на винте, что восстановилось - то восстановилось, что нет- то нет, естесственно, и было удалено) После чего зашел в одну папку, там фотки. Вид-Эскизы страниц. Эскизы страниц(фоток) отображаются ВСЕ. Большинство фоток открываются, а некоторые нет. "Просмотр недоступен" - при открывании стандартной открывалкой)) В чем может быть проблема?

 

[Endrew]

"Просмотр недоступен" - при открывании стандартной открывалкой))

это что -программа просмотра изображений и факсов или еще чего ? если - да ,формат фотки какой пишет на файле

 

[Dalas]

это что -программа просмотра изображений и факсов или еще чего ? если - да ,формат фотки какой пишет на файле

Да. Расширение, вроде так называется, jpeg)

 

[Yohji]

PcR, фотку которая не открывается скиньте на файлообменник http://exfile.ru и ссылку сюда, поглядим.

 

[Dalas]

http://exfile.ru/60406

 

[set of letters]

сделал давненько восстановление данных на винте

Что значит сделал восстановление данных?
Не открылась вообще ни одной программой для работы с фото, из тех, что есть. Удалены все данные о фото. Проги отказываются открывать из-за повреждения

 

[Dalas]

Что значит сделал восстановление данных?

Винт полетел, видимо. Часть данных была утеряна, большая часть восстановлена. + физически на винте(250гб) стало меньше на ~100гб, т.е. ща 150гб тока юзать можно) С помощью проги одной восстанавливал, что было повреждено - удалялось, что давало надежду на жизнь - восстановлено) Вот и думаю чож тогда эти фотки не удалились(видимо коряво восстановилось), и самое обидное, что в папке с видом 'эскизы страниц' видны эти фотки))

 

[set of letters]

Фотки эти навряд ли удастся восстановить из-за повреждений. Фото хуже всего поддаются восстановлению