Picture для CommandButton

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
DiT
Новичок
Новичок
 
Сообщения: 31
Зарегистрирован: 10.02.2003 (Пн) 23:20
Откуда: Ukraine

Picture для CommandButton

Сообщение DiT » 28.11.2003 (Пт) 15:55

Вопрос:
На форме есть много Buttonов
В директории имеется набор Picture для них.
Имена всех Picture упорядочены. Хочется, чтобы все автоматом загружалось. Написал такой код. Не могу понять почему не работает :(

Private Sub LoadButton(NameButton as CommandButton)
NameButton.Picture = LoadPicture(ProgramPath + "\Button\" + NameButton.Name + "Off.jpg")
NameButton.DisabledPicture = LoadPicture(ProgramPath + "\Button\" + NameButton.Name + "Neactiv.jpg")
NameButton.DownPicture = LoadPicture(ProgramPath + "\Button\" + NameButton.Name + "Click.jpg")
End Sub

Private Sub Form_Load
LoadButton(Command1)
End Sub

Aleksej
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 191
Зарегистрирован: 03.06.2003 (Вт) 9:58

Сообщение Aleksej » 28.11.2003 (Пт) 16:03

Свойство Style=1

DiT
Новичок
Новичок
 
Сообщения: 31
Зарегистрирован: 10.02.2003 (Пн) 23:20
Откуда: Ukraine

Сообщение DiT » 28.11.2003 (Пт) 16:21

Стиль ессно установлен Graphical

Это я делаю, чтобы вручную не заполнять все поля для Buttonов

Выдает ошибку "Object required" при вызове.

Вообще хотелось бы все организовать в цикле for each

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 28.11.2003 (Пт) 18:15

Set NameButton.Picture = ...

Код: Выделить всё
Dim C As Control
For Each C In Controls
  If TypeOf C Is CommandButton Then
    If Len(Dir$("C:\Pictures\" & C.Name & ".bmp")) > 0 Then
      Set C.Picture = LoadPicture...
    End If
  End If
Next C
Lasciate ogni speranza, voi ch'entrate.


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9

    TopList