Программирование
Веб программирование

Заливка окна рисунком в VB

 
 

Для заливки окна на форму запульни объект Image, и в Поинте нарисуй квадрат, если из тебя художник ни какой, то скачай исходник, и от туда возьми мой квадрат. Теперь впиши код:

Private Sub Form_Load() 'Ставим Image в самое начало формы:
Image1.Left = 0
Image1.Top = 0
End Sub

Private Sub Form_Paint() 'Это событие помойму тоже самое что и Resize
'Объявляем переменные
Dim X As Integer, Y As Integer
Dim ImgW As Integer
Dim ImgH As Integer
Dim FrmW As Integer
Dim FrmH As Integer

'Использование Image1 в PaintPicture methods:
ImgW = Image1.Width
ImgH = Image1.Height
FrmW = Form1.Width
FrmH = Form1.Height

'Залить целую форму:
For X = 0 To FrmW Step ImgW
For Y = 0 To FrmH Step ImgH
PaintPicture Image1, X, Y
Next Y
Next X
End Sub


Здесь Исходник


Есть вопросы? Спроси на нашем форуме!!
Sigma20 [29.07.2013 15:20]

Красиво но не понятно как работает. Лучше заменить код на
Private Sub Form_Paint()
Dim X As Integer
Dim Y As Integer
X = 2000
Y = 1000
PaintPicture Image1, X, Y
End Sub
Сразу видно, что PaintPicture загружает Image1 левый верхний угол которого попадает в точку (X,Y). А дальше можно творить.



Оставлять комментарии можно только зарегистрированным




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