Модераторы: diadiavova, gambit
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> смена размера шрифта 
:(
    Опции темы
sgrey
Дата 29.1.2007, 05:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 265
Регистрация: 15.4.2006

Репутация: нет
Всего: 4



прошу не бить ногами за тупой вопрос )
вобщем у меня VS 2005, поэтому код отличается от большинства примеров VB6, не могу найти нужного никак...
проблема:
в window форме имеется 2 RadioButton и Label. Нужно чтобы размер шрифта менялся в зависимости от выбора кнопки.... 
заранее спасибо )
PM MAIL   Вверх
mihanik
Дата 29.1.2007, 09:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 1
Всего: 109



Тебе нужно в программирование VB .NET...


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Akina
Дата 29.1.2007, 10:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 1
Всего: 454



Перемещено в VB.Net


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
ivashkanet
Дата 29.1.2007, 12:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Кодю потиху
****


Профиль
Группа: Участник Клуба
Сообщений: 3684
Регистрация: 23.2.2006
Где: Гомель, Беларусь

Репутация: 5
Всего: 149



Цитата(sgrey @  29.1.2007,  04:49 Найти цитируемый пост)
в window форме имеется 2 RadioButton и Label. Нужно чтобы размер шрифта менялся в зависимости от выбора кнопки.... 

Код

Public Class Form1
    Private _font1 As Font = New System.Drawing.Font("Times New Roman", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
    Private _font2 As Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte))

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked Then
            Label1.Font = _font1
        End If
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked Then
            Label1.Font = _font2
        End If
    End Sub
End Class

PM MAIL WWW ICQ   Вверх
sgrey
Дата 29.1.2007, 19:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 265
Регистрация: 15.4.2006

Репутация: нет
Всего: 4



Цитата(ivashkanet @ 29.1.2007,  12:57)
Цитата(sgrey @  29.1.2007,  04:49 Найти цитируемый пост)
в window форме имеется 2 RadioButton и Label. Нужно чтобы размер шрифта менялся в зависимости от выбора кнопки.... 

Код

Public Class Form1
    Private _font1 As Font = New System.Drawing.Font("Times New Roman", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
    Private _font2 As Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte))

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked Then
            Label1.Font = _font1
        End If
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked Then
            Label1.Font = _font2
        End If
    End Sub
End Class

пасиба) не думал что для того чтобы поменять размер шрифта надо создавать класс )

Добавлено @ 19:55 
Цитата(mihanik @ 29.1.2007,  09:13)
Тебе нужно в программирование VB .NET...

спасибо, поэтому и не мог найти ничего - не то искал оказывается ) 
PM MAIL   Вверх
ivashkanet
Дата 29.1.2007, 20:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Кодю потиху
****


Профиль
Группа: Участник Клуба
Сообщений: 3684
Регистрация: 23.2.2006
Где: Гомель, Беларусь

Репутация: 5
Всего: 149



Цитата(sgrey @  29.1.2007,  18:43 Найти цитируемый пост)
пасиба) не думал что для того чтобы поменять размер шрифта надо создавать класс )

Не понял  smile Какой класс?
Для того чтобы создать форму нужен класс, а не для того чтобы шрифт поменять  smile 
PM MAIL WWW ICQ   Вверх
sgrey
Дата 29.1.2007, 20:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 265
Регистрация: 15.4.2006

Репутация: нет
Всего: 4



Цитата(ivashkanet @ 29.1.2007,  20:09)
Цитата(sgrey @  29.1.2007,  18:43 Найти цитируемый пост)
пасиба) не думал что для того чтобы поменять размер шрифта надо создавать класс )

Не понял  smile Какой класс?
Для того чтобы создать форму нужен класс, а не для того чтобы шрифт поменять  smile

имел ввиду это
Цитата


 Private _font1 As Font = New System.Drawing.Font

не класс, не так его обозвал ) честно говоря без понятия как это называется) объект? )
Цитата


System.Drawing.FontStyle.Regular


а если мне надо допустим подчеркнутый курсив, как его загнать туда? ) получается только либо одно либо второе...
PM MAIL   Вверх
-Mikle-
Дата 30.1.2007, 17:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Невидимка Vingrad'а
***


Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 3
Всего: 59



Цитата(sgrey @  29.1.2007,  23:21 Найти цитируемый пост)
а если мне надо допустим подчеркнутый курсив, как его загнать туда? ) получается только либо одно либо второе.


просто комбинируешь их:

FontStyle.Italic Or FontStyle.Bold Or FontStyle.Underline
 - это будет подчеркнутый жирный курсив.

FontStyle.Italic Or FontStyle.Bold Or FontStyle.Underline Or FontStyle.Strikeout
 - это будет подчеркнутый зачеркнутый жирный курсив.




--------------------
Если тебе плюют в спину, значит ты впереди...
PM   Вверх
sgrey
Дата 30.1.2007, 20:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 265
Регистрация: 15.4.2006

Репутация: нет
Всего: 4



Цитата(-Mikle- @  30.1.2007,  17:39 Найти цитируемый пост)

просто комбинируешь их:

FontStyle.Italic Or FontStyle.Bold Or FontStyle.Underline
 - это будет подчеркнутый жирный курсив.

FontStyle.Italic Or FontStyle.Bold Or FontStyle.Underline Or FontStyle.Strikeout
 - это будет подчеркнутый зачеркнутый жирный курсив.

пасиб)
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »


 




[ Время генерации скрипта: 0.4241 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.