Перезаписать визуальные базовые параметры

Моя программа будет иметь ряд параметров, которые являются следующими примерами:

Public Module Program

    Public h As String = "[host]"
    Public port As Integer = "[port]"
    Public meltf As String = "[M]"
    Public Name As String = "[vn]"
    Public Y As String = "/j|n\"

End Module

И я хочу, чтобы из моей другой программы были перезаписаны эти значения:

Public Class Form1
    //Aqui es donde sobrescribire los valores de mi programa de arriba.
End Class

Это будет форма, куда я войду значения и я перезапишу их в моей другой программе с соответствующими значениями. В принципе, я понятия не имею, с чего начать, в принципе, мне просто нужно перезаписать этот параметр. Пример разрешения:

У меня есть две программы. В тот, где я ввожу данные, поскольку эти введенные данные изменят значение моей другой программы, присваивая каждому полю его значение либо в каждом примере строки host = "127.0.0.1".

Если больше деталей не хватает, я постараюсь исправить это.

0
задан 27.12.2016, 04:16
0 ответов

То, что я понимаю с твоим объяснением, состоит в том, что ты хочешь осуществить тип Template

Мне приходит в голову следующее решение (я сделал маленький код примера):

Соединение, чтобы загружать шрифт

Разработайте следующего form чтобы делать пример:

introducir la descripción de la imagen aquí

Мы идем из-за шагов:

  1. Разрабатывать Template, или шаблон, который будет заменен стоимостью
  2. Получать стоимость. В этом случае я произвожу с кнопкой Generar Стоимость
  3. Заменять шаблон или template со стоимостью

Верь в организацию или класс, чтобы хранить каждую из стоимости:

  Public Class Datos
        Public Property Port() As Int32
        Public Property Host() As String
        Public Property Meltf() As String
        Public Property Name() As String
        Public Property Y() As String
    End Class

Когда Стоимость нажимает на кнопку Generar, наполняется инстанция организации Datos

Верь в класс, чтобы заменять данные:

Public Class Reemplazar


public Function  Reemplaza(ByVal template As String, ByVal valores As Datos  ) As String
    dim resultado as String = template
    resultado = resultado.Replace("[port]",valores.Port)
    resultado = resultado.Replace("[host]",valores.Host)
    resultado = resultado.Replace("[vn]",valores.Name)
    resultado = resultado.Replace("[M]",valores.Meltf)
    resultado = resultado.Replace("/j|n\",valores.Y)

    Return resultado
End Function

End Class

С функцией Reemplaza, получи template и datos, и замени каждую информацию о шаблоне, который мы определяем с соответствующей стоимостью, в конце концов произведи один string и вот то, что возвращает функцию.

В конце концов я распределяю результаты последнему textbox чтобы показывать их:

Private Sub btnReemplazar_Click(sender As Object, e As EventArgs) Handles btnReemplazar.Click
        Try     
            me._txtSalida.Text = _r.Reemplaza(me._txtEntrada.Text,_d)
        Catch ex As Exception
            MessageBox.Show(ex.ToString())
        End Try
    End Sub
0
ответ дан 03.12.2019, 17:58