Мы обновились!

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

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

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

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

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

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

 Мы обновились!

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

Разноцветные итемы в ListBox

Пример взят с 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

ListBoxDrawItem Разноцветные итемы в ListBox

  Метки:
  Евгений
  Просмотров: 5 947
  Запись опубликована в 11:30

Работа с реестром | Запись и чтение.

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

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

mcr Работа с реестром | Запись и чтение.

Подробно на MSDN

  Метки:
  Евгений
  Просмотров: 6 951
  Запись опубликована в 11:41

Создание скриншота области экрана

Написал  пример создания снимка области экрана, не используя класс 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

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

  Метки: ,
  Евгений
  Просмотров: 9 601
  Запись опубликована в 11:31

Запись звука с микрофона

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

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

Скачать NAudio.dll

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

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

AddDll Запись звука с микрофона

AddDll2 Запись звука с микрофона

Подробнее »

  Метки:
  Евгений
  Просмотров: 12 934
  Запись опубликована в 12:50

Проигрывание звукового файла из ресурсов

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

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

Res2 Проигрывание звукового файла из ресурсов

Res1 Проигрывание звукового файла из ресурсов

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

Res3 Проигрывание звукового файла из ресурсов

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

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

  Метки:
  Евгений
  Просмотров: 6 407
  Запись опубликована в 19:32

Проверка подключения к Интернету

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

На выходе:

  • 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
  Метки:
  Евгений
  Просмотров: 4 603
  Запись опубликована в 19:08

Очистка корзины

Программная очистка корзины используя 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
  Метки:
  Евгений
  Просмотров: 3 101
  Запись опубликована в 16:56

Математические выражения. Метод Eval из VBS

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

MethodEval Математические выражения. Метод Eval из VBS

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

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

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

  Метки: , , , ,
  Евгений
  Просмотров: 6 212
  Запись опубликована в 07:17

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