ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как стереть содержимое всех картинок на форме. Как загрузить по названиям файлов?
8 сообщений из 8, страница 1 из 1
Как стереть содержимое всех картинок на форме. Как загрузить по названиям файлов?
    #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, 17:09
| Ответить | Цитировать | Написать  
Как стереть содержимое всех картинок на форме. Как загрузить по названиям файлов?
    #36133126
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Dan-K,

for each ctrl in Me.Controls
...
Рейтинг: 0 / 0
07.08.2009, 19:37
| Ответить | Цитировать | Написать  
Как стереть содержимое всех картинок на форме. Как загрузить по названиям файлов?
    #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
07.08.2009, 22: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, 15:16
| Ответить | Цитировать | Написать  
Как стереть содержимое всех картинок на форме. Как загрузить по названиям файлов?
    #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, 16:12
| Ответить | Цитировать | Написать  
Как стереть содержимое всех картинок на форме. Как загрузить по названиям файлов?
    #36133581
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
А где на русском почитать о работе с формами в VBA?
...
Рейтинг: 0 / 0
08.08.2009, 17:38
| Ответить | Цитировать | Написать  
Как стереть содержимое всех картинок на форме. Как загрузить по названиям файлов?
    #36133582
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Чтобы ControlTipText с Tag, не путать?
...
Рейтинг: 0 / 0
08.08.2009, 17:39
| Ответить | Цитировать | Написать  
Как стереть содержимое всех картинок на форме. Как загрузить по названиям файлов?
    #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
08.08.2009, 20:45
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как стереть содержимое всех картинок на форме. Как загрузить по названиям файлов?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=188&tid=2179182]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 54ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 236ms
total:  377ms
созд. / загр.: 377ms
x
x
Закрыть


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