Как создать выполнение операций при запуске формы

[mnxamoto]

У меня есть пару вопросов:

1. Как создать выполнение операций при запуске формы. Я хочу чтобы при запуске формы кнопка окрашивалась в цвет который я задал Pen1, в последствии он будет сам меняться так как, я задал этой кнопке оператор ColorDialog.

2. Что не так с кодом? (Может это простой вопрос, но помогите плиз)

Код: Выделить всё

Label1.Text = ("Введите ниже текст, который будет отображать на изображении" "по координатам: x:" (x1) "и y:" (y1)

3. Как создать выполнение такой операции, чтобы при нажатии кнопки в форме(Например: Form1), менялось значение размера элемента PictureBox в другой форме (Например: Form2)? Не могу сделать ссылку на PictureBox.Size.

Всем кто поможет большое спасибо!!!

[Qwertiy]

1. Как создать выполнение операций при запуске формы.

Обработать событие Form_Load.

2. Что не так с кодом?

Сложнее сказать, что с ним так.

3. Как создать выполнение такой операции, чтобы при нажатии кнопки ...

Обработать её событие Click.

[mnxamoto]

На счёт первого спасибо, но на счёт третьего:
Я понимаю что нужно обработать событие клик, у меня не получается передать значение переменной из первой формы значению другой переменной из другой формы.

и на счёт второго:

Код: Выделить всё

Label1.Text = "Введите ниже текст, который будет отображать на изображении" "по координатам: x:" (x1) "и y:" (y1)

пишет что требует завершение оператора, в частности требовал ")", но кода их ставишь появляется массив который этот оператор не может обработать.

[Qwertiy]

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

Лучше самому создавать экземпляр формы и оттуда тащить нундые данные.
Другой вариант - использовать возможности совместимости с VB6 и My.Forms.

и на счёт второго:

Код: Выделить всё

Label1.Text = "Введите ниже текст, который будет отображать на изображении" "по координатам: x:" (x1) "и y:" (y1)

пишет что требует завершение оператора, в частности требовал ")", но кода их ставишь появляется массив который этот оператор не может обработать.

А расставить операторы конкатенации строк не пробовал?
Какой ещё массив? Массив пишется через запятую в фигурных скобках.

[mnxamoto]

Спасибо, помог

ну если не трудно ответь ещё на один вопрос:
заранее задал:

Код: Выделить всё

Dim x1, y1 As Integer
    Dim T As String
    Dim Pen1 As New Pen(Color.Black, 3)
    Dim Brush1 As New SolidBrush(Color.Red)
    Dim Image1 As New Bitmap(1200, 800)
    Dim drawFont As New Font("Arial", 12)
    Dim Graph1 As Graphics = Graphics.FromImage(Image1)
    PictureBox1.Image = Image1

и хочу что бы наносилось на PictureBox текст:

Код: Выделить всё

If Label1.Text = 1 Then T = TextBox1.Text : Graph1.DrawString(T, drawFont, Pen1, x1, y1)

[Qwertiy]

заранее задал:

Лучше думать, что надо заранее, а что нет. Вообще, для красной кисти есть Brushes.Red, если не ошибаюсь.

If Label1.Text = 1 Then

Так писать плохо.

T = TextBox1.Text : Graph1.DrawString(T, drawFont, Pen1, x1, y1)

И так тоже.

ну если не трудно ответь ещё на один вопрос

А где вопрос?

[mnxamoto]

у меня таком коде:

Код: Выделить всё

If Label1.Text = 1 Then T = TextBox1.Text : Graph1.DrawString(T, drawFont, Pen1, x1, y1)

пишет ошибку:
не удалось разрешить перегрузку, так как ни один допустимый DrewString не может быть вызван данными аргументами

[Qwertiy]

не удалось разрешить перегрузку, так как ни один допустимый DrewString не может быть вызван данными аргументами

Ну так посмотри прототипы метода. Он не принимает перья.

[mnxamoto]

да точно я перепутал
Спасибо за все!!!