Märkligt - jag har använt statusbaren precis som du försökt men jag får inte något sådant fel. Jag vill minnas att jag för länge sedan stötte på det här problemet, men jag kommer dessvärre inte ihåg vad felet var och hur jag löste det... Använder du wizarden för att skapa ditt fönster. Ja, jag har använt wizarden. Jaha du, där har vi förklaringen!!Tillåts inte skriva i statusbaren, grrr...
Måste vara nåt fel som är trasigt här...
Jag har ett "frmMain" med ett gäng MDI barn, och när jag försöker skriva i huvudfönstrets statusbar får jag följande felmeddelande:
error 426
Only one MDI Form allowed
??
Använder koden nedan, vilken funkat när jag inte kört med MDI underfönster.
frmMain.staMain.Panels(1).Text = "olle"Sv: Tillåts inte skriva i statusbaren, grrr...
Men kodmässigt ser det rätt ut...Sv: Tillåts inte skriva i statusbaren, grrr...
Har för mig att den skapar en instans utan att använda default variabeln.
T.ex. om du skulle haft en Main som ser ut så här:
Public Sub Main()
Dim frmForm as frmMain
Set frmForm = new frmMain
frmForm.show
End sub
Det skulle innebära att till defaultvariablen "frmMain" så som:
frmMain.staMain.Panels(1).Text = "olle"
Så skulle anropet till frmMain skapa en ny instans av frmMain och anropet till kontrollen staMain ladda ditt formulär.
Därav ditt felmeddelandet!
Sv:Tillåts inte skriva i statusbaren, grrr...
Hm... hängde nog inte med där riktigt...
Kan man inte ersätta frmMain med något bara?
Om jag skriver koden (se nedan) i frmMain:s kodfönster så fungerar det, men jag kan alltså inte ändra i statusbaren med kod från någon modul...
staMain.Panels(1).Text = "olle"
dvs utan frmMain i början
Sv:Tillåts inte skriva i statusbaren, grrr...
Public fMainForm As frmMain
Sub Main()
frmSplash.Show
frmSplash.Refresh
Set fMainForm = New frmMain
Load fMainForm
Unload frmSplash
fMainForm.Show
End Sub
så enkelt var det! Tack! den modulen hade jag helt förträngt....
Nu fungerar kodsnutten (se nedan) var som helst.
fMainForm.staMain.Panels(1).Text = "Olle"
Det man inte har i huvudet...