Avatar billede jensgram Nybegynder
11. marts 2003 - 18:14 Der er 5 kommentarer og
1 løsning

Load, men det virker ikke...

Hej eksperter.

Jeg har følgende:
-------------------------modul0.frm----------------------
Option Explicit 'variabler _skal_ defineres
Dim modul As String

Private Sub fundet_modul(titel As String)
    lbl_guide(2) = "Fundet modul: " & titel
    If titel = "Intet" Then
        cmd_start.Enabled = False
    Else
        cmd_start.Enabled = True
    End If
End Sub

Private Sub cmd_start_Click()
    Load modul
End Sub

Private Sub tmr_tick_Timer()
    Select Case Inp(&H379) 'hent værdi på LPT-indgang
        Case 127 'EPROM-simulator
            fundet_modul ("EPROM-simulator")
            modul = "Modul1"
        Case 139 'Switches
            fundet_modul ("Switches")
            modul = "Modul2"
        Case 241 'ADC / termometer
            fundet_modul ("ADC / termometer")
            modul = "Modul3"
        Case Else
            fundet_modul ("Intet")
    End Select
End Sub
------------------------/modul0.frm----------------------


Det virker næsten, men jeg vil gerne have load'et formen modul:

ex: modul = "modul1" -> hent modul1.frm.
jeg prøver som vist med

load modul, men får "type mismatch" - hvordan skal jeg gøre???
Avatar billede jensgram Nybegynder
11. marts 2003 - 18:37 #1
Jeg har nu lavet det om til:

Option Explicit 'variabler _skal_ defineres
Dim modul As String

Private Sub fundet_modul(titel As String)
    lbl_guide(2) = "Fundet modul: " & titel
    If titel = "Intet" Then
        cmd_start.Enabled = False
    Else
        cmd_start.Enabled = True
    End If
End Sub

Private Sub cmd_start_Click()
    Load Modul1
    Unload Me
End Sub

Private Sub tmr_tick_Timer()
    Select Case Inp(&H379) 'hent værdi på LPT-indgang
        Case 127 'EPROM-simulator
            modul = "Modul1"
            fundet_modul ("EPROM-simulator")
        Case 139 'Switches
            fundet_modul ("Switches")
            modul = "Modul2"
        Case 241 'ADC / termometer
            fundet_modul ("ADC / termometer")
            modul = "Modul3"
        Case Else
            fundet_modul ("Intet")
    End Select
End Sub


og den loader modul1 fint, men det virker stadig ikke bare med variablen "modul"...
Avatar billede medions Nybegynder
11. marts 2003 - 19:18 #2
Load frmAbout
    frmAbout.Show

//>Rune
Avatar billede medions Nybegynder
11. marts 2003 - 19:19 #3
Option Explicit 'variabler _skal_ defineres
Dim modul As String

Private Sub fundet_modul(titel As String)
    lbl_guide(2) = "Fundet modul: " & titel
    If titel = "Intet" Then
        cmd_start.Enabled = False
    Else
        cmd_start.Enabled = True
    End If
End Sub

Private Sub cmd_start_Click()
    Load Modul1
    Unload Me
End Sub

Private Sub tmr_tick_Timer()
    Select Case Inp(&H379) 'hent værdi på LPT-indgang
        Case 127 'EPROM-simulator
            public modul = "Modul1"
            fundet_modul ("EPROM-simulator")
        Case 139 'Switches
            fundet_modul ("Switches")
            public modul = "Modul2"
        Case 241 'ADC / termometer
            fundet_modul ("ADC / termometer")
            public modul = "Modul3"
        Case Else
            fundet_modul ("Intet")
    End Select
End Sub

//>Rune
Avatar billede jensgram Nybegynder
11. marts 2003 - 20:17 #4
medions > Jeg får stadig "type mismatch"! den kan åbenbart ikke fatte, at min streng (modul) indeholder navnet på det object (Modul1/2/3), der skal loades!
Avatar billede jensgram Nybegynder
11. marts 2003 - 20:35 #5
http://www.eksperten.dk/spm/251627


Der var der hjælp. Tak for indsatsen, medion!
Avatar billede medions Nybegynder
11. marts 2003 - 20:42 #6
Fair nok ;o)

//>Rune
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