Avatar billede nicklasw Nybegynder
27. januar 2005 - 19:14 Der er 9 kommentarer og
1 løsning

string mellem to form's

Hej.
er det muligt at sende en string fra en form til en anden?
jeg prøvet at lave et lille test program for at se om det virkede.
I form 2:

dim form as form1
textbox1.text = form.textbox1.text

det virkede ikke. er der en der har en idé hvordan man gør.
ellers bliver jeg nød til at skrive det ned i en midlertidig text file (StreamWriter)

Håber at i kan hjælpe mig
Hilsen Nicklas
Avatar billede arne_v Ekspert
27. januar 2005 - 19:27 #1
Enten skal det være en Shared string eller så skal du have en
reference til den anden form.

Se f.eks. http://www.eksperten.dk/spm/584145 (det er ganske vist en metode
vi snakker om der, men det er helt det samme for et felt eller en property)
Avatar billede nicklasw Nybegynder
27. januar 2005 - 19:49 #2
Undskyld men jeg er rimlig lost når det angår c#
kan du forklare shared string og at reference til en anden form,
lidt mere
Avatar billede arne_v Ekspert
27. januar 2005 - 22:03 #3
Her er et eksempel som sender en string fra main form over til sub form.

Jeg bruger kun strengen til at sætte titel med, men den kunne jo bruges
til hvad som helst.

Imports System
Imports System.Drawing
Imports System.Windows.Forms

Namespace E5
    Public Class MainForm
        Inherits Form

        Private button1 As Button
       
        Public Sub New()
            MyBase.New
            InitializeComponent
        End Sub
       
        Private Sub InitializeComponent()
            button1 = New Button
            SuspendLayout
            button1.Location = New Point(100, 100)
            button1.Size = New Size(100, 25)
            button1.Text = "Åben sub form"
            AddHandler button1.Click, AddressOf Button1Click
            ClientSize = New Size(300, 225)
            Controls.Add(button1)
            Text = "Main Form"
            ResumeLayout(false)
        End Sub
       
        Private Sub Button1Click(sender As System.Object, e As System.EventArgs)
            Dim form2 As New SubForm("Sub Form")
            form2.Show
        End Sub
       
    End Class
   
    Public Class SubForm
        Inherits Form

        Public Sub New(title As String)
            MyBase.New
            ClientSize = New Size(100, 100)
            Text = title
        End Sub
    End Class

    Public Class TestClass       
        Public Shared Sub Main
            Dim form1 As New MainForm
            form1.ShowDialog()
        End Sub
    End Class
End Namespace
Avatar billede nicklasw Nybegynder
28. januar 2005 - 10:04 #4
jeg er jo bare en lille dum dreng på 13. så kan du ikke forklare den lidt.
jeg har prøvet at copy - paste hele koden. men der går der fejl i

Imports System
Imports System.Drawing
Imports System.Windows.Forms

Namespace E5

så jeg gør sikkert noget forkert.

PS: vil gerne give dig flere point hvis du forklare mig koden
Avatar billede arne_v Ekspert
28. januar 2005 - 20:26 #5
Hvilken fejl ?
Avatar billede arne_v Ekspert
28. januar 2005 - 20:30 #6
Der er ikke så meget at forklare.

        Public Shared Sub Main
            ' lav ny instans af MainForm
            Dim form1 As New MainForm
            ' vis denne
            form1.ShowDialog()
        End Sub



        Public Sub New(title As String)
            MyBase.New
            ' sæt størrelse til 100 x 100
            ClientSize = New Size(100, 100)
            ' sæt titel
            Text = title
        End Sub


        Private Sub InitializeComponent()
            button1 = New Button
            SuspendLayout
            ' lav knap med størrelse 100 x 25 på position 100,100
            button1.Location = New Point(100, 100)
            button1.Size = New Size(100, 25)
            button1.Text = "Åben sub form"
            ' definer hvad der kalde sved klik
            AddHandler button1.Click, AddressOf Button1Click
            ' sæt vinduets størrelse til 300 x 300
            ClientSize = New Size(300, 225)
            ' tilføj knap til vindue
            Controls.Add(button1)
            ' sæt vinduets titel
            Text = "Main Form"
            ResumeLayout(false)
        End Sub

     
        Private Sub Button1Click(sender As System.Object, e As System.EventArgs)
            ' lav ny instans af SubForm og angiv titlen
            Dim form2 As New SubForm("Sub Form")
            ' vis subform
            form2.Show
        End Sub
Avatar billede nicklasw Nybegynder
29. januar 2005 - 11:26 #7
TAK

gå ind på den her http://www.eksperten.dk/spm/585839
Avatar billede arne_v Ekspert
29. januar 2005 - 11:27 #8
Men hvorfor i et separat spørgsmål ?
Avatar billede nicklasw Nybegynder
29. januar 2005 - 11:30 #9
arne du skal også lige ligge et svar her
Avatar billede arne_v Ekspert
29. januar 2005 - 13:14 #10
ok
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester