Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
vceznayka
3 / 3 / 0
Регистрация: 27.10.2011
Сообщений: 66
1

Как передать данные из процедуры в Форме1 в процедуру в Форму2

07.11.2013, 14:52. Просмотров 404. Ответов 6
Метки нет (Все метки)

Имеется form2
Как передать данные из процедуры в Форме1 в процедуру в Форму2

при клике на кнопку “выбрать” активироваться Form1
Как передать данные из процедуры в Форме1 в процедуру в Форму2


на нем выбираем любое место и кликаем, координаты сохраняются в переменные Location_Top = e.X и Location_Left = e.Y, данные переменные обявил как Pablic/ Теперь вопрос как сделать так чтобы в Label9 и Label10 появились эти значения
Пыталься сделать так:
В Form2 написал так-

vb.net
1
2
3
4
Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label9.Text = Form1.Location_Top
Label11.Text = Form1.Location_Left  
End Sub
А в Form1 так
vb.net
1
2
3
4
5
6
7
8
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
Dim Location_Top, Location_Left As Integer
Location_Top = e.X
Location_Left = e.Y
Me.Visible = True
Form2.Show()
End If
End Sub
Пожалуйста подскажите, что не так
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.11.2013, 14:52
Ответы с готовыми решениями:

Как передать в процедуру массив (структуру)?
Как передать в другую процедуру структуру переменных? И так, к примеру у нас...

Как передать процедуре событие и ссылку на процедуру?
Как передать процедуре событие и ссылку на процедуру для реализации примерно...

Как передать точку входа процедуры?
А есть возможность в VB.NET и C# передать в качестве параметра указатель/точку...

Как передать данные из одномерного массива в многомерный
допустим есть есть группа массивов разной длинны а1(),а2(),а3(),а4(),а5()...

Как передать данные из MDI дочерней формы к Родительской форме?
У меня есть проект, который содержит основную форму/Main/.Из главной формы с...

6
Release
Заблокирован
07.11.2013, 15:45 2
vb.net
1
2
3
4
5
6
7
Public Location_Top, Location_Left As Integer
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        Location_Top = e.X
        Location_Left = e.Y
        Me.Visible = True
        Form2.Show()
    End Sub
Цитата Сообщение от vceznayka Посмотреть сообщение
переменные обявил как Pablic/
Не видно что-то. Да и пишется Public.
Сплошные ошибки.
0
vceznayka
3 / 3 / 0
Регистрация: 27.10.2011
Сообщений: 66
07.11.2013, 16:37  [ТС] 3
сори опечатка вышла
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Public Class Form1
    Public Location_Top As Integer
    Public Location_Left As Integer
 
    Dim DataMatrix As DataTable ' тут мы и будем хранить данные из файла и работать с ними. Отсюда же и сохранять будем изменения в файл
    Dim Sourcefile As String = "D:\проги\AlarmLog.csv" ' путь к файлу
    Dim cellseparator() As Char = {vbTab} ' разделитель данных в строках
   
 
    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub
 
 
    'при нажатии на кнопку миши дает ее координаты
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        Dim Location_Top, Location_Left As Integer
 
 
        Location_Top = e.X
        Location_Left = e.Y
        MsgBox(e.X & " X " & e.Y)
        Me.Visible = True
        Form2.Show()
        End Sub
 
    Private Sub AddAlarmToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddAlarmToolStripMenuItem.Click
 
        Me.Visible = True
        Form2.Show()
 
    End Sub
 
    
    Private Sub BTSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTSToolStripMenuItem.Click
        Me.Visible = True
        Form5.Show()
    End Sub
  
   
End Class
В Form2

vb.net
1
2
3
4
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label9.Text = Forma1.Location_Top
        Label11.Text = Form1.Location_Left
    End Sub
0
Release
Заблокирован
07.11.2013, 17:15 4
Цитата Сообщение от vceznayka Посмотреть сообщение
Dim Location_Top, Location_Left As Integer
тогда может стоит убрать это?
1
4epB9Ik
4 / 4 / 0
Регистрация: 13.06.2013
Сообщений: 20
08.11.2013, 07:25 5
Обычно использую модификатор Friend Shared если нужно обратится из другой формы
пример использования

vb.net
1
Friend Shared pos_x, pos_y as integer
(обьяви в form2)
а дальше чтобы обратится с первой формы к ним
vb.net
1
2
textbox1.text = form2.pos_x
textbox2.text = form2.pos_y
1
dimsaratov
349 / 288 / 78
Регистрация: 02.10.2013
Сообщений: 476
Записей в блоге: 5
08.11.2013, 08:05 6
Чем проще тем лучше
vb.net
1
2
3
4
5
6
7
8
9
'при нажатии на кнопку мыши дает ее координаты
Private Sub Form1_MouseDown(ByVal sender As Object, _
     ByVal e As System.Windows.Forms.MouseEventArgs) _
     Handles MyBase.MouseDown
     Form2. Label9. text = e.X
     Form2. Label10. text = e.Y
     MsgBox(e.X & " X " & e.Y)
     Form2.Show()
End Sub
1
vceznayka
3 / 3 / 0
Регистрация: 27.10.2011
Сообщений: 66
08.11.2013, 10:21  [ТС] 7
огромное спасибо за помощь!
0
08.11.2013, 10:21
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.11.2013, 10:21

Как передать данные из страницы ASPX в ранее загруженную страницу ASP
Загружена страница ASP. Нажатием кнопки загружаем в отдельном окне страницу...

Как в процедуру 1 передать адрес процедуры 2 через параметр чтобы процедура 1 выполнила процедуру 2
Зачем мне это нужно? Затем что написан вложеный цикл от 0 до N в нём цикл от 0...

Как передать переменную из формы1 в форму2 без противоречий основам ООП?
Как передать переменную из формы1 в форму2? Без противоречий основам ООП.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru