- Статьи - 37
- Контролы - 13
- Примеры - 47
- Хитрости - 32
- Куски кодов - 23
- Windows Api - 27
- FAQ
Голосование:
Ваш голос отсылается по E-mail владельцу сайта, после чего голоса анализируются и на отдельной странице выводятся результаты.
Subscribe.Ru увеличило максимальный размер рассылки до 100 кб. В связи с этим вопрос:
Какого размера Вы хотели бы получать рассылку?
В какой день (дни) недели Вы хотели бы получать рассылку "Visual Basic: новости сайтов, советы, примеры кодов."?
С какой периодичностью Вы хотели бы получать рассылку "Visual Basic: новости сайтов, советы, примеры кодов."?
Результаты голосования
Доска почёта:
Sergey Y. Tkachev
Кононенко Роман
Sergey Sapozhnikov
Sobic
Ссылки:
Очередной 21-й выпуск рассылки вышел. Присылайте материал.
Читайте!
Читайте!
Содержание выпуска
- О системе Эксперт
- Новости сайта VB Студия
- Новости сайта VBLine
- Новости сайта VBMania
- Изменение высоты выпадающего окна ComboBox'а
- Как создать фон с плавным переходом из синего в черный
- Изменения пути по умолчанию в диалоге открытия файла в VB
- Как узнать разделитель даты, времени и десятичной точки
- Как узнать, когда запущенная Вами программа завершится
- Книги
- Вопрос/Ответ
- Анонсы эхо-конференций СообЧа
- Доска объявлений
О системе Эксперт
- Привет, Серый.
- Угу, привет. Ты проходи, садись, я щас, с функцией тут разберусь...
- Да я на момент. Вопросец имеется.
- Вопросец, вопросец... Так, тут переменная не объявлена... Вопросец... С вопросами в систему, к экспертам... А тут точку не поставил! Вот она где, соб-бака!!
- Ты че, какая система? Ты о чем?
- О! Все, работает... Чего ты говоришь?
- Ты про каких это экспертов тут заикаешься?
- А-а. А ты что, первый раз слышишь, что ли? Ты на СообЧа бывал?
- Где?!!
- Да вот, гляди. Щас соединимся... Во! http://soobcha.ru, зришь?
- М-да... Занятно. Так я с вопросом к тебе...
- А я вот и говорю: туда иди, в систему "Эксперт", там ответят.
- Это чайники, что ли, ответят?
- Не сомневайся, ответят. Там у них такое наворочено... Короче, ты по почте вопрос свой задаешь - и все:)))))) Больше не изволь беспокоиться, там они сами будут искать ответ на твой вопрос. А через некоторое время вывалят тебе на ящик не один, а несколько ответов. Пользуйся и радуйся:)
- А чего это они там такие добрые да услужливые? У них чего, своих проблем нет? Сколько я должен платить за такое трогательное беспокойство?
- Ну, это немного. Меньше, чем ты думаешь:) Тебе достаточно только подтвердить правильный ответ. Давишь на соответствующую ссылку, дескать, вот этот ответ мне понравился, помог, и я доволен. Просто пустое письмо засылаешь к ним, и вся оплата. А если хочешь у них экспертом стать, то пожалуйста, регистрируйся и отвечай на вопросы.
- Кем? Экспертом?
- А что? Что-то ты ведь знаешь, не вчера за комп сел.
- А на фига мне это надо? Разбираться с чужими проблемами... У меня своих - хоть отбавляй...
- Ага. Вот ты только что спрашивал: а сколько? И если уж ты со своими проблемами обращаешься к людям, то ведь надеешься, что тебе помогут. А сам-то что, влом, что ли, помочь кому-то? Да ладно! Тебя, вобщем-то, никто и не тянет, не заставляет. А вот те, кому интересно, кому не жаль поделиться, те там и работают. Я, между прочим, давно уже с ними.
- В смысле, экспертом, что ли, заделался? И сколько тебе платят?
- А ты не прикалывай. Там никто никому не платит. А вот конкурсы, между прочим, проводят, и не хилые. Представляешь, за лучший ответ дают бесплатно три месяца платного хостинга, да еще домен регистрируют. За просто так. А вот тебе, если ты задашь самый лучший вопрос, тоже приз может выгореть.
- Это как: лучший? На который никто ответить, что ли, не сможет? Так я щас таких вопро...
- Причем тут это? Просто ты, если вопрос пишешь к ним, так сподобься хоть запятые в нужных местах поставить, там, грамотно, короче, обрисуй свой трабл.
- Ну ладно, въехал. Ты мне вот лучше помоги с моим траблом. Мой Фотошоп не хочет по русски работать...
- Ха, так этот трабл там уже сколько раз появлялся. У них на сайте и ответ есть... Вот, любуйся: Заходим в редактор реестра (regedit.exe). Находим ключ HKEY_LOCAL_MACHINE\System\CurrentControlSet\control\Nls\Codepage В нем изменяем значение параметра 1252 с cp_1252.nls на cp_1251.nls. Перезагружаемся...
- Понял... погоди, запишу...
- Да чего записывать? Шагай домой, входи на сайт и копируй...
- Да я ссылку запишу... Слушай, а как там в эту систему вопрос задать? Вообще, как она работает?
- Так тут же, на сайте, все есть. А вообще, можешь по почте пустое письмо загнать на mailto:reply.infoexpert@soobcha.ru, и получишь всю необходимую инфу. А вообще, ты лучше в следующий раз с вопросами не ко мне, а туда. Может, я и отвечу там.
- А не проше тебе здесь ответить?
- Э-э-э... Там я баллы зарабатываю...
- А это еще зачем?
- Ладно, мотай. Дома почитаешь, все о них узнаешь. У меня тут халтурка... Давай, пока.
- Пока. А как ты экспертом там зарегился?
- Иди, иди! Инфу читай...
наверх
Новости сайта VB Студия
- 17 декабря 2001 года - Последнюю неделю не было ни одного обновления - их не было по одной важной причине: не было времени. Как видите, я поменял дизайн сайта. Я счиаю, что так будет удобнее. Пока возможны небольшие неполадки в работе сайта, но максимум через неделю я их исправлю. Никаких новых материалов пока не добавлено.
- 8 декабря 2001 года - Один новый контрол. Он позволяет преобразовать сумму в пропись.
В разделе Юмор добавлен новый рассказ. - 7 декабря 2001 года - Добавил 4 примера. Один копирует в буфер обмена изображение формы. Второй сохраняет изображение формы в bmp файл. Третий отображает список всех подпапок в папке. А четвёртый пример - пример использования API-функций SetCursorPos и ScreenToClient.
- 3 декабря 2001 года - В раздел Контролы выложил контрол для модифицирования менюшек.
Пополнение в разделе Юмор.
наверх
Новости сайта VB Line
16 декабря 2001 г. В прошлый раз я предложил создать новый раздел ЖЗП. Ну и где Ваши истории? Пришло куча писем - "классный раздел, будет интересно", но НИКТО не решился написать о себе. Я обиделся... Еще вот что, каждый день на сайт приходит более 130 посетителей, которые, как я понимаю, являются программистами или считают себя таковыми. Так вот если каждый из Вас хотя бы раз в месяц пришлет на сайт пример, совет, контрол или что-нибудь еще, то будет очень много материала. Вам же будет лучше и легче программировать! Присылайте, жду. Ну да ладно, Новоселов А.Г. (интересно, а как же его зовут) прислал свой контрол, для решения задачки по запихиванию иконки в сис.трей (там где часики). И еще в разделе Статьи, добавил интересную статью Армена Мнацаканяна посвященную FSO - объектной модели файловой ситемы.
10 декабря 2001 г. Сегодня всего одно обновление от Беляева Данилы контрол, эмулирующий работу обычного списка. Проект интересен чисто с технической точки зрения. Посмотрите. Теперь о некотором расширении сайта. Игорь прислал предложение создать новый раздел сайта ЖЗП (Жизнь Замечательных Программистов), в котором каждый сможет рассказать о себе. Пишите свою историю, как работаете, чем занимаетесь и т.д. Можно присылать истории своих друзей.
02 декабря 2001 г. Зима пришла, у нас снегу уже море... Итак, обновления, начнем пожалуй с раздела VB хитрости, там работа Игоря Малиновского, она касается тех, кто хочет устанавливать новые шрифты в систему, в общем, их надо не просто копировать в специальную папку, но и регистрировать, хитрость публикуется с примером. Stas(Sheff) Vorobiov прислал новый пример, и он очень интересный, пример показывает как манипулировать окнами в системе: закрывать, менять заголовки, рисовать на них и т.д. Ну и на закуску пример от Дещенко Дмитрия по поводу Alpha Blending. Да, чуть не забыл, Alex Murygin прислал новый код для совета про кнопку закрытия окна. Он пишет, что его код работает более корректно
наверх
Новости сайта VBMania
- 17.12 - В связи с тем что форум не горел желаением вести себя так, как должен обычный, порядочный форум, мы его прикрыли для проведения разъяснительных мероприятий. Надеемся, что они не затянутся и форум образумится.
- 06.12 - С сегодняшнего дня все желающие могут добавлять свои новости и статьи в наши архивы.
Да здраствует открытость! - 27.11 - Наконец-то, после долгих дней и бессонных ночей это свершилось! Сайт объявляется открытым! Непременно прочитайте первый номер нашего журнала. Оцените наши дополнительные проекты. И конечно мы ждем ваших откликов в гостевой книге и по почте.
- 01.12 - Произошло несколько косметических улучшений, касающихся исключительно удобства работы с сайтом. Во-первых, можно видеть количество записей обсуждения новостей на главной странице; а во-вторых чуточку подправились директории.
Оценяйте! - 02.12 - Наконец-то исправлена ошибка в Моей Мании, которая проявлялась исключительно в Windows XP. Теперь все работает как надо!
наверх
Изменение высоты выпадающего окна ComboBox'а
Подгоняет высоту выпадающего окна ComboBox'а к высоте имеющихся строк. Видоизменив процедуру можно изменять размер окна как Вам вздумается.
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Public Sub ResizeCbo(cbo As ComboBox)
Counter = cbo.ListCount
cboLeft = cbo.Left / Screen.TwipsPerPixelX
cboTop = cbo.Top / Screen.TwipsPerPixelY
cboWidth = cbo.Width / Screen.TwipsPerPixelX
cboHeight = cbo.Height / Screen.TwipsPerPixelX * Counter
MoveWindow cbo.hwnd, cboLeft, cboTop, cboWidth, cboHeight, 1
End Sub
наверх
Как создать фон с плавным переходом из синего в черный
В режиме 256 цветов плавный переход от светло-синего к
черного требует использования так называемых составных цветов (dithering
colors). Метод line в Vsual Basic не позволяет прочерчивать прямые линии
составным цветом, но разрешает заполнять таким цветом прямоугольники. При этом
свойтсво DrawStyle формы надо установить как vbInvisible, а ее же свойство
ScaleMode - как vbPixels. Свойство DrawStyle определяет стиль линий ( значение
vbInvisible не дает обводить черным контуром каждый синий прямоугольник).
Значение vbPixels свойства ScaleMode позволяет вычислять размеры прямоугольников
в пикселях, избегая ошибок округления: благодаря этому прямоугольники
располагаются точно один под дргим - без зазоров или
наложения.
Поместить на форму: Option Explicit
Private Sub Form_Paint()
Dim lY As Long
Dim lScaleHeight As Long
Dim lScaleWidth As Long
ScaleMode = vbPixels
lScaleHeight = ScaleHeight
lScaleWidth = ScaleWidth
DrawStyle = vbInvisible
FillStyle = vbFSSolid
For lY = 0 To lScaleHeight
FillColor = RGB(0, 0, 255 - (lY * 255) \ lScaleHeight)
Line (-1, lY - 1)-(lScaleWidth, lY + 1), , B
Next lY
End Sub
наверх
Изменения пути по умолчанию в диалоге открытия файла в VB
Итак, никого не донимало поведение VB - когда при открытии каждого проекта
он предлагает сделать это прямо из фолдера VB? После этого приходится долго
выбираться
"на поверхность" , а потом указывать путь к вашему каталогу с
исходниками.
А ведь это легко лечится. Просто в свойствах ярлыка, которым вы запускаете VB
,
укажите точный путь к каталогу ваших рабочих проектов. Сделать это надо в
текстбоксе "Рабочая папка" ("Start in")
Если путь содержит пробелы - заключите его весь в кавычки.
наверх
Как узнать разделитель даты, времени и десятичной точки
Существует простейший способ как узнать разделители даты, времени и десятичной точки в Windows, не обращаясь при этом к функциям API. Он основан на функции Mid$. Принцип такой, берем строку текста содержащую разделитель, и проверяем что это за символ.
DateDelimiter = Mid$(Format(Date,
"General Date"), 3, 1)
TimeDelimiter = Mid$(Format(0.5, "Long Time"), 3, 1)
DecimalDelimiter = Mid$(Format(1.1, "General Number"), 2, 1)
В общем, всё очень даже просто.
наверх
Как узнать, когда запущенная Вами программа завершится
Как дождаться завершения запущенной Вами программы? Ну для начала её надо запустить. Сделаем это так:
'запустить программу
hProg = Shell(App.Path & "\RunMe.exe", vbNormal)
Сохраним hProg, этот описатель нам ещё пригодится. Теперь, с помощью функции IsRunning можно определить, работает программа или нет. Функция выглядит так (вместе с нужными объявлениями):
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Const STILL_ACTIVE = 259
Const PROCESS_QUERY_INFORMATION = 1024
Public hProg As Long
Function IsRunning(idProg As Long) As Boolean
Dim hProc As Long, iRet As Long
hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, idProg)
If hProc <> vbNull Then GetExitCodeProcess hProc, iRet
IsRunning = (iRet = STILL_ACTIVE)
CloseHandle hProc
End Function
Итак,
передаем IsRunning описатель запущенной
программы hProg и, если программа все еще
работает, то она возвратит True, если работа
завершена, то False. Я не советую Вам делать
для проверки IsRunning цикл Do Loop с телом DoEvents,
это отнимает много ресурсов. Проверку лучше
всего делать по таймеру, установив интервал
в 1-2 секунду.
наверх
Книги
 |
