home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / wsh.cab / chart.js next >
Encoding:
JavaScript  |  1997-12-05  |  2.2 KB  |  66 lines
  1. // Przyk│adowy skrypt dla Hosta skrypt≤w systemu Windows
  2. //
  3. // ------------------------------------------------------------------------
  4. //               Copyright (C) 1996-1997 Microsoft Corporation
  5. //
  6. // Klient posiada pe│ne prawa do u┐ywania, modyfikowania, reprodukowania
  7. // i dystrybucji plik≤w przyk│adowych aplikacji (i/lub dowolnej 
  8. // ich zmodyfikowanej wersji), w spos≤b dla niego u┐yteczny, pod warunkiem 
  9. // zaakceptowania faktu, i┐ firma Microsoft nie zapewnia gwarancji i nie 
  10. // ponosi odpowiedzialno£ci za pliki przyk│adowych aplikacji.
  11. // ------------------------------------------------------------------------
  12.  
  13. // Ten przyk│ad pokazuje w jaki spos≤b uzyskaµ dostΩp do programu Excel poprzez Hosta skrypt≤w systemu Windows.
  14.  
  15. var vbOKCancel = 1;
  16. var vbInformation = 64;
  17. var vbCancel = 2;
  18.  
  19. var L_Welcome_MsgBox_Message_Text    = "Ten skrypt pokazuje w jaki spos≤b uzyskaµ dostΩp do programu Excel poprzez Hosta skrypt≤w systemu Windows.";
  20. var L_Welcome_MsgBox_Title_Text      = "Przyk│adowy skrypt dla Hosta skrypt≤w systemu Windows";
  21. Welcome();
  22.     
  23. //////////////////////////////////////////////////////////////////////////////////
  24. //
  25. // Przyk│ad dla programu Excel
  26. //
  27.  
  28. var objXL;
  29.  
  30. objXL = WScript.CreateObject("Excel.Application");
  31. objXL.Workbooks.Add;
  32. objXL.Cells(1,1).Value = 5;
  33. objXL.Cells(1,2).Value = 10;
  34. objXL.Cells(1,3).Value = 15
  35. objXL.Range("A1:C1").Select;
  36.  
  37. var objXLchart = objXL.Charts.Add();
  38. objXL.Visible = true;
  39. objXLchart.Type = -4100;
  40.  
  41. var intRotate;
  42. for(intRotate = 5; intRotate <= 180; intRotate += 5) {
  43.     objXLchart.Rotation = intRotate;
  44. }
  45.  
  46. for (intRotate = 175; intRotate >= 0; intRotate -= 5) {
  47.     objXLchart.Rotation = intRotate;
  48. }
  49.  
  50. //////////////////////////////////////////////////////////////////////////////////
  51. //
  52. // Witamy
  53. //
  54. function Welcome() {
  55.     var WSHShell = WScript.CreateObject("WScript.Shell");
  56.     var intDoIt;
  57.  
  58.     intDoIt =  WSHShell.Popup(L_Welcome_MsgBox_Message_Text,
  59.                               0,
  60.                               L_Welcome_MsgBox_Title_Text,
  61.                               vbOKCancel + vbInformation );
  62.     if (intDoIt == vbCancel) {
  63.         WScript.Quit();
  64.     }
  65. }
  66.