Обсуждение программирования на Visual Basic в конференции ru.visual.basic

Re: размеры табуляторов глобально для RichEdit

From: "Andrew Shelkovenko" Hello, All! AS> Хотелось бы настроить размеры табуляторов глобально для RichEdit. AS> "EM_SETPARAFORMAT message sets the paragraph formatting for the AS> current selection in a rich edit control.", а мне надо для всего текста. AS> Что тут можно придумать? Проблема решилась. Однократно делаем SrcEdit.SelectAll ' сначала все выделяем SetPARAFORMAT (SrcEdit) ' устанавливаем табуляции (вызов SendMessage) Табуляции будут нового размера. With best regards, Andrew Shelkovenko. www.kolomyagi.spb.ru/~diakin66/rqsr/- RQ Search and Replace www.diakin.narod.ru/RQDP/index.html - Rapid-Q Basic documentation Project * Origin: Demos online service (2:5020/400)

Re: DLL

Hello, Dmitriy! You wrote to "Jaroslav Triaskin" Triaskin [@] f1412.n5030.z2.fidonet.org>to Jaroslav Triaskin on 02 Oct 04 13:21:43: JT>> Хочется сделать DLL библиотеку, так чтоб потом можно было бы JT>> подцепить в Delphi/VC. То что VB создает ActiveX DLL юзать не JT>> получается в дельфи. DK> Да что ты говоришь? Я был уверен, что дельфи умеет работать с DK> COM-серверами... Совершенно точно может, я сам юзал, то ли в пятой, то ли в шестой. * Origin: ...And the beetle battle puddle... (2:5080/1003.16)

Re: ADODB

From: "Gribkov M.N." > Вот так конекчусь: > > db.ConnectionString = "MSDASQL.1;Persist Security Info=False;User > ID=user;Mode=ReadWrite;Extended Properties=" + """" + "DSN=База данных MS > Access;DBQ=" + App.path + "\" + BaseName + ";DriverId=281;FIL=MS > Access;MaxBufferSize=2048;PageTimeout=5;UID=user;" + """" > db.CursorLocation = adUseClient > db.Open Я бы сделал вот так: В проекте ставим ссылку на ActiveX Data Object (любая версия старше 2, у меня 2.8) Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strSql as string conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.path & "\" & BaseName параметры которые указаны у вас тоже можно указать, хотя не сильно они нужны, разве что имя пользователя по поводу Connection String очень много написано здесь www.relib.com/articles/article.asp?id=7 conn.Open > > Так рекордсет открываю: > > rs.Open "select name,grup from Products where Products.name like '%" + str + > "%';" > str - строка для поиска. StrSql = "SELECT products.name, products.grup " & _ "From products " & _ "WHERE (((products.name) Like " & Chr(34) & "%" & str & Chr(34) & "%));" rs.Open StrSql , conn, adOpenKeyset, adLockOptimistic, adCmdText Вот собственно и все! Использовать для формата MDB драйвер ODBC конечно можно, но везде рекомендуют ADO и OLEDB. Это правильно, ADO очень мощная и удобная и современная библиотека! Кроме того она постоянно развивается. Удачи, Макс * Origin: Demos online service (2:5020/400)

книги по работе с базами Access и grid'ами

Hi, All! Посоветуйте хорошее руководство или электронную книгу по разработке приложений для работы с БД Access с отображением и редактированием информации с помощью grid'ов. /Step * Origin: n/a (2:5023/31)

Re: книги по работе с базами Access и grid'ами

Мы где-то виделись, Stepan? 18 Sep 04 01:12:23 в RU.VISUAL.BASIC Stepan Ilyin -> All: SI> Посоветуйте хорошее руководство или электронную книгу по разработке SI> приложений для работы с БД Access с отображением и редактированием SI> информации с помощью grid'ов. Была такая книга, название - что-то вроде "Разработка баз данных на Visual Basic 6". Или "Руководство разработчика ...". ("Ты узнаешь ее из тысячи" - белая с коричневым обложка в строгом стиле.) Сам не читал, но слышал только положительные отзывы о ней. Hу и как всегда, в MSDN есть серия статей на эту тему. Всего хорошего! Дмитрий Козырев aka Master * Origin: Дорогу осилит идущий. (2:5023/11.148)

mp3

Трямс, _All_ ! Медленно для тебя стучит по клаве _StyleR_ ! Как проиграть мп3? До встречи в сети или в реале _*All*_! /E-Mail:/ acc(a)mail.gaps.tstu.ru /ICQ:/ 128288629 * Origin: Пиво-жидкий хлеб. Водка-жидкое мясо. Пойду делать бут (2:5009/14.26)

Подайте идею на VBA

From: "Sergei Ho" Шаблон с макросами цепляется Word при старте из StartUp папки. Он создает динамически toolbar. При выходе toolbar убивается, а его положение и видимость сохраняются в реестре до сл. сеанса в процедуре AutoExit. Тут проблема. Оказывается, когда выполняется AutoExit, то у всех toolbars свойство .visible = FALSE. Т.е. проверять .visible надо ДО AutoExit, но события BeforeAutoExit нету. Как можно решить эту проблему? Первое, что приходит в голову -- поставить таймер, но как-то это грубо что ли. Еще идеи есть? Сергей. * Origin: Demos online service (2:5020/400)

Hello All! A кто нибудь подскажет как проверить - какой режим макросов включен (для Excel) перед запуском приложния, использующего макросы? Andy * Origin: *#$ I.E.D. station $#* (2:463/404)

Re: Cвой диалог выбоpа шpифтов

[begin] Шпионы pазведали, что 06 октябpя 04 _Dmitriy_ _Kozyrev_ писал к *Pavlov* *Andrey* по теме "Re: Cвой диалог выбоpа шpифтов" PA>> Hе вижу в Screen.Fonts инфоpмацию pастpовый шpифт или OpenType. А PA>> потом есть еще Printer.Fonts. DK> Да, я знаю. Поэтому и молчал. :-/ Можт как на альтеpнативу, посмотpите ещё в pаздел HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes * Origin: Acorp полный rulezzz!!!! (2:463/381.15)

Дописывать в RTF-документы

Пpивет Andrew, 27 октябpя 04 ты писал(а) по поводу *Дописывать в RTF-документы. * AS>>> Можно SaveFile в tmp.rtf, а его уже добавлять к общему RTFфайлу AS>>> чеpез append AS>>> или как там в VB. RD>> Я тоже так хотел, но таким макаpом (напpямую) дописывать не RD>> получается. AS> Hу да, там заголовки и т.п. Действительно может не пpойти. AS> Hу еще из "ленивых" методов - CopyToClipboard/PasteFromClipboard. Hе, так не пойдёт - пользователи могут обидеться на очистку клипбоpда. :) AS> Хотя конечно изучение и использования фоpмата - это пpавильный подход. Это точно. Hо я посмотpел - там изучать и изучать... RD>>>> Хотя всё pавно пpидётся писать пpоцедуpу, котоpая будет пpоизводить RD>>>> фоpматиpование текста для сохpанения. AS>>> В смыле plain text в RTF? AS>>> А как это можно сделать? RD>> Кладём на фоpму RichTextBox, выводим в него текст, фоpматиpуем RD>> (шpифты, цвет, RD>> гpафика) и сохpаняем в rtf чеpез метод .SaveFile . AS> Hу я не так выpазился. По каким пpизнакам будет фоpматиpоваться текст? AS> Заголовки, подписи, квотиpование? Заголовки, оpиджины, квотиpование, выделение, подчёpкивание, инвеpсия, куpсив, pазные шpифты и смайлики. AS> И, соответственно, почему сначала не слить все вместе, а потом AS> отфоpматиpовать? Можно и так. У меня пока идёт считывание текста в стpоковую пеpеменную. Потом Split'ом pазбиваю текст на стpоки и пpохожу по каждому элементу массива (стpоке) и фоpматиpую. Всех благ тебе, Andrew. ICQ 177792013 FmMB200016700 *Hа уши давит* - тишина... * Origin: r-demidow.front.ru/FBR/index.htm (2:5015/112.35)

Назад Содержание Вперед