| ← Февраль 2003 → | ||||||
|
1
|
||||||
|---|---|---|---|---|---|---|
|
4
|
5
|
6
|
8
|
9
|
||
|
11
|
12
|
13
|
15
|
16
|
||
|
18
|
19
|
20
|
22
|
23
|
||
|
25
|
26
|
27
|
||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://vbnet.ru
Открыта:
31-07-2001
Статистика
0 за неделю
Visual Basic: новости сайтов, советы, примеры кодов. Выпуск 136.
| Информационный Канал Subscribe.Ru |
Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 136.
|
VBNet
VBMania
Голосование: Ссылки: |
Господа!!! читайте MSDN!!! Несколько слов от автора:
Новый выпуск!
Читайте! Содержание выпуска
Книги
Остальные книги о VB можно найти здесь. наверх Citycat by Email Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое. Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru. наверх MSAgent CD VBNet.Ru представляет новый компакт-диск! Этот CD полностью посвящён технологии Microsoft Agent. На диске Вы сможете найти:
Полное содержание диска можно скачать здесь. Обращаю Ваше внимание на то, что в магазин CD сайта VBNet.Ru действует система скидок. Если Вы уже приобрели у нас один компакт-диск, то на последующие заказы действует скидка 5%. Если же Вы купили 3 или более CD, то скидка - 10%. Компакт-диск распространяется по почте наложенным платежом. Стоимость компакт-диска с учётом почтовых расходов - 100 рублей. Чтобы заказать диск, зайдите сюда: http://vbnet.ru/vbshop/order.asp?id=3. наверх Новости сайта VBNet
Последние 20 тем форума на VBNet.Ru: 08:18 / 16 фев. Post Script формат | Хитов: 2 | Ответов: 0 03:10 / 16 фев. Помогите.. Как создать ЯРЛЫК на рабочем столе ? | Хитов: 7 | Ответов: 1 22:17 / 15 фев. Люди, у меня трабл | Хитов: 13 | Ответов: 1 20:29 / 15 фев. Eject 2 CD??? | Хитов: 13 | Ответов: 1 17:09 / 15 фев. многострочные данные в ListBox | Хитов: 10 | Ответов: 0 17:01 / 15 фев. Поля в RichTextBox? | Хитов: 14 | Ответов: 1 14:42 / 15 фев. Три звезды | Хитов: 26 | Ответов: 2 14:36 / 15 фев. Узнать точку пересечения срединных перпендикуля... | Хитов: 18 | Ответов: 4 13:30 / 15 фев. Печать данных из базы | Хитов: 6 | Ответов: 0 12:04 / 15 фев. Архивация mdb-базы | Хитов: 12 | Ответов: 1 10:56 / 15 фев. WinInet | Хитов: 12 | Ответов: 0 22:56 / 14 фев. Что за число - 13... | Хитов: 37 | Ответов: 3 20:01 / 14 фев. Регистрация.... | Хитов: 29 | Ответов: 2 19:43 / 14 фев. Сортировка данных | Хитов: 22 | Ответов: 1 17:25 / 14 фев. Чат на АСП | Хитов: 26 | Ответов: 1 17:16 / 14 фев. Защита поцесса от уничтожения | Хитов: 24 | Ответов: 2 17:09 / 14 фев. ИЩЕМ ПРОГРАММИСТА НА VB | Хитов: 44 | Ответов: 1 16:02 / 14 фев. Windows Explorer | Хитов: 30 | Ответов: 3 13:23 / 14 фев. материнская плата | Хитов: 23 | Ответов: 1 12:53 / 14 фев. Размывка курсора - круто... | Хитов: 53 | Ответов: 9 Последние поступления в Библиотеку кодов: Новости от VBNet-чиков!: 21:09 / 11 фев Иван сообщает: Представительство Microsoft в России и СНГ, Федеральное государственное унитарное предприятие "Научно-технический центр "Атлас" (НТЦ "Атлас") и Главное управление информационных ресурсов органов государственной власти Российской Федерации Федерального агентства правительственной связи и информации при Президенте Российской Федерации (ГУИР ФАПСИ) объявляют о том, что по согласованию с ФАПСИ НТЦ "Атлас" подписал Соглашение с корпорацией Microsoft об использовании исходного кода в интересах повышения доверия к программным продуктам корпорации Microsoft, применяемым в органах государственной власти Российской Федерации. Договоренности, достигнутые корпорацией Microsoft, НТЦ "Атлас" и ГУИР ФАПСИ в рамках данного Соглашения, создают уникальные предпосылки для долговременного сотрудничества и использования современных технологий Microsoft в защищенных информационных системах органов государственной власти России. Более подробную информацию можно получить по адресу http://www.microsoft.com/rus/news/issue.asp?15-01-2003-windows_source_open.xml наверх Новости сайта VBMania наверх Новости сайта Азбука VB наверх Новости сайта MSDN наверх Новости сайта GotdotNet
Новые статьи:
наверх Новости сайта dotSite Новые статьи: Новые примеры: наверх Один момент из жизни форума: Индексирование Access базы данных по полю типа MEMO Вопрос: Автор вопроса: AlexSid Мое приложение использует Access БД. Одно из ключевых полей таблицы имеет тип MEMO, оно используется для хранения больших текстов, заранее неизвестного размера. О бъем базы порядка 10000 записей. При оранизации поиска c помощью VB я использую SQL запрос на поиск некого текста во всех записях (по полям типа MEMO). Поиск получился жутко долгим. На каждый запрос уходит порядка 20-и секунд, а Access не позволяет индексировать по этому полю. Что делать? Как ускорить поиск? Есть в Access что-нибудь типа FULLTEXT KEY? Ответы: Автор: BIV Поля типа MEMO не делают не то, что ключевыми, но и индексированными то же. Слово "ключевых", видимо ты употребил вместо "важных". Видимо, придется, выбирать из MEMO - поля ключевые слова и хранить их в индексированном поле, лучше в другой связанной таблице, где и осуществлять поиск. Примерно как в поисковиках. Автор: AlexSid Конечно, имелось в виду "важных" полей. Неоднозначно выразился, прошу прощения. Если не сложно, опишите, пожалуйста, немного подробнее процесс выборки ключевых слов и способ их хранения и связывания с данным полем в другой таблице. Как примерно должна выглядеть эта доп. таблица? Что в тексте должно называться ключевым словом? Автор: BIV Отправил тебе пример Автор: AlexSid Посмотрел... Ты предлагаешь создать вторую таблицу с записями типа (Id, Words), где Id в "индексной" таблице будет соответствовать Id в индексируемой таблице с MEMO полем... Но вот вопрос, а какой мне толк от текстового поля Words, если я индексирую большие тексты в поле MEMO? У меня же количество ключевых слов будет достаточно большим чтобы уместится в поле длиной 255 символов. Можно, конечно, выбрать набор слов из MEMO, не превышающий 255 символов, но тогда падает эффективность поиска! А нельзя ли созать "индексную" таблицу (Word, MEMO_Ids), где в поле Word будет какое-либо одно ключевое слово, а в поле MEMO_Ids все номера Id полей MEMO, в которых встречается данное ключевое слово? Не знаю, правда, какого типа должно быть поле MEMO_Ids... (Да тот же MEMO, хотя бы, если через запятую перечислять. Все равно же не поэтому полю индексировать) Автор: ericsson Для связи с Acces БД ты используешь компонент Data ? Или какой? Если Data, то подскажи пожалуйста какой файл нужен чтобы прога работала на других компах, а то у меня после перетаскивания проги на другой комп где нет VB60 вадает ошибку "Object class not registred" Автор: AlexSid To ericsson: Для связи я использую DAO, для которого соответственно нужен файл dao350.dll или dao360.dll. Почитай еще сообщения этого форума, здесь часто касались этой темы! Похоже, вопрос с индексированием замялся. А жаль, интересная, по-моему, тема! Автор: BIV Индексы, как сказал один умный человек, - это алфавитный указатель по краю телефонной книжки. Ты берешь букву "А" и смотришь телефоны на эту букву. Из этого следует, что, как минимум, индекс должен быть небольшим (он к тому же занимает место на диске), а лучше уникальным - свойственным только одной записи в таблице. Последнее далеко не всегда возможно. Автор: AlexSid To BIV: "как минимум, индекс должен быть небольшим"... А как же тогда создавать этот индекс? Ась? Автоматизация? Не руками же из 10000 статей ключевые слова вычленять! А программным путем, найти самые главные слова статьи и присвоить именно им статус КЛЮЧЕВЫХ, это, знаете, Artificial Intelligence... наверх Доска объявлений Ищу телеработу.
наверх Мои программы BalloonMessage for MS Agent BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels. Авторы: Шатрыкин Иван и Павел Сурменок. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: Роман Ответ ожидается по этому адресу Кто нибудь знает как запустить компьютер из сети. Не из спящего режима, а именно выключенный. Автор вопроса: Игорь Ответ ожидается по этому адресу Можно ли привяяать координаты дочерней формы (свойства Top и Left) к координатам кнопки, по нажатию на котррую эта форма выяывается. Например, чтобы дочерняя форма появлялась строго под кнопкой неяависимо от положения самой кнопки на родительской форме? В приведенном ниже примере привяяка почему-то не работает: Form1.Left = MainForm.cmdButton.Left + 100 Form1.Top = MainForm.cmdButton.Top + 50 Автор вопроса: Галина Ответ ожидается по этому адресу Есть ComboBox со значениями, в зависимости от выбираемого значения появляетяс Lebel. При задании Private Sub Combo1_Change() Select Case Combo1.Value Case "СУГ" Form.Label2.Visible = True Case "Нефть" Form.Label2.Visible = False End Sub В результате Label2 - не исчезает Автор вопроса: SAMspb Ответ ожидается по этому адресу Пишу программу на VBA в Excel, вешаю мою процедуру на DBClick, как сделать так, что бы после выполнения моей процедуры DBClick не отрабатывался. Автор вопроса: Костик Ответ ожидается по этому адресу Как отследить нажатие клавиши, которая "нажимает" на кнопку ПУСК (со значком Windows) и сочетание клавиш Alt+F4 (нужно чтобы до определ?нного события нельзя было закрыть форму)? Автор вопроса: PostMaster Ответ ожидается по этому адресу В VB я не мастер! Пожалуйста, расскажите, как сделать следующее: На экранной форме есть командная кнопка. Как, нажав на неё, загрузить и просмотреть файл на MS Word, а затем выгрузить и его, и MS Word. Автор вопроса: Laguna Ukraine Ответ ожидается по этому адресу Как получить в List адреса всех веб-страниц, которые расположены на текущем сервере? Т.е., например, мне надо получить полный список всех страниц, которые находятся на http://www.hostname.com/ и внести все полученные URL в ListBox. Если кто-то может помочь, напишите как. Буду благодарен, также, если приведете пример. Автор вопроса: Алексей Ответ ожидается по этому адресу Есть код на с++ который получает пароли Outlook Express из Protected Storage, но я не могу его перевести на VB. Может кто знает с++ и сможет перевести на Visual Basic. #import "c:\windows\system32\pstorec.dll" using namespace PSTORECLib; #include #include typedef HRESULT (WINAPI *PStoreCreateInstancePtr)(IPStore **, DWORD, DWORD, DWORD); int checkunicode(unsigned char *data, unsigned long length){ for(unsigned int i=0; i return 0; } int main(int argc, char **argv){ HRESULT hRes; HMODULE hPstoreDLL = LoadLibrary("pstorec.dll"); PStoreCreateInstancePtr PStoreCreateInstance = (PStoreCreateInstancePtr)GetProcAddress(hPstoreDLL, "PStoreCreateInstance"); IPStorePtr spPStore; hRes = PStoreCreateInstance(&spPStore, 0, 0, 0); IEnumPStoreTypesPtr spEnumTypes; hRes = spPStore->EnumTypes(0, 0, &spEnumTypes); GUID typeGUID; while(spEnumTypes->raw_Next(1,&typeGUID,0) == S_OK){ printf("typeGUID = %.8x\n",typeGUID); IEnumPStoreTypesPtr spEnumSubTypes; hRes = spPStore->EnumSubtypes(0, &typeGUID, 0, &spEnumSubTypes); GUID subtypeGUID; while(spEnumSubTypes->raw_Next(1,&subtypeGUID,0) == S_OK){ printf("\tsubtypeGUID = %.8x\n",subtypeGUID); IEnumPStoreItemsPtr spEnumItems; HRESULT hRes = spPStore->EnumItems(0, &typeGUID, &subtypeGUID, 0, &spEnumItems); LPWSTR itemName; while(spEnumItems->raw_Next(1,&itemName,0) == S_OK){ printf("\t\titemName = %ws\n",itemName); unsigned long pcbData = 0; unsigned char *ppbData = NULL; _PST_PROMPTINFO *pi = NULL; hRes = spPStore->ReadItem(0,&typeGUID,&subtypeGUID,itemName,&pcbData,&ppbData,pi,0); if(checkunicode(ppbData,pcbData)) printf("\t\titemData = %ws\n",ppbData); else printf("\t\titemData = %s\n",ppbData); } } } return 0; } Ответы: Вопрос: У меня VB6 не хочет работать с базами Access2000, примеры из Access97 берет, а для 2000 пишет - нераспознанный формат данных, когда выбираю RecordSource. Помогите, что я делаю не так? Ответ: Автор ответа: Andrew Stephanoff Скорее всего ты при подключении используешь провайдер Jet 3.51. а Access 2000 требует Jet 4.0. Вопрос: Подскажите, как сделать форму проярачной? С SetWindowLong что-то не получается Ответ: Автор ответа: ViTal Declare Function SetAlfaWindowEffect Lib "user32" Alias "SetLayeredWindowAttributes" (ByVal hWnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Подробнее описание смотри в MSDN. Работает лишь в W2k и XP. Вопрос: Можно ли сделать Рабочий стол = Enebled или сделать форму прозрачного цвета? Нужно чтобы до определённого события нельзя было польяоваться ни рабочим столом, ни панелью (там где кнопка Пуск) Ответ: Автор ответа: Tank А не проще Form1 > Visible > False, а после определенного события Me.Visible.True Вопрос: Есть ли такой грид который мог бы отображать данные различными цветами в зависимости от условий,скажем если значение поля меньше 10 тогда чёрным, больше - красным? Ответ: Автор ответа: Gregory TBGrid Вопрос: Подскажите, плиз, как сделать прогу на VB, чтобы она запускалась только с CD (т.е.ссылалась на серийный номер CD-диска). Приведите пример кода, если не трудно. Ответ: Автор ответа: ]CBK[CRaSH Ты можеш привизать свою прогу к метки тома CD. Загружаясь она получает имя диска на котором работает, а потом с помощью dir получаеш метку и смотришь Пример if Dir(Mid(App.Path, 1, 3), vbVolume)<>"Супер_CD2000" then Msgbox"Ты куды мою прогу скопировал":end Вопрос: Подскажите как из программы открыть сидюк? И кто нибудь знает где можно достать инфу по работе с Swiftsoft Multimedia Tools OCX Ответ: Автор ответа: Славик Открыть/закрыть CD-ROM Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Private Sub Command1_Click() Call mciSendString("CD-ROM открыт", 0&, 0&, 0&) End Sub Private Sub Command2_Click() Call mciSendString("CD-ROM закрыт", 0&, 0&, 0&) End Sub Ответ: Автор ответа: Роман Инфа по Swiftsoft Multimedia на www.rouch.mailru.com Этот код откроет лоток CD-ROM: Option Explicit Private Declare Function mciSendString Lib "winmm.dll" Alias _ "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString _ As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Private Sub Command1_Click() mciSendString "Set CDAudio Door Open Wait", 0, 0, 0 End Sub Для закрытия же CD-ROM используем эту же функцию, но с другим первым параметром: mciSendString "Set CDAudio Door Closed Wait", 0, 0, 0 Ответ: Автор ответа: lom Это делается следующим образом: Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Private result As Long Private Sub cmdOpen_Click() result = mciSendString("set CDAudio door open", returnstring, 127, 0) End Sub Private Sub cmdClose_Click() result = mciSendString("set CDAudio door closed", returnstring, 127, 0) End Sub Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
|||||||||||||||||||||||||||||||
Выпуск подготовили: |
Сурменок Павел | |||||||||||||||||||||||||||||||
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
