![](https://ds-release.ru/wp-content/themes/diary/images/ico_file.png)
![](https://ds-release.ru/wp-content/themes/diary/images/ico_comment.png)
Индикатор загрузки файла по FTP
![](https://ds-release.ru/wp-content/themes/diary/images/tag.png)
![](https://ds-release.ru/wp-content/themes/diary/images/user.png)
![](https://ds-release.ru/wp-content/themes/diary/images/views.gif)
![](https://ds-release.ru/wp-content/themes/diary/images/date.gif)
Поздравляю всех с наступающим 2013 годом! Желаю всем программистам хорошей работы в новом году, закончите все свои не дописанные проекты и переходите к новым!
Само событие, которое отвечает за закрытие формы называется 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
Вы удивитесь, когда посмотрите код.
Пример :
Ввели слово "Привеет", где есть две буквы ее.
Нажали на кнопку и получили слово "Привет", с одной е.
Многие видели в графических редакторах элемент линия, который можно самому рисовать?
Сегодня я покажу как это реализовать.
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
Теперь нажмите на правую кнопку мыши, удерживаете ее и тащите в любую сторону и увидите, как растягивается ваша линия. Отпустите мышь и увидите нарисованную вашу линию на форме.
СРОЧНОЕ ЗАЯВЛЕНИЕ ТИБЕТСКОГО МОНАХА О КОНЦЕ СВЕТА!
По словам тибетского Ламы, сделавшего официальное заявление в NASA, практически на всей Земле, около 10 утра по московскому времени 21.12.2012 наступит полная темнота и тишина. Не будет света, электричества, связи и звуков.
Возможно кому-то будет полезно, делал в тех
Через 10 дней переносим блог на новый хостинг.
Плюсы от нового хостинга :