Графики

Тема в разделе "Visual Basic", создана пользователем Zefirka, 15 июн 2008.

  1. Zefirka

    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
     
  2. Tanya

    Tanya Гость

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

    Zefirka Гость

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

    Hetman Гость

    а там действительно этот код в "Private Sub Form_Load()"??
     
Загрузка...

Поделиться этой страницей