Windows Aero

Если хотите создать красивый и приятный интерфейс для своей программы то эта статья для вас!

Вот один из примеров использования Aero в Win 7:

Snimok1 Windows Aero

И так приступим. Ну конечно создадим новый проект и вставим туда вот этот код:

<StructLayout(LayoutKind.Sequential)> _
    Public Structure MARGINS
        Public Destra As Integer
        Public Sinistra As Integer
        Public Su As Integer
        Public Giu As Integer
    End Structure

    Declare Auto Function DwmIsCompositionEnabled Lib "dwmapi.dll" Alias "DwmIsCompositionEnabled" (ByRef pfEnabled As Boolean) As Integer

    Declare Auto Function DwmExtendFrameIntoClientArea Lib "dwmapi.dll" Alias "DwmExtendFrameIntoClientArea" (ByVal hWnd As IntPtr, ByRef pMargin As MARGINS) As Integer

    Dim pMargins As New MARGINS With {.Su = -1, .Sinistra = -1, .Destra = -1, .Giu = -1}

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim en As Boolean = False
        DwmIsCompositionEnabled(en)
        If en Then
            DwmExtendFrameIntoClientArea(Me.Handle, pMargins)
        End If
        Me.TransparencyKey = Color.FromKnownColor(KnownColor.ActiveCaption)
        Me.BackColor = Me.TransparencyKey
    End Sub

Ну вот собственно и всё, можно запускать!

Но что если вам нужно "заполнить" Aero не всю форму а допустим только её верхнею часть?

За это отвечает вот этот участок кода:

Dim pMargins As New MARGINS With {.Su = -1, .Sinistra = -1, .Destra = -1, .Giu = -1}

Мы видим что если всем параметрам присвоено -1, то форма вся становится прозрачной.

Каждый параметр отвечает за свой "отступ" от краев формы:

".Su" - с верху

".Sinistra" - с права

".Destra" - с лева

".Giu" - соответственно с низу

То есть если мы хотим вот так:

Snimok2 Windows Aero

То пишем:

Dim pMargins As New MARGINS With {.Su = 25, .Sinistra = 1, .Destra = 1, .Giu = 1}

Ну я надеюсь что все всё поняли, но на всякий случай вот исходник.

  Метки:
  Gemorg
  Просмотров: 4 769
  Запись опубликована в 15:33

Что такое XNA?

Для начала нужно узнать что такое XNA.

Microsoft XNA (XNA's Not Acronymed) — набор инструментов с управляемой средой времени выполнения (.NET), созданный Microsoft, облегчающий разработку и управление компьютерными играми.

Как мы поняли из цитаты: "Этим делают игры".

Преимущества XNA заключаются в том что она использует Directx,

что уже говорит о высокой скорости прорисовки, 3D графика и другие "прелести".

Что нам понадобится:

  1. Windows (НЕ Win 8 x 64)
  2. Microsoft Visual Studio For Windows Phone (Желательно 2010)
  3. Microsoft Visual Basic (Желательно 2010)
  4. Знание Visual Basic (Минимальные)
  5. XNA Game Studio 4.0
  6. Ну естественно Directx

Если не устанавливается XNA Game Studio скачайте Visual C# или просто образ со всем сразу.

Ну вот если вы всё установили, то ждём следующего урока)

Извините но уроки по XNA будут выходить реже чем уроки по vb.net т.к. у меня как раз Windows 8 x64 и XNA у меня не работает icon sad Что такое XNA?

  Метки:
  Gemorg
  Просмотров: 4 110
  Запись опубликована в 18:42

Эмуляция клика мышью (API)

Привет!

В этом уроке я вкратце расскажу вам как при помощи API эмитировать клик мыши.

Вот собственно сама функция:

Declare Function Мышь Lib "user32.dll" Alias "mouse_event" (ByVal dwFlags As Int32, ByVal dX As Int32, ByVal dY As Int32, ByVal cButtons As Int32, ByVal dwExtraInfo As Int32) As Boolean
    Const Нажать_Левую_Кнопку = &H2
    Const Отпустить_Левую_Кнопку = &H4
    Const Нажать_Правою_Кнопку = &H8
    Const Отпустить_Правою_Кнопку = &H10

Как пользоваться:

Мышь(Нажать_Левую_Кнопку, 0, 0, 3, 3)
Мышь(Отпустить_Левую_Кнопку, 0, 0, 3, 3)
'1 клик левой кнопкой мыши

Так же и с правой кнопкой:

Мышь(Нажать_Правою_Кнопку, 0, 0, 3, 3)
Мышь(Отпустить_Правою_Кнопку, 0, 0, 3, 3)
'1 клик правой кнопкой мыши

Ну вот и всё!

Вот пример использования: КликМышью

  Метки:
  Gemorg
  Просмотров: 9 844
  Запись опубликована в 13:42

Завершение работы

Вариант завершения работа с помощью командной строки:

System.Diagnostics.Process.Start("ShutDown", "/s") ' Выключение
System.Diagnostics.Process.Start("ShutDown", "/r") ' Перезагрузка
System.Diagnostics.Process.Start("ShutDown", "/l") ' Выход из пол-ля
System.Diagnostics.Process.Start("ShutDown", "/h") ' Спящий режим

Вариант с помощью инструмента управления Windiws и еще один вариант, с помощью готовый библиотеки.

  Метки:
  Евгений
  Просмотров: 4 130
  Запись опубликована в 17:39

Проект «Заправка»

Помог хорошему человеку в проекте, который ему задали сделать. Он разрешил добавить его к нам на блог, может кому то пригодиться!

Загрузить проект

ProjectZapravka Проект Заправка

  Метки:
  Евгений
  Просмотров: 4 171
  Запись опубликована в 13:37

Страницы:«1...3738394041424344»