11. marts 2003 - 18:14Der 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???
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"...
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
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!
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.