Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 23.

VB Студия VBMania VB Line
Голосование:

Ваш голос отсылается по E-mail владельцу сайта, после чего голоса анализируются и на отдельной странице выводятся результаты.

Subscribe.Ru увеличило максимальный размер рассылки до 100 кб. В связи с этим вопрос:
Какого размера Вы хотели бы получать рассылку?
Менее 20 кб
От 20 до 40 кб
От 40 до 60 кб
От 60 до 80 кб
Выше 80 кб


В какой день (дни) недели Вы хотели бы получать рассылку "Visual Basic: новости сайтов, советы, примеры кодов."?
Понедельник
Вторник
Среда
Четверг
Пятница
Суббота
Воскресение


С какой периодичностью Вы хотели бы получать рассылку "Visual Basic: новости сайтов, советы, примеры кодов."?
Каждый день
2 раза в неделю
Раз в неделю
Раз в две недели
Раз в месяц
Реже


Результаты голосования
Рассылки Subscribe.Ru
Новости сайта VBline и советы программистам
Мир программирования на Visual BASIC 5.0 и HTML.


Рассылки Subscribe.Ru
Старые игры
Доска почёта:

Sergey Y. Tkachev
Кононенко Роман
Kirill
Sergey Sapozhnikov
Sobic
Ссылки:

  • Улицы VB
  • Использование VB
  • VB Line
  • Азбука VB
  • VB на русском
  • Улицы VB
  • VB - шаг за шагом
  • Кирпичики VB
  • CообЧа VB
  • VB по русски
  • Snoozex Design
    		• Несколько слов от автора:

       Первый выпуск рассылки в новом 2002 году.
    Читайте!


    Содержание выпуска

    Citycat by Email

       Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое.
       Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru.


    наверх

    Новости сайта VB Студия

    • 1 января 2001 года - Во-первых сегодня замечательный день. У сайта VBСтудия сегодня день рождения. Ровно год назад первого января он был открыт. Во-вторых сегодня открылся ещё один VB сайт. Это VBPlanet. Обязательно посетите его. Там есть, что посмотреть. Теперь о новых поступлениях на сайт. Добавлено 5 примеров.
    • 27 декабря 2001 года - Поздравляю Вас всех с Новым годом. Ну и как раз по поводу этого великого праздника сегодня большое, если не сказать огромное, обновление. Значительно пополнился раздел Юмор. Теперь количество анекдотов там превышает 50 и будет постоянно увеличиваться. В разделе Примеры добавлено 15 примеров. Большую часть из них прислал Беляев Данила, за что ему огромное спасибо. Ну а главное - добавлен раздел Игры. Там будут расположены игры, написанные на Visual Basic с исходниками. Уже имеется 7 игр.
    • 23 декабря 2001 года - Каждый день на сайт приходит более 150 посетителей, которые, как я понимаю, являются программистами или считают себя таковыми. Так вот если каждый из Вас хотя бы раз в месяц пришлет на сайт пример, совет, контрол или что-нибудь еще, то будет очень много материала. Вам же будет лучше и легче программировать!
      Присылайте, жду.  Выложил 5 новых примеров.
      Выложил один код в библиотеку кодов.
    • 21 декабря 2001 года - Написал новую статью. Называется - "Программное создание базы данных".
    • 17 декабря 2001 года - Последнюю неделю не было ни одного обновления - их не было по одной важной причине: не было времени. Как видите, я поменял дизайн сайта. Я счиаю, что так будет удобнее. Пока возможны небольшие неполадки в работе сайта, но максимум через неделю я их исправлю. Никаких новых материалов пока не добавлено.


    наверх

    Новости сайта 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

    • 17.12 - В связи с тем что форум не горел желаением вести себя так, как должен обычный, порядочный форум, мы его прикрыли для проведения разъяснительных мероприятий. Надеемся, что они не затянутся и форум образумится.
    • 06.12 - С сегодняшнего дня все желающие могут добавлять свои новости и статьи в наши архивы.
      Да здраствует открытость!
    • 27.11 - Наконец-то, после долгих дней и бессонных ночей это свершилось! Сайт объявляется открытым! Непременно прочитайте первый номер нашего журнала. Оцените наши дополнительные проекты. И конечно мы ждем ваших откликов в гостевой книге и по почте.
    • 01.12 - Произошло несколько косметических улучшений, касающихся исключительно удобства работы с сайтом. Во-первых, можно видеть количество записей обсуждения новостей на главной странице; а во-вторых чуточку подправились директории.
      Оценяйте!
    • 02.12 - Наконец-то исправлена ошибка в Моей Мании, которая проявлялась исключительно в Windows XP. Теперь все работает как надо!


    наверх

    Как добавить сайт в папку Избранное?

    По материалам сайта     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. Ниже представлена функция, которая служить для смена текущего разрешения экрана и глубины цвета.

    'ширина, высота экрана и глубина цвета
    Public Sub SetVideoMode(scWidth As Long, scHeight As Long, scDepth As Long)
        Dim dm As DEVMODE
        
        dm.dmPelsWidth = scWidth
        dm.dmPelsHeight = scHeight
        dm.dmBitsPerPel = scDepth
        dm.dmSize = Len(dm) 'длина структура (не забывайте!!!)
        dm.dmFields = DM_PELSWIDTH + DM_PELSHEIGHT + DM_BITSPERPEL 'флаги, указывающие что сменить
        ChangeDisplaySettings dm, 0
    End Sub

    Const DM_BITSPERPEL = &H40000
    Const DM_PELSWIDTH = &H80000
    Const DM_PELSHEIGHT = &H100000
    Const CCHDEVICENAME = 32
    Const CCHFORMNAME = 32

    Private Type DEVMODE
        dmDeviceName As String * CCHDEVICENAME
        dmSpecVersion As Integer
        dmDriverVersion As Integer
        dmSize As Integer
        dmDriverExtra As Integer
        dmFields As Long
        dmOrientation As Integer
        dmPaperSize As Integer
        dmPaperLength As Integer
        dmPaperWidth As Integer
        dmScale As Integer
        dmCopies As Integer
        dmDefaultSource As Integer
        dmPrintQuality As Integer
        dmColor As Integer
        dmDuplex As Integer
        dmYResolution As Integer
        dmTTOption As Integer
        dmCollate As Integer
        dmFormName As String * CCHFORMNAME
        dmUnusedPadding As Integer
        dmBitsPerPel As Integer
        dmPelsWidth As Long
        dmPelsHeight As Long
        dmDisplayFlags As Long
        dmDisplayFrequency As Long
    End Type

    Private Declare Function ChangeDisplaySettings Lib "user32.dll" Alias "ChangeDisplaySettingsA" _
        (lpDevMode As DEVMODE, ByVal dwFalgs As Long) As Long

    Вот, собственно и всё. Пользуйтесь!



    наверх

    По поводу батареек ноутбука

    Одним из наиболее неиспользуемых компонентов в VB, пишет     Антон Демин, является Microsoft SysInfo Control, который между тем, позволяет получить множество полезной для приложения информации - данных об ОС, событиях plug-n-play, системных событиях и т.д. В этом примере показывается вариант получения информации об источнике питания ноутбука.

    Select Case SysInfo1.ACStatus
    Case 0
        MsgBox "Not using AC power"
    Case 1
        MsgBox "Using AC power"
    Case 255
        MsgBox "Unknown AC power status"
    End Select

    Свойство BatteryLifePercent показывает процент зарядки батареи ноутбука:

    Dim PerCentLeft As String
    If SysInfo1.BatteryLifePercent <> 255 Then
        PerCentLeft = SysInfo1.BatteryLifePercent
        MsgBox PerCentLeft & "%"
    Else
        MsgBox "Battery charge status not known"
    End If

    Также, если ноутбук работает от батареи, то можно определить сколько времени можно работать еще без подзарядки:

    If SysInfo1.BatteryLifeTime <> &HFFFFFFFF Then
        MsgBox Format((TimeSerial(0, 0,  _
            SysInfo1.BatteryLifeTime)), "h:mm")
    Else
        MsgBox "Cannot determine remaining battery time"
    End If 



    наверх

    Книги

    VBA 2000 самоучитель
       В книге содержится краткий курс по использованию языка и системы VBA для Word и Excel 2000. Книга предназначена для начинающих программировать в среде Windows 95/9S с использованием в качестве базовых таких объектов Word и Excel, как документы, рабочие книги, листы и так далее.
       Материала книги достаточно для создания как простых макросов, помогающих автоматизировать рутинную повторяющуюся работу над документами и электронными таблицами, так и для разработки достаточно сложных приложений, обрабатывающих данные в диалоговых окнах, обеспечивающих пользователя самыми современными интерфейсными средствами.

    Кузьменко В.Г., "Бином" - 2000, 408 стр.
    Стоимость: 111,26 р.
    Формат книги: 70х100/16
    Переплет: мягкий

    VBA в Office 2000 учебный курс
       В этой книге описывается Visual Basic for Applications — подмножество популярнейшего языка программирования Visual Basic. Изучив ее материал, вы сможете создавать собственные интегрированные приложения, которые используют как объектные модели стандартных приложений MS Office, так и объектные модели ADO и DAO.
       Книга предназначена для всех пользователей MS Office 2000 —независимо от степени их владения программированием.

    Васильев А., Андреев А., "Питер" - 2000, 432 стр.
    Стоимость: 102,19 р.
    Формат книги: 70х100/16
    Переплет: нет данных

    Visual Basic 6 Desktor экзамен 70-176
       Книги серии "Экзамен — экстерном" представляют собой удобные, сжатые, хорo шо структурированные конспекты для подготовки к сдаче сертификационных экзаменов на звание Microsoft Certified Solution Developer. Книга "Visual Basic 6.0 Desktop. Экзамен— экстерном (экзамен 70-176)" содержит только действительно необходимый материал, типовые вопросы с ответами и пример экзамена. Возможно, некоторые подходы, применяемые автором, покажутся вам не совсем привычными — не удивляйтесь: это не учебник по Visual Basic; организация материала в этой книге призвана максимально облегчить задачу экзаменуемого. Учтите, что в ряде случаев экзаменационные вопросы выходят за рамки тем, отраженных в документации no Visual Basic, а иной раз правильные ответы на них даже входят в противоречие с "официальной" информацией.

    Макдоналд М., "Питер" - 2001, 608 стр.
    Стоимость: 130,83 р.
    Формат книги: 60х90/16
    Переплет: нет данных



    Остальные книги о VB из магазина Колибри можно найти     здесь.

    наверх

    Анонсы эхо-конференций СообЧа

    Игры

       
    Работа, работа, работа — документы, базы, отчеты… Ну все пора расслабиться: работа не волк — в лес не убежит! Представь себе, у нас есть группа, которая поможет тебе скрасить тяжелые рабочие будни — мы помогаем друг другу играть!!! Обсуждаем все вопросы, которые только могут появиться у любителя игр: к примеру, как поиграть в StarCraft по сети или как написать свой конфиг к QUAKE III, и обсудим еще многое-многое-многое… Новости, ссылки на демки, патчи, обзоры и прохождение игр — все это у нас есть! Есть вопросы — ответим, есть новенький секрет — расскажем! Ну, а если ты супер-геймер, сам бог тебе велел быть с нами!

    Подписаться

    Шифрование

       
    Встречались ли вы в своей жизни с компьютерными пиратами? Одной из сфер их деятельности является перехват любой информации во время ее пересылки в просторах сети и воровство данных прямо с вашего компьютера. Даже если хакеру и удастся завладеть секретными данными — каково же будет его разочарование, когда он не сможет их прочесть! Давайте же поговорим о шифровании данных с помощью PGP и других алгоритмов...

    Подписаться

    Все о Linux

       
    Конференция, посвященная ОС Linux, которую имеете или будете иметь вы, а не она вас. Чем больше будет задано вопросов, тем больше будет получено ответов. Количество как известно перерастает в качество... И что приятно, ответы не канут в лету, их всегда можно будет найти в архиве нашей группы... Добро пожаловать!

    Подписаться

    Всё, что связано с пакетом программ MS Office.

       
    Вы хотели создать красивый документ в Word, но не знаете как форматировать текст? Или же в Excel вам нужно создать сложнейший и, в тоже время, красивый отчет, содержащий тысячи цифр, и вам не хватает для этого возможностей программы? Вам нужно создать базу данных в Access и по ней составлять отчеты или вы не знаете как послать письмо из Oulook? Всё это - от основ форматирования текста до сложнейших работ в таких программах, как MS Access и MS Publisher, - вы можете узнать в нашей группе Soobcha_Office.

    Подписаться

    Мощь и красота С++

       
    С++ является одним из самых гибких языков программирования. Сочетание низкоуровневых и высокоуровневых средств делает его сильным инструментом в руках программиста. Данная группа призвана помочь программирующим на Си и просто их сблизить. Давайте будем решать проблемы вместе!!!

    Подписаться


    наверх

    Доска объявлений

       Ищу телеработу.

    • Переводы: английский, украинский, русский.
    • Cipper программист.
    • Assembler программист.
    • PIC разработчик
    • композитор
    • Прогрессивные стили
    • 3D анимация
    • GIF анимация
    Антон Лозовский.

    наверх

    Мои программы

    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 владельцу сайта.
    Текст сообщения:
    Ваше имя
    E-mail для ответа

    наверх

    Выпуск подготовили:

    		 Сурменок Павел и Шатрыкин Иван