Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как стереть содержимое всех картинок на форме. Как загрузить по названиям файлов? / 8 сообщений из 8, страница 1 из 1
07.08.2009, 17:09:54
    #36132839
Dan-K
Dan-K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как стереть содержимое всех картинок на форме. Как загрузить по названиям файлов?
Стираю содержимое картинок на форме
Код: plaintext
1.
2.
3.
4.
5.
Sub FFF()
  Image1.Picture = LoadPicture("")
  Image2.Picture = LoadPicture("")
...
    Image70.Picture = LoadPicture("")
End Sub

А если этих самых картинок около трехсот?

Есть 70 сгенерированных имен файлов на листе в диапазоне

ThisWorkbook.Sheets("PD").Range("E3:E73")

Как автоматом загрузить, не писать же
Код: plaintext
1.
  Image1.Picture = LoadPicture(ThisWorkbook.Sheets("PD").Range("E3").value)
  Image2.Picture = LoadPicture(ThisWorkbook.Sheets("PD").Range("E4").value)
?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2009, 19:37:19
    #36133126
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как стереть содержимое всех картинок на форме. Как загрузить по названиям файлов?
Dan-K,

for each ctrl in Me.Controls
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2009, 22:22:14
    #36133229
Dan-K
Dan-K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как стереть содержимое всех картинок на форме. Как загрузить по названиям файлов?
Код: plaintext
1.
2.
3.
4.
5.
Dim ctrl As Control 
For Each ctrl In Me.Controls 
If TypeName(ctrl) = "Picture" Then 
ctrl.value = "" 
End If 
Next
Что то не выходит...Пойду читать Уокенбабаха
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2009, 15:16:22
    #36133520
Dan-K
Dan-K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как стереть содержимое всех картинок на форме. Как загрузить по названиям файлов?
Задал для всех ненужных для просмотра картинок :

ControlTipText = "НЕВИДИМКА"

Теперь хочу циклом спрятать все картинки с этим значением контрола.

Код: plaintext
1.
2.
3.
4.
5.
Dim ctrl As Control 
For Each ctrl In Me.Controls
If Controls(ctrl) =  "НЕВИДИМКА" Then
ctrl.Visible = False
End If
Next

Данная конструкция не работает. Что то делаю неправильно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2009, 16:12:37
    #36133543
mds_world
mds_world
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как стереть содержимое всех картинок на форме. Как загрузить по названиям файлов?
Ну, раз уж вы связались с ControlTipText , то с ним и продолжайте (Хотя свойство Tag, как бы логичнее)
Код: plaintext
1.
2.
3.
4.
5.
Dim ctrl As Control 
For Each ctrl In Me.Controls
If ctrl.ControlTipText = "НЕВИДИМКА" Then
ctrl.Visible = False
End If
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2009, 17:38:37
    #36133581
Dan-K
Dan-K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как стереть содержимое всех картинок на форме. Как загрузить по названиям файлов?
А где на русском почитать о работе с формами в VBA?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2009, 17:39:27
    #36133582
Dan-K
Dan-K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как стереть содержимое всех картинок на форме. Как загрузить по названиям файлов?
Чтобы ControlTipText с Tag, не путать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.08.2009, 20:45:07
    #36133679
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как стереть содержимое всех картинок на форме. Как загрузить по названиям файлов?
Dan-K,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub UserForm_Click()
Dim ctrl As Control, img As Image
For Each ctrl In Me.Controls
   If TypeName(ctrl) = "Image" Then
     Set img = ctrl
     img.Picture = Nothing
    End If
Next
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как стереть содержимое всех картинок на форме. Как загрузить по названиям файлов? / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 481ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2179182]:
 0ms
get settings:
 6ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 160ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 243ms
total:  481ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]