Van module naar form2

Status
Niet open voor verdere reacties.
edmoor Het zal wel aan mij leggen maar ik snap het niet meer
het gedeelte in de module kan ik nu wel volgen In de form helaas niet
ik heb even snel wat geprobeerd maar......
HTML: 
Public Class Form1
    Private Property varialble2 As String
    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Call Variables.SetVariable2()
        TextBox1.Text = varialble2
        Me.Show()
    End Sub
End Class
 
Haal die ene l eens weg:
Code: 
TextBox1.Text = varia[COLOR="#FF0000"]l[/COLOR]ble2

En deze zal niet nodig zijn:
Private Property varialble2 As String
 
Laatst bewerkt:
ondanks de schrijf fout is de inhoud van de textbox1 in form1 "Nothing"
er zit nog ergens een "error" sorry
 
Ik vroeg al eerder je project te plaatsen.
Zo blijft het gokken.
 
hallo edmoor hierbij het laatste gedeelte van het project
alles hier copieren zou teveel zijn ook al zou ik het "zippen"
HTML: 
      startdate1 = regKey.GetValue("StartDate1")
        lastdate1 = regKey.GetValue("lastdate1")
        If startdate1.Length() = "10" Then
            StrDay = startdate1.Substring(0, 2) 
            Strmonth = startdate1.Substring(3, 2)
            Stryear = startdate1.Substring(6, 4)
            RemainsDays = DisplayApplicationStatus(DiffDate(StrDay, Strmonth, Stryear), trialperiod)
        End If

        variable2 = RemainsDays1
          Form1.Text = Variable2()

        If Serialnummer = "" Then
            Return "You have change some module,you are un-authorised to use the application."
        Else
            transportdata = Encrypt(Serialnummer, startdate1)
            S1 = Left(transportdata, 5)
            S2 = Mid(transportdata, 6, 5)
            S3 = Mid(transportdata, 11, 5)
            S4 = Mid(transportdata, 16, 5)
            S5 = Mid(transportdata, 21, 5)
            transportdata = S1 & "-" & S2 & "-" & S3 & "-" & S4 & "-" & S5
        End If

        New Form2(transportdata, startdate1)

        Return ""
    End Function
Hierin zie je de Lastdatum1 en startdatum1 welke uit het register worden opgehaald
waaruit de remainsday1 uit gerekend wordt en deze moet worden doorgegeven naar een label of textbox in een form
en dit leverd de problemen op dit ik momenteel heb,
later moeten de transportdata en de start datum nog worden doorgegeven ,meer doc heb ik niet.
 
Sorry, maar daar kan ik niks mee.
Als het project te groot is zou je simpel een voorbeeld project kunnen maken waarin je probleem duidelijk is.
 
edmoor Ik denk dat we het maar even moeten laten voor wat het is.
jij begrijpt niet waar ik mee bezig ben en ik begrijpt niet wat jij nog verder nodig hebt om dit op te lossen
ik ga eens kijken of er nog ander mogelijkheid is om dit op te lossen. bedankt tot zover!
zelfs een voorbeeld project lukt mij niet 123 ik moet er dan teveel bijslepen voordat we elkaar begrijpen.
 
we zijn weer wat verder met ons programma maar lopen tegen het volgende punt weer vast
achter het stuk in deel1
pakken we de regel zodat we de form2 oproepen en de waardevan RemainsDays1 doorgeven

' Here we are creating actual object and passing string into it constructor method
Dim instanceOfForm2 = New Form2(RemainsDays1)
instanceOfForm2.ShowDialog() ' Showing form

Code: 
   Else
            startdatum= Replace(startdate1, "-", "")
            transportdata = Encrypt(Serialnummer, startdatum)
            S1 = Left(transportdata, 5)
            S2 = Mid(transportdata, 6, 5)
            S3 = Mid(transportdata, 11, 5)
            S4 = Mid(transportdata, 16, 5)
            S5 = Mid(transportdata, 21, 5)
            transportdata = S1 & "-" & S2 & "-" & S3 & "-" & S4
        End If

        '   Here we are creating actual object and passing string into it constructor method
        Dim instanceOfForm2 = New Form2(RemainsDays1)
        instanceOfForm2.ShowDialog() ' Showing form
in form2 vinden we de construcor methode terug
op de from2 vinden 3 button en de pbar terug
na de button te hebben gedrukt komt form6 in beeld
maar nu gaat het fout bij form6.showdialog
Code: 
Public Class Form2
   ' Public Shared form6 As Object
    Public form5 As Object
    Public form6 As Object
    Dim initializeComponents() As String

    Public Sub New(someValue As String)
        InitializeComponent() 'This is always first row in form constructor
        PBar.Value = CInt(someValue)
        Me.ShowDialog()
    End Sub

    Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Me.Hide()
        form6.Showdialog()
    End Sub
end class
de fout "De objectvariabele of With block-variabele is niet ingesteld." komt te voorschijn
heb al van alles geprobeerd maar nog geen oplossing gevonden
ik denk dat het met declarering te maken heeft als ik "shared" ergens anders set hem ik weer anderen fouten
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan