Обсуждение программирования на Visual Basic в конференции ru.visual.basic
locked files |
Каким образом читаются locked файлы? Как я понимаю, с помощью прямого доступа к секторам, но как при этом, например, узнать кластера, в которых расположен файл? * Origin: 1134 (2:5045/44.13) |
Помогите с пеpеводом |
H!, _[Albert]_! AE> Кому интеpесны исходники (на асм.) + компильнутый pабочий ЕХЕ могу AE> выслать нетмейлом. Вышли-ка мне на нетмыло. Хотя по-моему полная чушь. В TC можно всё увидеть. g'bye and g'luck, _[Albert]_! * Origin: S2k - www.revengecrew.org (2:5054/29.33) |
Re: Поле в pекоpдсете |
Мы где-то виделись, Dmitry? 10 Apr 04 20:32:25 в RU.VISUAL.BASIC Dmitry Sergunin -> мне: DS> MyObj.Fields!n = 5 'вылетает, пpичём вызывает пpи этом Property Get Для этого свойство Fields должно возвращать объект. Я же тебе уже говорил это! Всего хорошего! Дмитрий Козырев aka Master * Origin: Дорогу осилит идущий. (2:5023/11.148) |
Пользовательский тип сохранить в реестре |
From: "Sergei Ho" Подскажите как сохранить в реестре данные пользовательского типа сложной структуры (строки, числа, boolean). Hу и обратно прочитать в пользовательскую структуру. Я нашел как сохранить в реестре byte массив. Hо как пользовательский тип загнать в массив байтов и обратно? Сергей. * Origin: Demos online service (2:5020/400) |
Re: Кодировка русского |
Мы где-то виделись, Terekhin? 11 Apr 04 02:34:19 в RU.VISUAL.BASIC Terekhin Alexandr -> All: TA> Подскажите как привести вот такую строчку TA> %D0%A1%D1%82%D1%80%D0%BE%D0%BA%D0%B0 TA> к человеческому виду. Все, до меня доперло. :) К тому, что я писал тебе в мыле, нужно добавить перекодировку из UTF. Declare Function MultiByteToWideChar Lib "kernel32" _ (ByVal CodePage As Long, ByVal dwFlags As Long, _ ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, _ ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long Const CP_UTF8 = 65001 Dim sOut As String, sIn As String, OutLength As Long sIn = "%D0%A1%D1%82%D1%80%D0%BE%D0%BA%D0%B0" sOut = sIn OutLength = 0 Dim i&, Char As Byte, CharPercent As Byte CharPercent = Asc("%") For i = 1 To Len(sIn) Char = Asc(Mid$(sIn, i, 1)) If Char = CharPercent Then Char = CByte("&H" & Mid$(sIn, i + 1, 2)) i = i + 2 End If OutLength = OutLength + 1 Mid$(sOut, OutLength, 1) = Chr$(Char) Next i sOut = Left$(sOut, OutLength) Dim s As String s = sOut s = Left$(s, MultiByteToWideChar(CP_UTF8, 0, sOut, -1, StrPtr(s), LenB(s))) MsgBox s Всего хорошего! Дмитрий Козырев aka Master * Origin: Дорогу осилит идущий. (2:5023/11.148) |
Доступность компонент? |
From: "Pangin A.V." Hi, Извините, если не в тему. Под учетной записью Пользователь (для Windows XP) в VB6 недоступны нестандартные компоненты (Common Dialog, MS Agent и многие др.) Как на эти компоненты скопом:) оформить администратору необходимые (?) разрешения для учебного процесса Возможна exe-пускалка с правами администратора, но как при этом оградить от программного поползновения в перенастройку системных и сетевых параметров? * Origin: NITI (2:5020/400) |
VB 6.0 уже устаpел? |
H!, _[Dmitriy]_! DK> А edition у тебя какой? Если не Enterprise, то попpобуй поискать именно DK> его - там многие огpаничения (по сpавнению с Limited и Professional) DK> если не сняты, то хотя бы сделаны более недостижимыми. Был Prof. Поставил Enterprise Edition. И нифига =( Где копать? DK> В кpайнем случае, вынеси часть контpолов в UserControl - может помочь. ы? g'bye and g'luck, _[Dmitriy]_! * Origin: S2k - www.revengecrew.org (2:5054/29.33) |
Run-time error |
H!, _[All]_! Как отследить Run-time error '40006'? Желатеьлно пpимеpчик. g'bye and g'luck, _[All]_! * Origin: Файловый Обменник - [SVALKA.TK] (2:5054/29.33) |
RTF-контрол |
From: "Андрущенко \(Hордлинк\)" Здравствуйте, All! Есть ли альтернатива Richtx32.ocx? Этот криво работает на платформе NT. Или, может быть, имеется более новая его версия, чем 6.00.8804? -- С уважением Hиколай Андрущенко * Origin: Internet-Arkhangelsk Company (2:5020/400) |
Где найти SP6? |
From: "Андрущенко \(Hордлинк\)" Здравствуйте, All! Где найти SP6 для VB6 (чтобы отдельно от всей Вижуал-Студии)? В напряг скачивать лишнее. -- С уважением Hиколай Андрущенко * Origin: Internet-Arkhangelsk Company (2:5020/400) |