| ← Январь 2002 → | ||||||
|
1
|
2
|
3
|
5
|
6
|
||
|---|---|---|---|---|---|---|
|
7
|
8
|
9
|
10
|
12
|
13
|
|
|
14
|
15
|
16
|
17
|
19
|
20
|
|
|
21
|
22
|
23
|
24
|
26
|
27
|
|
|
28
|
29
|
30
|
31
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://vbnet.ru
Открыта:
31-07-2001
Автор
Статистика
4.065 подписчиков
0 за неделю
0 за неделю
Visual Basic: новости сайтов, советы, примеры кодов. Выпуск 23.
Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 23.
VB Студия
Голосование: Ваш голос отсылается по E-mail владельцу сайта, после чего голоса анализируются и на отдельной странице выводятся результаты. Subscribe.Ru увеличило максимальный размер рассылки до 100 кб. В связи с этим вопрос: Какого размера Вы хотели бы получать рассылку? В какой день (дни) недели Вы хотели бы получать рассылку "Visual Basic: новости сайтов, советы, примеры кодов."? С какой периодичностью Вы хотели бы получать рассылку "Visual Basic: новости сайтов, советы, примеры кодов."? Результаты голосования Доска почёта: Sergey Y. Tkachev Кононенко Роман Kirill Sergey Sapozhnikov Sobic Ссылки: |
Несколько слов от автора:
Первый выпуск рассылки в новом 2002 году.
Читайте! Содержание выпуска
Citycat by Email
Программа Citycat by Email позволяет работать с сервером Subscribe.ru с
помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в
online и просматривать мегабайты рекламы для того, чтобы подписаться на
нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем
рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и
отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять
поиск по каталогу рассылок и многое другое.
Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru. наверх Новости сайта VB Студия
наверх Новости сайта VB Line 01 января 2002 г. Ну вот и Новый год. Вначале о приятном. Вы стати намного активнее и присылаете мне свои примеры. Это хорошо! Итак, Данила Беляев прислал свою коллекцию примеров. Начинаем публиковать с очень интересного, на мой взгляд, примера работы с Direct Music. Пример называется RealMid и предназначен для прослушивания Midi файлов через DirectX. Скажу сразу, что получается довольно круто, в смысле очень качественно, так как используется программный синтезатор и качество звучания мало зависит от качества звуковой карты. И еще один пример от Данилы Беляева - оригинальное всплывающее меню. Гриневич Дмитрий прислал пример программы для работы с Midi файлами, программа называется KaraokeSystem. Продолжаем публикацию примеров от SeRg, сегодня хочу предложить Вам посмотреть пример на тему выключения компьютера, т.е. как можно программным способом выключить компьютер. Теперь о грустном. В связи с предстоящим переездом у меня стало совсем мало времени, так что придется пока пожертвовать рассылкой, она пока будет выходить в режиме новостей, т.е. пока в ней будут только новости. 23 декабря 2001 г. Ну вот, так то лучше! Мой почтовый ящик за последние дни принял множество интересных примеров, статей и контролов. Итак, с сегодняшнего обновления, я буду их выкладывать на сайт. Не обижайтесь, если Ваш код появится не самым первым, а, например, к Новому году. Новоселов Андрей порадовал нас очень качественным и полезным контролом DublWindow. Контрол предназначен для отслеживания запущенных копий одной и той же программы и имеет множество интересных возможностей. Например, Вы можете обмениваться информацией между разными копиями и т.д. Рекомендую всем. Ковалев Сергей прислал контрол FlexGridPlus, созданный на основе всем известного FlexGrid, но имеющий несколько новых полезных свойств: TextEdit = true позволяет вводить текст в ячейки, свойство FormatString позволяет задать формат вводимого текста, если FormatString=1, то в ячейки можно вводить только числа и десятичные точки, а также рад других нужных свойств. Ну и напоследок еще два примера от SeRg, Сергей очень порадовал и прислал множество своих примеров, контролов. Большое ему спасибо. Итак, на сегодня я выбрал два примера: работа с FSO библиотекой и красивые стрелочные часики. Ну и на закуску новый сайт про ЭТО VBasic. Фууух, ну на сегодня хватит обновлений. наверх Новости сайта VBMania
наверх Как добавить сайт в папку Избранное? По материалам сайта VBcode.FAQ Option Explicit Public Enum SpecialShellFolderIDs CSIDL_DESKTOP = &H0 CSIDL_INTERNET = &H1 CSIDL_PROGRAMS = &H2 CSIDL_CONTROLS = &H3 CSIDL_PRINTERS = &H4 CSIDL_PERSONAL = &H5 CSIDL_FAVORITES = &H6 CSIDL_STARTUP = &H7 CSIDL_RECENT = &H8 CSIDL_SENDTO = &H9 CSIDL_BITBUCKET = &HA CSIDL_STARTMENU = &HB CSIDL_DESKTOPDIRECTORY = &H10 CSIDL_DRIVES = &H11 CSIDL_NETWORK = &H12 CSIDL_NETHOOD = &H13 CSIDL_FONTS = &H14 CSIDL_TEMPLATES = &H15 CSIDL_COMMON_STARTMENU = &H16 CSIDL_COMMON_PROGRAMS = &H17 CSIDL_COMMON_STARTUP = &H18 CSIDL_COMMON_DESKTOPDIRECTORY = &H19 CSIDL_APPDATA = &H1A CSIDL_PRINTHOOD = &H1B CSIDL_ALTSTARTUP = &H1D CSIDL_COMMON_ALTSTARTUP = &H1E CSIDL_COMMON_FAVORITES = &H1F CSIDL_INTERNET_CACHE = &H20 CSIDL_COOKIES = &H21 CSIDL_HISTORY = &H22 End Enum Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As SpecialShellFolderIDs, pidl As Long) As Long Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal pv As Long) Public Function AddFavorite(SiteName As String, URL As String) As Boolean 'SiteName - название сайта, URL - адрес сайта в Инете Dim pidl As Long Dim psFullPath As String Dim iFile As Integer On Error GoTo ErrorHandler iFile = FreeFile psFullPath = Space(255) If SHGetSpecialFolderLocation(0, CSIDL_FAVORITES, pidl) = 0 Then If pidl Then If SHGetPathFromIDList(pidl, psFullPath) Then psFullPath = TrimWithoutPrejudice(psFullPath) If Right(psFullPath, 1) <> "\" Then psFullPath = psFullPath & "\" psFullPath = psFullPath & SiteName & ".URL" Open psFullPath For Output As #iFile Print #iFile, "[InternetShortcut]" Print #iFile, "URL=" & URL Close #iFile End If CoTaskMemFree pidl AddFavorite = True End If End If ErrorHandler: End Function Public Function TrimWithoutPrejudice(ByVal InputString As String) As String Dim sAns As String Dim sWkg As String Dim sChar As String Dim lLen As Long Dim lCtr As Long sAns = InputString lLen = Len(InputString) If lLen > 0 Then For lCtr = 1 To lLen sChar = Mid(sAns, lCtr, 1) If Asc(sChar) > 32 Then Exit For Next sAns = Mid(sAns, lCtr) lLen = Len(sAns) If lLen > 0 Then For lCtr = lLen To 1 Step -1 sChar = Mid(sAns, lCtr, 1) If Asc(sChar) > 32 Then Exit For Next End If sAns = Left$(sAns, lCtr) End If TrimWithoutPrejudice = sAns End Function Private Sub Form_Load() AddFavorite "Сайт VBcode.FAQ", "http://sharig.webzone.ru" End Sub наверх Как создать ярлык страницы в Интернет? По материалам сайта VBcode.FAQ Sub CreateInternetShortCut(URLFile As String, URLTarget As String) Dim intFreeFile As Integer intFreeFile = FreeFile Open URLFile For Output As intFreeFile Print #intFreeFile, "[InternetShortcut]" Print #intFreeFile, "URL=" & URLTarget Close intFreeFile End Sub Private Sub Form_Load() CreateInternetShortCut "C:\WIN\Рабочий стол\test.url", "http://sharig.webzone.ru" End Sub наверх Сравнение файлов на идентичность Private Sub Form_Load() 'замените пути файлов, которые вы хотите сравнить Open "C:\1\convert1bmp.htm" For Binary As #1 Open "C:\1\convert2bmp.htm" For Binary As #2 issame% = True If LOF(1) > LOF(2) Then issame% = False Else whole& = LOF(1) \ 10000 part& = LOF(1) Mod 10000 buffer1$ = String$(10000, 0) buffer2$ = String$(10000, 0) start& = 1 For X& = 1 To whole& Get #1, start&, buffer1$ Get #2, start&, buffer2$ If buffer1$ > buffer2$ Then issame% = False Exit For End If start& = start& + 10000 Next buffer1$ = String$(part&, 0) buffer2$ = String$(part&, 0) Get #1, start&, buffer1$ Get #2, start&, buffer2$ If buffer1$ > buffer2$ Then issame% = False End If Close If issame% Then MsgBox "Файлы идентичны", 64, "Info" Else MsgBox "Файлы НЕ идентичны", 16, "Info" End If End Sub наверх Как сменить разрешение экрана Иногда в программе необходимо сменить разрешение экрана. Как же это сделать. В Win API существует функция ChangeDisplaySettings, которая может нам помочь. Итак, для работы нам потребуется эта функция, структура типа DEVMODE и несколько флагов DM_PELSWIDTH, DM_PELSHEIGHT, DM_BITSPERPEL. Ниже представлена функция, которая служить для смена текущего разрешения экрана и глубины цвета. 'ширина,
высота экрана и глубина цвета Const DM_BITSPERPEL = &H40000 Вот, собственно и всё. Пользуйтесь! наверх По поводу батареек ноутбука Одним из наиболее неиспользуемых компонентов в VB, пишет Антон Демин, является Microsoft SysInfo Control, который между тем, позволяет получить множество полезной для приложения информации - данных об ОС, событиях plug-n-play, системных событиях и т.д. В этом примере показывается вариант получения информации об источнике питания ноутбука. Select Case SysInfo1.ACStatus Dim PerCentLeft As String If SysInfo1.BatteryLifeTime <> &HFFFFFFFF Then наверх Книги
Остальные книги о VB из магазина Колибри можно найти здесь. наверх Анонсы эхо-конференций СообЧа Игры
Работа, работа, работа — документы, базы, отчеты…
Ну все пора расслабиться: работа не волк — в лес
не убежит! Представь себе, у нас есть группа,
которая поможет тебе скрасить тяжелые рабочие
будни — мы помогаем друг другу играть!!!
Обсуждаем все вопросы, которые только могут
появиться у любителя игр: к примеру, как
поиграть в StarCraft по сети или как написать
свой конфиг к QUAKE III, и обсудим еще
многое-многое-многое… Новости, ссылки на демки,
патчи, обзоры и прохождение игр — все это
у нас есть! Есть вопросы — ответим, есть
новенький секрет — расскажем! Ну, а если
ты супер-геймер, сам бог тебе велел быть с нами! Подписаться Шифрование
Встречались ли вы в своей жизни с компьютерными
пиратами? Одной из сфер их деятельности является
перехват любой информации во время ее пересылки
в просторах сети и воровство данных прямо с
вашего компьютера. Даже если хакеру и удастся
завладеть секретными данными — каково же будет
его разочарование, когда он не сможет их прочесть!
Давайте же поговорим о шифровании данных с помощью
PGP и других алгоритмов... Подписаться Все о Linux
Конференция, посвященная ОС Linux, которую
имеете или будете иметь вы, а не она вас.
Чем больше будет задано вопросов, тем больше
будет получено ответов. Количество как известно
перерастает в качество... И что приятно, ответы
не канут в лету, их всегда можно будет найти в
архиве нашей группы... Добро пожаловать! Подписаться Всё, что связано с пакетом программ MS Office.
Вы хотели создать красивый документ в Word, но
не знаете как форматировать текст? Или же в
Excel вам нужно создать сложнейший и, в тоже
время, красивый отчет, содержащий тысячи цифр,
и вам не хватает для этого возможностей программы?
Вам нужно создать базу данных в Access и по ней
составлять отчеты или вы не знаете как послать
письмо из Oulook? Всё это - от основ форматирования
текста до сложнейших работ в таких программах,
как MS Access и MS Publisher, - вы можете узнать
в нашей группе Soobcha_Office. Подписаться Мощь и красота С++
С++ является одним из самых гибких языков
программирования. Сочетание низкоуровневых и
высокоуровневых средств делает его сильным
инструментом в руках программиста. Данная
группа призвана помочь программирующим на Си и
просто их сблизить. Давайте будем решать
проблемы вместе!!! Подписаться наверх Доска объявлений Ищу телеработу.
наверх Мои программы BalloonMessage for MS Agent BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels. Автор: Шатрыкин Иван. Соавтор: Павел Сурменок. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: Михаил Ответ ожидается по этому адресу Можно ли и как общаться ия VB со явуковой картой? Конкретно: необходимо с яаданным тактом определять среднее яначение сигнала в яаданном отреяке времени. PS: С Новым Годом !! Успехов!!! Автор вопроса: Shoroh Ответ ожидается по этому адресу Пользователь в поля вбивает координаты и размеры заготовок (досок толщ. 16 мм.) а прога должна их показать в два и трухмерном пространстве (выполнить так сказать чертеж и распечатать). Вот не знаю как сделать (проще). Мои варианты: создать свой трех движок, найти чужой, подключать МАХ, остыть и заняться чем нибудь другим - ). Можете что посоветовать? Автор вопроса: LitilDevil Ответ ожидается по этому адресу Народ, а где можно достать инфу по работе с DirectX в VB? Автор вопроса: alex Ответ ожидается по этому адресу Подскажите как в textbox получить текстовую информацию страницы загруженной в WebBrowser или хотябы ее HTML код. Автор вопроса: Billy Ответ ожидается по этому адресу Лююди! Как проигрывать MP3 файлы на VB? Использовать MCI или можно через WinAPI??? Автор вопроса: Алексей Ответ ожидается по этому адресу Как на VB организовать перехват событий печати из досовских программ? Подойдет любая информация или исходник на любом языке. Ответы: Вопрос: Как подгружать на RunTime картинку(bmp)в приложение из файла mdb? Картинка линкуется в филде не из готового файла,а через Create New. Ответ: Автор ответа: Sergey Y. Tkachev Только что прочитал одну рассылку, в которой приведен пример работы с картинками в базе данных http://msa.km.ru/msa/vb/article.asp?id=324. Всё очень просто - функция для чтения, ф-ция для записи. Если же речь идет об mdb, то отобразить картинку из базы данных в простейшем виде можно при помощи Picture Box или Image, которые привязаны на Data Control или ADO Data Control Сам же я, когда работаю с MS SQL7, то применяю следующую ф-цию для записи изображения: Function AddLongRaw(ByVal strFileName As String, ByRef objRecSet As ADODB.Recordset, ByVal strFieldName As String) As Boolean On Error GoTo ERRHANDLER AddLongRaw = False Dim objStream As Stream Set objStream = New ADODB.Stream objStream.Type = adTypeBinary objStream.Open objStream.LoadFromFile strFileName objRecSet.Fields(strFieldName).Value = objStream.Read objStream.Close Set objStream = Nothing AddLongRaw = True Exit Function ERRHANDLER: AddLongRaw = False Set objStream = Nothing End Function Для считывания изображения предпочитаю пользоваться завязанным на дату пикчером Вопрос: Вопрос вот в чем. Я хочу создать е-майл сообщение и отправить его из своей формы.Пишу как обычно: Dim out As Object Set out = CreateObject("Outlook.Application") Но на это обработчик ошибок мне выдает, что ActivX компонент не может создать объект,ошибка 429. Подскажите пожалуйста, как быть? Ответ: Автор ответа: Sergey Y. Tkachev Честно говоря, я не вижу особого смысла городить огород подобным образом. Раз Microsoft Outlook, значит MAPI. Так почему бы не использовать Microsoft MAPI Controls? Это самый простой и самый удобный и вообще, самый-самый способ посылать или читать почту. Кроме того, можно работать и с адресной книгой. В MSDN примеров - море. В самом примитивном виде это может выглядеть вот так: MAPISession.UserName = "" MAPISession.Password = "" MAPISession.SignOn MAPIMessages.SessionID = MAPISession.SessionID MAPIMessages.Compose MAPIMessages.RecipDisplayName = strNameToDisplay MAPIMessages.RecipAddress = strAddress MAPIMessages.MsgSubject = "MySubject" MAPIMessages.MsgNoteText = "Test Message" MAPIMessages.AttachmentPathName = strFileToAttach MAPIMessages.sEnd False Вопрос: Во-первых, всех читателей рассылки - с наступающим Новым Годом! Во-вторых, скажите мне - обычному бизнесмену, пытающемуся использовать VB (и очень недавно) для решения прикладных задач, ЧТО ТАКОЕ MSDN, С ЧЕМ ЕГО ЕДЯТ и КАК ЕГО УСТАНОВИТЬ? Все, наверное, поняли, что я не могу запустить справку в VB6 Prof. Буду очень и очень благодарен если кто-нибудь разъяснит мне это. Ответ: Автор ответа: Артем Меняйленко MSDN (MicroSoft Developers Network вроде так) это огромная база данных по программированию и вообще по мелко-мягким продуктам. Дистрибутив можно купить на рынках (3 полных компакта) или скачать с microsoft.com/msdn, что при наших линиях малореально. Вот в состав этого MSDN и входит справка, примеры по ВБ6 и еще много полезных статей и информации. А установка обычным Setupом. Вопрос: Во-первых, всех читателей рассылки - с наступающим Новым Годом! Во-вторых, скажите мне - обычному бизнесмену, пытающемуся использовать VB (и очень недавно) для решения прикладных задач, ЧТО ТАКОЕ MSDN, С ЧЕМ ЕГО ЕДЯТ и КАК ЕГО УСТАНОВИТЬ? Все, наверное, поняли, что я не могу запустить справку в VB6 Prof. Буду очень и очень благодарен если кто-нибудь разъяснит мне это. Ответ: Автор ответа: Shemyakin, Dmitry MSDN - в том понимании как вы спрашиваете это справка по всем основным продуктам MS(!) Состоит из четырех компакт дисков (3 CD + 1 DVD), имеет мощную систему поиска. Есть пиратская версия :)) А если взять шире - это подписка для разработчиков, в которую кроме вышеозначеных дисков входят все продукты MS(!) включая релизы(беты, демы и т.п.). Можно найти даже японский виндовс :) Вопрос: Я хочу чтобы моя прога сохраняла текст из формы в текстовый файл после нажатия кнопки при помощи Microsoft Dialog Control 6.0, тоесть стандартного окна сохранения Виндоуз. Как мне это сделать? Ответ: Автор ответа: Sergey Y. Tkachev Создайте новый проект. Бросьте на форму текстбокс, кнопку и коммондиалог Скопируйте и вставьте код ниже: Private Sub Command1_Click() Dim strFileName As String Dim FileNumber As Integer CommonDialog1.ShowSave strFileName = CommonDialog1.FileName FileNumber = FreeFile Open strFileName For Output As #FileNumber Print #FileNumber, Text1.Text Close #FileNumber End Sub Наслаждайтесь! Читайте MSDN Вопрос: Люди добрые, помогите!!! Как сделать так, чтобы при вводе данных в БД в DBList набранное сортировалось по алфавиту, только на русском языке. Ответ: Автор ответа: Sergey Y. Tkachev Честно говоря фраза "при вводе данных в БД в DBList" мне не очень понятна, но если нужно заполнить DBList из БД, то просто SELECT {ListOfFields} FROM {TableName} ORDER BY FieldName. Ребята, читайте MSDN!!!!!!!!!!!!!!!!!!! Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
||||||
Выпуск подготовили: | Сурменок Павел и Шатрыкин Иван |
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
