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???
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.