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

Нахождение корня, при D=0 - не сделал, забыл

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

Отправляем сообщение с вложением.

Imports System.Net.Mail
Imports System.Text
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     Dim email As New MailMessage
     Dim smtp As SmtpClient
     smtp = New SmtpClient("Smtp сервер") ' Пример smtp.mail.ru
     smtp.Credentials = New Net.NetworkCredential("Ваш e-mail", "Ваш пароль")
     email.From = New MailAddress("Ваш e-mail")
     email.To.Add(New MailAddress("Кому хотите отправить e-mail")
     email.Body = "Тут будет текст сообщения"
     email.Subject = "Заголовок сообщения" 
     email.Attachments.Add(New System.Net.Mail.Attachment("Путь к файлу, вложение")) ' Пример D:/SendMessage.exe
     smtp.Send(email)
End Sub

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

Написал это ради своих целей, ну целей в плане FastScreen, хотел реализовать такой же курсор при начале выделения области, но потом передумал и не стал это использовать, т.к объекты, а нужна была графика.

Если кому пригодиться, берите.

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

Будем рисовать по PictureBox.

Возможности:

• Плавное рисование
• Открытие и сохранение изображений
• Размер кисти и цвет кисти
• Авто размер изображения подгоняемый под форму

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

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

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