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

Всем читателям блога большой привет!

Наконец то я совсем перенес блог на новый хостинг.

В плане этого, я решил изменить несколько вещей:

• Убрал все старые и "дурацкие" записи.
• Обновил все оставшиеся записи.
• Обновил поисковую оптимизацию (SEO).
• Подкорректировал внешний вид блога.

Загрузка блога ускорилась.

Если есть пожелания, то прошу в комментарии!

Простой пример создания игры пазл 3x3

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

Пример взят с MSDN

Public Class Form1
    Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
        'Рисуем фон элемента управления ListBox для каждого элемента.
        e.DrawBackground()
        'Цвет кисти по умолчанию черный
        Dim myBrush As Brush = Brushes.Black
        'Задаем цвет для трех итемов
        Select Case e.Index
            Case 0
                myBrush = Brushes.Red
            Case 1
                myBrush = Brushes.Orange
            Case 2
                myBrush = Brushes.Purple
        End Select
        'Рисуем текст.
        e.Graphics.DrawString(ListBox1.Items(e.Index).ToString(), e.Font, myBrush, e.Bounds, StringFormat.GenericDefault)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.DrawMode = DrawMode.OwnerDrawFixed 'Задаем режим для рисования элемента
        ListBox1.Items.AddRange({"VB.NET", "C#.NET", "F#.NET"})
    End Sub
End Class

Реестр подходит для хранения настроек программы и не только.

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Test", "Key", TextBox1.Text) ' Записываем текст в раздел Test
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        My.Computer.Registry.CurrentUser.CreateSubKey("Test") ' Создаем новый раздел с именем Test и открываем с доступом на запись
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox2.Text = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Test", "Key", Nothing) ' Выводим записаный текст из раздела Test
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        My.Computer.Registry.CurrentUser.DeleteSubKey("Test") ' Удаляем раздел Test из реестра 
    End Sub
End Class

Подробно на MSDN

Написал  пример создания снимка области экрана, не используя класс Graphics и структуру Rectangle, как сделано в FastScreen.

Нам потребуется всего лишь один PictureBox.

Правда есть небольшой нюанс, при выделении области в левую строну экрана, край PB дергается.

На всякий случай, если у кого то получилось это исправить, напишите мне, я обязательно внесу изменения в статью.

Imports System.Drawing.Imaging
Public Class Form1
    Public Sub New()
        InitializeComponent()
        Me.Left = 0
        Me.Top = 0
        Me.Width = Screen.PrimaryScreen.Bounds.Width
        Me.Height = Screen.PrimaryScreen.Bounds.Height
        Me.BackColor = Color.Black
        Me.TransparencyKey = Color.Yellow
        Me.Opacity = 0.7
        Me.TopMost = True
        Me.Cursor = Cursors.Cross
        PictureBox1.BackColor = Color.Yellow
    End Sub
    Dim xy1 As Point, xy2 As Point
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        xy1 = e.Location
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            xy2 = e.Location
            PictureBox1.Location = New Point(Math.Min(xy1.X, xy2.X), Math.Min(xy1.Y, xy2.Y))
            PictureBox1.Size = New Size(Math.Max(xy1.X, xy2.X) - PictureBox1.Location.X, Math.Max(xy1.Y, xy2.Y) - PictureBox1.Location.Y)
        End If
    End Sub
    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        Dim bmp As New Bitmap(PictureBox1.Width, PictureBox1.Height)
        Dim g As Graphics = Graphics.FromImage(bmp)
        g.CopyFromScreen(New Point(PictureBox1.Left, PictureBox1.Top), New Point(0, 0), New Point(PictureBox1.Width, PictureBox1.Height))
        bmp.Save(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\1.jpg", ImageFormat.Jpeg)
        MsgBox("Снимок создан") : PictureBox1.Size = New Size(0, 0)
    End Sub
End Class

Скачать исходник

Очередной пример, как записать звук с микрофона и воспроизвести его.

Будем использовать для записи звука библиотеку NAudio.dll, она дает более чистый звук, без помех, в отличии от Winmm.dll

Скачиваем и распаковываем.

Создаем новый проект->Проект->Добавить ссылку->Обзор->Находим у себя на компьютере скачанную библиотеку NAudio.dll и нажимаем "Ок".

Подробнее »

Зачем таскать за приложением звуковые файлы, если их можно поместить в ресурсы и спокойно вызывать их от туда?

Добавим звуковой файл в ресурсы: Проект->Свойства проекта->Ресурсы->Добавить ресурс->Добавить существующий файл. Откроется диалог выбора файла, из ComboBox выбираем формат файла .wav

Если все сделали правильно то звуковой файл добавился в ваш проект.

Сейчас переходим к коду.

Воспроизводить звуковой файл будем с помощью класса SoundPlayer.

На форму добавим кнопку и два раза кликнем по ней, откроется редактор кода с обработчиком события Button1_Click

Imports System.Media
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Sp As New SoundPlayer
        Sp.Stream = My.Resources.train9
        Sp.Play()
    End Sub
End Class

В коде измените My.Resources.train9 на свой добавленный ресурс.

Проверяет действительное подключение локального компьютера к Интернету.

На выходе:

• True - Подключен
• False - Не подключен

Советую еще почитать статью - Определение состояния подключения локального компьютера, а также для запуска или завершения подключения к Интернету с помощью Visaul Basic.NET

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Int32, ByVal dwReserved As Int32) As Boolean
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    MsgBox(InternetGetConnectedState(0, 0&))
End Sub

Программная очистка корзины используя Windows API

Imports System.Runtime.InteropServices
Public Class Form1
    Enum RecycleFlags As Integer
        SHERB_NOCONFIRMATION = &H1
        SHERB_NOPROGRESSUI = &H1
        SHERB_NOSOUND = &H4
    End Enum
    Dim EmptyRecycleBin()
    <DllImport("Shell32.dll")> Private Shared Function SHEmptyRecycleBin(ByVal hwnd As IntPtr, ByVal pszRootPath As String, ByVal dwFlags As RecycleFlags) As Integer
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SHEmptyRecycleBin(IntPtr.Zero, Nothing, RecycleFlags.SHERB_NOSOUND Or RecycleFlags.SHERB_NOCONFIRMATION)
    End Sub
End Class

Метод Eval принимает строку как выражение, высчитывает его и выводит результат. Похожий вариант представлен средствами .NET, смотреть статью.

Dim objScript As Object = CreateObject("MSScriptControl.ScriptControl")
objScript.Language = "VBScript"
Label1.Text = "Ответ: " & objScript.Eval(TextBox1.Text)

Можно возводить квадрат, вычислять синус, косинус и т.д

Остальные математические функции.