Diskuze: Me.close()

Aktivity

Achjon

Člen

Achjon:18.8.2016 10:39

Ahoj nevíte prosím vás proč po kliknutí na Button1 se okno Vytvoření účtu zavře

Public Class AccountCreation

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If My.Computer.FileSystem.FileExists("E:\ACCOUNTS\" + TextBox1.Text + "/username.txt") Then

MsgBox("Účet je již registrován.")

End If
If My.Computer.FileSystem.DirectoryExists(" E:\ACCOUNTS\") = True Then
Else
End If

If TextBox1.Text = "" Then
Label1.Text = "Více než 1 znak požadován"
Else
End If

If TextBox2.Text = "" Then
Label1.Text = "Chyba, Prosím vložte heslo"
Else
MkDir("E:\ACCOUNTS\" + TextBox1.Text)
Dim username As New System.IO.StreamWriter("E:\Accounts\" + TextBox1.Text + "\" + "username.txt")
username.Write(TextBox1.Text)
username.Close()
Dim password As New System.IO.StreamWriter("E:\Accounts\" + TextBox1.Text + "\" + "password.txt")
password.Write(TextBox2.Text)
password.Close()
Label1.Text = "Účet vytvořen"
Me.Close()
End If

End Sub

Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
Me.Close()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub

Private Sub AccountCreation_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Me.Close()

End Sub

Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged

End Sub
End Class

Odpovědět

18.8.2016 10:39

VitekST

Člen

VitekST:18.8.2016 10:51

Prvně, používej prosím pro vkládání kódu symbol s kódem nad editorem.
Zlepší to jeho čitelnost.

K otázce:
Zavře se, protože si řekl ať se zavře.
Příkaz Me.Close(), řádek 29.

Akceptované řešení
+20 Zkušeností
+2,50 Kč

Nahoru Odpovědět

18.8.2016 10:51

Achjon

Člen

Achjon:18.8.2016 10:54

Díky Vítku ty už jsi mi několikrát pomohl

Nahoru Odpovědět

18.8.2016 10:54

VitekST

Člen

VitekST:18.8.2016 11:22

No problem m8. 8-)

Nahoru Odpovědět

18.8.2016 11:22

Naučíme tě pracovat na home-office.

Zjistit více...

Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 4 zpráv z 4.