Основы программирования на visual basic

Как начать

Прежде всего требуется создать файл и сохранить его, присвоив имя и выбрав тип «Книга Excel с поддержкой макросов».

Затем необходимо перейти в приложение VB, для чего достаточно воспользоваться комбинацией клавиш «Alt» и «F11». Далее:

  • в строке меню, расположенном в верхней части окна, нажимают на иконку рядом с иконкой Excel;
  • выбирают команду Mudule;
  • сохраняют, нажав на иконку с изображением floppy disk;
  • пишут, скажем так, набросок кода.

Он выглядит следующим образом:

Обратите внимание, что строка «’Наш код» будет выделена другим цветом (зеленым). Причина в апострофе, поставленном в начале строки, который обозначает, что далее следует комментарий

Теперь вы можете написать любой код и создать для себя новый инструмент в VBA Excel (примеры программ см. далее). Конечно, тем, кто знаком с азами Visual Basic, будет намного проще. Однако даже те, кто их не имеет, при желании смогут освоиться достаточно быстро.

Additional Visual Basic 6.0 Resources

  • Documentation on how to run samples included with Visual Basic 6.0

  • Download additional controls, componenents and samples for Visual Basic 5.0 and 6.0

  • Download important updates and additional code samples for Visual Basic 6

General Topics

  • This list of Visual Basic 6.0 form object properties along with descriptions and settings, serves as a handy reference to anyone using Visual Basic 6.0. This material is presented at the beginning of an article comparing Visual Basic 6.0 and Visual Basic .NET objects.

  • The Text Box Defaults project is a Visual Basic 6.0 project that can be compiled into a Microsoft Publisher 2002 add-in toolbar. This toolbar allows the user to extract property settings from an existing text box and then create new text boxes with those settings.

  • This article will walk you through the steps of building a Visual Basic 6.0 ActiveX dynamic-link library (DLL) that will make it easy and efficient for you to track and prevent 404 (Not Found) errors on your site.

  • Use the Print method in Visual Basic to print text.

  • This tutorial will show you how to create a very simple program that will actually speak.

Database Programming

  • By using ADO in conjunction with OLE DB, you can talk to Access, SQL Server, or any other data source by simply using the ADO object model.

  • The Visual Basic Data Object Wizard (DOW) is a Visual Basic Add In Wizard that can be used to create data Classes and User Controls that display and manipulate data.

  • This article discusses the ADO Errors Collection.

  • Explore data mining: an exciting technique that uses the power of databases to extract meaningful knowledge from a mountain of data.

  • By using the OpenSchema method, you can spy on information about any particular data source. You can easily get information about the data source, such as the tables on the server and the columns in those tables.

Web Development

  • Learn how to get started using XML in Visual Basic 6.0. This article provides several examples showing how you can use XML documents in Visual Basic 6.0 applications.

  • This article introduces WebClasses and the WebClass development model.

Networking

  • The Internet Transfer control will automatically establish an FTP session the first time you execute an FTP command. This table lists the FTP commands for the control.

  • This article describes a program called the Internet Updater, which demonstrates the use of the Internet Transfer control. The Internet Updater is used to update an application by examining each file in the application and choosing those files that have newer versions.

Embedded VB

  • This document will walk you through the creation of your first Windows CE application written in Microsoft Visual Basic. We will help you set up an emulation environment and get you up and building your first database application quickly.

  • This document will take you on a tour of the features contained in the Windows CE Toolkit for Visual Basic 6.0. You will learn how to create a simple application that is designed on a traditional Windows desktop and executed on a Windows CE device, and how to access data stored in SQL Server.

Выход с подтверждением

Первая своего рода программка, ну или функция, это выход с сообщением о подтверждение выхода. В общем, откройте среду программирования Visual Basic, создайте стандартный проект, потом поместите на форму одну кнопку, щелкните на кнопке и у Вас откроется окно редактирования кода, и туда Вам необходимо вставить следующий код:

Beep
Dim message As String
Dim buttonsandicons As Integer
Dim title As String
Dim response As String
message = «Хотите выйти?»
title = «Выход»
buttonasicons = vbYesNo + vbQuestion
response = MsgBox(message, buttonasicons, title)
If response = vbYes Then
End
End If

