VBNet - Форум - Картинка вылазит за форму

Вопрос: Картинка вылазит за форму Добавлено: 10.07.06 13:18

Автор вопроса: LeX | Web-сайт: www.vbkoders.info | ICQ: 301424893

If Picture1.Left <= 0 Then Picture1.Left = 0: L = False
If Picture1.Top <= 0 Then Picture1.Top = 0: U = False
If Picture1.Left + Picture1.Width >= Form1.Width Then Picture1.Left = Form1.Width - Picture1.Width: R = False
If Picture1.Top + Picture1.Height >= Form1.Height Then Picture1.Top = Form1.Height - Picture1.Height: D = False

Мне нужно сделать так, чтобы picture1 не вылазыла за рамки формы. Друг игрушку делает:) Танчики 2д:)
U, L, R, D - переменные Boolean. Вроде все правильно.. Подскажите, что я не так делаю??
Ответить

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

Номер ответа: 1 Автор ответа: LeX ICQ: 301424893 Вопросов: 28 Ответов: 277	Web-сайт: www.vbkoders.info Профиль \| \| #1	Добавлено: 10.07.06 13:34
	PS. Влево и вверх не вылазит, а вниз и вправо - вылазит (( Ответить

Номер ответа: 2 Автор ответа: avdey ICQ: 219571279 Вопросов: 34 Ответов: 486	Профиль \| \| #2	Добавлено: 10.07.06 16:52
	Может из-за того, что координаты у контролов разные... Попробуй приравняй ширину и высоту Пикчербокс к ширине и высоте формы, картинка все равно будет вылазить за форму, особенно по высоте вниз. Ответить

Номер ответа: 3 Автор ответа: Pashenko ICQ: 176176951 Вопросов: 14 Ответов: 655	Профиль \| \| #3	Добавлено: 10.07.06 17:20
	Вместо Form1.Width и Form1.Height используй Form1.ScaleWidth и Form1.ScaleHeight Ответить

Номер ответа: 4 Автор ответа: LeX ICQ: 301424893 Вопросов: 28 Ответов: 277	Web-сайт: www.vbkoders.info Профиль \| \| #4	Добавлено: 10.07.06 17:30
	Спасибо за внимание! Отдельное спасибо Pashenko! Ответить

Номер ответа: 5 Автор ответа: LeX ICQ: 301424893 Вопросов: 28 Ответов: 277	Web-сайт: www.vbkoders.info Профиль \| \| #5	Добавлено: 10.07.06 17:35
	Но все равно не работает... Ответить

Номер ответа: 6 Автор ответа: Серёга ICQ: 262809473 Вопросов: 17 Ответов: 561	Web-сайт: houselab.narod.ru Профиль \| \| #6	Добавлено: 10.07.06 17:58
	Form1.ScaleMode=1 Picture1.ScaleMode=1 и всё должно заработать, а если ты юзаешь не твипы, а пиксели, то должен помочь код Pashenko, но при этом ScaleMode обоих контролов должен быть обинаковым. Ответить

Номер ответа: 7 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #7	Добавлено: 10.07.06 20:58
	запас просто сделай... If Picture1.Left + Picture1.Width >= Form1.Width Then Picture1.Left = Form1.Width - Picture1.Width - 50: R = False Ответить

Страница: 1 |