Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VB Как удалить ВСЕ папки и файлы? как мне стереть полностью все файлы и папки в какойнибудь папке , притом, Kill c:*.* не подходит, так как таким образом только файлы удаляются, а как я сказал, мне нужно и папки удалить, RmDir... https://www.cyberforum.ru/ visual-basic/ thread493984.html TCP/IP ошибка о net.sockets.(Порт занят) VB
Вот такой трабл.На VB.NEt при работе с TCP/IP протоколом при использовании не стандартного порта windows- вылетает ошибка о net.sockets.(Порт занят)Это случается токо при отправке сообщения во второй...
VB Нужен код сниффера Здраствуйте! Последнее время меня начал интересовать вопрос шпионажа по сети :) Ну в разумных пределах разукмеетсЯ, никакого противозакония :) Joke Вобщем если у кого имеется код снифера на... https://www.cyberforum.ru/ visual-basic/ thread493968.html VB Как в листе Exel на форме в проекте убрать его меню при активизации? Всем привет! Ребята, меня интересует такой вопрос. Как в листе Exel на форме в проекте убрать его меню при активизации и как сделать так, чтобы при загрузке формы лист автоматически активизировался... https://www.cyberforum.ru/ visual-basic/ thread493958.html
Как прокрутить Scroll в TextBox-е если текст не влезает в окно? VB
Помогите пожалуйста....!!! Добавляю в TextBox имена листов из Excel файла по очереди на каждую строчку вот так примерно... For с = 1 to 32 Set ExcSheet = ExcExcel.Worksheets(listname(c))...
VB Как в Vb использовать системный поиск? Как в Vb использовать системный поиск? https://www.cyberforum.ru/ visual-basic/ thread493952.html
VB Как корректно завершить вывод отчета в Excel? https://www.cyberforum.ru/ visual-basic/ thread493945.html
Подскажите, как корректно завершить вывод отчета в Excel? Я объявляю новый объект, открываю лист, формирую отчет, он выводится на экран - все хорошо. Примерно так: Set Object =...
VB В Excel суммировать каждую 4-ю ячейку
Здравстуйте! Подскажите пожалуйста, как в Excel суммировать каждую 4-ю ячейку по вертикали (предварительно указав диапазон) Огромное спасибо! Александр
VB Как определить в Excel последнюю строку? https://www.cyberforum.ru/ visual-basic/ thread493927.html
Как определить в Exelе последнюю строку, используя ADO?
VB SQL Server для получения данных в своей программе https://www.cyberforum.ru/ visual-basic/ thread493911.html
Помогите мне... У меня есть программа, ее надо переделать что бы она использовала SQL Server для получения данных... или надо создать процедуру клиент-сервер. Напишите ссылку, или код для...
Константа для цвета, где находится? VB
Когда мы в листвью (в report view) выделяем строчку списка, то она заливается цветом COLOR_HIGHLIGHT; в стандартной цветовой схеме Windows это темно-синий цвет. Если у листвью HideSelection = False,...
VB Сборщик мусора у VB6 In java language and .NET we have Garbage, that clean all not used resources . How at run time i can to clean not used my resources , by VB6, in OS Win - 95, Win - 98 ? In my exe i always... https://www.cyberforum.ru/ visual-basic/ thread493902.html
0 / 0 / 0
Регистрация: 21.11.2010
Сообщений: 53
04.04.2011, 12:17 0

XP стиль и его использование в приложении - VB - Ответ 2691946

04.04.2011, 12:17. Показов 1613. Ответов 13
Метки (Все метки)

Ответ

Несколько примеров помогут вам глубже понять применения манифеста. Пройдемся по всем кнопкам и присвоим им свойство FlatStyle.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub RecursivelyFormatForWinXP(control As Control)
   Dim x As Integer
   For x = 0 To control.Controls.Count - 1
      ' If the control derives from ButtonBase, 
      ' set its FlatStyle property to FlatStyle.System.
      If control.Controls(x).GetType().BaseType Is _
GetType(ButtonBase) Then
         CType(control.Controls(x), ButtonBase).FlatStyle = _
FlatStyle.System
      End If
      
      ' If the control holds other controls, iterate through them also.
      If control.Controls.Count > 0 Then
         RecursivelyFormatForWinXP(control.Controls(x))
      End If
   Next x
End Sub
После этого необходимо изменить код для обработчика события Load формы, чтобы проверить версию Windows XP и присутствие манифеста.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Form1_Load(sender As Object, e As System.EventArgs)
   ' Makes sure Windows XP is running and
   ' a .manifest file exists for the EXE.
   If Environment.OSVersion.Version.Major > 4 And _
Environment.OSVersion.Version.Minor > 0 And _
System.IO.File.Exists((Application.ExecutablePath + '.manifest')) Then
      ' Iterate through the controls.
      Dim x As Integer
      For x = 0 To (Me.Controls.Count) - 1
         ' If the control derives from ButtonBase,
         ' set its FlatStyle property to FlatStyle.System.
         If Me.Controls(x).GetType().BaseType Is _
GetType(ButtonBase) Then
            CType(Me.Controls(x), ButtonBase).FlatStyle = _
FlatStyle.System
         End If
         RecursivelyFormatForWinXP(Me.Controls(x))
      Next x
   End If
End Sub
При написании статьи использовались материалы с MSDN

Вернуться к обсуждению:
XP стиль и его использование в приложении VB
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.04.2011, 12:17
Готовые ответы и решения:

Не меняется стиль в приложении
Такое дело... по наследству перешла парочка проектов(писались не мной) на visual studio 2010,...

Использование dll в приложении
Доброго времени суток! Уже пятый день бьюсь над тем, чтобы загрузить dll x64 в приложении x86. Суть...

Использование кириллицы в приложении
как перекодировать pascalABC для рускую клаву

Использование CSS, JS в приложении
У кого стоит Антивирус Касперского, тот увидит в папке с программой файлы CSS, JavaScript, которые...

13
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.04.2011, 12:17
Помогаю со студенческими работами здесь

Использование нестандартных шрифтов в приложении
Вопрос знатокам. Необходимо сделать добавление выбора нестандартных шрифтов. Пример: на форму кидаю...

Использование пользовательских шрифтов в приложении
Всем привет! Как подгрузить шрифт из .ttf-файла, который не лежит в системной папке шрифтов?

Использование консольных команд в приложении
Всем привет!!! Вопрос такого плана. При использовании adb shell на компе команда logcat -b events...

Использование ADO в HTA-приложении
Здравствуйте! Мне нужно HTA-приложение, отображающее с помощью ADO данные из mdb-базы данных. Мой...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru