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

Узнаем и задаем раскладку клавиатуры.

1033 - код английской раскладки клавиатуры [EN] (США)

1049 - код русской раскладки клавиатуры [RU] (Русская)

Узнаем раскладку:

MsgBox(System.Windows.Forms.InputLanguage.CurrentInputLanguage.LayoutName)

Меняем раскладку:

System.Windows.Forms.InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(System.Globalization.CultureInfo.GetCultureInfo(1049)) ' Меняем раскладку на русский язык

System.Windows.Forms.InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(System.Globalization.CultureInfo.GetCultureInfo(1033)) ' Меняем раскладку на английский язык

"Таскаем" контрол по форме c помощью мышки.

Перемещать будем кнопку (можно сделать практически с любым контролом).

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Cursor = Cursors.SizeAll
    End Sub
    Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
        If Control.MouseButtons = Windows.Forms.MouseButtons.Left Then
            CType(sender, Button).Left = Control.MousePosition.X - Me.Left - CType(sender, Button).Width
            CType(sender, Button).Top = Control.MousePosition.Y - Me.Top - CType(sender, Button).Height
        End If
    End Sub
End Class

Запускаем проект на исполнение и пробуем потаскать свою кнопку.

Индикатор загрузки ЦП в графическом виде.

Первый вариант (мой):

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

Второй вариант (не мой, но идея - моя):

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

Сегодня мы познакомимся с WinSock контролом.

WinSock - это компонент через который можно соединяться с удаленной машиной и обмениваться с ней данными.

WinSock использует 2 протокола:

1) UDP (User Datagram Protocol)

2) TCP (Transmission Control Protocol).

Оба эти протокола используются для создания Клиент-Серверных приложений.

В этом уроке мы напишем программу клиент - сервер на Visual Basic.NET

Начнем.

Сначала создадим Сервер.

1. Создаем новый проект(Файл->Новый проект->Приложение Windows Form) или у кого версия английская (File->New Project->Application Windows Form)
2. Добавляем элемент WinSock.(смотрите видео кто не знает как добавить WinSock

4. Добавим на форму два TextBox'а и один Button

5. Вот что должно получиться(немного приукрасил)

Подробнее »

Не можете придумать хороший пароль? Тогда это для вас!

Принцип работы:

• Указываем длину пароля
• Нажимаем кнопку "Генерировать"
• Получаем пароль(состоящий из англ букв и цифр)
• Индикатор надежности

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

Добавляем и получаем текст из Буфера Обмена.

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = My.Computer.Clipboard.GetText ' Получаем текст из буфера обмены
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        My.Computer.Clipboard.SetText(TextBox2.Text) ' Добавляем текст в буфер обмена
    End Sub
End Class

Простой плеер на основе WindowsMediaPlayer.

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

Узнаем внешний адрес с помощью парсинга с сайта  https://www.getip.com/

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

Легальная и бесплатная отправка сообщений на номера ТЕЛЕ 2 (исправленная версия).

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

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

Написал блокнот похожий на стандартный Notepad.

P.S когда же это было, ужас :D

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