VPF::Рисование в MDI формах - Форум программистов

azusdex

Дата 4.1.2012, 02:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 26.12.2011

Репутация: нет
Всего: 1

Привет!

Имею дочернюю форму в которой заполняю клетками ( с помощью DrawRectangle). Если запускаю её отдельно то все нормально. Если же вызываю через MDIParent то рисунок на долю секунды появляется и тут же исчезает.

Не могу понять что не так!!!

вот так вызываю в Parent:

Код


Private Sub MainFrame_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load   
        PaintGraph.MdiParent = Me
        PaintGraph.Show()
End Sub

а это в Child:

Код


Imports System.Drawing

Public Class PaintGraph
    Dim k As Graphics

    Private Sub PaintGraph_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Show()
        Me.FormBorderStyle() = 3
        Me.Focus()
        k = Me.CreateGraphics
       
        drawGraphics()
    End Sub

    Private Sub drawGraphics()
        Dim col As Integer = Me.Width / 20 + 1
        Dim row As Integer = Me.Height / 20 + 1
        Dim pen_rect As Pen = Pens.BlueViolet
        Dim rect As Rectangle

        For x = 0 To col
            For y = 0 To row
                rect = New Rectangle(x * 20, y * 20, 20, 20)

                k.DrawRectangle(pen_rect, rect)
            Next
        Next
    End Sub
End Class

alex77755

Дата 5.1.2012, 03:56 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 59
Регистрация: 18.4.2009

Репутация: нет
Всего: нет

Вообще-то это код не VB6, а VB.NET.
В VB помогло бы AutoRedrav = True

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »