XP стиль и его использование в приложении - VB
Формулировка задачи:
Вы наверно заметили, что кнопики и всё такое в Бейсике примерно выглядят как в Win98 , а как сделать , чтоб можно было использовать стиль XP? Есть несколько API но что то не получается использовать, может я что то не так делаю?? помогите
Решение задачи: «XP стиль и его использование в приложении»
textual
Листинг программы
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д