Современные решения

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

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

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


Re[2]: Пароль на БД

>>> DAO, ADO, RDO? В смысле интересует больше строка в программе, где нужно
S>> указать Пароль в ADO указывается в ConnectionString,
AP> Как ADO указать я нашел, теперь интересует DAO.
Там все то же. Просто св-во располагается в другом объкте.
S>> но ты бы лучше сказал, какая база?
AP> MS Access
Кстати, а в случае DAO эта инфа второстепенна.

* Origin: WinPoint 95 (2:5030/1450.6)


Более простой способ создания консольных приложений

From: "A. Skrobov"

Hi All,

Почему-то укрепилось поверье, что для того, чтобы работать с консолью из-под
VB, нужно много всякой возни с ReadConsole/WriteConsole и другими
разношёрстными API. Hа самом деле всё проще: нужно просто открыть "con:" как
файл и читать из него/писать в него. Из IDE такое, ясное дело, не заработает;
нужно скомпилировать файл и выставить ему подсистему в Win32 Console (байт по
адресу 114h, иногда 124h, изменить с 02 на 03). Получится полноценное
консольное приложение вовсе безо всякого API! Есть лишь два недостатка этого
метода: 1) невозможно одновременно держать con: открытым для чтения и записи,
поэтому для перехода от чтения к записи или наоборот нужно закрывать и
переоткрывать файл; 2) невозможна переадресация ввода/вывода, он всегда
осуществляется на/с консоль(и).

* Origin: FidoNet Online (2:5020/175.2)


HEX in VB

RY>> function AddHexValue(hex1 as string, hex2 as string) as string
RY>> if left$(hex1,2)<>"&H" then hex1 = "&H" + hex1
RY>> if left$(hex1,1)<>"&" then hex1 = "&" + hex1
RY>> if left$(hex2,2)<>"&H" then hex2 = "&H" + hex2
RY>> if left$(hex2,1)<>"&" then hex2 = "&" + hex2
RY>> dim h1 as long, h2 as long, hv as long
RY>> h1 = clng(h1)
RY>> h2 = clng(h2)
RY>> hv = h1 + h2
RY>> addhexvalue = hex$(h2)
RY>> end sub
RY>> Вот тебе и функция. ;)
AA> Hу тогда вот тебе ишшо и мой вариант
Ты мне предлагаешь соревнование? :)

* Origin: 1134 (2:5045/44.13)


HEX in VB

AA> Enum OutTypes
AA> tpDecimal = 1
AA> tpHex
AA> tpOctal
AA> End Enum

debug.print tpDecimal & tpHex & tpOctal

123

AA> Err.Raise 5, , "Invalid OutType value specified!" & vbCr &
AA> "Valid values are 0 to 2"
Hю! ;)


* Origin: 1134 (2:5045/44.13)


Re: HEX in VB

From: Alexander Asyabrik

Привет, Roman.

Вы, было дело, писали 9 мая 2004 г., 8:36:


RY> Ты мне предлагаешь соревнование? :)

Делать мне боле неча :-)

It's just an alternative!


--
С уважением, Alexander
4:18:38 PM



* Origin: Talk.Mail.Ru (2:5020/400)


Re: HEX in VB

From: Alexander Asyabrik

Привет, Roman.

Вы, было дело, писали 9 мая 2004 г., 8:41:

RY> AA> Enum OutTypes
RY> AA> tpDecimal = 1
RY> AA> tpHex
RY> AA> tpOctal
RY> AA> End Enum

RY> AA> Err.Raise 5, , "Invalid OutType value specified!" & vbCr &
RY> AA> "Valid values are 0 to 2"
RY> Hю! ;)

Hе думаешь же ты, что это код из какого-нибудь серьезного проекта?
Писалось сходу, на коленке и предполагался сначала Choose(), потому и
приписал 1, а с Select Case, конечно, надо

"Valid values are 1 to 3"


Hевелика ошибка imho. Для того он и Enum, чтобы писать _правильные_
значения параметров. А вообще функция - полное дерьмо и вряд ли
кому-нибудь и когда-нибудь понадобиться. Так, для демонстрации
нескольких удобных вещей: Enum, Optional аргумент, использование
Variant для автоматического преобразования типов, Err.Raise.
Подозреваю, что для того, кто еще не знает как с Hex работать, это
тоже будет не лишним...


--
С уважением, Alexander
4:20:28 PM



* Origin: Talk.Mail.Ru (2:5020/400)


IRDA - VB6

From: "Max Lesnik"

Всем привет!

А вот пробовал ли кто управлять IRDA контроллером из VB6? Может, есть
ActiveX какие?

--
С наилучшими пожеланиями, Max Lesnik.



* Origin: Talk.Mail.Ru (2:5020/400)


Visual Basic для Office 2000 специалист нужен

Hello Dima.

03 May 04 00:36, you wrote to me:

EP>> пpобpазование doc в pdf должно быть pеализвано с помощью
EP>> свободной пpогpаммы ghostscript (http://www.ghostscript.com/), HЕ
EP>> акpобатовских изделий.
DG> Твой выбоp.
DG> 1) Получаешь имя дока
DG> 2) пpеобpазователь.exe <*.doc> <*.pdf>
DG> 3) Аттачиш к письму, жмёш ок. -- Send

Есть проблема: GhostScript на входе ждёт не doc, а PostScript, который легко можно получить, если из ворда делать печать в файл для любого принтера PostScript. Есть ли способы управлять этим процессом из VBA?


Eugene

* Origin: Oasis Station (2:5020/40)


Re: Пароль на БД

From: "Slaventij"

> DAO, ADO, RDO? В смысле интересует больше строка в программе, где нужно
указать

Пароль в ADO указывается в ConnectionString, но ты бы лучше сказал, какая
база?


* Origin: MT-Bank (2:5020/400)


Frame

H!, _[All]_!
Как на фоpме сделать Frame1.BackColor пpозpачным? Т.е. чтобы можно было увидеть pисунок, котоpый pасположен на фоpме. Может какой контpол/пpимеp имеется? Заpанее спасибо. Хотелось бы, чтобы это pаботало на Win98.

g'bye and g'luck, _[All]_!
* Origin: S2k - www.revengecrew.org (2:5054/29.33)



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