• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Графики

  • Автор темы Zefirka
  • Дата начала
Z

Zefirka

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

Private Sub Form_Load()
Dim CurrentName, CurrentNumber, strC As String
Dim i, j As Integer
Form1.Scale (0, 0)-(8, 8)
For i = 0 To 7
For j = 0 To 7
If (i + j) Mod 2 = 0 Then
Form1.Line (i, j)-(i + 1, j + 1), vbWhite, BF
Else: Form1.Line (i, j)-(i + 1, j + 1), vbGreen, BF
End If
Form1.CurrentX = i
Form1.CurrentY = j
Form1.Print Chr(i + 97) & Str(8 - j)
Next
Next
End Sub
 
T

Tanya

Графические функции бесполезно использовать в событии Private Sub Form_Load()
их, обычно, реализовывают в Private Sub Form_Paint()
 
Z

Zefirka

спасибо огромное, все работает и пример и прога моя.
вот и верь после этого учебникам
 
H

Hetman

а там действительно этот код в "Private Sub Form_Load()"??
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!