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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы