Visual Basic 6.0 - размеры табуляторов глобально для RichEdit

Hello, All!





текста.



Проблема решилась.
Однократно делаем
SrcEdit.SelectAll ' сначала все выделяем
SetPARAFORMAT (SrcEdit) ' устанавливаем табуляции (вызов SendMessage)

Табуляции будут нового размера.

With best regards, Andrew Shelkovenko.
http://www.kolomyagi.spb.ru/~diakin66/rqsr/- RQ Search and Replace
http://www.diakin.narod.ru/RQDP/index.html - Rapid-Q Basic documentation
Project


* Origin: Demos online service (2:5020/400)


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." <gribkov [@] ramon.vsi.ru>

> Вот так конекчусь:

>

> 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 очень много написано здесь
http://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" <calendarman [@] mtu-net.ru>

Шаблон с макросами цепляется 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: http://www.r-demidow.front.ru/FBR/index.htm (2:5015/112.35)

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