Плюсы и минусы Visual Basic

Ключевым преимуществом этого языка является крайне простой синтаксис. Иными словами, Visual Basic подходит для начинающих программистов. Вместе с тем это не является преградой для применения современных способов создания программных приложений (визуального проектирования и использования объектно-ориентированного подхода).

Плюсы и минусы Visual Basic

Имеются и некоторые другие преимущества:

  1. Можно осуществлять высокоскоростную разработку приложений с графическим интерфейсом для MS Windows.
  2. Есть защита от ошибок, которые связаны с использованием указателей и доступом к памяти, за счет чего VB приложения являются более стабильными. Однако данный нюанс подвергается критике.
  3. Можно применять большинство WinAPI функций в целях увеличения функционала приложений. В книге «Visual Basic Programmer’s Guide to the Win32 API» Дэн Эпплман подробно рассматривает эту тему.
  4. Программист может выбрать компиляцию в машинный код, но и в P-код. Находясь в режиме отладки, программа постоянно компилируется в P-код, причем это не зависит от выбора. Это дает возможность делать паузу в исполнении программы для внесения существенных корректировок в исходный код, после чего продолжать исполнение. Таким образом, нет необходимости в полной перекомпиляции и перезапуске программы.

Популярные статьи

Высокооплачиваемые профессии сегодня и в ближайшем будущем

Дополнительный заработок в Интернете: варианты для новичков и специалистов

Востребованные удаленные профессии: зарабатывайте, не выходя из дома

Разработчик игр: чем занимается, сколько зарабатывает и где учится

Как выбрать профессию по душе: детальное руководство + ценные советы

Но у языка программирования Visual Basic есть и ряд недостатков:

  1. Поддерживаются операционные системы Windows и Mac OS X и никакие другие (исключением является VB1 for DOS).
  2. Низкая скорость работы. Это объясняется тем, что почти весь список имеющихся функций языка реализован посредством библиотеки времени исполнения (runtime library). Данная библиотека осуществляет большое количество «излишних» действий в целях проверки и/или преобразования типов.
  3. Нет механизма наследования реализации объектов. При помощи имеющегося в VB наследования можно наследовать лишь интерфейсы (отсутствует возможность наследования их реализации).
  4. Необходимо иметь установленную msvbvmXX.dll для использования программы.

При этом все вышеназванные недостатки появляются из-за наличия его ключевого преимущества – легкости разработки графического интерфейса. По этой причине множество разработчиков применяют VB в целях создания интерфейса пользователя, тогда как функциональность программы реализуется в виде динамически подключаемых библиотек (DLL), которые пишутся на другом языке (в большинстве случаев это C++).

Плюсы и минусы Visual Basic

На данный момент VB не очень похож на тот язык, что был разработан около полувека назад. Он все еще очень прост, однако имеет множество функций и возможностей, которых не было раньше. Плюс ко всему, Microsoft все еще работает над платформой .NET, поэтому в ближайшее десятилетие он точно будет иметь статус полезнейшего инструмента для любого разработчика.

Постепенный отказ от Visual Basic

Microsoft Visual Basic – язык программирования, а также интегрированная среда разработки программного обеспечения, разрабатываемые корпорацией Microsoft.

Еще три года назад Microsoft заявила, что прекращает совместное развитие Visual Basic и C#. Согласно статистике компании, язык программирования C# является более популярным и востребованным среди разработчиков: «C# используют миллионы людей. VB – сотни тысяч». Техническая документация Microsoft представлена только на C#. Найти что-то на VB становится все труднее. По этой причине принято решение, что новые функции будут добавляться только для C#. Для развития Visual Basic стали использовать более простые сценарии, в которых его применение было доминирующим.

Краткое описание IDE (Интегрированная среда разработки)

Окно Visual Basic содержит строку меню, панели инструментов и различные окна. Окно конструктора форм находиться в центре экрана и содержит форму (Form). В новый проект по умолчанию добавляется форма с именем Form1. Команда Object меню View открывает окно, если оно было закрыто и выводит его поверх других окон.

