本人遇到一些问题....

为何我的程序发出异常！！说未将对象引用设置到对象事例~~~~~  
  代码：  
   
    Private   Sub   Button3_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   Button3.Click  
                  Try  
  Dim   k   As   String  
                          For   Each   k   In   active  
                                  Dim   hklm   As   RegistryKey   =   Registry.LocalMachine  
                                  Dim   soft   As   RegistryKey   =   hklm.OpenSubKey("SOFTWARE",   True)  
                                  Dim   mic   As   RegistryKey   =   soft.OpenSubKey("Microsoft",   True)  
                                  Dim   int   As   RegistryKey   =   mic.OpenSubKey("Internet   Explorer",   True)  
                                  Dim   at   As   RegistryKey   =   int.OpenSubKey("ActiveX   Compatibility",   True)  
                                  Dim   t   As   Microsoft.Win32.RegistryKey   =   at.OpenSubKey(k.ToString,   True)  
                                  t.CreateSubKey("Compatibility   Flags")  
                                  t.SetValue("Compatibility   Flags",   400)  
                          Next  
   
                  Catch   ex   As   Exception  
                          MsgBox(ex.ToString)  
                  End   Try  
          End   Sub 问题点数：50、回复次数：2Top

1 楼tam97123（手指拗出）回复于 2005-04-03 08:46:22 得分 0

问题出于：-》》》》》t.SetValue("Compatibility   Flags",   400)  
  为什么？请帮忙解答！Top

2 楼landlordh（work wonders）回复于 2005-04-03 09:49:28 得分 50

 
  首先要保证K.tostring这个项已经存在于"ActiveX   Compatibility"下,否则肯定会出错了  
   
  Dim   t   As   Microsoft.Win32.RegistryKey   =   at.OpenSubKey(k.ToString,   True)  
  Top

相关问题

• win32
• microsoft
• registrykey
• opensubkey
• compatibility
• dim
• tostring
• flags
• true

• 帖主：tam97123
• landlordh

• CSDN .NET频道
• .NET类图书
• C#类图书
• .NET类源码下载