Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lukbt.Click Dim sw As StreamWriter Dim regKey As RegistryKey regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True) regKey.CreateSubKey("test") regKey.Close()
Private Sub smtptb_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles smtptb.TextChanged Dim regKey As RegistryKey regKey = Registry.LocalMachine.OpenSubKey("Software\lysavis", True) regKey.GetValue("smtp") End Sub
Public dinForm() Dim regKey As RegistryKey regKey = Registry.LocalMachine.OpenSubKey("Software\lysavis", True) smtptb.Text = regKey.GetValue("smtp") End
jeg sider og tænker om det kan havde noget med Private Sub smtptb_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles smtptb.TextChanged altså textboxen ikke ved hvordan den skal hente den.
nu fandt jeg det flot bare med at lukke øjnene op Me.smtptb.Location = New System.Drawing.Point(232, 48) Me.smtptb.Name = "smtptb" Me.smtptb.TabIndex = 1
du mangler ToString() eller CType(ditobject, String)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.