Всем привет, в этой статье я хочу показать Вам полезные коды небольших программ. Которые Вы можете использовать для написания уже своих более серьезных программ, ну или Вы искали именно эти функции, которые здесь описаны.
Все коды использовались в среде программирования Microsoft Visual Basic v6.0.
Выход с подтверждением
Первая своего рода программка, ну или функция, это выход с сообщением о подтверждение выхода. В общем, откройте среду программирования Visual Basic, создайте стандартный проект, потом поместите на форму одну кнопку, щелкните на кнопке и у Вас откроется окно редактирования кода, и туда Вам необходимо вставить следующий код:
Итак, Beep это просто звуковой сигнал, дальше идет выделение памяти (Dim), потом уже выполняется действие, т.е. сообщение «Хотите выйти?», да или нет и конец программы. Вот такая бесполезная функция можете использовать в своих программах.
Пароль на запуск программы
Далее идет очень полезный код, это пароль на запуск программы, ну или для чего-нибудь другого. Открывайте стандартный проект щелкните в пустом месте (загрузка формы программы) и вставляйте следующее:
Где, 12345 это пароль на запуск программы. Но этот код можно использовать, где только захотите.
Вывод сообщения
Если хотите просто выводить сообщение, для чего-нибудь, то вставьте это:
Рисование на форме
Дальше идет такая мелкая программа как мини Paint, т.е. рисование, причем на самой форме. Откройте стандартный проект, щелкните в пустом месте и вставьте следующий код:
Цвет можете менять с помощью параметра QBColor(0), т.е. вместо 0 поставьте другую цифру.
Перезагрузка компьютера
Для того чтобы перезагрузить компьютер: поместите кнопку и вставьте следующий код:
Запуск программы в единственном экземпляре
Следующий пример поможет Вам сделать так, чтобы программа запускалась только один раз, т.е. в случае повторного запуска она выдаст соответствующее сообщение. В код формы вставьте:
Выключение компьютера
Для того чтобы выключить компьютер можно использовать следующий код:
Завершение любого процесса
Для того чтобы завершить процесс можете использовать следующий код:
Где, вместо ICQlite.exe может быть любой процесс.
Сколько работает компьютер
Ниже показан пример того, как можно определить время работы компьютера. Данный способ основан на использование библиотеки kernel32, поэтому в самом начале кода формы подключите данную DLL.
Мы рассмотрели простые функции, которые можно использовать практически везде. Теперь рассмотрим более серьезные примеры, и они Вам могут очень сильно помочь написать свои крупные проекты.
Примеры работы с папками
Удалить каталог
Создать каталог
Список всех папок с под папками
На форму добавляем 2 текстовых поля и кнопку, имя первого текстового поля: StartText, имя второго текстового поля OutText. Свойство Multiline = true, имя кнопки = CmdStart
Далее пишем код в кнопке:
Теперь запускаем программу, в текстовом поле StartText пишем: C:\windows, и жмем на кнопку.
Размер каталога
Примеры работы с файлами
Копировать
Примечание!Если в каталоге 2 уже находится файл с именем 1.txt, то он будет заменен на 1.txt из каталога 1.
Можно использовать и функции API:
Удаление
Например, мы хотим удалить файл 1.txt из корня диска C:\
Перемещение
Можно, например, переместит и так:
Но лучше так (через API):
Переименование
Для того чтобы переименовать файл 1.txt находящийся в C:\ на 2.txt можно использовать следующий код:
Определить размер файла
Размер файла можно определить двумя путями:
Если файл можно открыть функцией OPEN, то можно воспользоваться функцией LOF
Или использовать функцию FileLen
Скрыть часы программно
Добавьте 2 кнопки и вставляйте код:
Добавить иконку в трей
Добавляем модуль, вставляем в него код:
Чтобы использовать вставьте в код формы:
Блокируем кнопку пуск
Добавляем 2 кнопки и вставляем код:
Считываем параметры из INI файла
Программа подключается к FTP, а в ини файле прописаны параметры — сервер, логин, порт, пароль.
С начало создаем INI файл:
Его необходимо поместите в папку с программой. Далее, вставляем в модуль:
Затем вставляем в код формы:
Список запущенных процессов
Добавляем Listbox и 1 кнопку, вставляем следующий код:
Помещение программы в автозагрузку
Для того чтобы программа загружалась вместе с Windows, как и другие некоторые программы, можно использовать реестр:
Добавьте 2 кнопки и следующий код:
А для того чтобы программа загружалась вместе с Windows, даже в безопасном режиме, то такой код:
Для начала более серьезный способ (сделайте на всякий случай резервную копию реестра).
Ну и простой способ.
Скрываем панель задач
Добавляем 2 кнопки и вставляем код:
Разархивировать архив RAR
Для того чтобы разархивировать архив RAR можно использовать следующий код:
Сколько оперативной памяти в компьютере
Добавьте одну кнопку и вставляйте следующий код:
Скрыть значки рабочего стола
Это делается следующим образом. Добавите 2 кнопки и вставляйте следующий код:
С помощью кнопки Command1 значки скрываются, Command2 — появляются.
На этом у меня все, надеюсь, вышеперечисленные примеры будут Вам полезны, пока!
Вам не нужен опыт программирования, чтобы воспользоваться информаций из этой статьи, но вы должны иметь базовые знания Excel. Если вы еще учитесь работать с Excel, я бы рекомендовал Вам прочитать статью 20 формул Excel, которые вам нeобходимо выучить сейчас, чтобы узнать больше о функциональных возможностях Excel.
Я подготовил для вас несколько самых полезных примеров VBA Excel с большой функциональностью, которую вы сможете использовать для оптимизации своей работы. Чтобы их использовать, вам необходимо записать их в файл. Следующий параграф посвящен установке макроса Excel. Пропустите эту часть, если вы уже знакомы с этим.
Table of Contents
Как включить макросы в Excel
1. Копирование данных из одного файла в другой.
Очень полезный макрос, поскольку он показывает, как скопировать ряд данных изнутри vba и как создать и назвать новую книгу. Вы можете изменить этот макрос в соответствии с вашими собственными требованиями:
2. Отображение скрытых строк
Иногда большие файлы Excel можно содержать скрытые строки для большей ясности И для лучшего удобства пользователей. Вот один макрос, который отобразит все строки из активной рабочей таблицы:
3. Удаление пустых строк и столбов
4. Нахождение пустых ячеек
13. Создание сводной таблицы
14. Отправка активного файла по электронной почте
Мой любимый код VBA. Он позволяет вам прикреплять и отправлять файл, с которым вы работаете, с предопределенным адресом электронной почты, заголовком сообщения и телом сообщения! Сначала Вам нужно сделать референцию в Excel на Microsoft Outlook (в редакторе Excel VBA, нажмите tools => references и выберите Microsoft Outlook).
15. Вставка всех графиков Excel в презентацию PowerPoint
Очень удобный макрос, который позволяет вам добавлять все ваши графики Excel в презентацию Powerpoint одним щелчком мыши:
16. Вставка таблицы Excel в MS Word
Таблицы Excel обычно помещаются внутри текстовых документов. Вот один автоматический способ экспорта таблицы Excel в MS Word:
17. Извлечение слов из текста
Мы можем использовать формулы, если хотим извлечь определенное количество символов. Но что, если мы хотим извлечь только одно слово из предложения или диапазон слов в ячейке? Для этого мы можем сами создать функцию Excel с помощью VBA. Это одна из самых удобных функций VBA, поскольку она позволяет создавать собственные формулы, которые отсутствуют в MS Excel. Давайте продолжим и создадим две функции: findword() и findwordrev():
Отлично, мы уже создали две новые функции в Excel! Теперь попробуйте использовать их в Excel. Функция = FindWordRev (A1,1) берет последнее слово из ячейки A1. Функция = FindWord (A1,3) берет третье слово из ячейки A1 и т. Д.
18. Защита данных в MS Excel
Иногда мы хотим защитить данных нашего файла, чтобы только мы могли его изменять. Вот как это сделать с VBA:
Поздравления! Поскольку вы все еще читаете это, вы действительно заинтересованы в изучении VBA. Как вы уже сами видели, язык программирования VBA чрезвычайно полезен и может сэкономить нам много времени. Надеюсь, вы нашли эту информацию полезной и использовали ее, чтобы стать мастером MS Excel, VBA и компьютерных наук в целом.
Данные правила обязательны к исполнению в рамках темы
Примечание: некоторые коды приведены без учета строгой типизации (Параметр Strict), поэтому для их использования необходимо выполнить приведение типов
Готовые решения и полезные коды на Visual Basic 6.0 Запрещаются любые обсуждения выложенных здесь работ (читаем спойлер). Собственно тут буду.
Basic4Android. Готовые решения полезные коды Предлагаю в этой теме делиться полезными кодами. Ну как Visual Basic.NET. Там есть такая тема.
Вместо WebBrowser целесообразно использовать Awesomium (см здесь). Он не завешивает форму на момент загрузки страницы и вообще быстрее (по сути, это хром).
P.S. Проект написан в SharpDevelop (за неимением иного на данный момент), однако в Visual Studio 2005 и новее должен открываться.
Пример использования GPS-координат добытых из файла JPEG.
Если ваше приложение умеет просматривать фотографии, то с помощью этого примера вы можете добавить в него такую функциональность как «Показать на карте». Файл должен содержать GPS-координаты. Если таковые отсутствуют, код покажет точку с координатами 0,0 (в Атлантическом океане).
Как отследить нажатие клавиши когда приложение свёрнуто?
И так, размещаем на форме таймер и в классе Form1.vb размещаем этот код
1. Как сделать, чтобы форма не зависала, пока WebBrowser загружает страницу?
Примечание: это решение позволяет также убедиться, что: 1) WebBrowser1.Document загружен, после первого цикла (чтобы, например, внедрить в страницу скрипт) 2) WebBrowser1.Document.Body загружено, после второго цикла (чтобы, например, изменить код body страницы) И всё это не используя DocumentCompleted.
2. Как по-быстрому сделать визуальный (WYSIWYG) редактор страниц типа очень простого аналога Dreamweaver? (Предварительно добавляем ссылку на COM Microsoft HTML Object Library или файл mshtml.tlb)
3. Как сфокусировать документ в WebBrowser в режиме редактирования, чтобы не тыкать его мышью, прежде чем печатать символы? WebBrowser1.Focus не работает.
Примечание: полный список команд + описание ещё нескольких интересных трюков есть тут. Примечание № 2: включенный WYSIWYG для этого дела НЕ нужен.
4А. А если я захочу ссылку на локальный файл вставить, мне тоже URL руками вводить?!
Обратите внимание, без MSHTML. Потому что в WebBrowser, в отличие от нативного IWebBrowser2, включена сыроватая оболочка для части его функционала. Примечание: включенный WYSIWYG опять НЕ нужен.
Вложения
Enable WYSIWYG.zip (66.6 Кб, 65 просмотров)
Как читать и редактировать БД Access (*.mdb), не используя ADO/ADO.NET и вовсе не зная SQL? или DAO vs ADO
. Было бы здорово, если бы можно было читать и редактировать данные в таблицах БД без необходимости использовать SQL как таковой и, как следствие, без нужды в ключевом столбце, проблем с зарезервированными словами и без многих прочих глюков. То есть так, как это делает сам MS Access. Или так, как мы читаем и редактируем книги Excel с помощью библиотеки NPOI. И чтобы при всём этом мы всегда могли написать что-нибудь на SQL, если это понадобится или мы просто захотим.
1. Как использовать DAO? 1. Добавляем в проект ссылку на COM Microsoft DAO *.* Object Library. Я брал версии 3.6. 2. Создаём объект DBEngine
Данные правила обязательны к исполнению в рамках темы
Примечание: некоторые коды приведены без учета строгой типизации (Параметр Strict), поэтому для их использования необходимо выполнить приведение типов
Готовые решения и полезные коды на Visual Basic 6.0 Запрещаются любые обсуждения выложенных здесь работ (читаем спойлер). Собственно тут буду.
Basic4Android. Готовые решения полезные коды Предлагаю в этой теме делиться полезными кодами. Ну как Visual Basic.NET. Там есть такая тема.
Изначально хотел как блог все сделать, но что то так и не понял как в блоге добавлять записи. Поэтому просто выкладываю здесь.
Итак, откроем наш первый файл test_vb.xls в нашем приложении:
Миниатюра 5 Изначально приложение Excel будет находится в невидимом состоянии (скрытый процесс) и если нам ничего никому показывать не нужно, то это даже очень удобно. А вот если нам нужно видеть, что же происходит то лучше отобразить приложение Excel. Для этого добавим на форму еще одну кнопку и напишем для нее обработчик. Миниатюра 6
Готовые решения и полезные коды на Visual Basic 6.0
Атанас Йонков Блоггер, Веб-разработчик 
