Хотелось бы настроить размеры" />
Современные решения

для защиты Windows приложений

и восстановления исходного кода

Обсуждение программирования на 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)



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