Окно с коллекцией управляющих элементов (ToolBox) находиться обычно слева от формы. Оно содержит набор стандартных управляющих элементов. В процессе проектирования Вы выбираете нужные элементы и перемещаете их на форму.

Окно свойств (Properties) содержит список свойств и их значений для выделенного объекта. Объект можно выбрать здесь же в списке под строкой заголовка.

Окно проводника (Project Explorer) отображает все составные части проекта: формы и модули. Здесь же имеются кнопки для переключения между окном формы и редактором.

Окно редактора кода (Code) содержит текст программы.

Окно макета формы (Form1 Layout) показывает, как будет выглядеть текущая форма на экране в режиме выполнения.

Окна пристыкованы друг к другу (Docking). Чтобы отстыковать окно, выполните двойной щелчок на строке заголовка или просто переместите его. Чтобы пристыковать окно, переместите его на границу и отпустите кнопку мыши. Можно перемещать границы между пристыкованными окнами и изменять их размеры. Любое из окон можно убрать с экрана и в нужный момент вернуть их обратно с помощью команд меню View или кнопок на панели инструментов.

Пример 2

Циклы VBA помогают создавать различные макросы в Excel.

Циклы VBA помогают создавать различные макросы. Предположим, что имеется функция y=x + x 2 + 3x 3 – cos(x). Требуется создать макрос для получения ее графика. Сделать это можно только, используя циклы VBA.

За начальное и конечное значение аргумента функции берут x1=0 и x2=10. Кроме того, необходимо ввести константу — значение для шага изменения аргумента и начальное значение для счетчика.

Все примеры макросов VBA Excel создаются по той же процедуре, которая представлена выше. В данном конкретном случае код выглядит, как:

Do While x1 0 Then Cells(1, 1).Value = 1

Считываем параметры из INI файла

Программа подключается к FTP, а в ини файле прописаны параметры — сервер, логин, порт, пароль.

С начало создаем INI файл:

Servname=сервер
usern=Логин
pwd=пароль
port=порт

Его необходимо поместите в папку с программой. Далее, вставляем в модуль:

