Создание объекта shape программно / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создание объекта shape программно

25 сообщений из 181, страница 7 из 8

все

Создание объекта shape программно

#38868627

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Я сижу у себя в квартире. Ты сидишь у себя в квартире. Это разные квартиры. Но ты почему-то упорно продолжаешь считать, что я могу смотреть твой телевизор.

...

Рейтинг:

0 / 0

01.02.2015, 00:01

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38868665

vdekameron

Гость

Shocker.Pro,

Я все прекрасно понимаю, но не знаю как объявить в процедуре.
Не буду вас раздражать и лучше реально почитаю для начала а потом просто вернусь к этому.

...

Рейтинг:

0 / 0

01.02.2015, 10:56

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38869085

vdekameron

Гость

Все-таки хочу посмотреть будет ли эффект
Не могу понять почему вылазит ошибка, я же объявил в процедуре переменную так, как нужно вроде.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.

Private Sub Podstava()
Dim check As ShaperType
  Shape1.FillStyle = check.Sh.FillStyle
  Shape1.FillColor = check.Sh.FillColor
  Shape1.Height = check.Sh.Height
  Shape1.Width = check.Sh.Width
End Sub

...

Рейтинг:

0 / 0

02.02.2015, 09:50

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38869121

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Объявил. А что в ней лежит? От чего ты хочешь получить FillStyle?

...

Рейтинг:

0 / 0

02.02.2015, 10:17

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38869148

vdekameron

Гость

Shocker.ProОбъявил. А что в ней лежит? От чего ты хочешь получить FillStyle?
В ней лежит созданный нами круг, от которого и хочу получить эти св-ва

...

Рейтинг:

0 / 0

02.02.2015, 10:46

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38869179

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

vdekameronВ ней лежит созданный нами круг, от которого и хочу получить эти св-вакак он туда попал? Ты только что объявил эту переменную. Она девственно чиста.

Ты продолжаешь считать, что я могу смотреть твой телевизор.

...

Рейтинг:

0 / 0

02.02.2015, 11:04

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38869200

vdekameron

Гость

Shocker.ProОна девственно чиста.
Значит нужно передавать процедуре параметр.
Ну подскажите уже, обещаю прочитать то, что советовали)

...

Рейтинг:

0 / 0

02.02.2015, 11:28

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38869206

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Почитать (и понять) уже сделанный к данному моменту код.

...

Рейтинг:

0 / 0

02.02.2015, 11:30

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38869213

vdekameron

Гость

Shocker.ProПочитать (и понять) уже сделанный к данному моменту код.

Вы очень строгий учитель

...

Рейтинг:

0 / 0

02.02.2015, 11:35

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38869228

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

vdekameronShocker.ProПочитать (и понять) уже сделанный к данному моменту код.

Вы очень строгий учительИ терпеливый. Я бы просто дал эту методичку http://www.studfiles.ru/dir/cat32/subj1259/file11577.html и закрыл тему.

...

Рейтинг:

0 / 0

02.02.2015, 11:46

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38869241

vdekameron

Гость

AntonariyИ терпеливый.
Никто не спорит, я уже давно это отметил)

...

Рейтинг:

0 / 0

02.02.2015, 11:53

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38869567

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Shocker.ProПочитать (и понять) уже сделанный к данному моменту код.вот твой код

Код: vbnet

1.
2.

Private Function One_step(ByRef mama As ShaperType) As Boolean
...

Что будет, если убрать параметр и объявить его как переменную? И почему?

Код: vbnet

1.
2.
3.

Private Function One_step() As Boolean
Dim mama As ShaperType
...

...

Рейтинг:

0 / 0

02.02.2015, 15:03

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38869593

vdekameron

Гость

Shocker.ProЧто будет, если убрать параметр и объявить его как переменную? И почему?

Я считаю что раз мы не передаем параметр, и объявляем как переменную, то будем работать с пустым контейнером. Постоянно с одним и тем же кругом.

...

Рейтинг:

0 / 0

02.02.2015, 15:40

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38869606

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

vdekameronПостоянно с одним и тем же кругом.блин, ну почему? Откуда там возьмется круг?

...

Рейтинг:

0 / 0

02.02.2015, 15:54

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38869609

vdekameron

Гость

Shocker.Proблин, ну почему? Откуда там возьмется круг?
Хотя да((( Просто тупо пустой контейнер

...

Рейтинг:

0 / 0

02.02.2015, 15:58

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38869614

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

вот, посмотри примерчик. там что-то полезное для себя почерпнёшь.

зы
делал очень давно

...

Рейтинг:

0 / 0

02.02.2015, 16:00

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38869615

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

vdekameronShocker.Proблин, ну почему? Откуда там возьмется круг?
Хотя да((( Просто тупо пустой контейнерХорошо, почему совершенно аналогичная ситуация с процедурой Podstava вызывает у тебя проблему?

...

Рейтинг:

0 / 0

02.02.2015, 16:01

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38869649

vdekameron

Гость

Shocker.ProХорошо, почему совершенно аналогичная ситуация с процедурой Podstava вызывает у тебя проблему?

Не знаю, ловлю ступор и хоть ты тресни!! Вот сейчас показал что ей передается.

Код: vbnet

1.
2.
3.
4.
5.
6.

Private Sub Podstava(ByRef check As ShaperType)
  Shape1.FillStyle = check.Sh.FillStyle
  Shape1.FillColor = check.Sh.FillColor
  Shape1.Height = check.Sh.Height
  Shape1.Width = check.Sh.Width
End Sub

а как при вызове процедуры правильно указать снова ступор!

...

Рейтинг:

0 / 0

02.02.2015, 16:33

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38869712

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

подумай то том, откуда ты хочешь это передать, что именно хочешь передать и где это хранится на момент возникновения желания передать

...

Рейтинг:

0 / 0

02.02.2015, 17:39

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38870043

vdekameron

Гость

Shocker.Proподумай то том, откуда ты хочешь это передать, что именно хочешь передать и где это хранится на момент возникновения желания передать

Ну в голове у меня так, не знаю правильно или нет:- передавать хочу тогда, когда вызывается Podstava.
Хочу передать имеющийся на данный момент заполненный контейнер и работать с кругом в нем. Этот контейнер есть в двух местах. 1) в addshapes 2) One_step Но как передать - СТУПОР! Не знаю что со мной.
Скажу вам честно, я схитрил, понимаю что это неправильно, что это разово и потом я все-равно упрусь в то, чего никак не могу понять. И поэтому если у вас еще есть желание дотолдычить это))
Короче вот. Эффекта ноль. Мерцание идет, а когда шаров больше становится вообще ужасно
Пробовал по-разному.

Код: vbnet

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.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.

Private Function One_step(ByRef mama As ShaperType) As Boolean
Randomize
With mama.Sh
                           .Visible = False
                       Shape1.FillStyle = .FillStyle
                       Shape1.FillColor = .FillColor
                       Shape1.Shape = .Shape
                       Shape1.Height = .Height
                       Shape1.Width = .Width
                       Shape1.Left = .Left + mama.StepX
                       Shape1.Top = .Top + mama.StepY
                       Shape1.Visible = True
    
    .Left = .Left + mama.StepX
    .Top = .Top + mama.StepY
                       
                       Shape1.Visible = False
                      .Visible = True

If .Left >= Form1.Width - .Width Then
       One_step = True
       mama.StepX = -150 * Rnd
    Else
       One_step = False
    End If
    If .Left <= 0 Then
       mama.StepX = 150 * Rnd
    End If
    If .Top >= Form1.Height - .Width Then mama.StepY = -200 * Rnd
    If .Top <= 0 Then mama.StepY = 200 * Rnd
End With
End Function

Private Sub addshape()
Randomize
Dim check As ShaperType
  Set check.Sh = Me.Controls.Add("VB.Shape", "sh" & UBound(colShapes) + 1)
  check.Sh.Visible = 1
  check.Sh.Shape = 3
  check.Sh.FillStyle = vbSolid
  check.Sh.FillColor = 16777216 * Rnd
  check.Sh.Height = 1000 + 1000 * Rnd
  check.Sh.Width = 1000 + 1000 * Rnd
  check.StepX = 100 * Rnd
  check.StepY = 100 * Rnd
  ReDim Preserve colShapes(UBound(colShapes) + 1)
  colShapes(UBound(colShapes)) = check
End Sub

...

Рейтинг:

0 / 0

03.02.2015, 08:59

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38870190

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

vdekameron,

немного помогает поменять местами переключение видимости

Код: vbnet

1.
2.

                       Shape1.Visible = True
                           .Visible = False

Код: vbnet

1.
2.

                      .Visible = True
                       Shape1.Visible = False

от "дерготни" мы избавились, а от мерцания - нет, для закрашенных кругов перерисовку видно, это уже проблема реализации перерисовки самого элемента shape, там, видимо, двойная буферизация не используется. Так что для улучшения качества придется использовать другие средства - рисовать самому круги с помощью GDI или DirectX

...

Рейтинг:

0 / 0

03.02.2015, 11:34

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38870197

vdekameron

Гость

Shocker.Proот "дерготни" мы избавились,

Поменял местами, эффекта ноль. Может я придираюсь, но движение какое-то дерганое , колеблющее. Режет глаз.

Код: vbnet

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.
31.
32.
33.

Private Function One_step(ByRef mama As ShaperType) As Boolean
Randomize
With mama.Sh
                        
                       Shape1.Visible = True
                       Shape1.FillStyle = .FillStyle
                       Shape1.FillColor = .FillColor
                       Shape1.Shape = .Shape
                       Shape1.Height = .Height
                       Shape1.Width = .Width
                       Shape1.Left = .Left + mama.StepX
                       Shape1.Top = .Top + mama.StepY
                       .Visible = False
    
    .Left = .Left + mama.StepX
    .Top = .Top + mama.StepY
                       
                       .Visible = True
                       Shape1.Visible = False
                      
If .Left >= Form1.Width - .Width Then
       One_step = True
       mama.StepX = -150 * Rnd
    Else
       One_step = False
    End If
    If .Left <= 0 Then
       mama.StepX = 150 * Rnd
    End If
    If .Top >= Form1.Height - .Width Then mama.StepY = -200 * Rnd
    If .Top <= 0 Then mama.StepY = 200 * Rnd
End With
End Function

...

Рейтинг:

0 / 0

03.02.2015, 11:45

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38870206

vdekameron

Гость

Shocker.Proа от мерцания - нет, для закрашенных кругов перерисовку видно
Мерцания появляются даже без закраски кругов.

...

Рейтинг:

0 / 0

03.02.2015, 11:50

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38870273

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Да, хоть и не так заметно.

В общем, внутри шейп устроен так, что при самообновлении он сначала стирает себя полностью, потом рисует заново - от этого мерцание. Это внутреннее устройство шейпа, да и вообще, видимо, любого стандартного контрола VB - они же не предназначены для анимации.

...

Рейтинг:

0 / 0

03.02.2015, 12:35

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38870278

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

если рисовать в контексте устройства, то лучше юзать API. там есть специализиврованные ф-ии обновления окна типа invalidaterect и тп

...

Рейтинг:

0 / 0

03.02.2015, 12:39

| Ответить | Цитировать | Написать

25 сообщений из 181, страница 7 из 8

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создание объекта shape программно

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=38869121&tid=2156049]:	0ms
get settings:	10ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	56ms
get topic data:	11ms
get forum data:	3ms
get page messages:	67ms
get tp. blocked users:	1ms
others:	324ms

total:	495ms