Вопросы по VB 2005

[Dimon88]

1) Есть несколько форм. Нужно объявить переменную так, что бы она доступна была во всех формах. Как?

2)
...
MyFileName="C:\1.bmp"
PictureBox1.Image = Image.FromFile(MyFileName)
FileOpen(1, MyFileName, OpenMode.Binary)
....
На второй строке возникает ошибка:
The process cannot access the file 'C:\1.bmp' because it is being used by another process.

3)Есть 2 формы. По кнопке на первой форме нужно нарисовать на PictureBox1 (допустим линию), которая находится на второй форме.

[alexBlack]

1.

Public Class Form2

    Public test As Integer

End Class

2.
В справке написано: <<The file remains locked until the Image is disposed.>>
Читайте из потока:

        Dim MyFileName As String
        MyFileName = "C:\1.bmp"

        Dim s As New FileStream(MyFileName, FileMode.Open)
        PictureBox1.Image = Image.FromStream(s)
        REM PictureBox1.Image = Image.FromFile(MyFileName)
        s.Dispose()

        Dim FileNumber
        FileNumber = FreeFile()
        FileOpen(FileNumber, MyFileName, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Shared)
        FileClose(FileNumber)

3.
Ну скопируйте содержимое, нарисуте на нем и верните обратно:

        Dim b As Bitmap = New Bitmap(Form2.PictureBox1.Image)
        Dim g As Graphics
        g = Graphics.FromImage(b)
        g.DrawLine(Pens.Black, 10, 10, 20, 20)

        Form2.PictureBox1.Image = b

[Dimon88]

Написал:
Dim b As Bitmap = New Bitmap(Form2.PictureBox1.Image)
Dim g As Graphics
g = Graphics.FromImage(b)
g.DrawLine(Pens.Black, 10, 10, 20, 20)
Form2.PictureBox1.Image = b

Ругается на первую строчку:
Object reference not set to an instance of an object.

[Dimon88]

Я создал новый класс (Проект->Add->Class)
Public Class Class1
Public Gys(255) As Integer
End Class
Только как к массиву Gys(255) обратиться теперь?

[alexBlack]

Сообщение от Dimon88

Я создал новый класс (Проект->Add->Class)
Public Class Class1
Public Gys(255) As Integer
End Class
Только как к массиву Gys(255) обратиться теперь?

        Dim a As Class1
        a = New Class1()
        a.Gys(1) = 123

[Dimon88]

Сообщение от alexBlack

        Dim a As Class1
        a = New Class1()
        a.Gys(1) = 123

На одной форме я заполнил массив. На другой форме все элементы массива равны нулю.

[alexBlack]

Сообщение от Dimon88

На одной форме я заполнил массив. На другой форме все элементы массива равны нулю.

Наверное, элементы другого массива.

Для чего был Ваш первый вопрос ?

1) Есть несколько форм. Нужно объявить переменную так, что бы она доступна была во всех формах. Как?

Объявите массив в одной форме как public, создайте его и заполните. Тогда в другой Вы сможете его использовать.

И почитайте, наконец, книжку.

[Dimon88]

Я уже пытался через Public объявить. Не получается. На массив во второй форме матерится, говорит не задекларировано. В VB 6.0 так канало, но в VB 2005 не получается.

[alexBlack]

Сообщение от Dimon88

Я уже пытался через Public объявить. Не получается. На массив во второй форме матерится, говорит не задекларировано. В VB 6.0 так канало, но в VB 2005 не получается.

Показали бы как пытались. Вот это не работает ? :

Public Class Class1
    Public Gys(255) As Integer
End Class

Public Class Form2

    Public b As Class1 = New Class1()   rem это наш объект

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show(b.Gys(1))  rem здесь мы показываем элемент массива
    End Sub
End Class

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.b.Gys(1) = 5  rem а здесь заполняем массив
        Form2.Show()
    End Sub

End Class

Это работает (только у меня VS 2008), хотя мне такая организация не нравится. Разбросанное по трем файлам обращение к одному классу приведет только к запутыванию кода.