Fråga : oop

Varning: Saknat argument 1 för något:: Något (),



want att redigera så dessa fodrar work

$obj=new något (); // x=3 och y=5
$obj=new något (8); // x=8 och y=5
$obj=new något (8.9); // x=8 och y=9

> för 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
" codeBody " " >< för class= " för x=$y; } fungera setX ($v) { $this->x=$v; } fungera getX () { gå $this->x tillbaka; } } $obj=new något (6); fungera något ($x= " 3 ", $y= " 5 "); $obj=new något (); // x=3 och y=5 $obj=new något (8); // x=8 och y=5 $obj=new något (8.9); // x=8 och y=9 ? >
" klar "

Svar : oop


Jag skrev efter kodifiera för ett annat problem, mig har tagit ut det onödigt stoppar, mig tror detta är mycket som var bättre långt att att närma sig att öppna den sagda arbetsboken, då bokslut det, då avsluta överträffa

märka det privat för att fungera längst ner, också detta antar att du ska tillfogar en hänvisa till för att överträffa i projektera och också för att använda importExcel = microsoft.blah.blah.blha

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

Dunkel excelApp som Excel.Application
        Dunkel WB som Excel.Workbook
        Dunkel workbookName som stränger = ”testar den kända arbetsboken”,

        'öppen Excel till minimerat statligt
        excelApp = nya Excel.Application ()
        excelApp.Visible = CBool (Microsoft.Office.Core.MsoTriState.msoTrue)
        excelApp.WindowState = Excel.XlWindowState.xlMinimized

        'öppen arbetsbok
        WB = excelApp.Workbooks.Open (workbookName, Microsoft.Office.Core.MsoTriState.msoFalse, _,
                                     Microsoft.Office.Core.MsoTriState.msoFalse _,
                                     Microsoft.Office.Core.MsoTriState.msoTrue)
	
	WB.close
	excelApp.quit

        'behov att frigöra dessa com anmärker, eller de kan återstå öppna i springet servar
        ReleaseObject (excelApp)
        ReleaseObject (WB)
        ReleaseObject (WS)
        ReleaseObject (uppsätta som mål),

        excelApp = ingenting
        WB = ingenting
        WS = ingenting
        uppsätta som mål = ingenting
        'Radera targetArray

        'kör avskrädesamlaren
        GC.Collect ()

    Privata underReleaseObject (den ByVal nollan som anmärker)
        Försök
            System.Runtime.InteropServices.Marshal.ReleaseComObject (nolla)
        Fånga före detta som undantag
        Slutligen
            nolla = ingenting
        Avsluta försök

    Avsluta suben
Andra lösningar  
 
programming4us programming4us