← Февраль 2002 → | ||||||
2
|
3
|
|||||
---|---|---|---|---|---|---|
5
|
6
|
7
|
9
|
10
|
||
12
|
13
|
14
|
15
|
16
|
17
|
|
18
|
19
|
20
|
21
|
23
|
24
|
|
25
|
27
|
28
|
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://vbnet.ru
Открыта:
31-07-2001
Статистика
0 за неделю
Visual Basic: новости сайтов, советы, примеры кодов. Выпуск 30.
Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 30.
VBNet
VBMania
Голосование: Ваш голос отсылается по E-mail владельцу сайта, после чего голоса анализируются и на отдельной странице выводятся результаты. Subscribe.Ru увеличило максимальный размер рассылки до 100 кб. В связи с этим вопрос: Какого размера Вы хотели бы получать рассылку? В какой день (дни) недели Вы хотели бы получать рассылку "Visual Basic: новости сайтов, советы, примеры кодов."? С какой периодичностью Вы хотели бы получать рассылку "Visual Basic: новости сайтов, советы, примеры кодов."? Доска почёта: Sergey Y. Tkachev Кононенко Роман Kirill Sergey Sapozhnikov Sobic Ссылки: |
Господа!!! читайте MSDN!!! Несколько слов от автора:
Этот 30 выпуск рассылки можно назвать юбилейным!.
Читайте! Содержание выпуска
Книги
Остальные книги о VB из магазина Колибри можно найти здесь. наверх Citycat by Email Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое. Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru. наверх Новости сайта VBNet
Последние 20 тем форума на VBNet.Ru: 22:11 / 9 фев. модератору: Зделайте пожалуйста чат! | Ответов: 1 22:06 / 9 фев. 3dgraphics | Ответов: 0 18:46 / 9 фев. Структура файлов *.lnk | Ответов: 0 18:23 / 9 фев. Как открыть фолдер из программы? | Ответов: 2 17:47 / 9 фев. Поиск | Ответов: 1 21:56 / 8 фев. Installable ISAM?????? | Ответов: 0 20:15 / 8 фев. Новое сообщение без темы | Ответов: 0 14:43 / 8 фев. VB6 не опознает формат database Access2000 | Ответов: 1 10:43 / 8 фев. Скрытие чужого окна... | Ответов: 2 08:17 / 8 фев. Метаданные из базы Access | Ответов: 0 01:52 / 8 фев. Не работает ExitWindowsEx | Ответов: 1 21:57 / 7 фев. Для Сергея: Автоматическая прокрутка ListBox | Ответов: 0 18:56 / 7 фев. VB and SQL Server 7.0 (выполнение запросов) | Ответов: 0 16:38 / 7 фев. Кто знает? | Ответов: 1 14:23 / 7 фев. Автоматическая прокрука ListBox | Ответов: 1 14:21 / 7 фев. Вопрос по MSCOMM | Ответов: 0 11:57 / 7 фев. VBScript & база данных... | Ответов: 1 08:09 / 7 фев. Как определить раскладку клавы активного окна | Ответов: 1 16:24 / 6 фев. ActivX | Ответов: 3 11:29 / 6 фев. Где достать Конвертер VB->C++ или др.? | Ответов: 1 Последние поступления в Библиотеку кодов: Использование API при работе с TextBox'ом (15) Перебор массива TextBox'ов (9) Как изменить цвет фона при изменении зн... (7) Описание элементов VScrollBar/HScrollBar (11) Контекстное меню. Практикум по созданию. (14) Размножить на форме картинку (13) Использование Images вместо CommandButton (7) Разноцветный баттон (10) Изменение длины ComboBox (8) Определить количество строк в ComboBox (7) Определение координат позиции курсора в... (12) Как сделать первую букву каждого слова ... (16) Скролинг текста (18) Получение содержимого n-ой строки в Mul... (13) Как спрятать данные за звездочками боле... (18) Как узнать данные, скрытые за звездочками (21) Проверка орфографии (11) Скрыть/показать мигающий курсор в Text Box (9) Определить количество строк в TextBox'е (9) Как уместить в Text Box больше 64 kb те... (9) Как быстро выделить текст для события G... (10) Как реализовать режим замены в текстово... (10) Проверить тип вводимой информации (9) Добавить новую линию в существующий тек... (9) Как очистить все TextBox'ы на форме (11) Как вернуться на то же место, при потер... (9) Запретить ввод определенных символов (9) Изменение вида каретки (10) Как заблокировать стандартное контекстн... (11) Загрузить/Сохранить текстовой файл из T... (10) 3D-текст на форме (11) Удалить повторящиеся элементы (25) Поменять местами два рядом стоящих элем... (23) Сохранение данных из ListBox'а в виде п... (21) Сколько элементов выделено (18) Какой элемент выделен? (по номеру) (21) Автоматическое выделение элемента в Lis... (24) Пример поиска в ListBox'е (16) Сканировать ListBox в поисках элемента (13) Определение, какая item находится под к... (16) Как скопировать данные из одного ListBo... (17) Выделение элемента в ListBox'е при нажа... (14) Выделение всех элементов в ListBox'е (15) Как выравнять элементы ListBox'а вправо (17) Как автоматически скролить элемент List... (25) Описание элемента ListBox (19) Описание элемента TabStrip (46) Динамическое добавление панелей (41) Как определить, какая из панелей кликнута (35) Описание элемента Slider (38) Динамическое добавление в ImageList кар... (34) Word: Получение статистики открытого файла (40) Элемент управления Timer (56) Автоматический просмотр текущего значен... (43) Изменение свойства Style (стиль) элемен... (39) Вертикальное/горизонтальное написание в... (43) Создать анимированный Label (39) Создание 3D Text на Label (43) Выравнивание надписи на кнопке (33) Создайте свой 3D-Button (35) Добавление элемента CheckBox в элемент ... (34) Быстрый поиск элемента в списке (38) Как сделать первую букву каждого слова ... (27) Установить ширину ниспадающей части Com... (29) Как программно открыть/закрыть ComboBox (36) Изменилось ли содержимое ComboBox (28) Изменение высоты выпадающей части комбо... (30) Как установить количество открываемых с... (30) Изменение высоты выпадающей части комбо... (29) Изменение свойства Style (стиль) (46) Шифровка/расшифровка текста с использов... (65) Перекодировка текста: Rus-Lat (58) Получение всех параметров командной строки (54) Форма, реагирующая на события (min,max,... (60) Создание формы произвольных размеров (54) наверх Новости сайта VBMania
наверх Новости сайта Азбука VB
наверх Доска объявлений Ищу телеработу.
наверх Мои программы BalloonMessage for MS Agent BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels. Автор: Шатрыкин Иван. Соавтор: Павел Сурменок. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: Bob Ответ ожидается по этому адресу Почему исполнение в MS Word любого польяовательского макроса на VB, даже не очень объемного, яанимает слишком много времени. Причем это происходит только при первом его яапуске. В дальнейшем работа любого существующего макроса происходит с яавидной скоростью. Здесь же хотел бы спросить почему иногда происходит яаметное яамедление яакрытия и открытия несложных документов в MS Word. Если кто-нибудь с этим уже сталкивался - поясните. Автор вопроса: Шевченко Александр Викторович Ответ ожидается по этому адресу Подскажите, как можно сделать, чтобы у тебя был анимированный рисунок на форме, не могу найти нужный контейнер для воспроизведения, скажем *.gif файлов. Автор вопроса: Проскурин Ответ ожидается по этому адресу Мне срочно нужно писать прог для оценки автомобилей (вводишь марку, год и т. д. (ведение базы данных)). Помогите чем можете - статьями, в инете, исходниками .... Автор вопроса: Stas Ответ ожидается по этому адресу Как на VB6 сделать чтобы текст типа 5x-2y введеный в TextBox присвоился переменной не как текст, а как уравнение с неизвесными? Ответы: Вопрос: Народ, подскажите кто-нить, почему API функция ExitWindowsEx не завершает работу или не выключает комп, а завершает сеанс данного юзера и предлагает войти под новым именем ? Ответ: Автор ответа: Sobic Наверное потому, что ты не ту константу используешь. Вот описание ExitWindowsEx Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long uFlags Определяет тип выключения. Этот параметр должен быть некоторой комбинацией следующих величин: EWX_FORCE = 4 Заставляет процессы завершиться. Когда этот флаг установлен, Windows не посылается сообщения WM_QUERYENDSESSION и WM_ENDSESSION в работающие в системе приложения. Это может стать причиной потери приложениями данных. Следовательно, Вы должны использовать этот флаг только в аварийной ситуации. EWX_LOGOFF = 0 Отключает все процессы работая в контексте безопасности процесса,который вызвал функцию ExitWindowsEx. Затем он завершает сеанс данного юзера. EWX_POWEROFF Завершает работу и выключает питание. Система должна поддержать автоотключение питания. Windows NT: Вызывающий процесс должен иметь привилегию SE_SHUTDOWN_NAME. Windows 95: Привилегии Безопасности не поддерживаются или не требуются. EWX_REBOOT = 2 Завершает работу системы и перезагружает компьютер. Windows NT: Вызывающий процесс должен иметь привилегию SE_SHUTDOWN_NAME. Windows 95: Привилегии Безопасности не поддерживаются или не требуются. EWX_SHUTDOWN = 1 Завершает работу системы и подготовит к отключению питания. Все файловые буферы будут сброшены на диск, и все процессы завершатся. Windows NT: Вызывающий процесс должен иметь привилегию SE_SHUTDOWN_NAME. Windows 95: Привилегии Безопасности не поддерживаются или не требуются. · dwReserved Зарезервировано; Этот параметр игнорируется. Данные из API-Guide 3.6 http://www.allapi.net (отличный справочник по WinAPI с примерами на VB, рекомендую), перевод мой+ socrat 97(чур не бить) Вопрос: Пожалуйста подскажите, как загрузить в ListView текст из файла? Ответ: Автор ответа: Игорь При условии, что файл текстовый, то есть нормально прослеживается EOF, сделай так: Dim Str As String Open "C:\autoexec.bat" For Input As 1 'вместо autoexec.bat указывается свой файл Do Until EOF(1) Input #1, Str ListView1.ListItems.Add , , Str Loop Чтобы было красивее, можно вставить ListView1.View=2. Тогда все данные будут выводиться как список. Вопрос: Подскажите где можна скачать MSDN для VB6, бея справочника долго нужно париться над ним. Ответ: Автор ответа: Игорь Вообще-то MSDN можно скачать с официального сайта www.microsoft.com, но вся эта система помощи занимает около 3 Гб. Лучше ищи переводы ее частей MSDN на русский. Вопрос: Подскажите где можна скачать MSDN для VB6, бея справочника долго нужно париться над ним. Ответ: Автор ответа: slavik У меня MSDN занимает два диска, долго тебе придется качать. Попробуй кликнуть по ссылке в самом начале: Господа!!! читайте MSDN!!! [http://msdn.microsoft.com/library] Вопрос: Как сделать чтобы форма была всегда поверх всех окон? Ответ: Автор ответа: b17 Делается это очень просто. Засунь это в модуль: Public Declare Function SetWindowPos Lib "user32" _ (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _ ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _ ByVal cy As Long, ByVal wFlags As Long) As Long Public Const HWND_NOTOPMOST = -2 Public Const HWND_TOPMOST = -1 Public Const SWP_NOACTIVATE = &H10 Public Const SWP_NOMOVE = &H2 Public Const SWP_NOSIZE = &H1 Public Sub SetFormPosition(frmHandl As Long, TopPosition As Boolean) If TopPosition Then SetWindowPos frmHandl, HWND_TOPMOST, 0, 0, 0, 0, _ SWP_NOACTIVATE Or SWP_NOSIZE Or SWP_NOMOVE Else SetWindowPos frmHandl, HWND_NOTOPMOST, 0, 0, 0, 0, _ SWP_NOSIZE Or SWP_NOMOVE End If End Sub Это сунь в любом месте формы: call SetFormPosition(Me.hwnd, True) Комментарий: "Это работает точно по WINDOWS 98 и под WINDOWS 98 SE, под другие операционки не пробовалось, проблемы есть точно в WIN XP." Вопрос: Как сделать чтобы форма была всегда поверх всех окон? Ответ: Автор ответа: Igor Вот здесь: http://vbnet.ru/http://vbnet.ru/faq/showtopic.asp?id=46 Вопрос: А как с помощью API вызвать диалоговое окно выбора цвета и сохранить новые значения?? Ответ: Автор ответа: SC Private Type ChooseColor lStructSize As Long hwndOwner As Long hInstance As Long rgbResult As Long lpCustColors As String flags As Long lCustData As Long lpfnHook As Long lpTemplateName As String End Type Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As CHOOSECOLOR) As Long Private Sub Command1_Click() Dim cc As ChooseColor Dim ret as long cc.lStructSize = Len(cc) 'При указании хендела доступ к форме временно блокируется, до закрытия вызванного диалога(выбор цвета). cc.hwndOwner = Form1.hWnd 'Хендел вызывающей формы. cc.hInstance = App.hInstance cc.flags = 0 'Состояния вызываемого окна. 0-default state. (0-14) шагом = 2 cc.lpCustColors = String$(16 * 4, 0) ret = ChooseColor(cc) 'Вызываем диалог If (ret) Then 'Если была нажата кнопка ОК BackColor = cc.rgbResult 'Меняем цвет фона формы на выбранный нами цвет Else MsgBox "Действие отменено" End If End Sub Вопрос: Подскажите пожалуйста! Как на VB установить шрифты в систему. Пробовал использовать API функцию AddFontResource. Она устанавливает вибраний шрифт в систему, только после перезагрузки шрифт удаляется из системы. Ответ: Автор ответа: Игорь Нужно сначала скопировать файл в папку Fonts, а затем использовать AddFontResource. Вопрос: Подскажите пожалуйста! Как на VB установить шрифты в систему. Пробовал использовать API функцию AddFontResource. Она устанавливает вибраний шрифт в систему, только после перезагрузки шрифт удаляется из системы. Ответ: Автор ответа: slavik Бывает необходимо добавить в систему шрифт. Для его использования не достаточно просто скопировать файл шрифта в C:\WINDOWS\Fonts. Необходимо инсталлировать, это выполняет функция API AddFontResource, которая объявляется так: Declare Function AddFontResource& Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) Использование: 1.Можно файлы шрифтов включить в дистрибутив с помощью встроенных возможностей Package & Deployment Wizard . В форме: 2.Потом с, помощью MyFile = Dir("C:\WINDOWS\Fonts\Helvenlt.ttf"), проверяем из своей программы, наличие файла в системе: If MyFile = "Helvenlt.ttf" Then Exit Sub Else 'если его нет, то копируем и устанавливаем шрифт. 'Копируем шрифт в систему FileCopy App.Path & "\Helveblt.TTF", "C:\WINDOWS\Fonts\Helvenlt.ttf" 'Необходимо скопировать шрифт в систему 'Устанавливаем шрифт Call AddFontResource("Helvenlt.ttf") 'Команда устанавливает шрифты в систему End If Текст1.FontName = "HelveticaLT" 'Используем шрифт Вопрос: Подскажите пожалуйста! Как на VB установить шрифты в систему. Пробовал использовать API функцию AddFontResource. Она устанавливает вибраний шрифт в систему, только после перезагрузки шрифт удаляется из системы. Ответ: Автор ответа: K. Igor О каких шрифтах идет речь. Если это обычные, то они просто переписываются в папку C:\windows\fonts, на VB можно с помощью copy. Вопрос: Есть переменная WindowsDirectory и я всегда ее использовал для временных файлов, так стабильнее чем Temp но вдруг мне пришло письмо что моя программа не работет в W2k Server так как он не распознает эту переменную и пишет файл куда хочет, а когда его нужно прочитать то читает тоже откуда хочет и эти папки не сходятся. Отсюда информация не теряется, а просто пишется в одно месте, а читается из другого места - т.е. файла нулевого! Стандартные переменные $System_Root$ VB не понимает! P.S. В W2K Proffesional все работает! Ответ: Автор ответа: SC Попробуй воспользоваться API функцией GetTempPath. Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Помести куда нужно: Dim szTempPath As String * 100 GetTempPath 100, szTempPath ВСЁ. Теперь переменная будет содержать путь Темп директории 8) Вопрос: как расположить несколько чисел в порядке воярастания? Ответ: Автор ответа: K. Igor Смотря какие числа. Если надо, что бы при вводе 5 чисел они располагались по возрастанию, то через функцию if/then/else это можно выполнить. Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
||||||||||||||||||||||||||||||||
Выпуск подготовили: |
Сурменок Павел |
http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
В избранное | ||