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


VBNet VBMania
Голосование:



Рассылки Subscribe.Ru
VB.NET-World
Новости сайта IgorykSoft и советы по программированию
DanSoft о Visual Basic
Visual Basic.NET Уроки.

Ссылки:

  • Улицы VB
  • Использование VB
  • Азбука VB
  • Улицы VB
  • Кирпичики VB
  • CообЧа VB
  • VB по русски
  • MDesign
  • IgorykSoft
  • DanSoft
  • Господа!!! читайте MSDN!!!

    Несколько слов от автора:

       Новый выпуск!
    Читайте!


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




    Книги

    Переход на VB .NET. Стратегии, концепции, код (цена ~ 158 руб.)

    Эта книга была задумана как одна из первых книг о.NET, которая ознакомит читателя с основными идеями новой архитектуры и подготовит его к знакомству с более детальной литературой, например документацией Microsoft и ее толкованиями, которая неизбежно появится на рынке. Она поможет вам взглянуть на эту технологию с позиций ваших собственных рабочих планов и быстро освоить те концепции, которые покажутся необычными для большинства прогр...

    Автор(ы): Дан Эпплман, Издательство: Питер, 2002 г.


    Программирование на VB.NET. Учебный курс (цена ~ 119 руб.)

    Эта книга является вводным курсом по изучению языка программирования Visual Basic .NET. Даны основные принципы объектно-ориентированного программирования в контексте языка VB .NET, поскольку без хорошей подготовки в этой области невозможно в полной мере пользоваться всеми преимуществами VB .NET.
    Изложены азы всех аспектов языка, которыми должен владеть любой профессиональный разработчик VB .NET

    Автор(ы): Г. Корнелл, Дж. Моррисон, Издательство: Питер, 2002 г.


    VB.NET для разработчиков (цена ~ 125 руб.)

    Основная задача книги - быстро ознакомить разработчиков Visual Basic с изменениями в .NET Framework. Программисты, использующие Java, C++, Delphi или другие инструменты разработки приложений и интересующиеся Visual Basic или технологией .NET Framework, также найдут эту книгу полезной. Хотя книга посвящена Visual Basic.NET, ее основная цель - продемонстрировать взаимодействие Visual Basic и ...

    Автор(ы): Кит Франклин, Издательство: Вильямс, 2002 г.




    Остальные книги о 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, и получишь всю необходимую инфу. А вообще, ты лучше в следующий раз с вопросами не ко мне, а туда. Может, я и отвечу там.
    - А не проше тебе здесь ответить?
    - Э-э-э... Там я баллы зарабатываю...
    - А это еще зачем?
    - Ладно, мотай. Дома почитаешь, все о них узнаешь. У меня тут халтурка... Давай, пока.
    - Пока. А как ты экспертом там зарегился?
    - Иди, иди! Инфу читай...

    наверх


    Citycat by Email

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

    наверх


    Новости сайта VBNet

    Дата: 25.07.2003 10:41 | Раздел: Примеры кода | Автор: Vir

    3DХвост - Вращающийся трёхмерный хвост. Реализовано на собственном движке.

    Дата: 25.07.2003 10:41 | Раздел: Примеры кода | Автор: Vir

    ScreenSaver - Очень красивый ScreenSaver. Реализован на собственном 3D-движке.

    Дата: 24.07.2003 10:41 | Раздел: Примеры кода | Автор: Vir

    Кубик - Вращающийся 3D-куб.

    Дата: 24.07.2003 10:41 | Раздел: Примеры кода | Автор: Vir

    Cashe - Выводит в TreeView список файлов, хранящихся в кэше Internet Explorer. Очень удобная программа.

    Дата: 23.07.2003 11:32 | Раздел: Примеры кода | Автор: Половый Александр

    GetSysInfo - Пример сбора информации о системе. В примере использованы разнообразные API-фунции, предоставляющие информацию о параметрах Windows. Например: работает ли сеть или звук, версия Windows, cистемные папки, оперативная память, жесткий диск и прочее.

    Дата: 23.07.2003 10:41 | Раздел: Полезные программы | Автор: Vir

    WinampKey - Программа облегчает работу с Winamp при помощи сочетания клавиш

    Дата: 22.07.2003 12:10 | Раздел: Примеры кода | Автор: CyRax

    BP API ToolBar 1.0 - Тулбар на API. Это пример является частью более крупного проекта "BP API RichEdit", который выйдет в скором времени.

    Дата: 22.07.2003 06:51 | Раздел: Полезные программы | Автор: Ловиков Михаил и Немиро Алексей

    MicroGerakL - Обновленная версия редактора курсоров и иконок, Возможности сохранения в форматах *.ico, *.cur, *. ico. Извлечение иконок из *.exe,*.ocx,*.icl,*.dll,*.ani. Исправлен глюк c реестром в History и глюк заливки. Добавлен тулбар, новая объединенная палитра, добавлен просмотр анимационных курсоров, создание анимационных курсоров, изменение иконок у папок и дисков. В данный момент делается: Печать иконки, Ассоциация с иконками, Изменение иконок десктопа и других.

    Дата: 21.07.2003 09:28 | Раздел: ActiveX контролы | Автор: Антон Лозовский

    Tray Icon Control - Элемент управления значками в трэе: установка знака, удаление, работа с всплывающим меню, анимация. В комплекте - trayicon.ocx, перевод первоисточника из MSDN где описывается на уровне АПИ технология работы с трэем, ну и короткий пример на VB как работать с данным элементом управления.

    Дата: 20.07.2003 11:04 | Раздел: Примеры кода | Автор: WeRT

    Диапазон Дат - Смысл в том, что USER выбирает начальную и конечную даты из DTPikera, а программа выдает помесячно весь диапазон.



    Последние 20 тем форума на VBNet.Ru:

    01:45 / 27 июл.  Про дистрибутив VB.net | Хитов: 1 |  Ответов: 0
    20:48 / 26 июл.  Подстановка данных в веб-форму | Хитов: 4 |  Ответов: 0
    18:46 / 26 июл.  Установится ли VB.NET на WINNT4Server? и какой ... | Хитов: 10 |  Ответов: 0
    08:44 / 26 июл.  Криптография | Хитов: 24 |  Ответов: 4
    05:17 / 26 июл.  html в браузере | Хитов: 20 |  Ответов: 2
    20:53 / 25 июл.  Отправка письма | Хитов: 25 |  Ответов: 3
    15:37 / 25 июл.  Учёт Инета | Хитов: 28 |  Ответов: 1
    15:35 / 25 июл.  Цикл недаёт покоя!! | Хитов: 28 |  Ответов: 1
    15:31 / 25 июл.  Авторы ShareWare, поделитесь опытом! | Хитов: 32 |  Ответов: 2
    14:14 / 25 июл.  dhtml | Хитов: 12 |  Ответов: 0
    14:14 / 25 июл.  dhtml | Хитов: 5 |  Ответов: 0
    13:36 / 25 июл.  Замена Package & Deployment Wizard | Хитов: 23 |  Ответов: 2
    12:25 / 25 июл.  MouseMove в GroupBox [.net] | Хитов: 7 |  Ответов: 1
    10:24 / 25 июл.  Код для локалки... | Хитов: 35 |  Ответов: 2
    09:15 / 25 июл.  Срочно, нид хелп | Хитов: 40 |  Ответов: 3
    09:06 / 25 июл.  Принудительная остановка проги | Хитов: 34 |  Ответов: 3
    19:04 / 24 июл.  Форма(Resize) | Хитов: 36 |  Ответов: 2
    18:47 / 24 июл.  Определение текущего файла | Хитов: 44 |  Ответов: 6
    18:31 / 24 июл.  ListView - возврат выделенной строки | Хитов: 29 |  Ответов: 2
    17:41 / 24 июл.  RichTextBox | Хитов: 50 |  Ответов: 5


    Последние поступления в Библиотеку кодов:

    Уничтожение файла (2)
    DDE (10)
    Открытие рекордсета (11)
    Получение путей к системным папкам (8)
    Удаление HTML-тэгов (86)
    Использование WMI (66)


    Новости от VBNet-чиков!:



    наверх


    Новости сайта VBMania



    наверх


    Новости сайта Азбука VB



    наверх


    Новости сайта MSDN



    наверх


    Новости сайта GotdotNet



    Новые статьи:



    наверх


    Новости сайта dotSite

    Новые статьи:

    • Понимание DIME и WS-Attachments

    • Аргумент против SOAP кодирования


    Новые примеры:



    наверх


    Один момент из жизни форума: Конвертировать C# в VB .NET

    Вопрос:
    Автор вопроса: Lord

        Как? В общем мне надо конвертировать только два небольших C# классов в VB .NET... Может утилиты есть какие-то?


    Ответы:

    Атор: vvs
       А смысл? .NET - мультиязыковая среда.

    Атор: Lord
    И что дает мне эта среда? Я же все равно не могу в одной сборке писать на нескольких языках...

    Атор: bushmen
       Я вижу, тебе уже на gotdotnet ссылочку подкинули...
    www.aspalliance.com/aldotnet/examples/translate.aspx



    наверх


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

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

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

    наверх


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

    BalloonMessage for MS Agent

       BalloonMessage for Microsoft Agent реализует диалог программы с пользователем, используя при этом технологию Microsoft Agent. OCX реализует три типа диалоговых окон: InputBox, MsgBox и MsgLabels.

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

    наверх

    Вопрос/Ответ

    Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы.


    Нет вопросов.


    Ответы:


    Вопрос:

       Написал я, скажем, программу, и хочу что-нибудь получить от того, кто ее использует.
    Как это устроить? Кто-нибудь может поделится знаниями электронной коммерции?

    Ответ:

    Автор ответа: Данила

        Передаёшь ограниченную версию (максимально ограниченную), требуешь оплату, получаешь оплату, отдаёшь полную версию.
        На всякий случай (чтоб уберечь тебя от ошибок). Под ограничением понимается не удаление каких-то функций, а лишь снижение их работоспособности. Т.е. прога должна предоставлять доступ ко всем своим возможностям (иначе что клиент будет оценивать), но при их использовании очень быстро наступали границы. Т.е., если база, то на 10 записей (хотя клиенту надо 10000), если браузер, то на 10 ссылок (хотя надо бесконечно) и т.д. Вариант с временным ограничением (когда после определённого промежутка времени прога перестаёт загружаться), как правило, не прокатывает, т.к. более менее грамотный программист обойдёт эту защиту в считанные минуты (подтверждено практикой).


    Вопрос:

       Как можно создать доступ к БД, которой пользуются 2 проги одновременно, при этом коннект к ним должен быть открытым у обоих?

    Ответ:

    Автор ответа: Данила

    Что за БД? Если MA, то просто открываешь базу без всяких ограничений, она по умолчанию общедоступна.


    Вопрос:

       Есть программа, в ней в качстве фона формы используются картинки в формате JPG, которые загружаються из указаной папки, при этом нужно эту папочку с картинками поставлять с программой, можно ли какм то образом эти картинки вшить в екзешник, чтобы избавиться от этого неудобства?

    Ответ:

    Автор ответа: Данила

    Не рекомендую, т.к. ты получишь больший объём, чем при раздельной поставке. Да и картинки проще заменить в папке, чем в проге. И пользователю веселее, получит возможность сменить скин.


    Вопрос:

       Пишу прогу которая работает с базой данных .mdb, и вот столкнулся с одной проблемой: прога должна работать с файлами которые выбирает пользователь... в VB проблем нет, но эргономичней было бы сделать на VBA прямо в Access, а там ни как не могу найти аналоги DriveList, DirList и FileList. Может плохо ищу? Помогите!

    Ответ:

    Автор ответа: Смыслов Кирилл

    Microsoft Scripting Runtime


    Вопрос:

       Проблема с SQL-запросом. Формирую запрос
    SELECT SUM(сумма) FROM...
    , проверяю есть ли чего
    If ...Expr1000 NOT IS NULL then
    и время от времени при явном присутствии Expr1000, прога заявляет, что там NULL. Может кто-то встречался с таким глюком?

    Ответ:

    Автор ответа: Смыслов Кирилл

    Наверняка это не глюк, а ты неверно строишь запрос. Пришли структуру таблицы и что тебе надо получить. Посмотрю.



    Ответ:

    Автор ответа: Sergey

    А в чем собственно проблема ? Если SUM (Field1) равна NULL, то условие is NULL сработает. Хотя конечно было бы желательно взглянуть на весь код целиком.



    Ответ:

    Автор ответа: SysOp

        Это не глюк, а Ваша невнимательность.
        Во-первых, рекомендую во всех случаях всё делать/описывать явно, а не надеяться на действия/свойства/результаты по-умолчанию. Вот Ваш запрос

    SELECT SUM(сумма) FROM...
    If ...Expr1000 NOT IS NULL then

        Я бы написал так

    SELECT SUM(сумма) AS my_sum FROM...
    If ...my_sum NOT IS NULL then

        Во-вторых, результатом запроса SELECT SUM(сумма) FROM... всегда будет одна строка с одним полем Expr1000.
        В-третьих, вспомним, что поле может иметь специальное значение - Null. Специальным оно является в том смысле, что не означает "пустая строка" или 0 (ноль). Null сообщает, что в поле вообще нет данных. Никаких.

        Вывод: "время от времени при явном присутствии Expr1000" Вы отбираете записи, у которых в поле "сумма" - Null. У всех! И результат суммирования тоже будет Null.


    Вопрос:

       Все видели как изменяется, например, размер рисунка в Word'е. А как сделать подобный контрол (или группу)? Мне удалось сделать только самое простое - увеличивать или уменьшать число кликами по стрелкам. Но еще хочется увеличивать это число с клавиатуры (клавишами управления курсором) и быстрое увеличение (уменьшение) числа - держишь кнопку, оно ияменяется, отпустил - остановилось...

    Ответ:

    Автор ответа: SysOp

    Напомню, что в VB6 есть стандартный контрол UpDown (как две кнопочки со стрелками вверх и вниз). Чтобы его подключть нужно в меню "Project" ("Проект") нажать "Components" ("Компоненты") и отметить Microsoft Windows Common Controls-2.

    Создаем новый проект.
    Ставим значение формы (Form1) KeyPreview=True.
    Добавляем на форму конрол UpDown1.
    Ставим его значения Min=0, Max=100, Value=0 (например).
    Добавляем текстовое поле Text1. Ставим его значение Text="0".

    Пишем следующий код:

    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
         If Me.ActiveControl.Name = "Text1" Then
             With UpDown1
                 If KeyCode = vbKeyDown Then
                     .Value = IIf(.Value - 1 < .Min, .Min, .Value - 1)
                 ElseIf KeyCode = vbKeyUp Then
                     .Value = IIf(.Value + 1 > .Max, .Max, .Value + 1)
                 End If
             End If
         End If
    End Sub

    Private Sub UpDown1_Change()
         Text1.Text = UpDown1.Value
    End Sub

    Если контрол Text1 - в массиве (т.е. Text1.Index - не Null, а , например, =0), то строку

    If Me.ActiveControl.Name = "Text1" Then

    нужно переписать:

    If Me.ActiveControl.Name = "Text1" AND Me.ActiveControl.Index = 0 Then


    Вопрос:

       Как (в VB6) передать в массив каталог с файлами, т. е. что бы имена файлов стали индексированными переменными массива.

    Ответ:

    Автор ответа: Смыслов Кирилл

    Использовать Microdoft Scripting Runtime. Пробежаться по списку файлов в папке и заполнить динамический массив.


    Вопрос:

       При установке MSDN ия Visual Studio 6.0 в конце установки, после копирования файлов выдается сообщение об ошибке:
    "CloseCollection g_ccolCollection.Open(collectionname) dwError=7"
    Что делать?

    Ответ:

    Автор ответа: SysOp

        У меня был похожий глюк. Точно не помню, такая ли ошибка выдавалась или нет, но MSDN не устанавливалась (точнее, все файлы копировались на винчестер, но установка завершалась с ошибкой и MSDN не вызывалась из VB). Экспериментално установил, что:

    - если на голый HDD установить систему (я пользуюсь Win98SE), а потом сразу установить Visual Studio 6 и MSDN, то все нормально.

    - если после установки системы установить офис (я пользуюсь Office2000 SR-1), А потом ставить Visual Studio 6 и MSDN, то Visual Studio - ставится, а MSDN - нет.

        В чем причина - выяснять не стал.


    Вопрос:

       Можно ли узнать hwnd и (hdc) у ComboBox, ListBox, и других кнопок, используя АПИшные функции?

    Ответ:

    Автор ответа: Смыслов Кирилл

    Зачем? Проходишь по коллекции контролов на форме и получаешь нужные данные.



    Ответ:

    Автор ответа: Sergey

    Так Microsoft позаботилась о том, чтобы у визуальных компонент ComboBox, ListBox и т.д. было свойство hWnd - дескриптор окна. А API-функция GetDC возвращает дескриптор графического контекста:

    Dim hDC as Long
    hDC = GetDC(ComboBox1.hWnd)



    Ответ:

    Автор ответа: Артем Кривокрисенко

    hdc - легко!

    lngHDC=GetDC(lstMain.hwnd)

    Ну а узнать HWND - это потруднее. Нужно использовать FindWindow или подобные ей. Только зачем оно тебе, если HWND есть у каждого контрола?


    Вопрос:

           В мой "Блокнот" встроен RichTextBox. Пишу в нём, например: "Маша мыла раму." Сохраняю и открываю. Вот что он мне покаяывает:

    {\rtf1\ansi\ansicpg1251\deff0\deftab720{\fonttbl{\f0\fnil MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset204{\*\fname MS Sans Serif;}MS Shell Dlg;}}{\colortbl\red0\green0\blue0;}
    \deflang1049\pard\plain\f2\fs17 \'cc\'e0\'f8\'e0 \'ec\'fb\'eb\'e0 \'f0\'e0\'ec\'f3. \par }

    Подскажите, пожалуйста, как мне от этого избавиться и, если в нём такое возможно, поменять цвет шрифта? TextBox мне не подходит, т.к. мой отчёт в него не влазит.

    Ответ:

    Автор ответа: Vladimir [PRC]

    У тебя текст сохраняется в виде RTF с сохранением разметки, цветов и размеров шрифтов, а загружается в виде обычного текстового файла. Используй загрузку/сохранение в одном виде:

    RichTextBox1.SaveFile "имя файла",0 или 1
    RichTextBox1.LoadFile "имя файла",0 или 1
    0 - RTF
    1 - только текст без разметки

    Если необходимо сохранять разметку, то используй RTF.
    Изменить цвет:
    1. Выделяешь текст (можно программно)
    2. RichTextBox1.SelColor = цвет
    Также можно менять шрифт, размер, выделять курсивом и толщиной



    Ответ:

    Автор ответа: malex

    Тебе надо текст из RichTextBox'a сохранять вот так:

    Dim FN As Integer
    FN = FreeFile
    Dim FName As String
    FName = "C:\Text.txt"
    Open FName For Output As #FN
    Print #FN, RichTextBox1.Text
    Close #FN

    У меня работает...



    Ответ:

    Автор ответа: Sergey

    Тебе нужно указать явно тип создаваемого файла:

    RichTextBox1.SaveFile sMyPath,rtfText

    Правда, при этом пропадает все форматирование.



    Ответ:

    Автор ответа: Артем Кривокрисенко

    А как ты сохраняешь? Если стандартным методом РичТекстБокса, то сливай бензин и глуши мотор. Он сохраняет все в формате *.rtf. А чтоб сохранить Text, используй следующий код:

    Public Function LoadTextFile(Path As String) As String
       Dim strFile As String
           
       Open Path For Binary As #1
       strFile = Space$(LOF(1))
       Get 1, , strFile
       Close #1
       LoadTextFile = strFile
    End Function

    Public Function SaveTextFile(Path As String, Text As String)
         Open Path For Output As #1
         Print #1, Text
         Close #1
    End Function

        Сохраняешь так:

    SaveTextFile "C:\1.txt", rtbMain.Text

        И усе.

        Ну я поменять цвет шрифта - проще простого!

    With rtbMain
         .selstart=0
         .sellength= len(.text)
         .selcolor=vbblue
    end with

        И весь текст станет синим. Ну а выделяя не весь текст, а его часть, можно сделать текст разноцветным.
        Также можно поменять "жирность" текста (SelBold), курсивность, подчеркнутость, размер, шрифт текста (SelItalic, SelUnderline, SelSize, SelFont соответственно) (точно названия свойств не помню, так что мог ошибиться).


    Вопрос:

       Как програмно подключится к сетевому ресурсу в локальной сети, вводя програмно имя пользователя и пароль, и получить ответ о подключении или неподключении.

    Ответ:

    Автор ответа: Sergey Morenets

    Если не хочешь использовать кучу API ф-ций, то самое простое так:

    Shell "net use h: \\SERVER\SHARE password"

    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    if not fs is Nothing Then
        if fs.DriveExists("h") Then
           'OK
        Else
           'Ошибка
        End If
    End If
    set fs = Nothing


    Вопрос:

       Нужно на принтере вывести простой текст, но так, чтобы он был перевернут кверх ногами.

    Ответ:

    Автор ответа: Vir

    Первый способ: Перевернуть лист.
    Другой способ. Немножко муторный, но какой есть. На форме имеешь скрытый Picture1 со свойством AutoRedraw = True, ScaleMode=1,BorderStyle=0. Код приблизительно такой:
      
    str="Привет!!!"
    picture1.width=TextWidth(str)
    picture1.height=TextHeight(str)
      
    for i=0 to picture1.scaleHeight
         for j=0 to picture1.scalewidth
             col=picture1.point(j,i)
             printer.pset (j,TextHeight(str)-i),col
         next
    next
    printer.enddoc
      
        Или можно API, которая переворачивает текст на любой угол, зная hDC (printer.hDC), код вроде был в рассылке или посмотри на сайте VBNET.Ru.


    Вопрос:

           Как можно запретить гриду изменять подписи к полям?
        На форме контрол DataGrid связанный с ADODC и TreeView. Есть элемент TabStrip с кучей вкладок. Когда кликаешь на вкладке TabStrip, ADODC принимает новый рекордсет из другой таблицы DataGrid, перестраивается на другую таблицу. Фрагменты кода инициализации Грида.

    'здесь привязываю грид к новому источнику
    Adodc1.RecordSource = strsql
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
    'а здесь выставляю подписи к столбцам из другой таблицы
    rst.Source = "select * from t_filds where table_name='" & curTable & "'"
    rst.Open
    Do Until rst.EOF
             DataGrid1.Columns(rst.Fields(1).Value).Caption = rst.Fields(2).Value
              rst.MoveNext
    Loop

        На гриде после этого все подписи по-человечески. Проблема в следующем: как только я обновляю источник данных (пользователь выбрал другой "нод" в TreeView и надо отразить данные из той же таблицы, но другой фильтр), у меня слетают "человеческие" подписи и берутся из имён столбцов в базе данных. Как можно запретить гриду изменять подписи к полям? Ведь если в режиме дизайна их установить, то при изменении источника они не меняются!

    Ответ:

    Автор ответа: Kuznetsoft

    Если в базе есть таблица "Table1" с полями "Field1" и "Field2", можно получить набор записей с заданными именами полей:

           "SELECT [Field1] AS Name, [Field2] AS Age FROM Table1"

    При выполнении такого запроса возвращается набор записей с названиями полей "Name" и "Age". Если указать гриду в качестве источника данных такой набор, он возмет названия для столбцов соответствующии: "Name" и "Age".




    Можете заполнить эту форму, либо отослать вопрос СЮДА

    Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта.
    Текст сообщения:
    Ваше имя
    E-mail для ответа

    наверх


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

    Сурменок Павел