Private Declare Function WritePrivateProfileString Lib _
«kernel32» Alias «WritePrivateProfileStringA» (ByVal lpApplicationName As String, ByVal lpKeyName As String, _
ByVal lpString As String, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib _
«kernel32» Alias «GetPrivateProfileStringA» (ByVal lpApplicationName As String, ByVal lpKeyName As String, _
ByVal lpDefault As String, ByVal lpReturnedString As String, _
ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Function ReadIni(Razdel As String, Param) As String
ReadIni = GetValue(Razdel, Param, App.Path & «\test.ini», «0»)
End Function
Private Function GetValue(ByVal Section As String, _
ByVal Key As String, ByVal fFileName As String, Optional ByVal DefaultValue As String = vbNullString) As String
Dim Data As String
Data = String$(1000, Chr$(0))
If GetPrivateProfileString(Section, Key, DefaultValue, Data, 1000, fFileName) > 0 Then
GetValue = Left$(Data, InStr(Data$, Chr$(0)) — 1)
Else
GetValue = DefaultValue
End If
Exit Function
End Function

Затем вставляем в код формы:

Private Declare Function InternetOpen Lib _
«wininet.dll» Alias «InternetOpenA» (ByVal sAgent As String, ByVal nAccessType As Long, ByVal sProxyName As String, _
ByVal sProxyBypass As String, ByVal nFlags As Long) As Long
Private Declare Function InternetConnect Lib _
«wininet.dll» Alias «InternetConnectA» (ByVal hInternetSession As Long, ByVal sServerName As String, _
ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal nService As Long, _
ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Declare Function FtpPutFile Lib _
«wininet.dll» Alias «FtpPutFileA» (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _
ByVal lpszRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
Private Declare Function FtpGetFile Lib _
«wininet.dll» Alias «FtpGetFileA» (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _
ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttributes As Long, _
ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
Private Declare Function InternetCloseHandle Lib _
«wininet.dll» (ByVal hInet As Long) As Integer
Dim rc&
Dim rs&

А в код кнопки:

Макросы

Людям, постоянно повторяющим одинаковые манипуляции, требуется автоматизация однотипных задач. Для этого необходимо записать макрос, представляющий собой набор действий, запускающихся столько раз, сколько потребуется в конкретной ситуации. Что такое макросы, как они используются и «запоминаются», расскажет Николай Павлов. Николай является тренером по продуктам Microsoft Office, автором книги-руководства, создателем сайта «Планета Excel» и обучающего видеоблога. Он более 10 лет проводит тренинги для компаний и частных лиц, разрабатывает проекты, позволяющие автоматизировать бизнес-процессы.

Добавить иконку в трей

Добавляем модуль, вставляем в него код:

Declare Function Shell_NotifyIconA Lib _
«SHELL32» (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Integer
Public Const NIM_ADD = 0
Public Const NIM_MODIFY = 1
Public Const NIM_DELETE = 2
Public Const NIF_MESSAGE = 1
Public Const NIF_ICON = 2
Public Const NIF_TIP = 4
Type NOTIFYICONDATA
cbSize As Long
hWnd As Long

uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Public Function SetTrayIcon(Mode As Long, hWnd As Long, Icon As Long, tip As String) As Long
Dim nidTemp As NOTIFYICONDATA
nidTemp.cbSize = Len(nidTemp)
nidTemp.hWnd = hWnd
nidTemp.uID = 0&
nidTemp.uFlags = NIF_ICON Or NIF_TIP
nidTemp.uCallbackMessage = 0&
nidTemp.hIcon = Icon
nidTemp.szTip = tip & Chr$(0)
SetTrayIcon = Shell_NotifyIconA(Mode, nidTemp)
End Function

Чтобы использовать вставьте в код формы:

Private Sub Form_Load()
SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, «Test»
End Sub
«Чтобы удалить
Private Sub Command1_Click()
SetTrayIcon NIM_DELETE, Me.hWnd, 0&, «»
End Sub

Элементы управления

Определение 2

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

Для добавления элементов управления на форму нужно:

  1. В меню Вид выбрать пункт Панель Инструментов (если она еще не выведена на экран).
  2. Выбрать элемент, щелкнув по нему мышью.
  3. Перевести указатель мыши на форму и, нажав левую кнопку мыши, переместить ее по диагонали вниз и направо на форме.
  • Метка Label предназначена для добавления текста на форму, который не может быть изменен пользователем, но может быть изменен программно.
  • Текстовое поле TextBox служит для введения текста или отображения результата во время работы программы.
  • Командная кнопка Command Button.
  • Рамка для рисунка PictureBox предназначена для содержания рисунка.
  • Рамка Frame используется для оформления, а также для группировки переключателей.
  • Флажок Check Box используется для введения значения Да (флажок установлен) или Нет (флажок снят).
  • Переключатель Option Button позволяет пользователю выбрать один вариант из нескольких.
  • Поле со списком ComboBox используется для введения текста как и в TextBox, кроме того можно использовать выбор из списка.
  • Список ListBox cодержит список строк, из которого пользователь может выбрать одну или несколько.

Преимущества Visual Basic

Замечание 1

Язык программирования BASIC (Beginner’s Allpurpose Symbolic Instruction Code – универсальный символьный программный код для начинающих) разработали сотрудники Дартмутского колледжа (США) в 1964 г. с целью быстрого обучения студентов основам программирования.

Visual Basic – это интегрированная среда разработки приложений, включающая следующие компоненты:

  • Конструктор форм предназначен для создания окна-формы с набором необходимых элементов;
  • Текстовый редактор предназначен для написания программ, в котором доступны команды для операций работы с фрагментами текста: копирования, вставки, вырезания;
  • Отладчик используется для устранения ошибок в тексте программы, выделяя их в тексте различными цветами;
  • Компилятор используется для превращения отлаженного программного проекта в Windows-приложение в полноценный исполняемый (.exe) файл, который запускается без участия среды Visual Basic.

Преимущества Visual Basic:

  • является простым и наглядным в сравнении с другими языками программирования;
  • динамично развивается;
  • интегрирован в программы Word, Excel, Power Point и др., что дает возможность управлять этими программами из других программ.

Язык Visual Basic является объектно-ориентированным, т.е. работает с разными объектами, каждый из которых имеет определенные свойства: цвет, размеры, положение и др. К некоторыми объектам можно применять определенные действия, которые называют методами (например, нажатие кнопки). Эти действия вызывают определенное событие (например, закрытие приложения). Для описания события должен быть написан соответствующий код в тексте программы.

С чего начать

Видеоурок посвящен базовым навыкам работы с умной таблицей. Дается инструкция по выбору стиля, присвоению названия, добавлению модуля, созданию процедуры. Далее преподаватель научит присваивать переменной объект с помощью Set, удалять/добавлять строки, столбцы, колонки, выделять нужную область, таблицу целиком или только шапку, очищать ячейки от записей, форматировать все колонки разом, подключать функцию подведения итогов, использовать свойства DataBodyRange, HedetRowRange, ColumnWidth, ShowTotals. Приведенные манипуляции комментируются и демонстрируются на экране для упрощения восприятия.

Примеры работы с файлами

Копировать

Допустим, у нас есть файл с именем 1.txt в папке C:\1\ , а нам нужно скопировать его в C:\2\ для этого пишем следующий код:

Filecopy «C:\1\1.txt»,»C:\2\1.txt»

Примечание!
Если в каталоге 2 уже находится файл с именем 1.txt, то он будет заменен на 1.txt из каталога 1.

Private Declare Function CopyFile Lib _
«kernel32.dll» Alias «CopyFileA» _
(ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Sub Command1_Click()
» Скопируем файл C:\1.txt в D:\1.txt.
Dim retval As Long » возвращаемое значение
«Копируем файл
retval = CopyFile(«C:\1.txt», «D:\1.txt», 1)
If retval = 0 Then «Если ошибка
MsgBox «Не могу скопировать»
Else «Если все нормально
MsgBox «Файл скопирован.»
End If
End Sub

Удаление

Например, мы хотим удалить файл 1.txt из корня диска C:\

Kill («C:\1.txt»)

Способ API

Private Declare Function DeleteFile Lib _
«kernel32.dll» Alias «DeleteFileA» (ByVal lpFileName As String) As Long
Private Sub Command1_Click()
«Удаляем файл C:\Samples\anyfile.txt
Dim retval As Long «Возвращаемое значение
retval = DeleteFile(«C:\1.txt»)
If retval = 1 Then MsgBox «Файл успешно удален.»
End Sub

Перемещение

Можно, например, переместит и так:

Filecopy «C:\1.txt»,»C:\2\1.txt»
Kill («C:\1.txt»)

Но лучше так (через API):

Private Declare Function MoveFile Lib _
«kernel32.dll» Alias «MoveFileA» _
(ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
Private Sub Command1_Click()
Dim retval As Long «Возвращаемое значение
retval = MoveFile(«C:\1.txt», «C:\2\1.txt»)
If retval = 1 Then
MsgBox «Успешно переместился»
Else
MsgBox «Ошибка»
End If
End Sub

Переименование

Для того чтобы переименовать файл 1.txt находящийся в C:\ на 2.txt можно использовать следующий код:

Filecopy «C:\1.txt»,»C:\2.txt»
Kill («C:\1.txt»)

Способ API

Private Declare Function MoveFile Lib _
«kernel32.dll» Alias «MoveFileA» _
(ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
Private Sub Command1_Click()
Dim retval As Long » возвращаемое значение
retval = MoveFile(«C:\1.txt», «C:\2.txt»)
If retval = 1 Then
MsgBox «Успешно»
Else
MsgBox «Ошибка»
End If
End Sub

Определить размер файла

Размер файла можно определить двумя путями:

Если файл можно открыть функцией OPEN, то можно воспользоваться функцией LOF

Dim FileFree As Integer
Dim FileSize As Long
FileFree = FreeFile
Open «C:\WIN\GENERAL.TXT» For Input As FileFree
FileSize = LOF(FileFree)
Close FileFree

Или использовать функцию FileLen

Dim lFileSize As Long
FileSize = FileLen(«C:\WIN\GENERAL.TXT»)

Доработка интернет-магазина

Став разрабатывать свой первый проект, важно довести начатое до конца, в чем поможет мастер-класс А. Семукова

В процессе дается информация о делении на объекты и методы (процедуры и функции), использовании модификаторов доступа, разделении ответственности между сущностями, реализации внутренних/публичных методов, тестировании установке заглушек в коде. Артем увлекается передовыми технологиями упрощающими жизнь, занимается автоматизацией рутинных процессов. Изучение ЯП Артем начал с Assembler-а, затем приступил к TurboPascal, С++, C#, VBA, позже увлекся HTML/CSS, javascript, TypeScript, Python.

Используя Visual Basic for Applications, можно делать приложения на Visual Basic, применять возможности языка VBScript, что позволит изучить универсальные средства создания скриптов администрирования Windows. Овладеть навыками не сложно – VBA позиционируется как ЯП для обычных пользователей, а не профессионалов, а подсказки по объектам, синтаксису и другие помощники встроены в MS Office.

— Уроки javascript

— Уроки python

— Онлайн курсы программирования

— Онлайн курсы excel

7 ноября 2022

Пример программы на VB

Для начала мы с Вами сделаем простенькую программу.

Поместите на форму следующие объекты: 2 кнопки CommandButton (Кнопка управления) и одно текстовое поле TextBox (Текстовое поле). Они расположены слева и называются «Кнопки панели элементов управления». Теперь когда у Вас они расположены на форме, можете, как угодно их поместить, растянуть, и даже задать какие-нибудь свойства, которые расположены справа. Мы с Вами зададим всего лишь их название, для этого выделите кнопку Command1 (просто нажав на нее) и с права в окне свойств найдите поле Caption и задайте название этой кнопки (измените  Command1 например на «Выполнить»). Теперь выделим Command2 и зададим ей название «Выход».
Теперь, когда у нас есть объекты на форме, давайте зададим им действия, которые они должны выполнять. Щелкните 2 раза по кнопки Command1 (или как у нас уже «Выполнить») и у Вас откроется окно кода где написано:

Private Sub Command1_Click()

End Sub

Вы напишите между этими строками вот что, и должно получиться вот так:

Private Sub Command1_Click()
  Text1.Text = "Привет! Программа работает"
  End Sub

Здесь мы задали, что при нажатие этой кнопки в текстовом поле будет появляться эта надпись.
Можете закрыть по крестику окно кода, и щелкнуть 2 раза по кнопке Command2 (у нас «Выход»), появляется то же самое окно, но уже готовое, для того чтобы задать действие для второй кнопки пишем вот что:

Private Sub Command2_Click()
  End
  End Sub

Мы здесь написали команду END, которая обозначает, что программа заканчивает свою работу.

Все можете запустить Вашу первую программу и попробовать, как она работает, но это конечно все только начало т.к. на Visual Basic можно написать такие серьезные программы которые не уступят таким программам, которые написаны, например, на языке C++.

Надеюсь, Вы теперь понимаете, почему этот язык является одним из самых легких (если не самым легкий) языков программирования. А начинать с него или не с него, то это только Ваш выбор.

Все, удачи в освоение Visual Basic, начинающим рекомендую начать свой путь программиста именно с этого языка.

Нравится14Не нравится2

Список запущенных процессов

Добавляем Listbox и 1 кнопку, вставляем следующий код:

Option Explicit
Private Declare Function CreateToolhelpSnapshot Lib _
«Kernel32» Alias «CreateToolhelp32Snapshot» _
(ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessFirst Lib _
«Kernel32» Alias «Process32First» _
(ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib _
«Kernel32» Alias «Process32Next» _
(ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib «Kernel32» (ByVal hPass As Long)
Private Const TH32CS_SNAPPROCESS As Long = 2&
Private Const MAX_PATH As Integer = 260
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Dim hSnapShot As Long
Dim uProcess As PROCESSENTRY32
Dim r As Long
Private Sub Command1_Click()
List1.Clear
hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If hSnapShot = 0 Then
Exit Sub
End If
uProcess.dwSize = Len(uProcess)
r = ProcessFirst(hSnapShot, uProcess)
Do While r
List1.AddItem uProcess.szExeFile
r = ProcessNext(hSnapShot, uProcess)
Loop
Call CloseHandle(hSnapShot)
End Sub

Соглашение об именах

В программе каждая форма и каждый управляющий элемент имеет свое уникальной имя, по которому к ним можно обращаться. Имена по умолчанию даются системой при создании объекта и состоят из слова, обозначающего тип объекта, и цифры — порядкового номера. Например, первая форма в проект имеет имя Form1. Имя объекта в программе является значением свойства Name этого объекта, часто это свойство изменяют с целью дать объекту имя, отражающее его назначение в программе. Visual Basic не накладывает сколько нибудь серьезных ограничений на имена — они могут быть практически любыми, но имеются общепринятые соглашения (Венгерская нотация) об образовании имен. В венгерской нотации имя объекта начинается с короткого префикса, который является стандартным для объектов данного рода и описывает тип или область видимости. За префиксом следует собственно имя объекта, отражающее его назначение, при этом первый символ имени пишется с заглавной буквы, например, форма frmDefault.

Если имя составлено из нескольких слов, то с заглавной литеры начинается каждое из них, например, frmTextEditor.

Но существуют некоторые ограничения в выборе имени. Имя переменной должно: начинаться с буквы, не содержать точки, быть не более 255 символов, не совпадать с ключевыми словами Visual Basic, быть уникальным в пределах области видимости.


Оглавление

Визуальное проектирование

Начните новый проект. Убедитесь, что форма является выделенным объектом, и окно Properties отображает ее свойства. Измените заголовок формы. Для этого в списке свойств найдите свойство Caption, выделите его двойным щелчком мыши и введите текст заголовка. Измените цвет формы с помощью свойства BackColor.

Свойство Left и Top определяют положение формы на экране при запуске программы на выполнение. Это координаты левого верхнего угла формы в твипах (1-1440 логического, т.е. зависящего от разрешающей способности монитора, дюйма.)

Для изменения можно ввести новые значения с клавиатуры или мышью переместить изображение формы в окне Form Layout. В режиме выполнения можно перемещать форму, как обычное окно Windows, но это не влияет на значение свойств Left и Top.

Значения свойств Height и Width — это соответственно высота и ширина формы. Изменить эти значения можно, изменяя мышью размеры формы в режиме проектирования. Если размеры формы становятся больше, чем размеры окна с формой в режиме проектирования, то появляются полосы прокрутки. Изменение размеров в режиме выполнения программы не влияет на значение свойств.

Подробнее о свойствах форм Вы можете прочитать в моей статье — «Фундамент программы или основные свойства форм», а о событиях и методах в статье «Методы и события форм», обе статьи Вы найдете на форуме в разделе Материал.

Процедуры Function и Sub

Прежде чем приступать к созданию собственных функций, целесообразно разобраться с готовой коллекцией встроенных, пригодных для использования в написании кода. В занятии разбираются особенности и различия двух процедур – Sub и Function . Первая не возвращает результат, поэтому к ней прибегают, если цель – само действие (например, изменение форматирования группы ячеек). Вторая возвращает, поэтому к ней прибегают, если цель – получение конкретного результата (например, суммирование чисел). Чтобы наглядно показать отличия, преподаватель решит одну и ту же задачу, прибегнув к Function и Sub.

Рейтинг
( Пока оценок нет )
Editor
Editor/ автор статьи

Давно интересуюсь темой. Мне нравится писать о том, в чём разбираюсь.

Понравилась статья? Поделиться с друзьями:
Вадлейд
Добавить комментарий

;-) :| :x :twisted: :smile: :shock: :sad: :roll: :razz: :oops: :o :mrgreen: :lol: :idea: :grin: :evil: :cry: :cool: :arrow: :???: :?: :!: