С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/10: Рейтинг темы: голосов - 10, средняя оценка - 4.80
час
48 / 48 / 2
Регистрация: 07.03.2011
Сообщений: 203
1

Диалоги выбора цвета и шрифта - получение результата выбора

20.09.2011, 10:10. Просмотров 1828. Ответов 15
Метки нет (Все метки)

Имеем функцию
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    Function FUN_OPEN_FONT() As String
        ' диалог выбора ЦВЕТА 
        ' Устанавливаем начальное значение цвета
        'COLORD.Color = COLORD.Color.Gold 
        FUN_OPEN_FONT = ""
        Try
            Using COLORD As New ColorDialog
                COLORD.FullOpen = True ' Диалог будет полный
                If COLORD.ShowDialog = Windows.Forms.DialogResult.OK Then
                    FUN_OPEN_FONT = COLORD.Color.ToString
                End If
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Function
Функция одна на все случаи вызова.
А как результат её работы присвоить вызвашему её конролу(элементу формы например)О_о
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.09.2011, 10:10
Ответы с готовыми решениями:

Круговая палитра выбора цвета
Привет всем, помогите реализовать идею: круговой выбор цвета как в графических...

File not found extension was unheeded после выбора картинки в диалоге выбора файла
MySQL DB вот код Private Sub Button2_Click(sender As Object, e As...

Используя диалог выбора цвета, сменить фон формы
Сделал Меню,со вкладкой фон там есть кнопка выбрать и вот такой код Private Sub...

Задайте изменение цвета кнопок и цвета шрифта на кнопках формы в ходе выполнения программы
1. Задайте изменение цвета кнопок и цвета шрифта на кнопках формы в ходе...

Изменение цвета и шрифта в форме
вся форма состоит тока из label1-12 и собственно сама форма form2 в форме...

15
gitarillo
729 / 529 / 45
Регистрация: 17.06.2010
Сообщений: 1,032
Записей в блоге: 1
20.09.2011, 10:20 2
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sender.BackColor = GetColor()
    End Sub
    Function GetColor() As Color
        Try
            Using _Color As New ColorDialog
                _Color.FullOpen = True ' Диалог будет полный
                If _Color.ShowDialog = Windows.Forms.DialogResult.OK Then
                    Return _Color.Color
                End If
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function
End Class
1
час
48 / 48 / 2
Регистрация: 07.03.2011
Сообщений: 203
20.09.2011, 10:52  [ТС] 3
Понял -
vb.net
1
As Color
нужен - и нет проблемы
Спасибо!

Добавлено через 3 минуты
Сейчас буду делать для выбора шрифта - по аналогии
0
gitarillo
729 / 529 / 45
Регистрация: 17.06.2010
Сообщений: 1,032
Записей в блоге: 1
20.09.2011, 10:56 4
час, а если привести к типу нужному
vb.net
1
CType
1
час
48 / 48 / 2
Регистрация: 07.03.2011
Сообщений: 203
20.09.2011, 11:19  [ТС] 5
Постояло приложение, постояло - и заработалоО_о
Подчёркивание ошибки пропало - всё нормально.


Не по теме:

VB.NET, VBA, VB6, Базы данных
Сделаю, помогу, объясню.
Прям как у меня;D
Но у меня нет этих пунктов
помогу, объясню.
:rofl:



Добавлено через 20 минут
Что то я не по теме...
-------------------------
Посоветуйте улучшение написанного мною кода.
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Function FUN_OPEN_FONT(ByVal FNT As Font) As Font
        ' диалог выбора шрифта 
        FUN_OPEN_FONT = FNT
        Try
            Using OPEN_FONT As New FontDialog
                If OPEN_FONT.ShowDialog = Windows.Forms.DialogResult.OK Then
                    FUN_OPEN_FONT = OPEN_FONT.Font
                    Return OPEN_FONT.Font
                End If
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Function
0
gitarillo
729 / 529 / 45
Регистрация: 17.06.2010
Сообщений: 1,032
Записей в блоге: 1
20.09.2011, 11:29 6
час, зачем в функцию передаешь FNT ?
Не понятно назначение этих строк
vb.net
1
FUN_OPEN_FONT = FNT
vb.net
1
 FUN_OPEN_FONT = OPEN_FONT.Font
0
час
48 / 48 / 2
Регистрация: 07.03.2011
Сообщений: 203
20.09.2011, 11:41  [ТС] 7
Передаю текущее значение Значение FNT .
-------------------------
vb.net
1
FUN_OPEN_FONT = OPEN_FONT.Font
- это завалялось..
0
eJ_Studio
167 / 147 / 14
Регистрация: 13.07.2011
Сообщений: 477
20.09.2011, 19:44 8
понять не могу для чего это функция, без обид..блин, наверно не хило я заболел.
но не могу понять где ее применить

vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Function FUN_OPEN_FONT(ByVal FNT As Font) As Font
        ' диалог выбора шрифта 
        FUN_OPEN_FONT = FNT ' тут же функция закончит свое дело и проще было написать Return  FNT 
        Try
            Using OPEN_FONT As New FontDialog
                If OPEN_FONT.ShowDialog = Windows.Forms.DialogResult.OK Then
                    FUN_OPEN_FONT = OPEN_FONT.Font ' ну и эти строчки сводятся к одной
                    Return OPEN_FONT.Font '
                End If
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Function
0
час
48 / 48 / 2
Регистрация: 07.03.2011
Сообщений: 203
20.09.2011, 20:17  [ТС] 9
Как та так...

vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function FUN_OPEN_FONT(ByVal FNT As Font) As Font
        ' диалог выбора шрифта 
        ' FNT - текущее значение из поля
       
 ' если будет выход по ошибке - останется(будет присвоено) текущее значение
FUN_OPEN_FONT = FNT 
 
        Try
            Using OPEN_FONT As New FontDialog
                If OPEN_FONT.ShowDialog = Windows.Forms.DialogResult.OK Then
                    Return OPEN_FONT.Font ' возврат выбранного значения
                End If
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)              ' типа сообщение - что то пошло не так.
        End Try
 
    End Function
Применять - для смены юзером "значения" используемого шрифта в элементах управления формы(например).
0
Памирыч
Почетный модератор
20893 / 8777 / 1080
Регистрация: 11.04.2010
Сообщений: 11,013
20.09.2011, 20:22 10
eJ_Studio, это функции, ты пользуешься ими каждый день. Просто тут - пользовательская
Применить ее можно так:
vb.net
1
2
3
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sender.font = FUN_OPEN_FONT(Me.Font)
    End Sub
час, позволю себе наводящий вопрос.
При использовании функции, что ты передаешь в параметр своей функции, приведи пример.
0
час
48 / 48 / 2
Регистрация: 07.03.2011
Сообщений: 203
20.09.2011, 20:28  [ТС] 11
vb.net
1
2
3
   Dim F As Font
        F = FUN_OPEN_FONT(FRM_OKNO.MENU_BTN_LEFT.Font)
 FRM_OKNO.MENU_BTN_LEFT.Font = F
Только по моему это рунда....
Я ещё не обкатал функцию, но она уже работает.
Возможно не норм.
0
Памирыч
Почетный модератор
20893 / 8777 / 1080
Регистрация: 11.04.2010
Сообщений: 11,013
20.09.2011, 20:39 12
час, нет, ты не понял.
Покажи рабочий блок кода, как ты ее юзаешь, начиная с
vb.net
1
Private Sub
и заканчивая
vb.net
1
End Sub
Цитата Сообщение от час Посмотреть сообщение
но она уже работает
вот и покажи как
0
час
48 / 48 / 2
Регистрация: 07.03.2011
Сообщений: 203
20.09.2011, 20:41  [ТС] 13
ааааааа
Она используется формой настройки шрифтов, картинок, цвета контролов(элем. управ.) приложения.
vb.net
1
2
3
4
5
6
7
8
9
10
    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
 
        Dim F As Font
        F = FUN_OPEN_FONT(FRM_OKNO.MENU_BTN_LEFT.Font)
        My.Settings.SETTING_MENU_BUTON_UP_FONT = F
        My.Settings.Save()
        FRM_OKNO.MENU_BTN_RIGHT.Font = F
        FRM_OKNO.MENU_BTN_LEFT.Font = F
 
    End Sub
1
час
48 / 48 / 2
Регистрация: 07.03.2011
Сообщений: 203
20.09.2011, 20:45  [ТС] 14
вот такая форма
0
Миниатюры
Диалоги выбора цвета и шрифта - получение результата выбора  
Памирыч
Почетный модератор
20893 / 8777 / 1080
Регистрация: 11.04.2010
Сообщений: 11,013
20.09.2011, 20:50 15
час, Ок, понятно
То, что ты сделал функцию с параметром - это хорошо, и передаешь в нее "старый" шрифт, чтоб если пользователь если откажется от выбора, шрифт вернется такой какой был.
Хорошо.
1
час
48 / 48 / 2
Регистрация: 07.03.2011
Сообщений: 203
20.09.2011, 20:53  [ТС] 16
:dance3::dance3:
0
20.09.2011, 20:53
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.09.2011, 20:53

Изменение цвета шрифта TextBox в зависимости от значения
Всем привет. Суть проблемы попытаюсь объяснить максимально понятно. У меня...

Изменение цвета и шрифта кнопок формы при нажатии на кнопку
Изменение цвета и шрифта кнопок формы при нажатии на кнопку

Не работает оператор выбора
но программа не идет... Public Class Form1 Dim i, j, n, k, d, m, g,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
16
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru