[Pytanie] jak zrobic ?

[DrexonPl]

jak zrobic żeby gdy nadusze ten przycisk:

program zamykał sie całkowicie bo mam 2 form i on sie nie zamyka tylko znika.

[PabloLewis]

Mozesz dodac Button, którego zaprogrmujesz na to, aby zamykal obie formy, a ten przycisk mozesz usunać.

[Gość]

W zdarzeniu FormClosing wstaw Application.Exit()

[PabloLewis]

W zdarzeniu FormClosing wstaw Application.Exit()

Nooo, albo mozesz zrobic tak

[DrexonPl]

i jeszcze jedno

mam error z tym:

        Dim R1 As String
        Dim R2 As String
        FileOpen(1, "opcje.txt", OpenMode.Input)
        Input(1, R1)
        Input(1, R2)
        Form2.TextBox1.Text = R1
        Form2.TextBox2.Text = R2
        FileClose()

a error taki:

 

poradziłem sobie poprostu nic nie wpisałem w drugiej linijce tekstu

 

edit:
co w tych kodach jest zle

 

Public Class Form1
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Application.Exit()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim obrazek As String
        obrazek = Form2.TextBox2.Text
        Me.BackgroundImage = System.Drawing.Image.FromFile(obrazek)
 
        Dim R1 As String
        Dim R2 As String
        FileOpen(1, "opcje.txt", OpenMode.Input)
        Input(1, R1)
        Input(1, R2)
        Form2.TextBox1.Text = R1
        Form2.TextBox2.Text = R2
        FileClose()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim R1 As String
        Dim R2 As String
        FileOpen(1, "opcje.txt", OpenMode.Input)
        Input(1, R1)
        Input(1, R2)
        Me.TextBox1.Text = R1
        Me.TextBox2.Text = R2
        FileClose()
 
        Dim LoginMC As String
        Dim PasswordMC As String
        Dim launch As String
 
        launch = "javaw -Xmx" & Form2.TextBox1.Text & "m" & " -Djava.library.path=%APPDATA%\.minecraft\versions\natives -cp %APPDATA%/.minecraft/libraries/net/sf/jopt-simple/jopt-simple/4.5/jopt-simple-4.5.jar;%APPDATA%/.minecraft/libraries/com/paulscode/codecjorbis/20101023/codecjorbis-20101023.jar;%APPDATA%/.minecraft/libraries/com/paulscode/codecwav/20101023/codecwav-20101023.jar;%APPDATA%/.minecraft/libraries/com/paulscode/libraryjavasound/20101123/libraryjavasound-20101123.jar;%APPDATA%/.minecraft/libraries/com/paulscode/librarylwjglopenal/20100824/librarylwjglopenal-20100824.jar;%APPDATA%/.minecraft/libraries/com/paulscode/soundsystem/20120107/soundsystem-20120107.jar;%APPDATA%/.minecraft/libraries/org/lwjgl/lwjgl/lwjgl/2.9.0/lwjgl-2.9.0.jar;%APPDATA%/.minecraft/libraries/org/lwjgl/lwjgl/lwjgl_util/2.9.0/lwjgl_util-2.9.0.jar;%APPDATA%/.minecraft/libraries/argo/argo/2.25_fixed/argo-2.25_fixed.jar;%APPDATA%/.minecraft/libraries/org/bouncycastle/bcprov-jdk15on/1.47/bcprov-jdk15on-1.47.jar;%APPDATA%/.minecraft/libraries/com/google/guava/guava/14.0/guava-14.0.jar;%APPDATA%/.minecraft/libraries/org/apache/commons/commons-lang3/3.1/commons-lang3-3.1.jar;%APPDATA%/.minecraft/libraries/commons-io/commons-io/2.4/commons-io-2.4.jar;%APPDATA%/.minecraft/libraries/net/java/jinput/jinput/2.0.5/jinput-2.0.5.jar;%APPDATA%/.minecraft/libraries/net/java/jutils/jutils/1.0.0/jutils-1.0.0.jar;%APPDATA%/.minecraft/libraries/com/google/code/gson/gson/2.2.2/gson-2.2.2.jar;%APPDATA%/.minecraft/versions/1.6.2/1.6.2.jar net.minecraft.client.main.Main --session SessionID --version 1.6.2 --gameDir %APPDATA%/.minecraft --assetsDir %APPDATA%/.minecraft/assets "
        LoginMC = "--username=" & TextBox1.Text
        PasswordMC = "--password=" & TextBox2.Text
 
        Shell("cmd.exe /c " & launch & LoginMC & PasswordMC)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show()
    End Sub
End Class

 

i drugi

 

 

Public Class Form2
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim obrazek As String
        obrazek = Me.TextBox2.Text
        Form1.BackgroundImage = System.Drawing.Image.FromFile(obrazek)
 
        System.IO.File.WriteAllText("opcje.txt", Me.TextBox1.Text)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        OpenFileDialog1.Filter = ".jpg|*.jpg|.bmp|*.bmp|.png|*.png"
        OpenFileDialog1.FileName = ""
        OpenFileDialog1.ShowDialog()
    End Sub
 
    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        TextBox2.Text = OpenFileDialog1.FileName
    End Sub
 
End Class