Visual Basic 6.0 for application
Книга является систематизированным справочником по всем элементам языка
программирования Visual Basic (VB), входящим, как в автономную версию VB, так и
в основные реализации Visual Basic for Applications.
Помимо тех официальных сведений, которые можно найти в документации и в справочной системе, книга содержит конкретные примеры, рекомендации и маленькие хитрости программиста, а также поправки к справочной системе, которая, увы, не без ошибок. Книга предназначена для всех специалистов, занимающихся разработкой приложений с применением Visual Basic и Visual Basic for Applications. Король В.И., "КУДИЦ-Образ" - 2000, 448 стр. Стоимость: 113,87 р. Формат книги: 70х100/16 Переплет: мягкий |
 |
Win32 API и Visual Basic. / Для профессионалов /
Книга является сборником полезных советов и приемов, хотя в ней, вероятно,
описаны тысячи разных приемов. Она не была задумана как энциклопедия
самостоятельных фрагментов программного кода, которые бездумно подключаются к
приложению - хотя многие ее примеры можно использовать подобным образом.
Д. Эпплман, "Питер" - 2001, 1120 стр. Стоимость: 489,08 р. Формат книги: нет данных Переплет: нет данных |
 |
Азбука программирования в Windows 32 API
Изложены вопросы создания программных приложений для Window95 и Windows NT.
Описаны основные типы переменных, макросов, функций. Материал книги
иллюстрируется многочисленными примерами. 1 Настоящее издание (второе вышло в
2000 г.) дополнено описанием тех возможностей Windows, которые не были упомянуты
в предыдущих изданиях.
Румянцев П.В., "Радио и связь" - 2001, 312 стр. Стоимость: 85,00 р. Формат книги: 60х88/16 Переплет: нет данных |
Остальные книги о VB из магазина Колибри можно найти здесь.
наверх
Анонсы эхо-конференций СообЧа
Группа по вирусам
Группа предназначена для обсуждения всех вопросов,
связанных с вирусами, антивирусами, методами борьбы
с ними, как от них уберечься. Подписавшись на эту
группу вы будете знать о самых последних способах
борьбы с вирусами, о новых версиях антивирусов,
о новых вирусах.
Подписаться
Трехмерное моделирование
Хочешь создать свою вселенную, но не знаешь как,
чем и где? Заходи, разберёмся... Свободное
общение людей так или иначе связанных с 3D графикой.
Здесь вы можете задать любые вопросы. Присоединяйтесь :)
Подписаться
Программирование на Visual Basic
Всю жизнь мечтали программировать на Visual Basic?
Приходите, получите бесценный опыт и очень полезные
навыки в программировании. Напишем программу вместе
— СообЧа. Ну, и, конечно, ответим на ваши вопросы.
Подписаться
Почта в интернете
Эл. группа, предназначенная для обсуждения почтовых
сервисов в интернете, а так же всех известных
почтовых программ.
Подписаться
Заработок в сети
Как вы относитесь к заработку в сети? Думаете ли
вы, что все это ловкий обман или вы вообще ничего
об этом не знаете? Хотите поделиться опытом,
послушать других или просто выговориться?
Подписаться
наверх
Доска объявлений
Ищу телеработу.
- Переводы: английский, украинский, русский.
- Cipper программист.
- Assembler программист.
- PIC разработчик
- композитор
- Прогрессивные стили
- 3D анимация
- GIF анимация
Объявляется конкурс на лучщий баннер для сайта VB Студия. Приз за лучший баннер - 5000 показов баннерообменной сети TLE. Вопросы и предложения по этому адресу
наверх
Мои программы
BalloonMessage for MS Agent
BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels.
Автор: Шатрыкин Иван. Соавтор: Павел Сурменок.
наверх
Вопрос/Ответ
Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы.
Вопросы:Автор вопроса: Paulus
Ответ ожидается по этому адресу
Как с помощью VB и API функции получить полный список процессов Windows?
Автор вопроса: ДЕНИС
Ответ ожидается по этому адресу
ГДЕ ВЗЯТЬ API ДЛЯ WIN 2000 PROF?
Автор вопроса: Artomonova, Galina
Ответ ожидается по этому адресу
Kak sdelat' Gantt (v VB6) ili gde vzyat' activX dlya nego? Nahozu vezde ssylku na ADDsoft.com, no tam tol'ko kitajskaja erunda. Help!!!
Автор вопроса: Александр
Ответ ожидается по этому адресу
Как сделать такую вещь: программа в процессе работы должна сделать паузу, ну скажем, на 2 сек. и в это время НИЧЕГО НЕ ДЕЛАТЬ! То есть просто подождать и продолжать выполнение работы.
Автор вопроса: Peter Salmin
Ответ ожидается по этому адресу
Моя программа (кроме всего прочего) экспортирует данные из таблицы Access97 в Excel. Помимо того, что не копируется автоинкрементное поле счетчика (для его создания в Excel у меня имеется отдельная процедура) - за один проход в цикле for; ещё пока не знаю как оформить названия столбцов Excel (т. н. "шапка") по имени полей в Access'овской таблице. Если у кого-то есть готовое решение, пришлите. Всем ответившим заранее благодарен.
Автор вопроса: Peter Salmin
Ответ ожидается по этому адресу
У меня установлен MSVB6 отдельно от VisualStudio6 (пиратский CD по 70р.). Программы работают, компилятся, запаковываются в дистрибутив c помощью Package and Deployment Wizard, который говорит, что не нашёл зависимостей (Missing Dependency Information) с библиотеками msado20.tlb и msstdfmt.dll. Как итог - дистрибутив не ставится на удаленном компьютере, выдавая ошибку при инсталляции. Помогите разобраться, в чем дело?
Автор вопроса: Илья
Ответ ожидается по этому адресу
Кто мне скажет, как сделать так, чтобы при нажатии на кнопку у меня отдельно открывалась те файлы которые я укажу? типа
Private Sub Command1_Click()
Open C:\windows\desktop\cool proga.exe 'или htm, jpg
End Sub
Или чето типа того, я не знаю.
Цель: сделать autorun на диск в виде простой VB-формы с кнопками.
Автор вопроса: Алекс
Ответ ожидается по этому адресу
можно ли ияменить цвет активной строки в самом интерфейсе EXCEL, чтобы было видно всю активную строку таблицы?
Автор вопроса: romaska
Ответ ожидается по этому адресу
Есть текстовые данные,вываливающиеся в Excel в таблицу. Нужно анализировать строки таблицы пусто/заполнено и сортировать заполненные в определ. порядке (сверху вниз подряд без пропусков)Где про это прочитать? Пример есть у кого-нить?
Ответы:
Вопрос:
Есть база данных в mdb формате. На форме в текстовом поле необходимо при вводе числа (или при помещении его из базы) отделять по три знака. Не 1234567890, а 1 234 567 890 . И как в текстовое поле ставить шаблон? То есть, что бы было __/__/__ - для даты.
Ответ:
Автор ответа: Vamp
VB 5.0
Для шаблонов используй Masked Edit Control 5.0 - msmask32.ocx
В этом контроле можно сделать любой шаблон .
Например для даты , в поле MASK надо вписать '##/##/####'
В help`е есть вся информация .
Вопрос:
Есть база данных в mdb формате. На форме в текстовом поле необходимо при вводе числа (или при помещении его из базы) отделять по три знака. Не 1234567890, а 1 234 567 890 . И как в текстовое поле ставить шаблон? То есть, что бы было __/__/__ - для даты.
Ответ:
Автор ответа: Иван Есаулков
В конструкторе выбираеш сойства>данные>маска ввода и вводиш \ 999\ 999\ 999\ 900;0, сохраняя пробелы после слеша.
Вопрос:
Еть массив Arrray(100). Как можно удалить срез массива, например, с 40 по 70 элементы.
Ответ:
Автор ответа: Sergey Morenets
Воспользоваться недокументированной ф-цией VB TruncateArray(Arrray,40,70).
А если серьезно то просто переписать элементы с 70 на 100 на место удаляемых:
For lIdx = 71 To 100
Arrray(lIdx-31)= Arrray(lIdx)
Next
redim preserve Arrray(69)
Можете заполнить эту форму, либо отослать вопрос СЮДА
Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта.