Графики

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

Zefirka

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

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

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

Zefirka

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

Hetman

#4
а там действительно этот код в "Private Sub Form_Load()"??