Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 28.07.2012
Сообщений: 65
1

Как сделать объектам на форме закругленные края и свернуть VBA - форму?

21.08.2012, 05:32. Просмотров 2248. Ответов 3
Метки нет (Все метки)

Требуется сделать обьектам на форме края закругленные и сделать форме возможность сворачивания в трее.
У кого есть примеры кода ?
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.08.2012, 05:32
Ответы с готовыми решениями:

Как сделать закругленные края у формы
как сделать закругленные края

Как сделать закругленные края у формы?
собствено, помогите по сабжу.... как ни пытался не смог :(

Как сделать закругленные края формы в стиле Windows Aero?
Есть следующее: 1. Форма (Form1) 2. Картинка (PictureBox1) Картинка использует функцию...

Можно ли сделать у TextBox-а закругленные края
Изломал весь мозг, и вот теперь решил спросить: возможно ли в VB.NET 2010 изменить внешний вид...

__________________
3
Заблокирован
21.08.2012, 07:56 2
Цитата Сообщение от gray59 Посмотреть сообщение
сделать обьектам на форме края закругленные
- Элемент управления произвольной формы
Цитата Сообщение от gray59 Посмотреть сообщение
сделать форме возможность сворачивания в трее
В ГУГЛЕ мильон примеров-вот лишь один из них -v
1
Вложения
Тип файла: rar TrayIcon.rar (3.3 Кб, 81 просмотров)
Заблокирован
21.08.2012, 09:51 3
Лучший ответ Сообщение было отмечено как решение

Решение

Пример для VBA-формы (правда, сворачивает не в трей)
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Const GWL_STYLE As Long = (-16)
Const WS_SYSMENU As Long = &H80000
Const WS_MINIMIZEBOX As Long = &H20000
Const WS_MAXIMIZEBOX As Long = &H10000
Const SW_SHOWMAXIMIZED As Long = 3
Const SW_SHOWMINIMIZED As Long = 2
Const SW_SHOWNORMAL As Long = 1
 
Private Sub UserForm_Activate()
'добавляет на форму значки минимизировать форму и значок развернуть окно на полный экран
Dim lngFrmHndl As Long
Dim lngStyle As Long
    lngFrmHndl = FindWindow(vbNullString, Me.Caption)
    lngStyle = GetWindowLong(lngFrmHndl, GWL_STYLE) Or WS_SYSMENU Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
    SetWindowLong lngFrmHndl, GWL_STYLE, (lngStyle)
    DrawMenuBar lngFrmHndl
End Sub
 
Private Sub CommandButton1_Click()
'минимизируем окно по нажанию кнопки
    Dim hwnd As Long
    hwnd = FindWindow(vbNullString, Me.Caption)
    Call ShowWindow(hwnd, SW_SHOWMINIMIZED)
End Sub
5
0 / 0 / 0
Регистрация: 28.07.2012
Сообщений: 65
21.08.2012, 10:05  [ТС] 4
сенькью вери мач )
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.08.2012, 10:05

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

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

Закругленные края формы
ставлю картинку на форму, TransparencyKey = Me.BackColor формат картинки png. По краям белые...

Прозрачные, закругленные края формы
Собственно сабж. Т.е. делаем закругленные края формы и прозрачность примерно 0.5

Как сделать прозрачную форму на vba?
возможно сделать форму vba прозрачным? в инете на такого не нашёл ответа


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

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

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