kostenloser Webspace werbefrei: lima-city


textboxen erstellen

lima-cityForumProgrammiersprachenBasic

  1. Autor dieses Themas

    the-8-beta

    the-8-beta hat kostenlosen Webspace.

    hallo

    ich will per code Textboxen und ein Label erstellen.:
    Public Function createLabel() As Label
            Return New Label
        End Function
    
        Public Function createText() As TextBox
            Return New TextBox
        End Function

    in anderen Klasse habe ich 2 variablen dafür.
    Public text As TextBox
        Public label As Label

    das zuweisen mach ich da:
    Public Sub CreateLabelAndTextbox()
            text = Startform.createText()
            label = Startform.createLabel()
        End Sub

    das Problem. ich seh kein textbox oder label!
    hilfe pls, thx.
  2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

  3. und wo sagst du, dass das erzeugte Label und die erzeugte Textbox in deinem Fenster dargestellt werden sollen? das hast du wohl irgendwie vergessen.

    in deiner "anderen Klasse" musst du noch sowas schreiben wie:
    me.controls.add(text)
    me.controls.add(label)
    Gut wärs, wenn du noch eine Position vorgeben würdest, wo die Elemente erscheinen sollen.
  4. Autor dieses Themas

    the-8-beta

    the-8-beta hat kostenlosen Webspace.

    Danke für deine Antwort.

    Das hab ich jetzt in der Klasse drin die nicht die von der Form ist.(ich habs wie du gesagt hast noch mal geändert.)
    Public Sub CreateLabelAndTextbox()
            text = Startform.createText()
            label = Startform.createLabel()
            Startform.Controls.Add(text)
            Startform.Controls.Add(label)
            With text
                .Top = Startform.getTextTop()
                .Left = Startform.getTextLeft()
                .Enabled = True
                .Visible = True
                .Width = 39
                .Height = 13
            End With
            With label
                .Top = Startform.getLabelTop()
                .Left = Startform.getLabelLeft()
                .Enabled = True
                .Visible = True
                .Width = 39
                .Height = 13
            End With
        End Sub


    Das ist der code der in der Klasse von der Form ist(Startform)
    Public Function createLabel() As Label
            Return New Label
        End Function
    
        Public Function createText() As TextBox
            Return New TextBox
        End Function


    funzt trotzdem noch nicht.

    Beitrag zuletzt geändert: 22.12.2010 20:51:05 von the-8-beta
  5. Public Class Form1
    
       Dim mylabel As New Label
       Dim mytextbox As New TextBox
    
       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
          Me.Controls.Add(mylabel)
          Me.Controls.Add(mytextbox)
          mytextbox.Text = "TEXTBOX"
          mylabel.Text = "LABEL"
          mytextbox.Top = 10
          mylabel.Top = 50
       End Sub
    End Class
    Also bei mir funktioniert dieser Code wunderbar. Ich glaub du hast entweder:
    a) die falsche Klasse verwendet (sorry, blicke da nicht durch wo du das genau eingetragen hast)
    oder
    b) Steuerelemente sind nicht sichtbar, weil du die Position irgendwo gesetzt hast, wo die nicht mehr innerhalb des Fensters sind (schätze mal zu weit oben)
  6. Autor dieses Themas

    the-8-beta

    the-8-beta hat kostenlosen Webspace.

    ^so einfach hab ich es nicht
    weil ich weiß nicht wie viele Textboxen, Labels erzeugt werden müssen.
    Diese Klasse wird x mal erstellt:
    Public Class Setting
    #Region "Variablen"
        Public sv_setting As String
        Public Typ As String
        Public Value As String
        Public text As TextBox
        Public label As Label
        Property labeltext As String
            Get
                Try
                    Return label.Text
                Catch ex As Exception
                    Startform.Status1.Text = "ERROR Class Setting labeltext-Get"
                    Return ("")
                End Try
            End Get
            Set(ByVal value As String)
                Try
                    label.Text = value
                Catch ex As Exception
                    Startform.Status1.Text = "ERROR Class Setting labeltext-Set"
                End Try
            End Set
        End Property
    #End Region
    
        Public Sub CreateLabelAndTextbox()
            text = Startform.createText()
            label = Startform.createLabel()
            Startform.Controls.Add(text)
            Startform.Controls.Add(label)
            With text
                .Top = Startform.getTextTop()
                .Left = Startform.getTextLeft()
                .Enabled = True
                .Visible = True
                .Width = 39
                .Height = 13
            End With
            With label
                .Top = Startform.getLabelTop()
                .Left = Startform.getLabelLeft()
                .Enabled = True
                .Visible = True
                .Width = 39
                .Height = 13
            End With
        End Sub
    End Class

    deswegen kann ich es nicht so machen. wie du sagtest :(
    Der Pfad zu der Klasse ist:
    Startform->config_muster->setting
    config_muster gekürtzt:
    Private File As New Datei
        Private SettingsCounter As Integer
        Public Settings() As Setting
        Public Sub get_muster()
            ReDim Settings(ZähleDims()) 'Wie viele settings gibt es?
            SettingsCounter = 0 'zähler zurücksetzen
    
    
            Dim Zeilen As List(Of String) 'Datei einlesen
            Zeilen = File.Zeilen_array
    
            Dim i As Integer
            For i = 0 To Zeilen.Count - 1 Step 1 'Jede Zeile durchgehen
                Zeile(Zeilen.Item(i))
            Next
        End Sub
    
        Public Sub Zeile(ByVal text As String) 'Zeile auswerten
            If StringBis(text, " "c, 0) = "dim" Then
                If StringVon(StringBis(text, "("c, 0), " "c, 0) = "text" Then
                    'Objekt erstellen
                    Settings(SettingsCounter) = New Setting
                    Settings(SettingsCounter).CreateLabelAndTextbox()
                    Dim KlammerInhalt As String = AusKlammern(text, 8)
                    Dim labeltext As String = StrAusLesen(KlammerInhalt, Chr(34), 8)
                    Dim sv_setting As String = StrAusLesen(KlammerInhalt, Chr(34), 8 + labeltext.Length)
                    Dim Typ As String = StrAusLesen(KlammerInhalt, Chr(34), 8 + labeltext.Length + sv_setting.Length)
                    'Settings(SettingsCounter).labeltext =
                    SettingsCounter += 1
                End If
            End If
        End Sub

    Ich hab nur die Vars deklaration ins Forum kopiert und die 2 wichtigen funktionen. Die anderen funktionieren alle.(habs ausprobiert) Nur da dazwischen muss der Fehler sein.
  7. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?

Über lima-city

Login zum Webhosting ohne Werbung!