2015-04-22 4 views
0

Привет В настоящее время я работаю над проектом, в котором я хочу получить информацию из формы1, в этом случае ее данные о адресе для карт Google, а затем отобразятся карты Google в отдельной форме для предыдущего. Основная причина, по которой я хочу сохранить их в отдельности, - это то, что у меня есть база данных, связанная с первой.Ссылки между двумя формами

Я включил копию моего кода, в котором я 90% закончен, но просто нужно кого-то, чтобы показать мне простую строку кода, чтобы связать веб-браузер по форме 2 к форме 1

Private Sub BTNMap_Click (отправитель As Object, е Как EventArgs) Ручки BTNMap.Click Form2.Show()

Dim Postcode As String = PostcodeTextBox.Text 
    Dim Address As String = AddressTextBox.Text 


    Try 
     Dim queryAddress As New StringBuilder 
     queryAddress.Append("http://maps.google.com/maps?q=") 

     If PostcodeTextBox.Text <> String.Empty Then 
      queryAddress.Append(Postcode + "," & "+") 
     End If 

     If AddressTextBox.Text <> String.Empty Then 
      queryAddress.Append(Address + "," & "+") 
     End If 


     Internet.Navigate(queryAddress.ToString) 

    Catch ex As Exception 
     MessageBox.Show("Unable to retrieve data") 
    End Try 

End Sub 

PS

Я не поставить какой-либо мог по форме 2, как я не ни на что, чтобы написать ссылку пара. Также немного объяснение, которое я хотел бы взять информацию о форме, которая будет представлена ​​на Google виде карты 2

Проблема Internet.Navigate (queryAddress.ToString)

Я новичок в программировании, так легко на me

+0

использовать класс для хранения и управления важными данными, а не формы. Класс может размещать данные в любой форме, которая ему нужна, – Plutonix

+0

Можно ли получить небольшой пример –

+0

Можно ли получить небольшой пример? –

ответ

0

Используйте полное имя объекта в другом классе, к которому вы хотите получить доступ. * Примечание. Объект должен иметь уровень доступа Public, чтобы быть доступным извне класса, в котором он был объявлен.

Пример:

Option Strict On 
Option Explicit On 
Option Infer Off 
Public Class Form1 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Form2.Show() 
     Form2.WebBrowser1.Navigate(TextBox1.Text) 
    End Sub 
End Class 
+0

Прекрасное спасибо. –

Смежные вопросы