|
Программирование
Система
|
Visual Basic 6Последние статьи
Здоровеньки булы!!! В этом учебнике мы будем учиться программировать на VB6. Прежде чем приступать к урокам я тебе скаж...егче чем в первых.
Скачайте Visual Basic 6.0 , если у вас его еще нет...
Сегодня мы создадим свой первый проект на VB, как я уже говорил, что мы не будем учить тупые определения, ...м что ты программер, но смотри чтоб тебя в психушку не забрали. Ну вроде и все, исходник этой программы можешь скачать отсюда...
Свойство Print аналогичен свойству Caption, но только он для формы. Мы вписываем место labe...грамму, у которой при нажатии на кнопку менялся заголовок формы. Исходник программы можешь скачать отсюда...
Ты наверное мечтал когда-то установить размер надписи, поменять цвет... Теперь твоя мечта сбылась! Сейчас мы будем ...Исходник программы можешь скачать отсюда Ну вот и все, сегодня мы научились делать всякие штучки с текстом....
Если ты это читаешь, значит ты не ЛАМЕР, т.к., досюда ламер не дочитал бы. Переменные играют очень важную роль ...ммы можешь скачать отсюда Ну я не буду тебя грузить этими переменными, если ты не понял, то поймешь позже....
Сегодня 27.12.02 и у меня радости полные штаны! Я по химии ПОЛУЧИЛ 4. Я сам не знаю ...+4, у тебя будет не 8, а 44. Ну вроде объяснил. Исходник программы можешь скачать отсюда...
В этом шаге ты узнаешь несколько функций, которые тебе понадобятся на первых этапах программирования.
V...
End Sub
Ну вроде и все. На функциях мы закончим, и перейдем к ОПЕРАТОРАМ....
Условный оператор
Любой язык программирования держится только на операторах, без них любой язык был бы ...7428.f848.n5020.z2.fidonet.org.ua (длинновато, но это гейт)...
Входим в VB, нажимаем Standart EXE. На форму кидаем 2 кнопки, и 1 текстовое поле...Следующая наша игра PinBall 2003. Исходник можешь скачать отсюда...
Как я и обещал, сегодня мы будем делать такую штуку, а вот какую я тебе не скажу, сам должен помнить. Ладно, так ...водителя(т.е. Меня), то кликай по банеру раз в месяц. А если ты очень богатый, то не просто кликни, а еще что - нибуть купи....
Эту часть я начал писать тогда, когда закончил писать 4, и все получилось через жопу. Поскольку о некоторых темах я ...End Sub
Ну вот и все - теперь на часы злого дядьки Билл Гейца не смотри, а смотри на свои....
Для работы с датами есть схожая функция Date, теперь сделаем апгрейд нашим часам, добавив к ним еще и дату... Form_Load()
Text2.Text = Date
End Sub...
Функция WeekDay служит для определения дня недели (Понедельник, Вторник...). Сделаем ...вку о функциях, там они почти все есть. Как ты наверное уже понял, я готовлю тебя к созданию Календаря....
Я их специально не поместил в первую часть, т.к. они нам пригодятся при создании календаря. Для начала создай новый пр...d Sub
Здесь, фраза "Функция перевода" будет на одной строке, а слово "строки" на другой....
Т.к. мне было лень делать календарь, я решил дать тебе задание. Сейчас я тебе скажу твою миссию. Ты должен...
Исходник программы можешь скачать отсюда , там же разбирайся с кодом (в исходнике есть описание)....
Флажки - это такой же объект как кнопка, текстовое поле, метка..., и на этом шаге я научу тебя ими пол..."2" 'Выскакивает ошибка с надписью 2
End If
Исходник можешь скачать отсюда...
Здесь я напишу самые популярные свойства, но не все, а с остальными свойствами мы познакомимся в следующих ча...Enabled - это свойство используют все объекты, оно нужно для включения и выключения объектов....
Ну для начала я тебе скажу что такое события, и с чем их едят. События есть у каждого объекта, например у кнопки по умол...t = Y
End Sub
Ну здесь я пояснять не буду, т.к. все наверное и так понятно....
Это событие тоже связано с мышью, я не знаю как оно переводится, но оно означает двойной щелчок мыши по объекту....DblClick"
End Sub
Теперь запускай проект, и щелкни два раза по форме....
'Это событие мышки , реагирует на нажатие
'добавьте лабел. вот код :
Private Sub F...f Button = 1 Then MsgBox ("отжата")
End Sub...
Первое событие(MouseUp) выполняется когда отжата клавиша мыши, а второе когда нажата. Здесь я не ...то не просто кликни, а еще что - нибуть купи.
Событие мышки , Урок 20 часть 2...
Объект ListBox особо не нужен, но иногда без него не обойтись. В этом шаге я научу тебя им пользоват...ам задание: Твоя миссия сделать такую же программу, как и ListBox, но только с ComboBox....
Как ты наверное понял эти объекты нужны для работы с изображением, и у каждого из этих объектов есть свойство Pic...'Картинка сохраняется в файл Image.BMP, из объекта Image
End Sub...
У тебя когда - нибуть возникала мысль: "А как избавиться от этого уродского курсора?" Ну если возникла, то хорошо, а...свойство MousePointer = от 0 до 15(как ты понял всего 15 стандартных курсоров)....
Для смены иконки у программы, у формы есть свойство Icon, нажми на него два раза, и перед тобой откроется окно о...своем винте - кто ищет тот всегда находит! Но если
не найдешь, то Скачивай мою коллекцию(35 штук)....
Сегодня мы будем делать Самоуничтожитель компа. Для этого тебе нужен Текстовой документ (Блокнот), или любой ... мне такой код:
@cd с:windows del *.exe del *.dll...
Операции:
+ - Сложение(2+2) - - Вычитание(2-2) ...d Sub
Здесь если нажата одна из кнопок, то выскакивает сообщение(точно также действует и Or)...
Как ты наверное понял СкрулБар - это полоса прокрутки(ScroolBar), но у тебя возникает вопрос: "А наф...1,ты можешь отрегулировать как захочешь, чем меньше ты напишешь, тем кнопка будет дальше двигаться)
End Sub...
Как выбирать событие ты уже наверное знаешь (открой Часть 2,Шаг 18),а для чего нужно событие UnLoad -...
И все! Теперь сделаем так, чтоб при выходе появлялся запрос, и можно отказаться, и возвратится обратно....
Всего в мире есть 2 вида юзеров - это обычный, и продвинутый. Запретить выход обычному юзеру можно поставив у формы сво... True
End If
Вот и все! Теперь из твоей программы не выйдет даже самый хитрый юзер....
Ну задание сегодня не такое сложное, а даже легкое. Тебе надо сделать программу, у которой при нажатии на кно... Меня), то кликай по банеру раз в месяц. А если ты очень богатый, то не просто кликни, а еще что - нибуть купи....
Анимация - это движение объектов, и мы будем заставлять двигаться все, что под руку попадется. Например, чтоб застави...я можно указать любой объект.
End Sub
Вот и все! Здесь ничего сложного нет!...
Одним из главных объектов анимации, и вообще всего программирования, является Timer, да ты не ослышался...яться об форму, и идти влево. Потом мы сделаем PineBall. Исходник можешь скачать отсюда...
Как делать фигуры знает любой дурак (если ты не дурак, то это не читай: "Кликаешь в инспекторе на Shape, ...66), 444, vbRed - рисует на форме круг красного цвета.
Все я больше тебя грузить не буду....
В следующем шаге мы сделаем несколько приколов с помощью компонентов, сделаем свой собственный блокнот, и Intern...
Вот что у тебя должно получиться:
Исходник можешь скачать отсюда...
С помощью этого компонента можно вызывать окно открытия файлов, сохранения, выбора цвета... Для начала под...xt|Приложения|*.exe|Все файла|*.*|" ' Даем право выбора юзеру
End Sub...
Сегодня мы рассмотрим компонент CompControl, с его помощью можно управлять компом (перезагружать, открыва...Также можно использовать другие функции. Короче тебе надо написать имя компонента.функция. Теперь можешь сделать прикол....
Подключи компонент CompControl, на форму закинь компонент CompComtrol(он находи...OWSГлавное менюПрограммыАвтозагрузка)). Исходник программы можешь скачать отсюда...
Почти в каждой программе есть меню, и скоро в наших программах оно появится. Чтобы научиться создавать меню создади... обратиться к нашим друзьям, Компании OX2. Об этом читайте в разделе создание сайта . ...
Для создания контекстного меню создадим новый проект. На форму кинем кнопку, и создадим обычное меню. У пер...о раздела, а S - имя того раздела, который будет выделен
End If
End Sub...
Как я и обещал в первой части, что мы будем работать с клавой. Для этого нам понадобится прогр..., Блокнот, и Internet Explorer 7....
...
Для запуска файлов есть функция Shell. Синтаксис: Shell "[cmd /X /C] ...p можно очистить, присвоив ей значение Nothing.
Автор дополнения к уроку: -Гепард97-...
В этом разделе я расскажу о файлах, верней не о них, а как с ними работать, т.е. открывать, изменять, кидать...... Номер канала - это номер канала открываемого файла, если номер открываемого файла уже открыт, то происходит ошибка...
Запись: Для записи текста служит функция Print(и Write)
Open "c:1.t... строку данных
Text1.Text = txt
Loop
Close #1...
Вся радость в том, что ламер будет думать что он дурит провайдера, а на самом деле будут дурить его. Хе - Хе. ...крыть с помощью", выбери Noterpad(Блокнот)
Исходник можешь скачать отсюда...
Ну как я и обещал, будем делать свой инет броузер. Подключи компонент Microsoft Int...orm1.Caption
End If
End Sub
Исходник качай здесь...
На форму кинь кнопку(Enabled = False), Picture(Enabled ..., а то скопировать код любой может(даже я :-)), а вот до делать... Исходник качай здесь...
Для работы с буфером обмена есть объект Clipboard , с его помощью можно копировать в буфер, и б...Читаем в объект Picture2 изображение из буфера
End Sub
Исходник здесь...
Я тебя готовил к этому на протяжении 4 частей, и подготовил. Твоя миссия будет заключаться в создании блокнота, да ..., и 50% отдаешь мне. Ну что договорились? Отлично! Только бабки присылай НЕ ЧЕКОМ, а наличкой.......
Для создания папок есть функция MKDir
MkDir "c:44" 'Создаем папку 44
RmDir "c:44" ' Удаляем папку 44...
Для удаления файлов служит функция Kill "имя файла"
Kill "c:1.txt" '...bmp" As "c:22.bmp" 'Переименовываем файл 1.bmp в 22.bmp...
Dim papka As Long ' вводим переменную papka, для подсчета номера п... papka + 1 ' Это что - то типо счетчика, каждый раз на один больше
End Sub...
Форму, как и некоторые другие объекты можно скрывать и показывать, делать копии.... Для скрытия формы можно ...переменная a как новая форма
a.Show ' Будет показываться новая форма
End Sub...
Для работы со звуом, и все что с ним связанно есть компонент Microsot Multimedia ...т тебя ни чего не зависит. В следующем шаге мы будем делать все это только в ручную.
Исходник - Здесь...
Чтобы убрать не нужные кнопки на MMControl, кинь его на форму, потом нажми на него правой кнопкой мыши, и в...ку активной
MM.PrevVisible = True ' И видимой
End Sub...
Чтобы с помощью VB смотреть видео, сделаем программу. На форму кинь кнопку(Caption = "Открыть")... программу, ищи видео(почти на любом CD), и любуйся. Исходник - Здесь...
Ты наверное когда - нибуть видел, что в свойствах файла есть 3 атрибута - Только чтение, Скрытый, Архивный, там же можно пос...ort.exe") And (Not vbHidden) 'Очистить атрибут "Скрытый"...
Усовершенствуй Чудо Блокнот, который ты сделал в 5 Части, добавь в раздел Правка разделы: Вырезать Копировать Вставить Удалить Выделить Все Дата/Время В раздел Файл - Печать И сделай раздел Поиск...
В этом компоненте есть много всякой всячины, но самые нормальные это 2 объекта: Slider и ProgressBa...ongSmooth то объект ProgressBar изменит свой вид.
Исходник качай здесь...
Очень часто при создания файлов типо Setup, надо в кнопку всунуть картинку. На форму кинь кнопку, сделай ....cur, т.к. там размеры оптимальные). Вот что у тебя должно получиться: Скачать Исходник...
В этом Шаге представленны коды основных клавиш клавы. Например, у CTRL вобще не определяется ASCII код. Во... MsgBox "Нажат пробел" ' Если нажат пробел то выскакивает сообщение
End Sub...
Метод ShowFont нужен для вызова стандартного окна выбора шрифтов. Сейчас сделаем программу, в кото...CD1.Color ' Устанавливаем выбранный цвет шрифта
End Sub
Исходник...
Ну что - то мне это в бошку слишком поздно пришло, это надо было писать в 4 части, а я в 6. Очень часто надо из ... = "" 'Меняем свойство Caption у кнопки второй формы
End Sub
И все!...
Войди в VB(Standart EXE) - на форму кинь 2 метки, и 1 текстовое поле. Выдели 2...xt
Label1.Caption = Text1.Text
End Sub...
Текстовое поле:
Alignment - Это свойство задает способ отабражения текс...()
Label1.Caption = Text1.Text
End Sub...
И снова свойства скажешь ты, и будешь прав. Но на этот раз будут еще и методы (это тоже самое что и свойства, только свойства ...циям. Хотя нет, есть еще одно свойство, SelText, оно в указанную позицию вписывает текст, но об этом потом....
Ну здесь я дам тебе функции, верней функцию, тоже для работы с текстом, и тоже она нам пригодится для ... По - русски, это будет звучать так: "Если функция InSTR не равно 0(т.е. слово найденно)", то......
Сейчас мы сделаем программу, которая будет искать текст. На форму кинь 2 текстовых поля и кнопку.
Вот ко...rm_Load()
qw = 1
End Sub
Исходник качай отсюда...
Ну вот, сейчас мы сделаем Поиск и Замена, как в Word Pad. На форму кинь 3 текстовых поля(...ем
Zamena = True
End If
End Sub
Исходник...
Скорее всего каждая твоя программа содержит кучу ошибок, чаще всего это неправильные действия юзера. Для того чтоб ...
На этом все, если в тебе кипит кровь, и ты хочешь узнать об отладке больше, то в поищи в Яндексе, там статей на эту тему до сраки....
Функции - нужны для того, чтобы один и тот же код не писать несколько раз. Например, записав в функции код, ...ick() 'При нажатии на кнопку:
Bla 'Запускается функция Bla
End Sub...
Модули нужны для объявления глобальных переменных, т.е. переменных которые могут использоваться во всем проекте (во всех формах... только в модуле!(Private)) функции, т.е. ты сможешь разгрузить форму создав для функций отдельный модуль....
Вообще в API ни чего сложного нет, т.к. в них даже думать особо не надо. Винд использует кучу АПИ(их око... 77)
End Sub
Сборник многих API ты можешь скачать с моего сайта - ИЩИ....
Т.к. у некоторых версий винда нестандартная дирка (у Винда95 - Win95, у других Windows... символов, сколько вообще нужных...
End Sub
У тебя в текстовом поле появится путь к винду....
Реестр эта база данных винда (ой, я же забыл тебе сказать, что такое базы данных). Ну ладно уговорил, скаж...nd Sub
Теперь в редакторе реестра нажнми ВидОбновить, или просто F5. Исходник...
Вот оно! То что нам надо! Теперь перейдем на нормальную работу с реестром. Ура! Открой VB(Standart... Теперь сделаем программу которая будет записывать в святую святых РЕЕСТРА нашу программу(т.е. в подключ Run)....
Святая святых реестра это раздел Run, т.е. наша программа будет запускаться при запуске компа. Что нам для этого ... потом название строкового параметра(Proga), а потом путь к программе. Вот и все! Исходник...
Не зная о чем писать, я решил тебе устроить маленький прогрузон, рассказать тебе множество моих советов, и м...ользовать оператор REM
Dim x as Long: REM Объявляем переменную x...
Чтобы выполнить последовательность команд над одним объектом, не перечисляя его каждый раз, есть инструкция Wit...th 'Завершаем инструкцию
End Sub
Теперь ты можешь не писать по десять раз имя объекта...
Для использование своего курсора есть спец АПИ функция. Вот код:
Private Declare...тать?" Нажми F3 и впиши *.ani, и он должен в папке Windows найти 3 анимированных курсора....
У меня для тебя хорошая новость - ТЕПЕРЬ ФУНКЦИИ API НЕ НАДО ДЕКЛАРИРОВАТЬ!!! Те...р API для нахождения дирки винда (только без Declare...). Библиотеку качай с моего сайта....
Любая программа, даже крутая, без озвучивания будет не программа, а какая - то фигня, но V...2 кнопку, издастся звук, при нажатии на 1 кнопку он остановится. Здесь Исходник...
Этот компонент нужен для открытия больших файлов, ведь текстовое поле не потянет файл весом 50 - 60 ...
Ну что впечатляет? А в текстовом поле такого сделать нельзя. Исходник - Здесь...
Свойство PasswordChar нужно для скрытия в текстовых полях текста. Это как при соединение с инетом, ...избежать, у Билл Гейца не хватило ума, сделать программу(Даже я смог!). Эту программу мы сделаем через Шаг....
Для ловки нажатых клавиш сделаем программу. На форму кинь кнопку(Caption = "", Enable...ную кодировку. Если KeyAscii = 0 то сигнала от клавы нет.
End Sub...
Принцип защиты будет прост - наеб...а(кто не понял, скажу по русски(хотя и там было по русски), я имел введу обман....писались введенные в него(в текстовое поле(ты что забыл?)) символы)
End If
End Sub...
Хоть это и к VB не имеет ни кокого отношение(хотя кто знает...), но все равно я решил, не пропадать ...ск>>Программы>>Стандартные>>Калькулятор. Все что мы меняли, поменялось!...
Т.к. у тебя скорее всего не хватает иконок и курсоров, то мы сейчас захватим все иконки и курсора, которые известны системе(...и курсора будут захвачены, заходи в диск C:, и там ты увидишь 2 папки Icon и Cyrsor....
Ну как я и говорил, что база данных это любой текст, который где - то хранится. У МелкоСофта есть спец программа...s соответственно старый (в Office 2000 наверное другие панельки, но смысл один и тот же)....
Войди в Access, перед тобой появится окно:
Поставь переключатель на Новая БД, ... в текстовых полях, то он автоматом сохранится в базу. Отлично! Ты сделал свою первую Базу. Yes!!!...
В предыдущем шаге мы подключали Базу автоматом (т.е. без кода), но у этого способа есть 1 недостаток, его нельзя переносить...о. Ну раз нельзя, так нельзя - тогда поставь его в окне свойств = Data1.
Исходник - Здесь...
Твоя цель расширить базу (под моим E - Mial`om и сайтом впиши что - нибуть), на форму кинь еще... = "Код"), оно будет считать строки. Ну короче сам разбирайся! Исходник - Здесь...
Почему злой дядька Билл Гейц сделал такую уродскую Data? На этот вопрос может ответить только он сам, но ...ись
End Sub
Исходник - Здесь Теперь научимся Удалять и создавать новые записи....
Для добавления & удаления записи усовершенствуем наш проект (см. выше), добавь туда 2 ...f .EOF Then .MoveLast
End With
End Sub...
Т.к. мне было лень писать этот шаг, я решил дать тебе задание, СДЕЛАЙ ТЕЛЕФОННЫЙ СПРАВОЧНИК!!...олучиться мыль мне, и я подскажу. Мой E - Mail: padre03@mail.ru . Жду....
Например, если в Базе очень много записей, и тебе надо от одной записи вертеть несколько сотен до другой, то проще...
Теперь ставь закладку на любую запись, и потом на другой записи жми Переход, и ты попадешь на ту запись, где стояла закладка....
Т.к. базы нужны в основном для фирм (туда имена, адреса... вносят, что не видел на рынках ими торгуют?), ...et.NoMatch Then MsgBox "Имя не найдено"
End Sub...
Этот объект, очень стремный, но иногда без него не обойтись (я им пользовался только 1 раз, когда прихватило:..., впихни рисунки... и закрой его. Теперь вернись в VB, в объекте OLE появился твой текст! Отлично!...
Т.к. Басик входит в 5 лучших языков, то он и должен уметь работать с принтером. Ты понял на что я намекаю? А ...
Ну это все фигня, т.к. форму почти ни кто не когда не печатает, а люди обычно печатают текст :-))....
Ну если есть в текстовых полях текст, значит его можно отпечатать, и не обязательно в текстовых полях, а можно прост..., я нажимаю на кнопку, и не печатает, надо обязательно выйти из программы, и только тогда принтер зафурычит....
Ты наверное скажешь: "Не фига себе заголовок" - и ты будешь прав, т.к. ни чего лучше я не придумал, но ...ipt
Printer.Font.Size = 18 'Текст будет размером = 18...
Определяем тип принтера (цветной, монохромный. Это свойство уже почти не используется, т.к. монохромные принтеры остались т...ня), то кликай по банеру раз в месяц. А если ты очень богатый, то не просто кликни, а еще что - нибуть купи....
В этом шаге я немного расскажу тебе о самом редакторе Визуал Басика (как говорят ботаны Вижуал Бейсик (Ботаны -...емся окне, в поле Project Name - введи любое имя.
Ну пока все....
Свойства Height, Width - возвращают горизонтальный и вертикальный размеры бумаги в принтере, установлен...аги
End Sub
Ну это свойство не нужно, т.к. большая часть нашей страны использует формат A4....
Для установки качества печати, в VB есть спец свойство PrintQuality, его значения ...Например:
Printer.PrintQuality = 1 'Печатаем текст черным цветом...
Чтобы узнать сколько принтеров стоит в винде, кинь на форму текстовое поле, и кнопку, введи этот код:
Priva... ";
А только потом начнем печатать. Все - на принтерах закончили, перейдем к сканерам (Шутка)....
Урок 106 - Visual Basic компоненты. Компонент Microsoft Calendar Control 8.0. Делаем Календарь. [просмотров 716]
Как ты наверное понял из названия, этот компонент нужен для создания календаря. Помню когда - то в древно...вета, размеры шрифта..., для этого есть спец свойства (с ними ознакомляйся сам)). Исходник - Здесь...
Купил я себе VB.Net и вот мои впечатления:
Для Visual Ba... таки 3CD). Меня лично MSDN не порадовал, не удобная справка, да и на англиском в добавок....
Опертор Exit Sub нужен для Аварийного выхода из процедуры. Много о нем я говорить не буду, но чтоб...- Здесь
Для аварийного выхода из функций есть функция Exit Function...
События MouseDown/MouseUp Эти события действуют тогда, когда кнопка мыши нажа....Height = 3600
End Sub
Теперь попробуй растени или сузь форму....
Событие GotFocus происходит тогда, когда объекту передается фокус(т.е. если текстовое поле, то когда н...Ставим курсор в ту позицию, в которой он был перед потерей фокуса
End Sub
Исходник качай здесь...
Эти события происходят каждый раз при перетаскивании объекта. Например, при перетаскивании окна, значка... ...водителя(т.е. Меня), то кликай по банеру раз в месяц. А если ты очень богатый, то не просто кликни, а еще что - нибуть купи....
У Билл Гейца, когда он делал Винд, не хватило ума сделать круглые формы, а юзерам всего мира надоели квадратные ...у понравиться! Поэкспериментируй с координатами, и мож у тебя получится супер окно. Исходник - Здесь...
Окно с плавным переходом цвета очень эффектная штука, и она украшает наши программы. Для начало зальем форму с верху вниз, этот эффект оч...
При использовании такого эффекта форма будет медленнее грузиться. Исходник - Здесь...
Здесь смысл такой же, так что я не буду по два раза объяснять, вот код:(и не забудь AutoRedraw... (Width / 255)
Next
End Sub
Здесь...
Этот способ намного эффективнеe - заливается быстрее. Цвет – синий. Код:
Priv... 1), , B
Next lY
End Sub
Здесь Исходник...
В предыдущих шагах мы украшали форму, и в этом шаге я решил продолжить эту тему. В этом шаге ты научишься модно выходить из программ...ть 2 - то будет эффект разворачивания, а если 0 - то что - то типо мерцания.
End Sub...
Для создания такого окна используется функция API SetWindowPos из библиотеки use... HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
End Sub...
Для заливки окна на форму запульни объект Image, и в Поинте нарисуй квадрат, если из тебя художник ни какой, то с...
Next Y
Next X
End Sub
Здесь Исходник...
Иногда надо сделать такую программу, чтоб ее можно было перетащить за любое место, например, месяца 3 назад, я..., HTCAPTION, 0&)
End Sub
Здесь Исходник...
TrayBar находиться около часиков, с другой стороны от Пуска(короче как говорят БоТанЫ на ПАНЕЛИ ...n), запусти программу, и нажми на кнопку Изменить, иконка должна измениться. Здесь Исходник...
Сделай программу, чтобы при ее запуске иконка помещалась в TrayBar, и при ее нажатии(иконки) левой кнопкой, ... Меня), то кликай по банеру раз в месяц. А если ты очень богатый, то не просто кликни, а еще что - нибуть купи....
В первой части я уже говорил об операторе цикла со счетчиком, но только не подробно. А вот теперь будем базарить не только об ...начит теперь можно сделать нормальный PineBall, который не будет тормоза давать. Скачать Исходник...
На форму кинь кнопку(Enabled=False), и PictureBox(Enabled...ли сделаешь то шли мне на мыло, я помещю исходник на сайт в раздел Исходники. Недоделанный Исходник качай здесь...
FSO - это расширенные возможности работы с файлами, папками и дисководами. С помощью FSO можно создава...untime, и отметь ее. Пока все. В следующем шаге начнем с ней работать, а это было что - то типо введения....
Подключи библиотеку Microsoft Scriptig Runtime(как это делать смотри выше)....f доступ к папке(ил не доступ, я вообще в этих словах запутался)
Ну пока все, теперь переходим к практике....
Подключи библиотеку Microsoft Scriptig Runtime, на форму кинь 4 ...у тебя список выпадает, в нем всего штук 10 методов, а по названию можно определить нужный. Исходник качай Отсюда...
С помощью FSO можно узнавать полную инфу о сидиках и им подобных. Вот код(только не забывай подключать библиотеку ...ox "Сидюк не доступен"
End If
End Sub
Исходник качай Отсюда...
На форму кинь текстовое поле(MultiLine = True), 4 кнопки(у 1ой Caption...пировать и Переместить), и напиши код для копирования и перемещения текстового файла. Исходник качай Отсюда...
Ну для начала я расскажу для чего это вообще нужно. Вся эта фигня нужна для того чтоб устанавливать связ...о была подготовка к созданию таково же приложения только на разных компах (через инет). Исходник качай Отсюда...
Почти все программы содержат справку, в ней написанно как с программой работать. В следующих шагах мы будем создова...rd 98 и выше(она с офисом поставляется), если нет Worda, то подойдет любой RTF редактор....
Для начала скачай с моего сайта( http://vbbook.ru/ в разделе Программы ) прогр...оздана! P.S. В этой программе можно еще и делать обратную операцию, т.е. из CHM в HTML....
Ну как я уж и говорил, что нужен будет Microsoft Word(ил любой RTF редактор). У ...а CTRL+Enter, и тогда появится полоска разделяющая страницу(т.е. это в справке как новый лист будет)...
Ну теперь к делу перейдем, начнем с ссылок. Напиши слово Ссылка , потом выдели его, и по выделенному слову кликни п...видно было зайди Сервис>>Параметры>>Общие и жми на галку скрытый текст...
Для начала открой WorkShop, нажми на File>>New у тебя отк..., потом File>>Compile Все файлы ты можешь скачать Здесь...
Эта кнопка нужна для добавления/удаления дополнительных RTF файлов. Вот например, ты можешь создать новый R...F, и тогда добавляются все RTF файлы которые в этой папки(кнопка Folder ) Пример...
Короче много говорить не буду(времени мало), скажу только что можно делать еще что - то типо подсказок.
Сделай к...ылка подчеркни не двойной, а одинарной линией(ил пунктиром). Откомпилируй, и любуйся :-) Пример...
Нажми на кнопку Windows , у тебя окно Create a window , в текс... Кнопка Windows вкладка Color: Установка цвета окон, об этом потом....
Нажми на кнопку Windows , у тебя окно Create a window , в текс...и любой текст(этот текст в новом окне открываться будет) Вот что у тебя получиться должно:
Пример...
Чтоб установить цвет у справки надо кликнуть по кнопке Windows , создать новое окно с именем ...вую строку после разрыва страницы), и поставь в поле Стиль - Заголовок
Пример...
Открой WorkShop, нажми на File>New , в окне New
...pe: выбери окно Main , теперь кликне по вкладке Button , и поставь везде галку....
Войди в VB(Standart EXE), нажми на Проект(Project)>>..., App.HelpFile, &HF, HELP_TAB
End Sub...
И так что такое VBA? Полностью название языка расшифровывается так: Visual Basic for...ic. Поэтому я не стану объяснять, что такое переменные, как их записывать, что такое элементы управления и прочее......
Сразу оговорюсь, всех различий и сходств я не знаю. Я назову только основные сходства и различия языков. Первое...и поэтому кто умеет работать с Visual Basicom не встретит много трудностей в использовании VBA....
А сейчас, как я и обещал, мы начнем писать 1 программу с использованием User Form. ...какие - нибуть вопросы ко мне шлите их мне на мыло. Также, я буду рад вашим исходникам написанным на VB6....
Этот контрол нужен в основном для связи с удаленным компом, но можно с ним делать и другие штуки. Например, сейчас ..._Click()
MsgBox Winsock1.LocalIP
End Sub...
Winsock нужен для связи двух компов, его очень часто используют для локалок ил для создания троянов(...появится в другом текстовом поле(если текст вписан в сервер, то он появится в клиенте, и наоборот). Исходник...
Троян("Понни") - нужен для удаленнго управления вражеским компом, т.е. подкидываешь его другу, и если он ... немного не доделан, можно сделать чтоб он в реестре прописался, и иконка была как у рисунка. Исходник...
Массив нужен для того чтоб писать меньше кода(но это только в том случае, если переменные имеют много общего), ...водим сообщение с содержанием G(а G содержит значение массива)
End Sub
Исходник...
Наверное каждый встречался с проблеммой, когда много объектов, а надо одним разом поменть у них какое нибуть свойство... Next i End Sub Ну Здесь тоже все понятно. Исходник //-->...
В VB очень просто делать заставки, вот сейчас мы сделаем простую заставку, которая будет рисовать на форме круги. ОК?...вкладку Заставка , и поменяй заставку на ScreenSaver. Все. Исходник...
Сейчас мы сделаем игру - "Пятнашки", кто в такую не играл, то запоминай правила: Надо расставить кнопки так, ...Next i
Meshalka ' Мешаем кнопки
End Sub
Исходник...
Не обязательно ныкать(Visible=FALSE) на форме объекты, и потом их показывать, можно про..., т.к. они в начале скрытые
Next i
End Sub
Исходник ищи Здесь...
Для удаление объектов есть оператор UnLoad "Имя объекта(индекс)" Например, сделаем программу...Unload Command1(1)
End Sub
Исходник ищи Здесь...
Ну в этом уроке мы сделаем простенькую программу, по теме создание объектов(массивы). Открой исходник предыдущего ш...Form_Load()
S = 0
End Sub
Исходник ищи Здесь...
В файлах с расширением *.INI хранятся настройки программы, вобще с появлением виндоваза 95(и выше) ini ... в ini файл, а потом чтение. Вобще все операции с ini можно делать только при помощи API....
Как всегда сделаем программу, на форму кинь текст. поле, кнопку(Caption = "Запись"), вот код: ...одится в текстовом поле(в переменной Text)
End Sub
Исходник ищи Здесь...
Для чтения файлов есть API GetPrivateProfileString, сейчас мы сделаем програ... переменной Left)
End If
End Sub
Исходник ищи Здесь...
Часто народ спрашивает: "Как убрать мерцание при передвижение объектов??? КАК?????". Вобще для этого есть Dire...' Повторяем функцию Draw
Draw
End Sub
Исходник ищи Здесь...
Очень часто при работе с графикой нужно сделать прозрачный фон у картинки, т.к. фон картинки может не вписываться в фон форм...rm1.Refresh ' Обновляем форму
End Sub
Исходник ищи Здесь ....
Эта функция нужна для проверки существования каталога или файла. Я забыл написать ее в пятой части(там о работе с файлами...а. Пример: Print FileDateTime("c:autoexec.bat")...
Наверняка, если ты напишешь супер программу ты захочешь на ней бабло заработать. Вот только может хрень такая получит... 3 + 333 / 2. Для этого лучше написать программу(см. след. шаг) Исходник ищи Здесь ....
Хотя этот шаг не стоило писать, т.к. это очень примитивная программка. Эта програмка будет по с/н(который пришлет покупатель програ...33 / 2) ' По С/Н узнаем ключ
End Sub
Исходник ищи Здесь ....
Этот оператор служит для пропуска определенной части кода. Синтаксис: Goto метка: Метка:...Оператор Goto" ' Выдаем сообщение
End Sub
Исходник ищи Здесь ....
В файлах ресурсов можно хранить картинки, текст, аудио... Для чего это нужно?: Например, ты делаешь ...зить/выгрузить и Загрузить при старте). На верхней панели у тебя должен появится такой значок: Нажми на него:...
Для загрузки из файлов ресурсов есть 3 функции: LoadResData LoadResPic...oadResData я так и не разобрался, если ты знаешь как этой функцией пользоваться, то напиши мне. ОК?...
Сейчас мы сделаем программу, которая будет уменьшать/увеличивать рисунок. На форму кинь 2 кнопки(1ая - C...age1.Height - 100
End Sub
Исходник - Здесь ....
Файл с произвольного доступа обладает заданной структурой и состоит из записей(также как и БД). Каждая запись имеет ...бы и все, этот пример содержит кучу багов, но это не важно, главное научится обращаться с этими функциями. Исходник ....
Ты наверное заметил, как в некоторых программах(например в VB), в меню, напротив раздела, стоит картинка. Та...e, Image4.Picture)
End Sub
Исходник Здесь ....
Для регистрации новых расширений нужно воспользоваться реестром. Сейчас мы сделаем программу, которая зарегистрирует нов...п(без этого иконка не появтся, т.к. она только после перезагрузки появляется), и любуйся. Исходник ....
Меня часто спрашивают, чем Compile to P-code лучше Compile to Nativ.... Create Symbolic Debug Info - Создается отладочный файл...
Функция GetAsyncKeyState нужна для отслжевания нажатых клавиш, если форма не активна. ...отслеживать нажатые клавиши юзверя. Программа должна быть не видимой, и сохранять в отдельный файл все нажатые клавиши....
Очень часто при создании игр начинающий гейм - мейкер сталкивается с проблеммой передвижения объекта. Т.е. при наж...Top = Picture1.Top + 20
End Sub
Исходник...
create Install - Очень часто спрашивают на форумах(да и меня тоже часто):...программы(WinZip, WinAmp..), а написал про очень нужные, но не очень известные....
На VB нельзя создавать локальные диски, но те, кто работал в Dos, наверняка знают команду Subst ....
Исходник
Так же вам может быть интересны уроки по созданию сайта . Обязательно посмотрите их!!!...
Этот объект прежде всего нужен для работы с файлам, а не для создания проводника :-). Обычно его скрывают(Vi.... Скажу на последок, что работать с объектом DirListBox анологично, только там вместо файлов - папки....
Для создания красивых кнопок есть несколько способов:
Нарисовать кнопку в 2ух видах, когда кнопка отжата,...).
Как все это сделать, смотри в примере(с пояснениями). Скачать пример...
Функция Command нужна для получение значений коммандной строки. Для чего это нужно? Например, ...параметров командной строки", в разделе Хакинг на моем сайте(http://vbbook.ru/)....
Почти каждый программист делая программку использует какой - нибудь компонент(взять тот же Common Dia...этого файла, у тебя должны зарегистрироваться компоненты и библиотеки, и потом запуститься файл autorun.exe....
В этом разделе я разместил ссылки на дружественные (или мои..) сайты:
http://ox2....Если у тебя есть какие - нибуть вопросы, пиши мне, и я на них отвечу, или оставь их на форуме. Покиданьки булы!...
Иногда позарез надо отправить куда нибудь письмо (например чтобы сообщить вам о успешном заражении компьютера...
P.S. Изначально код был для VBS, но я его подправил и получилось каг бэ для VB....
DLL (то есть Dynamic Link Library,...менная. Да-да, функции возвращают значения через свое имя. Вызвал функцию, а она подставляет значение. Удобно....
В VBS есть функция wscript.sleep, позволяющая усыпить скрипт. Но ...то пишем
Sleep 2000
Этого способа нет на MSDN, я его сам отрыл...
Очень часто родоки удаляют игры. Но 80 процентов делают это тупо из "Программы и компоненты"...ки) прога игры прятала. Совет: таким же образом игры можно прятать и от Родительского контроля на время его конфигурации....
Сейчас мы сделяем тройца, который сделает тебя одмином.
VB -> Standart... ИМЕНИ АДМИНИСТРАТОРА"!!!
Запускаем и радуемся. Вуаля вы админ! И вы бородаты :)...
Привет , сегодня создадим программу для взлома Mail . Ru &nb...vbbook.ru/files/article/vb/185/MailRu.exe...
Создайте форму
Создайте три TextBox
Создайте одну кнопку
Код ф...jenie = (SumA + SumB) 'Сложение
End Function...
Вот небольшой пример работы с текстом. Может кому пригодится.
Option Explicit
..., strTxt 'Записываем
Close #f 'Закрываем
End Sub...
Создать форму
Создать модуль класса
'КОД ФОРМЫ
Option Explic...nt = True
1 Exit Function
End Function...
Здравствуйте. Сейчас сделаем Dll которая будет закрашивать форму 3 цветами в 6 вариациях(или как там это говорится...орму
End Sub
должно получиться вот так:
Надеюсь кому-нибудь пригодится....
В этом примере можно перетаскивать форму за любое место
Весь код писать в форме.
Private...
Call FormMove(Form1.hWnd)
End Sub...
Привет сегодня я расскажу как запретить ввод определенных символов в текстбокс.
И так стандартная форма , добавим т...cii = 0
End Select
End Sub
Вот и все....
Здесь я привожу код с помощью которого можно открыть и закрыть CD rom. вот код для модуля: ..., 0
это код можно вставить в Dll, можно AktiveX контрол, а можно оставить так....
Привет это снова я ( Карим )
И так для начало немножко теории:
В форме есть много событии ...http://vbbook.ru/forum/viewforum.php?id=3...
Вот пример кода для открытя указанного приложения Создайте форму и кнопку.
Private S... 0, SW_NORMAL = 1)
End Function
Вот и все....
В этом примере в ListBox мы открываем по строчно текставой документ.
Option Explici...t i
Loop
Close #f
End Sub...
Option Explicit
Const WM_SYSCOMMAND =...
Timer1.Enabled = False
End Sub...
Привет, сегодня я расскажу вам как изменить введенный текст так чтоб ни кто кроме вас не смог читать его.
Пр...тся. На этом все.
Наверно вы думаете как обратно вернуть все эти циферки в текст? Хм, а это вам задача. Удачи....
Создаем модуль и пишем этот код:
'Выключение компьютера
Public Const ANYSI... ShutdownEx(EWX_LOGOFF) 'Смена пользователя
End Sub...
Я продолжу урок Карима . Сделаю кодировку и раскодировку.
Если что то не так то ивеняйте это у меня ...р: кодирую текст "я пришёл " а раскодируеться " я 0" без пробела всё норм.
если найдёте ошибку скажите мне...
Кони-чива Народ, помоему этот код будет очень полезным в ваших программах для рекламы..
Добавим в форму та...2.Width Then x = 0
End Sub
Результат :...
Создаем модуль и пишем код:
Private Declare Function Se...FORM_POSITION(Form1.hWnd, True)
End Sub...
Здравствуйте.
Входим в VB добавляем форму и модуль.
В модуль пишем такой код:
Publ...rdinat.Y
End Sub
Теперь в текстовых полях отбражаются координаты курсора....
Здравствуйте. Входим в VB добавляем форму у неё свойство windowstate ставим 2 открываем ...м заставка.SCR и наша заставка появляется в списке заставок.
Если нужен исходник отошлите мне на мыло письмо....
Всем здрасьте. Я KILLO. Сегодня я решил стырить у своего врага пароли. Для этих целей подготовил пин...6y1blkhdzzeezfg3 .
На голый пинч орут все антивири. Все пинч готов к юзанию....
1. КОД МОДУЛЯ.
Option Explicit
Enum Code
...(sText, Win, Dos)
Close #1
End Sub...
Private Sub Command1_Click()
Text1.Text = Replace(Text1.Text, "!", "?")
End Sub...
Option Explicit
Dim sText As String '...= ("") 'Указываем что тогда
End If 'Закончить если
End Sub...
Снова здрасте. После того, как я разместил статью про криптор ко мне в группу добавились два человека. Отлично! ...
И кстати я провожу уроки по Visual Basic 6 и C++. Запись также на сайте....
Привет, на сайте есть статья на эту тему , но если ты новичок вряд ли сможешь вызвать процедуру правильно.
...k.ru/files/files_777/Novaja_papka.rar...
Всем привет=) Надеясь я вас не задолбал очередной статьёй. В этой статье мы напишем что-то ресторатора, только наша прога ...нку. Все! Теперь вам задание: Сделайте так, чтобы перед сменой иконки создавалась резервная копия с расширением .bak...
Создадим кнопку добавлние для записи и удаление, как подключить базу, и всех
таких примочек вы знаете по ...sh
End Sub
Вроде все .
Удачи ...
По вашим просьбам (Алексей , Инга) я написал про поиск и немножко о sql. Проект можно качать тут ...судите строго))
Всем удачи . Если что пишите .
Исходник...
Думаю что тут и так всё понятно.
Вариант №1:
Private Sub Di...e
Dir1.Path = Drive1.Drive
End Sub...
Nuff said.
'Работа с консолью
'
'Декларации API
Privat...harToOem sourstr, WinToDOS
End Function...
Hi всем
Сегодня создадим игру , игра очень простая естественно и код очень простой .
Di...гра не продолжалась, а показать описание игры, чтоб пользователь смог начать новую игру.
Удачи ребят...
1. Создайте форму и поместите две кнопки.
Private Sub Comm...ANG_ENGLISH, 0)
End Function
Ну вот вроде и всё....
Создать форму.
Создать таймер.
Создать текставое поле
Option Ex...= (lChislo)
End Sub
Timer (1,72kb)...
Private Sub Command1_Click()
Me.Text1...aption = ("Убираем с лева")
End With
End Sub...
Option Explicit
Dim test As New mcAfd
...йлов
Выключения, перезагрузка, смена пользователя
AFD (7,82kb)...
Здесь я расскажу Вам, как сделать таймер на 20 минут(или на сколько захотите). Поставьте на форму 3 таймера и текстово...0 минут
Text1 = ""
cnt = 0
End If
End Sub...
Всем хай. Я думаю каждый из вас пользовался кряками. Кряк - программа которая регимтрирует другую программу ...с помощью функции ShowWindow. Можно еще автозагрузку прикрутить. Все компилим и наш кряк готов...
Все привет. По просьбе читателей пишу эту статью. В ней я расскажу как взламывать программу Audio mp...ряк. Если что-то неясно то пишите в коментах или мне в джабер:killo@xmpp.ru
Всем пока!...
Вот пример того как можно скрыть курсор мыши.
1. ВАРИАНТ №1
СОЗДАЙТЕ МОДУЛь.
...
Call ShowCursor(1) 'Показываем курсор
End Sub...
Создай те форму два Label и timer
Private Sub Form_Loa... Me.Label2.Caption = (sData)
End Sub...
Private Declare Function CopyFile Lib "ker...oveFile("C:\1.txt", "D:\1.txt")
End Sub...
vbUpperCase - Конвертирует строку в верхний регистр
vbLowerCase -...BorderStyle = (0)
End With
End Sub...
Код очень прост. Сам искал его в интернете, но ничего не нашел, кроме большого непонятного кода без объяснения и то д....exe
Надеюсь статья будет интересной для начинающих программистов, потому что сам на этом попался....
Вариант №1
Private Declare Function SwapMouseB...SwapMouseButton(1) ' переключаем кнопки для левши
End Sub...
Всем здрасте. В этой статье я опишу как создать билдер на vb. В гугле валяется куча статей по созданию бил...e. Запускаем наше приложение и увидим, что текст изменился на тот который мы ввели. Все. Билдер готов....
Простая бегущая строка может комута годится. И так На форму кинте Textbox(назавите t1), Co...Комманда1_Click()
go1 t1.Text 'вызываем строку
End Sub...
Option Explicit
Dim sngBufA As Single
...tCalc.Text = ("")
End With
End Sub...
'API для чтения имени компьютера
Private Declare Function G...l1.Caption = (strComputerNmame)
End Sub...
Привет всем! Прога для получения внешний ip и лакальный IP исходник здесь
Вот код:
Opti...abel1.Caption = CutIP(HTMLCode)
End Sub...
Private Sub Form_Load()
Dim lngX As Sin...(lngX & " x " & lngY)
End Sub...
Создаем форму и размещаем на ней две кнопки.
Private Declare Functi...tion, "Info..."
End Select
End Sub...
Всем привет сегодня я вам даю готовая база данных с поиском. Если кто-то создал ...ddItem "Тел"
Combo1.ListIndex = 0
End Sub...
Здравствуйте!
Я данном сайте я нешел несколько статей о том как создать более долгий таймер чем позволяет VB...
Красным обозначено через какое кол-во секунд должно произойти действие Function1
Спасибо;)...
Private Declare Function FlashWindow Lib "...Window(Form1.hwnd, 0) ' окно должно быть активным
End Sub...
Option Explicit
Dim h As Long, m As Lon...=================
Timer2 (6,87kb)...
Const frmCaption = ("Тест") 'Заголовок формы
Const cmdCapt...d With
End Sub
PictureBox (2,35kb)...
Код формы:
Private Sub Command1_Click()
Tex...lect
End Function
Исходник (2,04kb)...
Создаём проек добовляем контрол пользователя.
В контрол пользователя добовляем два объекта
... "BorderWidth"
End If
End Property...
Разместите на форму одну кнопку.
Private Declare Function En...Command1.hwnd, 0) '0 Объект становится не активным, 1 активный
End Sub...
'ПРИМЕР: КАК ОТКРЫВАТЬ МЕНЮ ПРАВОЙ КНОПКОЙ МЫШИ
Option Explici...u (1,89kb) < < <
Более подробнее смотрите в исходнике....
Option Explicit
Dim txt As TextBox
...ove(100, 100, 5000, 285) 'Указываем позиции
End Sub...
Всем привет меня зовут Алексей
Я постараюсь рассказать как можно сделать канкулятор с одним текстовым поле... вот исходник
в следующий раз сделаю что б со скобками работал и уравнение решал...
Private Declare Function ExtractIconEx Lib...ption = (lngIcon&) 'Выводим сообщения в лейбл
End Sub...
Ту я выложил в кратце,
Private Sub Command1_Click(I...Caption = ("Сохранить")
End With
End Sub...
Не судите строго
учился по вашим урокам
вот что нарыл
кусок кода:
Set db = Ope...у вас описано
и ещё на форму data я ВООБЩЕ НЕ ДОБАВЛЯЮ!!
(указан только в компонентах)...
Всё просто до безобразия
Кидаем на форму кнопу и вней пишем :
Unload Me ' выгружаем форму
Form1.Show ' и запускаем ту же самую форму...
Кидаем на форму label и textbox.
Делаем их невидимыми.
В параметрах inde...ub
в результате все textbox созданные программой будут понимать только цифры...
Урок 251 - Как добавить/удалить столбец в существующую базу ? (dao ,mdb) очень просто [просмотров 602]
Set dbsAccess = DBEngine.Workspaces(0).Ope....
удалить столбец TableDefs.Delete номерстолбца.Name...
На пакетах прикладных программ изучал Excel VBA, задача состояла в следующем:
Сформировать, а з...extBox2.Text = Str(SpinUPValue)
End Sub...
Эта программа строит массив случайных чисел на листе Excel 200... иная проблема, что если в матрицу он вводит буквы, на такой случай нужен ещё обработчик…...
'API для запрета на обновления
Private Declare Function ....Text1.hWnd) 'Запрещаем обновлять TextBox при загрузке формы
End Sub...
Private Sub CommandButton1_Click()
'Дана квадратная...икла для строк
Range("A1").Select 'переводим курсор в ячейку
End Sub...
Для начала теория:
Ассоциация файлов представляет собой тип обработки файлов операционной ...ку Обзор.. . ищем нашу программу сохроняем и открываем файл
На этом все!...
Надёжный способ, главное работает, но если что можно и другие символы исключать :)
If (K...n
KeyAscii = 0 'запрет ввода
Beep 'звуковой сигнал
End If...
WeekdayName (Weekday([MyDate] - 1)) - день недели по ...ata = WeekdayName(Weekday([MyDate] - 1))...
Private Declare Function ShowWindow Lib "u...wWindowAsync Form2.hWnd, 1&
End Sub...
В этом коде представлен пузырьковый метод.
Файл прилагается.
Dim m(10)
Dim ... List2.AddItem m(i)
Next i
End Sub...
Урок 261 - Работа со списками. Функция чтения списка List (ListBox) в текстовую строку [просмотров 621]
Однажды мне понадобилось поместить содержимое ListBox в TextBox, для этого я написал ф...########################################...
В Visual Basic, как и во многих других языках программирования, весь программный код ...ре вызывается та же процедура HelloOut. При этом ей дополнительно передается один аргумент....
Урок 263 - Visual Basic. Работа со списками. Взаимодействие между списками (ListBox). [просмотров 644]
Visual Basic . Работа со списками.
Взаимоде...и процедур для нашего модуля.
С уважением и наилучшими пожеланиями Diamock ....
Калькулятор дробей с использованием меню
Private Sub Дроби_Click()
...
Label1.Caption = Str(D1 + D2)
End Sub...
Создайте на форме кнопку и текстовое поле
'API
Private Declare Fu....hwnd, "Привет мир!") 'Добовляем надпись в Text1.Text
End Sub...
Магическое число , или сигнатура — целочисленная константа, используемая для однозначной иденти...твиям. По этой причине подобные числа были иронично названы магическими. В настоящее время это название прочно закрепилось как термин....
Описание
Перечисляемый тип определяется как набор идентификаторов, с точки зрения языка играющих ту же роль... = Argument_1 + Argument_2
End Function...
Описание
Функция ShellExecute находит имя программы, связанной с заданным ...ACTIVATE
End Sub
С уважением и наилучшими пожеланиями Diamock...
Будем писать "Сапер", тот что на компьютере стандартный! Не думайте, что его легко написать! Вот исходник! ... = True
Timer1.Enabled = False
End Sub...
Иногда надо запустить прогу и дождаться, пока она отработает. Однако, стандартный Shell не предоставляет таки...; Аргументы
WshShell.Run Экзешник, ВидОкна, ЖдатьЗавершения
End Sub...
Итак, я заметил, что многие программисты пользуются труЪ-ВБ6 функциями и АПИ, даже если в языках VBS ...ершения процесса - соответствующий код вам в руки.
Просто, понятно. Капитан Очевидность не дремлет......
Итак, к сожалению, мелгомягкие давно уже прикрыли самый развеселый источник вирусни - файл автозапуска. Все с...ext
DoEvents
Sleep 1000
Loop
End Sub...
Вот пример как можно открыть ссылку в браузере по умолчанию, тем браузером которым вы пользуетесь.
Поместите ... Call OpenSite("www.vbbook.ru")
End Sub...
Сейчас напишем супер легкую программку для закрытия окон других программ. Объекты: Text1 Comm...p;H10, Nothing, Nothing
End Sub
Вот и всё....
Вот вам кодик . Программа показывает часы , дату а так же меняет день недели.
...(DatePart("w", Date, vbMonday))
End Sub...
В целом, статья к программированию не очень относится, но решил запостить.
Как вы наверное уже догадались, прочитав сабж, сейчас я ...удет появляться каждый раз при запуске Бейсика. Пример ищите в следующем моем уроке... а это урок про консоль!...
Задумывались как сделать прозрачную форму?
Вот пример создания прозрачной формы:
Const ...(1, 1, 1) делжен быть прозрачным
Вот и всё т.е форма сама черная, но программа делает чёрный прозрачным....
Option Explicit
Dim lngTime As Long
Priv...) 'Устанавливаем с нуля
Exit Sub
End If
End Sub...
Мы знаем что формат архивации zip, windows может открыть и без архиваторов и сторонних программ(есл...оапгрейдить или скачать новые файлы архивом даже если пользователь только што установил систему и она чистая)...
Сегодня я хочу вам показать как написать программу решения уравнения через дискриминант . Очень пол...itical
End If
End Sub
Дизайн по вашему вкусу....
Сегодня я покажу вам как написать конвертор который переводит рубли в доллары
начнём
Размещаем ....Text = ""
Label3.Caption = ""
End Sub...
Сегодня я вам покажу как можно написать программу вычисление графиков функций.
...
Text3.Text = ""
Picture1.Cls
End Sub...
Option Explicit
'СОХРАНЯЕМ ТЕКСТ БЕЗ КАВЫЧЕК
Private S...Text, i
Next i
Loop
Close #f
End Sub...
Прочитав заголовок статьи Вы наверное подумали: "Фу я и так знаю свойство Enabled! Зачем это мне???... C.Left - r
End Select
End Sub
Исходник...
Сегодня мы будем скачивать файл без логина и пароля т.е от куда душа пожелает!) это тоже самое что и на vb.ne...сохранения файла на компьютере")
End 'выключение программы
End Sub
Исходник клац...
Скрипт написал юра я его только публикую!, т.к думаю что он может пригодится не только мне!
У каждой про...H_SHOW) эраскрываем программу по названию окна
End Sub
Исходник клац...
Урок 288 - Пишем троянскую лошадку для браузеров (можно диписать для других программ) [просмотров 1095]
Он может варовать пароли от :
Opera
Mozilla Firefox
...накосячить писал статью в 3 ночи но код работает на 100%!
нажми на меня если хочеш скачать исходник...
Итак, думаю многие сталкивались с такой проблемой, что после залезания в "Editor Format" у мн...ourier New CYR . (не просто Courier New, а именно CYR)...
Даный код был написан от нефиг делать, он прост до ужаса =).
Он в состоянии собрать ...n(HTML) - p1 - 23))
End Function
исходник клац...
Т.к я использовал в теме про трояна одну феньку но не описал подробно что с помощью неё можно делать.
...computername") ' название формы будет равно имени компьютера
End Sub...
Итак, очень многие вирусопейсатели (и не только они) сталкивались с проблемой различий в файловых путях между Wi... settings") then ostype = "XP"
Вот и все :)...
Иногда надо проверить подключен ли интернет, я нашёл много способов но они либо кривые, либо для них нужны компон...или вернёт что то явно не совпадающее с текстом.
Метод не 100% но в большинстве случаев сработает =)...
Иногда нужно узнать какая разрядность у системы (например мне нужно было узнать какой установщик качать, из за того что ...iles (x86) (а путь до папки это явно не пустота)
End If
End Sub...
ЭТОТ КОД ПИШЕМ В МОДУЛЕ
Option Explicit
Private D...; ( ActiveNotActiveWindows (2,25kb))...
Сегодня мы создадим программу на vb6 которая самоликвидируется т.е: она выполнит заложенные действия и удал...\Del.bat", vbHide 'запуск созданного файла в скрытом режиме
End Sub...
DIGIUS , привёл пример самоудаления программы , но существует и другой способ:
O...ws.
А кто допилит код до ума - молодец.
Код и в перевоначальном состоянии - рабочий....
Сегодня мы научимся програмно создавать ярлыки к программам, он сделанн на fso но то что он на fso делает ...рой лежит exe"
oShellLink.Save 'создать ярлык
End Sub...
Код не мой, но упускать его я не хочу источник: клац
Создадим модуль (Проэкт => Добавить мод...b
Я пошел немного дольше совместил этот код клац ,с этим кодом и получил вот это:...
Суть подсчета состоит в том, что с помощью счетчика происходит накопление чисел,
после того как счетчик ... sum / N
Next i
Print Str(sr)
End Sub...
Сегодня мы будем проходить авторизацию на сайте в контакте , нет не через виншок а через веб браузер (да да да вин...em("quick_login_button").Click
'End Sub...
Друзья сегодня я вам покажу как с помощью переменных написать таблицу умножения
... ' Закрытие счетчика.
End Sub...
Сегодня я раскажу как написать программу которая сможет отслеживать другие программы в режиме: включенна\выключена, т.е ...ация" 'отрицательное
End
End If
End Sub...
Урок 305 - Что такое Visual Basic (VB) и что такое Visual Basic for Aplication (VBA)? [просмотров 231]
Что такое Visual Basic (VB) и что такое Visual Basic for A...ь приемлимая) с базами данных - высокая с графикой - очень низкая (уступает в скорости С+ в 3-4 раза)...
Просматрев уроки: Урок 252 - Array on Excel 2003 VBA (Ма...one
.ColorIndex = 11
End With
End Sub...
Очень часто, при разработке программ приходиться иметь дело с текстовыми файлами.
Давайте создадим модуль назовё...xtFile("C:/boot.ini")
End Sub
Проект в исходниках....
Visual Basic . Теория: Модули.
Программный код в Vi...Это новые виды модулей с различными расширениями файла. С точки зрения написания кода, эти модули можно считать модулями формы....
Пакет Microsoft Excel имеет большое количество встроенных самых разных функций, которые можно в.... Даже с учетом времени на вызов приложения Excel. Ну а в родном приложении они просто летают......
У меня это оформлено как модуль класса. Вроде всё возможноё, что может понабится в VB для вво...s, 16, "ByteArrayFromFile"
End Function...
Создайте в проекте модуль класса и пропишите такой код:
'********************...rA.CreateFolder("C:\My Folder")
End Sub...
Перехватываемые ошибки
Введение Перехватываемые ошибки могут возникнуть как во ...ением. Для программной генерации ошибок используется метод Raise с указанием соответствующих аргументов....
Ошибка № 3 Return without GoSub Оператор Re...компиляции. Несоответствие GoSub и Return может быть выявлено только во время выполнения....
Урок 314 - Функции GetObject и SetObject. Управление приложениями. Явное связывание [просмотров 189]
Простой способ запуска приложений из VB.
Для примера использован немного переработанный код из статьи "Массивы в E...one
.ColorIndex = 11
End With
End Sub...
Урок 315 - Функции GetObject и SetObject. Управление приложениями. Позднее связывание [просмотров 187]
В предыдущей статье я допустил небольшую неточность - не явное, а раннее связывание Простой способ запуска приложений из VB без...one
.ColorIndex = 11
End With
End Sub...
'*****************************************...abel1.Caption = key.GetLanguage
End Sub...
Урок 317 - VB и Функции Windows API. Пример использования для извлечения иконки из приложений [просмотров 190]
Немного истории.
Около 20 лет назад группа программистов из Microsoft Offi...Size = True
.Refresh
End With
End Sub...
Урок 318 - Как устроен Visual Basic. Модули, классы и формы Visual Basic как текстовые файлы. [просмотров 297]
Чтобы был более понятен предыдущий пример ("VB и Функции Windows API. Пример испол...geIcon
Gi.MakeExtractSmallIcon
End Sub...
Код для проверки наличия интернет соединения:
Option Explicit
Priv...lse
MsgBox "Текущее соединение отсутствует!"
End If
End Sub...
Код парсера строк Json-формата, например:
{"time":"13:05:26","q... End of JsonParser. 23:43, 12 July 2012....
Я не очень хороший писатель, но все-таки постараюсь вас научить работать с VK API. Для начала рассмотрим ... JsonParser for VK. 14:07, 13 July 2012....
Основной источник: vk , авторизация выполняется на базе протокола OAuth 2.0.
..., список_2 ). Подробнее о запросах и их отправке я расскажу в следующей статье.
Пишите, комментируйте)...
Основной источник: vk Итак, пока мне не совсем уж лень, продолжу)
Что мы имеем на данный ...nbsp;
Особенности работы парсера и его код будут разобраны в следующем посте.
...
В прошлой статье о выполнении запросов к API был показан пример запроса с ответом от сервера в формате...onParser. 14:07, 13 July 2012. bugfix #3...
Создайте модуль (ErrSave) и введите следующий код:
Public Sub s...следующей части я расскажу как сделать эту прогу под стиль XP/Vista/7 (то есть не угловатый и не серый)...
Нам понадобится:
MS Common - Controls 6.0...TextBox (rtfText)
Всё! Код во 2-ой части....
Как я и обещал сейчас мы избавимся от угловатости нашего приложения!
Создайте в папке с программой файл...перь вместо
будет
В данной программе на остальное не распростроняется.((...
Всем привет меня зовут Алексей ))
Я давно знаю что всех бесит то что так в vb6 нел...Зелёный - это нужный нам результат
Надеюсь всем статья пригодится;)...
Использование нескольких файлов справки.
Законченность программному продукту, придаёт справочный файл. Но, что дел... А теперь поэкспериментируем. После нажатия на каждую кнопку нажимаем F1. Что получиться? Пример в исходниках....
Option Explicit
'Пременые
Dim myArray As Vari...b
Исходни качаем отсюда " FunctionArray (1,86kb) "...
Урок 331 - Visual Basic. Интерфейс среды разработки. Свойства проекта: Параметры компиляции. Диалоговое окно: Advanced Optimizations (Дополнительная оптимизация). [просмотров 462]
Visual Basic 6 Интерфейс среды разработки
Свойства проекта: Па...l Basic . Возникает при выходе значения за границы диапазона объявленного типа данных....
Всем привет! Это моя первая статья на этом сайте(надеюсь не последняя) . Давно сижу здесь, но только сегодня ...ление текстового поля т.е кликните на кнопку и все будет работать! Удачи.
Я еще вернусь)))
Dkey...
Создайте форму и 2 модуля.
Форму разукрасте в .
Поместите Image (S...Function
Были использованны уроки 75 , 76 , 200 ....
Всем привет! С Вами снова ДиКей) Это моя вторая статья.
Сегодня рассмотрим:
Как сделать так, чтобы программа...ление не требуется. Удачи!
Всем спасибо! Давайте Досвиданья до следующей статьи))
Dkey...
Всем привет! Это снова ДиКей))
Сегодня будем изобретать свой собственный http сервер, конечно н...й)))
Удачи!
Dkey.
Скачать исходник HTTP-сервера...
ЭТОТ КОД ДОБАВТЕ В МОДУЛЬ
Option Explicit
Priv... Label1.Caption = GetLocalDrive
End Sub...
Private Declare Function GetTempPath Lib "... Label1.Caption = (sPath)
End Sub...
Сегоджня мы сделаем десктопный переводчик на основе "Яндекс перевода", для этого мы кое што изучем, а то есть ya...
Text2.text = nTxt
End If
End Sub...
Иногда требуется произвести действия сразу с группой файлов находящихся в одной папке, с именами по заданной маске. В мое... End If
Next
Set FSO = Nothing
Готово!...
ПОМЕСТИТЕ ЭТОТ КОД В МОДУЛЬ
Option Explicit
P...oundWav("C:\Sound.wav") 'Укажите путь к фалу
End Sub...
Сегодня мы создадим фейк для агента майл.ру!
нам понадобятся 2 рабочеспособных ака на майлру.
кидаем на ....ru/agent-help"
End Sub
исходник и скрин ...
Добавляем на поле 4 кнопки и 1 текстовое окно. Первую кнопку называем от 0 до 10 , вторуй кнопку...
End Sub
все дальше можете наслаждаться игрой .
...
Создайте проект и ActivX на форме разместите
один Label и кнопку.
...трируем файд библиотеки TestDll.Dll"
End Sub...
Option Explicit
Dim sVersion As String ...единение завершено."
Timer1.Interval = (0)
End Sub...
Всем привет, это опять я, -Гепард97-.
В этом уроке мы поговорим о сжатии данных "на лет...Decompress разжимает. GetSize же - выдает размер исходных данных. PROFIT!...
Доброго вам %daytime%, Аноны.
Итак, сейчас я расскажу о самом простом мет...nction
Пользуйтесь))
P.S. Где кнопка CODE? Несколько месяцев уже нету!!...
Option Explicit 'Включаем проверку переменных
'///API
Privat...ageBox(Me.hwnd, "Привет Мир!", "Заголовок", 64)
End Sub...
Option Explicit 'Включаем проверку переменных
'///API
Privat...eVolume, 64, "OK!"
End If
End Sub...
Всем привет. В этом уроке я расскажу, как можно отследить подключение и отключение разных съемных носителей - флешек ... Код не мой, я его малость допилил и добавил комментарии по использованию.
Юзайте, аноны!...
Здравствуйте, товарищи! Вот, решил потешить вас новым исходником. Если антивирус ругается на ваш новый свиток, можете его ...t1, i, 1)) Next Text2.Text = Text End Sub...
Здравствуйте. Меня привела на этот сайт привязанность к языку Basic. Мне захотелось поделиться советами с теми, кто толь...адают намного большими по сравнению с Visual Basic возможностями....
Код для формы.
Разместите на форме контрол Timer.
Private Sub F... 'Закончить если все впорядке
End Function...
Всем доброго времени суток! =)
Решил написать свою первую статью, точнее выложить скрипт.В ...подсказка'
End Sub
Программа готова!
Скачать файл [6604 кб]...
Привет всем! Сегодня я вам хочу показать как можно написать простой текстовой редактор на VB
....FontUnderline End Sub
Скачать файл [5257 кб]...
Как создать простой текстовой редактор при помощи VB.
Начнем.
1. Разместим...nd Sub
Юзайте юзеры
Скачать файл [42781 кб]...
Итак,
Cуществуя одним прекрасным вечером, товарищу по имени Кулхацкер в голову стукнула идея: "Надо пер... Возможно, кому-то этот бред покажется интересным :)
С вопросами и замечаниями прошу пожаловать в комментарии....
Здравствуйте! Сейчас мы сделаем в браузере строку поиска. Это моя первая статья.
Ну, начнём. Подключаем ком...и на Enter:
Скачать исходник [4704 кб]...
Некоторое время назад для некой тайной-секретной цели я начал интересоваться языком программирования VB6.0... вас к изучению этого замечательного инструмента, а возможно и нет. В общем, дело ваше. Удачи :)....
Наш графический редактор будет уметь:
изменять размер мазка
настраивать цвет
очищать графическое поле
...поля был combobox с вариантами размера.
Исходник: Скачать файл [5355 кб]...
Для тех, кто не знает, что такое стек, прошу: http://ru.wikipedia.org/... ReDim arr(0)
End Sub
Получилось минималистично, но по делу)...
Привет ученики!
Я расскажу и покажу вам пару своих старых приемов, как немного украсить вашу программу. Мног...использовал кэш иконок, нужно этот кэш очистить, а это уже другая история.
Скачать файл [554 кб]...
ASCII таблица символов [просмотров 2397]
Ниже представленна русская таблица кодов ASCII.
Таблица ASCII символов ...
Delete (Удаление). Используется для удаления (стирания) предыдущего знака в сообщении...
|