|
5 Кб. |
|
| Растягиваю рисунок по горизонтали (SizeMode=StretchImage), с правой стороны получаю не заказанный спецэффект.
Чем от него избавится?
Скрин GIF.
Спасибо.
Правка: VS2005 | |
|
| |
|
|
|
| Сбрось нормальный gif, а не то, что выдает тебе на экран. У мну твой рисунок отображается без искажений при растяжке на всю страницу. | |
|
| |
|
1 Кб. |
|
| Лови: | |
|
| |
|
|
|
| Блин, твой рисунок размыт с левого края. Естественно, будет такой эффект.
Добавлено: размыт с правого края. Фсе, хватить бухать, а право и лево уже путаю
ТЯП!!! | |
|
| |
|
|
|
| Неа, не размыт. В Access то все ОК с тем-же рисунком. В студии доп эффект срабатывает, а вот как его погасить ...
Бросай пить, семья из дома выгонит. | |
|
| |
|
10 Кб. |
|
| А я говорю, что размыт. Вот твой рисунок в увеличенном виде | |
|
| |
|
14 Кб. |
|
| А я говорю не размыт. Вот он в аксе:
Ты BMP-шку в Paint-е масштабируй по мах, там все чистенько.
А, так ты встроенной "порнушкой" BMP-шку смотришь, так там и слоника размоет... при увеличении. | |
|
| |
|
|
|
| А вот "исчо" какой вопрос возник.
Как бы исхитрится на загрузке формы добыть рисунок из ImageList и затолкать его в PictureBox?
Привык я как-то, все свое с собой носить... | |
|
| |
|
|
|
| Слевой стороны не размыт, потому как край формы его обрезает - как Вы считаете?
С правой стороны края формы - нет - может пододвинуть край? | |
|
| |
|
|
|
| Me.PictureBox1.Image = Me.ImageList1.Images(Индекс твоей картинки в коллекции ImageList) | |
|
| |
|
12 Кб. |
|
| Ну это мне первое, что в голову пришло. Однако ругается в аккурат на эту строку..., хотя и показывает. | |
|
| |
|
|
|
| А блин, похоже я не в ту процедуру ее запихал.
Переместил в Public Sub New(), вроде перестала ругаться.
Спасибочки. | |
|
| |
|
|
|
| Me.PictureBox1.Image = Me.ImageList1.Images("Lukas1.bmp")
У мну не ругается ни в первом случае, ни в этом | |
|
| |
|
0 Кб. |
|
| Lukas, у тебя кривая картинко. Вот растянул на всю форму похожий катринк - никаких искажений | |
|
| |
|
5 Кб. |
|
| Ну вот с другими рисунками:
Ты ширину рисунка сколько пикселей делал? | |
|
| |
|
|
|
| Хочешь посмеяться?
Вот так нормально размножается:
Me.ImgTop.BackgroundImage = Form1.ImageList1.Images(0)
Image не задан.
Добавлено.
А что прямоугольничков и линий в наборе Toolbox нет? Или плохо ищу? | |
|
| |
|
|
|
|
Me.ImgTop.BackgroundImage = Form1.ImageList1.Images(0)
Image не задан.
|
Что значит Image не задан? Ты ж задал его бэкграунд в виде картинки | |
|
| |
|
|
|
| Имелось в виду, что не Image-ем, а BackgroundImage-ем. | |
|
| |
|
|
|
|
Имелось в виду, что не Image-ем, а BackgroundImage-ем.
|
Я бы аккуратнее пользовался бэкграундами - там есть свои нюансы | |
|
| |
|
|
|
| Ну, граблей впереди еще много раскидано ...
Но ведь пока по лбу не получишь ... | |
|
| |
|
|
|
|
А что прямоугольничков и линий в наборе Toolbox нет? Или плохо ищу?
|
Вааще то есть такие элементы, как Picturebox с которым ты в настоящий момент имеешь сексуальные отношения - его можно импользовать для создания линий.
В качестве прямоугольников можно использовать Panel - регулируя его borderstyle и borderwidth
Можно так же поизвращаться со сплит-контейнером | |
|
| |
|
|
|
| Да уж, извращаться я люблю. Бум пробовать. | |
|
| |
|
|
|
|
Ты ширину рисунка сколько пикселей делал?
|
Me.PictureBox2.Width = Form.ActiveForm.Width - т.е. на всю ширину формы | |
|
| |
|
|
|
| Я имел в виду ширину оригинального рисунка, а не его растянутость по форме.
А я просто Dock-ом PictureBox к верху или низу привязываю. Мне в аккурат так и надо. Его размеры уже среда сама пасет. Ленивец, однако. | |
|
| |
|
|
|
| Опять напасть. Не могу Label-у прозрачность дать. Она поверх рисунка лежит. | |
|
| |
|
|
|
| ну ты даешь... Label.Visible=false | |
|
| |
|
|
|
| Так это она совсем спрячется, а мне текст от нее нужен, а фон прозрачный.
Типа текст поверх моего рисунка.
Пробовал рисунок в лабел пихать, так он там размножаться паразит не хочет. | |
|
| |
|
|
|
| теперь понятно. Я то работаю в ASP.Net Там таких проблем нет.
А вот в WindowsForms - это проблема известная. Где то видел решение, щас попробую найти | |
|
| |
|
|
|
|
| Найти - не нашел, но придумал как побороть -
Dim lab1 As New Label
Me.PictureBox2.Controls.Add(lab1)
lab1.Visible = True
lab1.Top = 50
lab1.Left = 50
lab1.BackColor = Color.Transparent
lab1.Text = "УРА"
lab1.ForeColor = Color.Black
В этом случае лабел станет на твою картинку PictureBox2 с прозрачным фоном
Регулируя top и left lab1 можно поместить надпись туда, куда нужно | |
|
| |
|
|
|
| Я тут отвлекся немного.
Спасибо, лабел затранспаранилась таки, хоть и через ж.. . | |
|
| |
|
|
|
| Вот "исчо" возник вопрос:
У контролов не могу найти BorderColor, так задумано, или плохо искал? | |
|
| |
|
|
|
| Смотря у каких контролов?
У баттона - есть (смотри FlatApearance) | |
|
| |
|
|
|
| Искал у Label, PictureBox, Panel. Нужно сделать рамку по периметру формы с FormBorderStyle=None. Причем рамка должна быть поверх других контролов, таких как Label, PictureBox.
А Button для этой задачи наверное не лучшее решение?
Или четыре штуки делать шириной(высотой) в линию?
PS. А от этого я визжал как поросенок:
bitmapTop.RotateFlip(RotateFlipType.Rotate180FlipNone) | |
|
| |
|
|
|
| А панель чем не устраивает? | |
|
| |
|
|
|
| BorderColor-ом штатным.
+Если остальные контролы кидать сверху панели, придется их сдвигать на ширину линии, чтобы рамка периметра осталась видна.
В Аксе прямоугольник сверху других контролов кинул, задал ему BorderColor, и он живет своей жизнью, никому не мешает. | |
|
| |
|
|
|
| Сделай 2 панели. Нижней задай нужный бэкколор, а верхнюю - уменьши на величину необходимой границы. И получишь рамку с нужным бордерколором | |
|
| |
|
|
|
| Опробую. Спасибо.
Вот только все остальные контролы придется отодвигать от краев, чтобы не заслоняли бордюрчик.
А нижняя панель наверное не нужна, можно саму форму использовать. | |
|
| |