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

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

20.09.2011, 10:10. Просмотров 2244. Ответов 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
QA
Эксперт
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 EventArgs) Handles...

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

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

Как создать диалог выбора шрифта и диалог выбора цвета
как создать диалог выбора шрифта и диалог выбора цвета в wpf

15
gitarillo
743 / 542 / 48
Регистрация: 17.06.2010
Сообщений: 1,038
Записей в блоге: 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
743 / 542 / 48
Регистрация: 17.06.2010
Сообщений: 1,038
Записей в блоге: 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
743 / 542 / 48
Регистрация: 17.06.2010
Сообщений: 1,038
Записей в блоге: 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
168 / 148 / 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
Памирыч
Почетный модератор
21156 / 8885 / 1080
Регистрация: 11.04.2010
Сообщений: 11,012
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
Памирыч
Почетный модератор
21156 / 8885 / 1080
Регистрация: 11.04.2010
Сообщений: 11,012
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
Миниатюры
Диалоги выбора цвета и шрифта - получение результата выбора  
Памирыч
Почетный модератор
21156 / 8885 / 1080
Регистрация: 11.04.2010
Сообщений: 11,012
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
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.09.2011, 20:53

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

Нужна задачка выбора названия цвета в ComboBox и последующего появления самого цвета в другом окне
Выбираешь название цвета (red,black и т.д) в ComboBox и чтобы сам цвет появлялся в другом окне....

ContextMenu изменение цвета выбора и цвета текста
Добрый день подскажите как сделать так что бы после выбора пункта меню цвет текста менялся обратно...

Форма выбора шрифта
Помогите пожалуйста составить форму, благодаря которой пользователь может выбрать шрифт из...


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

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

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