Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add(New Datenbank("connectionstring", "Datenbankname"))
End Sub
End Class
Public Class Datenbank
Public connectionstring As String
Dim datenbankname As String
Sub New(ByVal connstring As String, ByVal text As String)
connectionstring = connstring
datenbankname = text
End Sub
Public Overrides Function ToString() As String
Return datenbankname
End Function
End Class
MessageBox.Show(ComboBox1.SelectedItem.connectionstring)