ИнтеллигенцияX

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

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

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

<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" - соответственно с низу

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

То пишем:

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

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

Написал не большой пример плавного всплывающего окна.

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

Для начала нужно узнать что такое 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 у меня не работает

Великолепная игра, написанная на Visual Basic 6.

Рубрика - Игры

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

Приветствуем нового автора с ником Gemorg (Григорий Ляпин)

В основном будет публиковать уроки по Visual Basic.NET

Привет!

В этом уроке я вкратце расскажу вам как при помощи 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 клик правой кнопкой мыши

Ну вот и всё!

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

Всех студентов поздравляю с международным Днем Студента!!!

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

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

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 и еще один вариант, с помощью готовый библиотеки.

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

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