ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Программно добавить Image в форму
25 сообщений из 32, страница 1 из 2
  1  все
Программно добавить Image в форму
    #37188493
fedoamx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fedoamx
Участник
Доброго времени суток!
Не могу найти и догадаться как добавить в форму Image. Желательно с определением координат и размеров "имаги"


 
Собсно код по созданию формы
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
    With ThisWorkbook.VBProject.VBComponents.Add( 3 )
         .Properties("Width") =  350   
         .Properties("Height") =  350  
         .Properties("BackColor") = vbRed 
         .Properties("Caption") = "отчет" 
         .Properties("StartUpPosition") =  2  
         .Properties("ScrollBars") = fmScrollBarsVertical 
         .Properties("SpecialEffect") = fmSpecialEffectEtched 
         VBA.UserForms.Add(.Name).Show
    End With
...
Рейтинг: 0 / 0
29.03.2011, 17:43
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37190203
fedoamx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fedoamx
Участник
up!
...
Рейтинг: 0 / 0
30.03.2011, 14:10
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37190261
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
fedoamx,

Как-то так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub Create_Image_UserForm_Controls()
    With ThisWorkbook.VBProject.VBComponents.Add( 3 )
        .Properties( 42 ) =  350 
        .Properties( 43 ) =  350 
        With .Designer.Controls.Add(bstrProgID:="Forms.Image.1")
             .Top =  10 
             .Left =  10 
        End With
        UserForms.Add(.Name).Show
    End With
End Sub
...
Рейтинг: 0 / 0
30.03.2011, 14:33
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37190322
fedoamx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fedoamx
Участник
The_Prist,

Блин, спасибо! Работает! А то запарился инет шарить!
...
Рейтинг: 0 / 0
30.03.2011, 14:51
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37192373
fedoamx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fedoamx
Участник
fedoamx,

Подскажите пожалуйста, если в указанном выше коде создать элемент, то как им в последствии управлять. В код, что ниже есть Combobox, то как к обратится к этому элементу?
обращаюсь так, не работает.
Код: plaintext
TempForm.Combobox1.AddItem "1"

Если ссылку скинете, где можно поподробней почитать о подобном создании формы буду очень признателен!


 
я вот накалякал код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
With TempForm
         .Properties("Width") =  604 . 5   '43
         .Properties("Height") =  352  '42
         .Properties("BackColor") = &H4000&
         .Properties("Caption") = "Окупаемость" & " " & Obj '39
         .Properties("StartUpPosition") =  2  '49
         '.Properties("ScrollBars") = fmScrollBarsVertical '22
         .Properties("SpecialEffect") = fmSpecialEffectEtched '28
        
      With .Designer.Controls.Add("Forms.ComboBox.1", "ComboBox1")
                .Top =  18 
                .Left =  396 
                .Height =  18 
                .Width =  102 
              End With
            With .Designer.Controls.Add("Forms.ComboBox.1", "ComboBox2")
                .Top =  18 
                .Left =  510 
                .Height =  18 
                .Width =  48 
                End With
           
            With .Designer.Controls.Add("Forms.Image.1", "Image1")
                .Top =  126 
                .Left =  0 
                .Height =  200 
                .Width =  600 
                End With
    
End With
...
Рейтинг: 0 / 0
31.03.2011, 13:59
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37197664
fedoamx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fedoamx
Участник
Up!

Пробовал еще так сделать:

Код: plaintext
VBA.UserForms(VBA.UserForms.Count -  1 ).ComboBox1.AddItem "Январь"
ошибки нет, но не добавляет в форму.
...
Рейтинг: 0 / 0
04.04.2011, 12:13
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37197916
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
fedoamx,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Private Sub Create_Image_UserForm_Controls()
    Dim li As Long, sCmbxName As String
    With ThisWorkbook.VBProject.VBComponents.Add( 3 )
        .Properties( 42 ) =  350 
        .Properties( 43 ) =  350 
        With .Designer.Controls.Add(bstrProgID:="Forms.ComboBox.1")
            .Top =  10 
            .Left =  10 
            sCmbxName = .Name
        End With

        With UserForms.Add(.Name)
            With .Controls(sCmbxName)
                For li =  0  To  10 
                    .AddItem li
                Next li
            End With
            .Show
        End With
    End With
End Sub
...
Рейтинг: 0 / 0
04.04.2011, 13:23
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37197985
fedoamx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fedoamx
Участник
The_Prist,

че-то геморно как-то все это получается )
...
Рейтинг: 0 / 0
04.04.2011, 13:50
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37198035
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
fedoamxThe_Prist,

че-то геморно как-то все это получается )ну сделайте по-другому, если не нравится. Мое дело предложить
...
Рейтинг: 0 / 0
04.04.2011, 14:08
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37198201
fedoamx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fedoamx
Участник
The_Prist,

безусловно спасибо большое! Это просто мысли в слух)
...
Рейтинг: 0 / 0
04.04.2011, 15:06
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37198947
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
The_Prist, не подскажите Ваш скрипт от 30.03.11 14:33 запускаю, получаю сообщение VBProject .. не удалось, чё там надо изменить, пробовал вместо VBProject Module1 писать, то что-то не то
...
Рейтинг: 0 / 0
04.04.2011, 20:49
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37199590
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Ципихович Эндрю
> получаю сообщение VBProject .. не удалось, чё там надо изменить

Ну так и вставь текст ошибки в гугл и почитай что пишут на эту ошибку и как её решать! А не изображаешь из себя Ктулху,
зохавывающего моск

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
05.04.2011, 10:34
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37199670
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Игорь Горбонос, а кто такая такое Ктулха?? Гугл? Он Вам денег платит?
...
Рейтинг: 0 / 0
05.04.2011, 11:08
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37199729
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Ципихович Эндрю,
Вы какой ответ-то ожидали услышать? Лень полностью текст ошибки переписать? Или Вам VBA так и пишет ошибкуЦипихович Эндрюне удалось, чё там надо изменить
То, что Вы увидели текст ошибки не означает, что его видели и мы.

Если хотите получить нормальный ответ - задавайте вопросы соответствующе.
Как предположение: у Вас неустановлено доверие к VBA проекту. Это одна версия. Вторая - у Вас не подключена библиотека Microsoft Forms 2.0 Object Library
...
Рейтинг: 0 / 0
05.04.2011, 11:33
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37200323
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
The_PristЦипихович Эндрю,
Лень полностью текст ошибки переписать?
Да нет, узнавал одно, узнал другое, как снежный ком, сейчас тормознулся:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
With ActiveDocument.VBProject.VBComponents.Add( 3 ) 'так и не понял чего я добавил, именно цифру 3
'Properties(42)- Width - ширина
        .Properties( 42 ) =  330 
'Properties(42)- Height - высота
        .Properties( 43 ) =  350 
        'добавляем на форму Forms.Image.1
        With .Designer.Controls.Add(bstrProgID:="Forms.Image.1")
             .Top =  10 
             .Left =  10 
        End With
        UserForms.Add(.Name).Show 'object reguired ?????????
        End With
...
Рейтинг: 0 / 0
05.04.2011, 14:20
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37200903
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Ципихович Эндрю,

Ну и что же у Вас в библиотеках творится? Вы мои предположения проверили?
...
Рейтинг: 0 / 0
05.04.2011, 17:39
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37200940
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
The_Prist, пыли нет, отставим на неделю, потому что в библиотеке пытаясь её подключить сообщение Error accesinf the system regystry
Пробовал всё понял, что Офис надо переустановить или что-то посоветуете?
...
Рейтинг: 0 / 0
05.04.2011, 17:52
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37200950
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Ципихович Эндрю,

Посоветую сначала вручную добавить в проект форму(библиотека соостветствующая должна добавиться сама), а уже потом запустить обсуждаемый код.
...
Рейтинг: 0 / 0
05.04.2011, 17:57
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37200955
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
The_Prist, говорю же как только нажму Референсес и сообщение Error accesinf the system regystry
...
Рейтинг: 0 / 0
05.04.2011, 17:59
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37200979
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Ципихович Эндрю
> как только нажму Референсес и сообщение Error accesinf the system regystry


Ну хоть где-то забанили

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
05.04.2011, 18:08
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37200990
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Ципихович Эндрюговорю же как только нажму Референсес и сообщение Error accesinf the system regystryНу тогда ЩЕЛК
...
Рейтинг: 0 / 0
05.04.2011, 18:15
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37201041
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Игорь Горбонос,
>Ну хоть где-то забанили
Не смешно, да ладно что-то не горит, как там написано, легче в космос слетать, подожду Офис переустановлю, пока диска нет
...
Рейтинг: 0 / 0
05.04.2011, 18:57
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37201261
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Ципихович ЭндрюОфис переустановлю, пока диска нет
фиаско ты потерпишь скорее всего
...
Рейтинг: 0 / 0
05.04.2011, 22:16
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37201524
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
timtim, тогда подожду до осени, ОК??
...
Рейтинг: 0 / 0
06.04.2011, 08:03
| Ответить | Цитировать | Написать  
Программно добавить Image в форму
    #37219528
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
>фиаско ты потерпишь скорее всего
вот и нет фиаско, всё хорошо, другая ересь появилась
что за ересь курсор мышки стоит внутри модуля раньше колесом можно было прокручивать код, сейчас нифига????????
это не по теме
А по теме - вспомню о чём речь была напишу
...
Рейтинг: 0 / 0
16.04.2011, 13:36
| Ответить | Цитировать | Написать  
25 сообщений из 32, страница 1 из 2
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Программно добавить Image в форму
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37200955&tid=2158797]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 39ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 330ms
total:  465ms
созд. / загр.: 465ms
x
x
Закрыть


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