Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: ImageBox Добавлено: 25.10.02 20:22  

Автор вопроса:  Mister U | Web-сайт: stihi.h12.ru | ICQ: 809526 

<p><img border="0" src="http://gifs.ru/clipart/animated/garfield-1.gif" width="100" height="140"></p>

Господа, вопрос:

Поставил на форму ImageBox, свойство Stretch = True

При ресайзе формы:

Private Sub Form_Resize()

Image1.Width=Me.ScaleWidth

Image1.Height=Me.ScaleHeight

End Sub

Так вот, при ресайзе картинка в ImageBox мигает. Как это убрать?

Заранее благодарен!

Ответить

  Ответы Всего ответов: 7  

Номер ответа: 1
Автор ответа:
 Slepoy



Вопросов: 6
Ответов: 22
 Профиль | | #1 Добавлено: 25.10.02 22:31
Картинка мигает потому-что постоянно перерисовывается, избавься от отого, ну например сначала измени размер контейнера, а потом прорисуй картинку по координатам контейнера.

Ответить

Номер ответа: 2
Автор ответа:
 Mister U



ICQ: 809526 

Вопросов: 49
Ответов: 63
 Web-сайт: stihi.h12.ru
 Профиль | | #2
Добавлено: 25.10.02 22:58

Ни фига! Не получается

Ответить

Номер ответа: 3
Автор ответа:
 Ян



ICQ: 816105 

Вопросов: 38
Ответов: 198
 Web-сайт: www.yan.net.ru
 Профиль | | #3
Добавлено: 25.10.02 23:10
Лучше используй PictureBox.

Ответить

Номер ответа: 4
Автор ответа:
 Mister U



ICQ: 809526 

Вопросов: 49
Ответов: 63
 Web-сайт: stihi.h12.ru
 Профиль | | #4
Добавлено: 26.10.02 13:13

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

Да, кстати, при ресайзе формы рисунок становится в центре формы, и он мигает. Вот код:

---------------------------------------------------

Private Sub Form_Resize()

On Error GoTo err

If Frame1.Visible = False Then 'фрейм - это панель инструментов.

Image1.Visible = False 'пытаюсь избавится от миганий

Image1.Left = (Me.ScaleWidth - Image1.Width) / 2

Image1.Top = (Me.ScaleHeight - Image1.Height) / 2

Frame1.Width = Me.ScaleWidth

Image1.Visible = True

Else

Image1.Visible = False

Image1.Left = (Me.ScaleWidth - Image1.Width) / 2

Image1.Top = (Me.ScaleHeight - Image1.Height + Frame1.Height) / 2

Frame1.Width = Me.ScaleWidth

Image1.Visible = True

End If

err: Exit Sub

End Sub

Ответить

Номер ответа: 5
Автор ответа:
 Ян



ICQ: 816105 

Вопросов: 38
Ответов: 198
 Web-сайт: www.yan.net.ru
 Профиль | | #5
Добавлено: 27.10.02 00:34
Посмотри мой пример: http://yansoft.nm.ru/vb/samples/imgviewer.zip, может чем поможет

Ответить

Номер ответа: 6
Автор ответа:
 Ян



ICQ: 816105 

Вопросов: 38
Ответов: 198
 Web-сайт: www.yan.net.ru
 Профиль | | #6
Добавлено: 27.10.02 00:34
Посмотри мой пример: http://yansoft.nm.ru/vb/samples/imgviewer.zip, может чем поможет

Ответить

Номер ответа: 7
Автор ответа:
 Mister U



ICQ: 809526 

Вопросов: 49
Ответов: 63
 Web-сайт: stihi.h12.ru
 Профиль | | #7
Добавлено: 28.10.02 08:57

Спасибо Ян, немного помог в другом!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам