?ng d?ng vãn ph?ng không b? sau khi t? ð?ng hóa t? Visual Studio.Khách hàng NET

• Tuyên b? t?ng ð?i tý?ng nhý là m?t bi?n m?i. Ví d?, thay ð?i d?ng m? sau

  oBook = oExcel.Workbooks.Add()
  					

  ð?n sau ðây:

  dim oBooks as Excel.Workbooks
  oBooks = oExcel.Workbooks
  oBook = oBooks.Add()
  					

• S? d?ng System.Runtime.InteropServices.Marshal.ReleaseComObject khi b?n ð? k?t thúc b?ng cách s? d?ng m?t ð?i tý?ng. Decrements này các tham kh?o tính c?a RCW.
• Ð? phát hành tài li?u tham kh?o ð? bi?n, h?y ð?t bi?n týõng ðýõng v?i Không có g? ho?c Null.
• S? d?ng các B? thu?c lá phýõng th?c c?a ð?i tý?ng ?ng d?ng vãn ph?ng b?o v?i máy ch? ð? D?ng l?i.

Quay l?i ð?u trang | Cung câìp PhaÒn hôÌi

Các bý?c ð? t?o l?i hành vi

1. B?t ð?u Visual Studio.NET.
2. Trên các T?p tin tr?nh ðõn, nh?p vào M?i sau ðó b?m D? án. Dý?i Visual Basic d? án, ch?n ?ng d?ng Windows và nh?p vào Ok. Form1 ðý?c t?o ra theo m?c ð?nh.
3. Thêm m?t tham chi?u ð?n các Microsoft Excel ð?i tý?ng thý vi?n. Ð? th?c hi?n vi?c này, h?y làm theo các bý?c sau:
   1. Trên các D? án tr?nh ðõn, nh?p vào Thêm tài li?u tham kh?o.
   2. Trên các COM tab, xác ð?nh v? trí thý vi?n ð?i tý?ng cho Excel và b?m Ch?n.
      
      Cho Microsoft Excel 2002: Microsoft Excel 10,0 ð?i tý?ng thý vi?n
      
      Lýu ? N?u b?n không làm nhý v?y, khuyên r?ng b?n t?i v? và cài ð?t Microsoft Office XP chính Interop h?i (PIAs). Ð? bi?t thêm chi ti?t v? Office XP PIAs, nh?p vào s? bài vi?t sau ðây ð? xem bài vi?t trong cõ s? ki?n th?c Microsoft:
      328912

      (http://support.microsoft.com/kb/328912/ )

      Microsoft Office XP chính interop h?i ð?ng (PIAs) có s?n ð? t?i v?
      For Microsoft Office Excel 2003: Microsoft Excel 11,0 ð?i tý?ng thý vi?n
   3. Nh?p vào Ok trong các Thêm tài li?u tham kh?o h?p tho?i ð? ch?p nh?n c?a b?n l?a ch?n.
4. Trên các Xem tr?nh ðõn, nh?p vào H?p công c?, và sau ðó kéo m?t Nút ki?m soát vào Form1.
5. B?m ðúp Button1. C?a s? m? cho các h?nh th?c xu?t hi?n.
6. Thêm m? sau vào phía trên c?a Form1.vb:

   Imports Microsoft.Office.Interop
   					

7. Thay th? m? sau trong c?a s? m?

       Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
       End Sub
   					

   v?i nh?ng ði?u sau:

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim oApp As New Excel.Application()
       Dim oBook As Excel.Workbook = oApp.Workbooks.Add
       Dim oSheet As Excel.Worksheet = oApp.ActiveSheet
   
       oSheet = Nothing
       oBook.Close(False)
       oBook = Nothing
       oApp.Quit()
       oApp = Nothing
   
       Debug.WriteLine("Sleeping...")
       System.Threading.Thread.Sleep(5000)
       Debug.WriteLine("End Excel")
   End Sub
   					

8. Nh?n F5 ð? ch?y các ?ng d?ng.
9. M? Windows Task Manager. Trong Visual Studio, hi?n th? các Ð?u ra c?a s? ð? xem các thông ði?p g? l?i. Nh?p vào nút l?nh và lýu ? r?ng m?t th? hi?n c?a Excel.exe xu?t hi?n trong các Quy tr?nh danh sách.
10. Th? hi?n c?a Excel v?n ch?y trong danh sách công vi?c th?m chí sau khi ?ng d?ng ð? k?t thúc ng?. Ðóng h?p tho?i và lýu ? r?ng Excel không c?n xu?t hi?n trong các Quy tr?nh danh sách.
11. Khi b?n th?c hi?n các bý?c trong ph?n "Gi?i quy?t", các ?ng d?ng vãn ph?ng ra kh?i sau khi nó b?n phát hành cu?i cùng bi?n. Thay th? các ch?c nãng trong bý?c 5 v?i ðo?n m? sau:

      Private Sub NAR(ByVal o As Object)
        Try
          System.Runtime.InteropServices.Marshal.ReleaseComObject(o)
        Catch
        Finally
          o = Nothing
        End Try
      End Sub
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oApp As New Excel.Application()
        Dim oBooks As Excel.Workbooks = oApp.Workbooks
        Dim oBook As Excel.Workbook = oBooks.Add
        Dim oSheet As Excel.Worksheet = oApp.ActiveSheet
    
        NAR(oSheet)
        oBook.Close(False)
        NAR(oBook)
        NAR(oBooks)
        oApp.Quit()
        NAR(oApp)
    
        Debug.WriteLine("Sleeping...")
        System.Threading.Thread.Sleep(5000)
        Debug.WriteLine("End Excel")
    End Sub
    					

private void NAR(object o)
{
    try 
    {
        System.Runtime.InteropServices.Marshal.ReleaseComObject(o);
    }
    catch {}
    finally 
    {
        o = null;
    }
}

Gi?i ðáp th?c m?c

Quay l?i ð?u trang | Cung câìp PhaÒn hôÌi