Просмотр "Уроки Visual Basic.NET"

Сообщение о закрытии программы

Само событие, которое отвечает за закрытие формы называется FormClosing

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim MessageB As DialogResult = MessageBox.Show("Желаете закрыть программу?", "Закрываем", MessageBoxButtons.YesNo, MessageBoxIcon.Question) ' Показываем сообщение о закрытии формы. Будет две кнопки выбора.
If MessageB = DialogResult.Yes Then e.Cancel = False ' Если нажали Yes, то программа закроется.
If MessageB = DialogResult.No Then e.Cancel = True ' Если нажали No, то не закроется.
End Sub

qui Сообщение о закрытии программы

  Метки:
  Евгений
  Просмотров: 3 801
  Запись опубликована в 14:13

Убираем повторяющиеся символы

Пример :

Ввели слово "Привеет", где есть две буквы ее.

DeleteSimvol1 Убираем повторяющиеся символы

Нажали на кнопку и получили слово "Привет", с одной е.

DeleteSimvol2 Убираем повторяющиеся символы

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

  Метки:
  Евгений
  Просмотров: 3 727
  Запись опубликована в 15:01

Рисуем линии мышкой

Многие видели в графических редакторах элемент линия, который можно самому рисовать?

Сегодня я покажу как это реализовать.

Public Class Form1
    Dim p As New Pen(Color.Blue, 2) ' Задаем новое перо
    Dim g As Graphics
    Dim lx As New Point()
    Dim ly As New Point()
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        'Задаем начальные точки координат
        lx.X = e.X
        lx.Y = e.Y
        'Точки для ly должны быть такие же
        ly = lx
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If e.Button = MouseButtons.Left Then
            ' Растягиваем временную линию с координатами lx и ly, черным цветом
            ControlPaint.DrawReversibleLine(Me.PointToScreen(lx), Me.PointToScreen(ly), Color.Black)
            ly = New Point(e.X, e.Y)
            ControlPaint.DrawReversibleLine(Me.PointToScreen(lx), Me.PointToScreen(ly), Color.Black)
        End If
    End Sub
    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        ControlPaint.DrawReversibleLine(Me.PointToScreen(lx), Me.PointToScreen(lx), Color.Black) ' Заканчиваем растягивать временную линию
        g.DrawLine(p, lx, ly) ' Рисуем линию
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        g = Me.CreateGraphics() ' Рисуем по форме
    End Sub
End Class

Теперь нажмите на правую кнопку мыши, удерживаете ее и тащите в любую сторону и увидите, как растягивается ваша линия. Отпустите мышь и увидите нарисованную вашу линию на форме.

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

linesrast Рисуем линии мышкой

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

Отправка письма с вложением

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

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

E Mail Отправка письма с вложением

  Метки:
  Евгений
  Просмотров: 9 865
  Запись опубликована в 17:52

Под тип большого курсора или прицела

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

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

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

  
  Евгений
  Просмотров: 3 303
  Запись опубликована в 12:04

Простой графический редактор

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

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

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

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

PaintRedactor Простой графический редактор

  Метки:
  Евгений
  Просмотров: 10 440
  Запись опубликована в 07:24

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