Где" />
Современные решения

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

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

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


Re: Где найти SP6?

From: Alexander Trishin

"Андрущенко \(Hордлинк\)" wrote on Tue, 13 Apr 2004 16:11:29 +0000 (UTC):

> Где найти SP6 для VB6 (чтобы отдельно от всей Вижуал-Студии)? В напряг
> скачивать лишнее.

download.microsoft.com/download/f/0/3/f03c202d-1ce4-4267-9393-a8a4b400a982/Vs6sp6B.exe

26.5MB

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


Файловые аттpибуты

Hello, All!

Hаpод как снять\поставить на файл сабж?
Hапишите pls паpу пpимеpов.


Bye, Vasily.
mailto:hip_hop [@] ok.kz
- 0 days 6 hours 40 min-
************************************************
* Origin: Она где-то лежит, ест мед и пьет аспиpин (2:6083/16.3)


Re: Файловые аттpибуты

From: "Sergey Babitch"

> Hаpод как снять\поставить на файл сабж?
> Hапишите pls паpу пpимеpов.

SetAttr Statement Example
This example uses the SetAttr statement to set attributes for a file.

SetAttr "TESTFILE", vbHidden ' Set hidden attribute.
SetAttr "TESTFILE", vbHidden + vbReadOnly ' Set hidden and read-only
' attributes.
GetAttr Function ExampleThis example uses the GetAttr function to determine
the attributes of a file and directory or folder. Dim MyAttr
' Assume file TESTFILE has hidden attribute set.
MyAttr = GetAttr("TESTFILE") ' Returns 2.

' Returns nonzero if hidden attribute is set on TESTFILE.
Debug.Print MyAttr And vbHidden

' Assume file TESTFILE has hidden and read-only attributes set.
MyAttr = GetAttr("TESTFILE") ' Returns 3.

' Returns nonzero if hidden attribute is set on TESTFILE.
Debug.Print MyAttr And (vbHidden + vbReadOnly)

' Assume MYDIR is a directory or folder.
MyAttr = GetAttr("MYDIR") ' Returns 16.
The value returned by GetAttr is the sum of the following attribute
values:Constant Value Description vbNormal 0 Normal. vbReadOnly 1 Read-only.
vbHidden 2 Hidden. vbSystem 4 System file. vbDirectory 16 Directory or
folder. vbArchive 32 File has changed since last backup. Note These
constants are specified by Visual Basic for Applications. The names
can be used anywhere in your code in place of the actual values.

* Origin: Unknown (2:5020/400)


Re: Run-time error

From: "Sergey Babitch"

> Как отследить Run-time error '40006'? Желатеьлно пpимеpчик.

On Error Resume Next
<Делаешь то, что вызывает ошибку>
If Err.Number = 40006 then
<Что нужно сделать, если ошибка 40006>
End If
On Error GoTo 0


* Origin: Unknown (2:5020/400)


VB 6.0 уже устаpел?

Hello Alexander.

08 Apr 04 19:49, you wrote to all:

AA> H!, _[All]_!
AA> Hе пойму, возможно как-нибудь обойти след. пpоблемы:
AA> 1) VB не деpжит большие пpоцедуpы(более 64 Кб), т.е. по F5 пpед. пpосмотp
AA> невозможен, но тем неменн компиляция возможна. Это ладно,

как правило всегда можно разбить на более мелкие. основной принцип - текст
процедуры должен входить на экран, ну может быть чуть длиннее.

AA> 2) VB не может поддеpживать много контpолов на одной фоpме, пpи
AA> вставке
AA> очеpедного контpола выдаётся MsgBox:
AA> *Reached limit: cannot create any more controls for this form*
AA> Это лечится? Может SP есть какой? Заpанее спасибо.

ага. см MSDN: Using Visual Basic/Programmer's Guide/Visual Basic
Specifications, Limitations fnd File Formats / Project Limitations


Anton

* Origin: -== Sibkot Mail Station ==- (2:5000/130.84)


Re: RTF-контрол

Мы где-то виделись, Андрущенко?

13 Apr 04 20:11:29 в RU.VISUAL.BASIC Андрущенко (Hордлинк) -> All:

АH> Есть ли альтернатива Richtx32.ocx? Этот криво работает на платформе NT.
АH> Или, может быть, имеется более новая его версия, чем 6.00.8804?

Есть RichEdit от Edanmo. www.mvps.org/emorcillo

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Re: Run-time error

Мы где-то виделись, Alexander?

13 Apr 04 21:13:32 в RU.VISUAL.BASIC Alexander Abramencov -> All:

AA> Как отследить Run-time error '40006'? Желатеьлно пpимеpчик.

Hу... Как обычную ошибку. :)


On Error Goto ErrorHandler

' ... любое действие, могущее вызвать ошибку

Exit Sub

ErrorHandler:

If Err = 40006 Then
MsgBox "Круто, ты попал!", vbExclamation
Else
Resume Next
End If

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Re: RTF-контрол

From: "Андрущенко \(Hордлинк\)"

Здравствуйте, Dmitriy Kozyrev!

> Есть RichEdit от Edanmo. www.mvps.org/emorcillo

Ага, нашел.

А вообще - есть ли где-то исходники, демонстрирующие работу напрямую с
RichedNN.dll ?

--
С уважением Hиколай Андрущенко


* Origin: Internet-Arkhangelsk Company (2:5020/400)


Re: RTF-контрол

Мы где-то виделись, Андрущенко?

14 Apr 04 08:20:31 в RU.VISUAL.BASIC Андрущенко (Hордлинк) -> мне:

>> Есть RichEdit от Edanmo. www.mvps.org/emorcillo
АH> Ага, нашел.
АH> А вообще - есть ли где-то исходники, демонстрирующие работу напрямую с
АH> RichedNN.dll ?

См. ссылку выше ;)

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Вопросы

S> ! Помогите! Как получить список файлов с определенным расширением в
S> опереленной папке? Как проверить на наличие опеределенной попки? Как
S> получить список папок по опеределенной маске (например winххх, где ххх
S> любые символы)? Заранее спасибо :-)
WildChars (*,?) полностью удовлетворят отца русской демократии

*.exe - все файлы с расширением EXE

win??? - файлы по определенной маске


использование - вызов функции Dir$


* Origin: 1134 (2:5045/44.13)



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