Válí se ti projekty v šuplíku? Dostaň je mezi lidi a získej cool tričko a body na profi IT kurzy v soutěži ITnetwork summer 2017!
Přidej si svou IT školu do profilu a najdi spolužáky zde na síti :)

Diskuze: Me.close()

C# .NET .NET (C# a Visual Basic) Me.close() American English version English version

Aktivity (1)
Avatar
Achjon
Člen
Avatar
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.Fi­leSystem.File­Exists("E:\AC­COUNTS\" + TextBox1.Text + "/username.txt") Then

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

End If
If My.Computer.Fi­leSystem.Direc­toryExists(" 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:\ACCO­UNTS\" + TextBox1.Text)
Dim username As New System.IO.Stre­amWriter("E:\Ac­counts\" + TextBox1.Text + "\" + "username.txt")
username.Write(Tex­tBox1.Text)
username.Close()
Dim password As New System.IO.Stre­amWriter("E:\Ac­counts\" + TextBox1.Text + "\" + "password.txt")
password.Write(Tex­tBox2.Text)
password.Close()
Label1.Text = "Účet vytvořen"
Me.Close()
End If

End Sub

Private Sub PictureBox2_Clic­k(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 AccountCreati­on_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

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

End Sub

Private Sub TextBox3_TextChan­ged(sender As Object, e As EventArgs) Handles TextBox3.TextChan­ged

End Sub
End Class

 
Odpovědět 18.8.2016 10:39
Avatar
VitekST
Člen
Avatar
Odpovídá na Achjon
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í
+1 bodů
Řešení problému
 
Nahoru Odpovědět 18.8.2016 10:51
Avatar
Achjon
Člen
Avatar
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
Avatar
VitekST
Člen
Avatar
Odpovídá na Achjon
VitekST:18.8.2016 11:22

No problem m8. 8-)

 
Nahoru Odpovědět 18.8.2016 11:22
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.