Форум РадиоКот

\\Sergey//

Объявляем массив.

\\Sergey//

В данном случае это реализуется с помошью модулей класса.
Добавьте в проект модуль класса и в него скопируйте вот такой код:
Public WithEvents X As VB.PictureBox

Private Sub X_Click()
MsgBox X.Tag
End Sub

А вот этот код вставьте в форму:
Private XX(9) As Class1

Private Sub Form_Load()
Dim i ...

\\Sergey//

Кроме того, там не 1 должна передаватся
Необязательно. Можно передать как непосредственное значение, так и константу.
Например, зачем писать FILE_ATTRIBUTE_ARCHIVE , когда можно просто поставить &H20 ?
типа vbShowNormal или что то в этом роде
vbShowNormal - такой константы нет.
надо сделать ...

\\Sergey//

Какая нынче последняя версия VB?

Visual Basic 2008 (Ну, или проще, VB9).

\\Sergey//

И еще. Прочитал про АРI функцию "RegisterServiceProcess". Но у меня почему-то выскакивает сообщение, что данная функция не найдена в библиотеке. Может я неправильно название пишу?

В Windows NT/2000/XP эта функция отсутствует.[/quote]

\\Sergey//

Код: Выделить всё

SavePicture Picture1.Picture, "C:\1.bmp"

\\Sergey//

А смысл? :)
Можно отправить окну, который должен получить символ по его ASCII-коду сообщение WM_CHAR с помощью API-функции SendMessage.

Пример:
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long ...

\\Sergey//

Твой код должен располагаться внутри процедуры Picture1_KeyDown, где Picture1 - имя контрола, который будет "принимать" нажатия клавиш.

В качестве примера:

Код: Выделить всё

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
    MsgBox KeyCode ' Выводим код нажатой клавиши
End Sub

\\Sergey//

Картинка у тебя, я так полагаю, на Image?

Используй вместо Image - PictureBox -- мерцания должны пропасть.

\\Sergey//

(например, ввожу C:\...\aa и проверяется, а то Runtime Error надоел)?

Ну, дык, ошибки можно обрабатывать. Для этого существует оператор On Error. Если, ты, например захотел удалить файл 1.txt, которого нет, то собственно, вылетит ошибка 53.
Вот ее можно обработать:
On Error GoTo FileNotFound ...

\\Sergey//

Или, если не использовать FSO, то так:

Код: Выделить всё

If Len(Dir("C:\1.txt")) > 0 Then
    MsgBox "Файл существует"
Else
    MsgBox "Файл не существует"
End If

Но этот код для VBS уже недействителен.

\\Sergey//

Проверка наличия файла:

Код: Выделить всё

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("C:\1.txt") = True Then
    MsgBox "Файл существует"
Else
    MsgBox "Файл не существует"
End If

Код работает и для VBS

\\Sergey//

Сэр Мурр писал(а): Что делать, я считаю, что ВСЁ можно сказать обычным, литературным языком, и от этого выражение может стать даже более мощным, нежели на нелитературно-матерном языке.

Неоспоримая истина!
Полностью согласен с Сэром Мурром.

\\Sergey//

По-моему, даже красиво!
http://vrtp.ru/index.php?act=categories&cat=1176

\\Sergey//

из жести для консервных банок!

\\Sergey//

У меня не получается писать в блокноте на ВБскрипт. Какой тэг его вкючает?
Пишешь код в блокноте, а потом просто сохраняешь файл с расширением .vbs
Но - VBS не совсем тоже самое, что VB. Хотя они немного похожи.
Для примера можешь на VBS вот такой код написать:
Do
MsgBox "Скрипт работает!"
Loop ...

\\Sergey//

я сейчас просто работаю над такой прогой - разные глюки в компе делает. Не подскажешь, как сделать, чтобы прога сама загружалась,без
разрешения пользователя, планировщик не считается?
То-есть ты хочешь, чтобы программа сама запускалась при включении компьютера?
Тут есть два способа:
1) Поместить ...

\\Sergey//

Конструкция With...End With по своей сути просто уменьшает длину кода. Вместо fil ты ставишь любой объект, имеющий свойства и методы и в дальнейшем, задавая свойство объекта ты не пишешь сам объект, а ставишь точку и указываешь свойство. Очень удобно.
Следующие два кода выполняют одинаковые функции ...

\\Sergey//

Блин, целый день в инет выйти не могу! :(

Вот код для получения основной информации о файле:
Dim fso As New FileSystemObject
Dim fil As File
Set fil = fso.GetFile("C:\1.txt")
With fil
Print .Attributes
Print .DateCreated
Print .DateLastAccessed
Print .DateLastModified
Print .Drive
Print .Name ...

\\Sergey//

Открываешь меню Project, выполняешь команду References, в появившемся окне устанавливаешь галочку напротив Microsoft Scripting Runtime и, наконец нажимаешь OK.
Теперь пишешь код:

Dim fso As New FileSystemObject ' Объявляем переменную
' типа FSO
Dim drv As Drive ' Объявляем переменную для работы с ...

Найдено 76 результатов