Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Программно добавить Image в форму / 25 сообщений из 32, страница 1 из 2
29.03.2011, 17:43
    #37188493
fedoamx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно добавить Image в форму
Доброго времени суток!
Не могу найти и догадаться как добавить в форму 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
30.03.2011, 14:10
    #37190203
fedoamx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно добавить Image в форму
up!
...
Рейтинг: 0 / 0
30.03.2011, 14:33
    #37190261
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно добавить Image в форму
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:51
    #37190322
fedoamx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно добавить Image в форму
The_Prist,

Блин, спасибо! Работает! А то запарился инет шарить!
...
Рейтинг: 0 / 0
31.03.2011, 13:59
    #37192373
fedoamx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно добавить Image в форму
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
04.04.2011, 12:13
    #37197664
fedoamx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно добавить Image в форму
Up!

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

Код: plaintext
VBA.UserForms(VBA.UserForms.Count -  1 ).ComboBox1.AddItem "Январь"
ошибки нет, но не добавляет в форму.
...
Рейтинг: 0 / 0
04.04.2011, 13:23
    #37197916
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно добавить Image в форму
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:50
    #37197985
fedoamx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно добавить Image в форму
The_Prist,

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

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

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

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

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

Если хотите получить нормальный ответ - задавайте вопросы соответствующе.
Как предположение: у Вас неустановлено доверие к VBA проекту. Это одна версия. Вторая - у Вас не подключена библиотека Microsoft Forms 2.0 Object Library
...
Рейтинг: 0 / 0
05.04.2011, 14:20
    #37200323
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно добавить Image в форму
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, 17:39
    #37200903
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно добавить Image в форму
Ципихович Эндрю,

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

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


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

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
05.04.2011, 18:15
    #37200990
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно добавить Image в форму
Ципихович Эндрюговорю же как только нажму Референсес и сообщение Error accesinf the system regystryНу тогда ЩЕЛК
...
Рейтинг: 0 / 0
05.04.2011, 18:57
    #37201041
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно добавить Image в форму
Игорь Горбонос,
>Ну хоть где-то забанили
Не смешно, да ладно что-то не горит, как там написано, легче в космос слетать, подожду Офис переустановлю, пока диска нет
...
Рейтинг: 0 / 0
05.04.2011, 22:16
    #37201261
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно добавить Image в форму
Ципихович ЭндрюОфис переустановлю, пока диска нет
фиаско ты потерпишь скорее всего
...
Рейтинг: 0 / 0
06.04.2011, 08:03
    #37201524
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно добавить Image в форму
timtim, тогда подожду до осени, ОК??
...
Рейтинг: 0 / 0
16.04.2011, 13:36
    #37219528
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно добавить Image в форму
>фиаско ты потерпишь скорее всего
вот и нет фиаско, всё хорошо, другая ересь появилась
что за ересь курсор мышки стоит внутри модуля раньше колесом можно было прокручивать код, сейчас нифига????????
это не по теме
А по теме - вспомню о чём речь была напишу
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Программно добавить Image в форму / 25 сообщений из 32, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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