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