Visual Basic for Applications
- 1 year ago
- 0
- 0
Visual Basic .NET ( VB.NET ) — объектно-ориентированный язык программирования , который можно рассматривать как очередной виток эволюции Visual Basic (VB), реализованный на платформе .NET Framework . VB.NET не имеет обратной совместимости с более ранней версией (Visual Basic 6.0). Развитие проектов старых версий (*.vbp) возможно только после предварительной конвертации их в формат VB.NET специальным мастером (Migration Wizard); однако, как правило, после конвертации требуется существенная ручная доработка текстов. 11 марта 2020 г. Microsoft объявила о стабилизации стандарта языка VB.NET и продолжении его поддержки .
Существующие версии VB.NET:
Важнейшие изменения в VB.NET следующие.
С переходом на платформу .NET, изменилась сама парадигма программирования (и это наиболее важное изменение).
Схема простейшего алгоритма на Visual Basic .NET, позволяющего изменить значение свойства объекта:
<имя объекта> . <свойство> = <значение>
Пример кода на Visual Basic .NET:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Графика
Using CG = Me.CreateGraphics
CG.DrawBezier(New System.Drawing.Pen(Color.Blue), 0, 0, 100, 100, 600, 600, 0, 400)
CG.DrawBezier(New System.Drawing.Pen(Color.Blue), 0, 0, 600, 600, 100, 100, 400, 0)
CG.DrawLine(New System.Drawing.Pen(Color.Blue), 0, 0, 600, 600)
End Using
'Система
MessageBox.Show("User name: " + My.User.Name.ToString + vbCrLf + _
"Screen name: " + My.Computer.Screen.DeviceName.ToString + vbCrLf + _
"Ports count: " + My.Computer.Ports.SerialPortNames.Count.ToString, _
"Box Caption", MessageBoxButtons.OK, MessageBoxIcon.Error)
'Сеть
Using WC As New System.Net.WebClient
WC.DownloadFile("http://server.net/filename.exe", "C:\myfile.exe")
End Using
End Sub
End Class
Hello, World
В консольном приложении
Module Module1
Sub Main()
Console.WriteLine("Hello, World!")
End Sub
End Module
В форме
Private Sub HW()
Dim helloworld As New Label 'объявление новой переменной типа label
With helloworld 'позволяет указывать свойства объекта без написания его имени
.Text = "Hello, World"
.AutoSize = vbYes
.Font = New Font(.Text, 48)
.Location = new point(100, 100)
.Visible = True
End With
Me.Controls.Add(helloworld) 'добавление созданного объекта на форму
End sub