Readygo技术搜索引擎 网络搜索 efish 2008-1-19 4:50:06

实现IObjectSafety接口问题

楼主gxboy（Blin 小学生学.NET）2006-05-26 11:21:29 在 .NET技术 / VB.NET 提问

网上找到两篇这方面的文章，一篇是c#的，一篇是vb的。但就是没有vb.net的代码。请大侠出手相助，本人不是太懂应用程序编程，请尽量写明白一点，谢谢。 问题点数：100、回复次数：18Top

1 楼gxboy（Blin 小学生学.NET）回复于 2006-05-26 11:23:57 得分 0

http://homer.cnblogs.com/archive/2005/01/08/88780.html  
   
  这是c#的代码，请翻译翻译成vb.net   的Top

2 楼copico（北北）回复于 2006-05-26 11:25:34 得分 20

哪一部分要翻译?Top

3 楼copico（北北）回复于 2006-05-26 11:26:08 得分 0

public   void   ShowMessage(string   msg)    
                  {    
                          if(msg   !=   null)    
                          {    
                                  MessageBox.Show(msg);    
                          }    
                  }    
  =======================================  
  Public   Sub   ShowMessage(ByVal   msg   As   String)    
    If   Not   (msg   Is   Nothing)   Then    
        MessageBox.Show(msg)    
    End   If    
  End   SubTop

4 楼copico（北北）回复于 2006-05-26 11:26:51 得分 0

   
          public   interface   IObjectSafety    
          {    
                  //   methods    
                  void   GetInterfacceSafyOptions(    
                          System.Int32   riid,    
                          out   System.Int32   pdwSupportedOptions,    
                          out   System.Int32   pdwEnabledOptions);    
                  void   SetInterfaceSafetyOptions(    
                          System.Int32   riid,    
                          System.Int32   dwOptionsSetMask,    
                          System.Int32   dwEnabledOptions);                    
          }  
    ==================================================  
  <Guid("CB5BDC81-93C1-11CF-8F20-00805F2CD064"),   InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>   _    
  Public   Interface   IObjectSafety    
   
    Sub   GetInterfacceSafyOptions(ByVal   riid   As   System.Int32,   ByRef   pdwSupportedOptions   As   System.Int32,   ByRef   pdwEnabledOptions   As   System.Int32)    
   
    Sub   SetInterfaceSafetyOptions(ByVal   riid   As   System.Int32,   ByVal   dwOptionsSetMask   As   System.Int32,   ByVal   dwEnabledOptions   As   System.Int32)    
  End   Interface  
  Top

5 楼gxboy（Blin 小学生学.NET）回复于 2006-05-26 11:28:07 得分 0

就是说我要在vb.net内实现这些东西需要怎么做。Top

6 楼copico（北北）回复于 2006-05-26 11:28:07 得分 0

#region   IObjectSafety   成员    
     
                  public   void   GetInterfacceSafyOptions(Int32   riid,   out   Int32   pdwSupportedOptions,   out   Int32   pdwEnabledOptions)    
                  {    
                          //   TODO:     添加   WebCamControl.GetInterfacceSafyOptions   实现    
                          pdwSupportedOptions   =   1;    
                          pdwEnabledOptions   =   2;    
                  }    
     
                  public   void   SetInterfaceSafetyOptions(Int32   riid,   Int32   dwOptionsSetMask,   Int32   dwEnabledOptions)    
                  {    
                          //   TODO:     添加   WebCamControl.SetInterfaceSafetyOptions   实现                            
                  }    
     
                  #endregion    
  ======================================================================  
  Public   Sub   GetInterfacceSafyOptions(ByVal   riid   As   Int32,   ByRef   pdwSupportedOptions   As   Int32,   ByRef   pdwEnabledOptions   As   Int32)    
    pdwSupportedOptions   =   1    
    pdwEnabledOptions   =   2    
  End   Sub    
   
  Public   Sub   SetInterfaceSafetyOptions(ByVal   riid   As   Int32,   ByVal   dwOptionsSetMask   As   Int32,   ByVal   dwEnabledOptions   As   Int32)    
  End   SubTop

7 楼copico（北北）回复于 2006-05-26 11:28:19 得分 0

#region   IObjectSafety   成员    
     
                  public   void   GetInterfacceSafyOptions(Int32   riid,   out   Int32   pdwSupportedOptions,   out   Int32   pdwEnabledOptions)    
                  {    
                          //   TODO:     添加   WebCamControl.GetInterfacceSafyOptions   实现    
                          pdwSupportedOptions   =   1;    
                          pdwEnabledOptions   =   2;    
                  }    
     
                  public   void   SetInterfaceSafetyOptions(Int32   riid,   Int32   dwOptionsSetMask,   Int32   dwEnabledOptions)    
                  {    
                          //   TODO:     添加   WebCamControl.SetInterfaceSafetyOptions   实现                            
                  }    
     
                  #endregion    
  ======================================================================  
  Public   Sub   GetInterfacceSafyOptions(ByVal   riid   As   Int32,   ByRef   pdwSupportedOptions   As   Int32,   ByRef   pdwEnabledOptions   As   Int32)    
    pdwSupportedOptions   =   1    
    pdwEnabledOptions   =   2    
  End   Sub    
   
  Public   Sub   SetInterfaceSafetyOptions(ByVal   riid   As   Int32,   ByVal   dwOptionsSetMask   As   Int32,   ByVal   dwEnabledOptions   As   Int32)    
  End   SubTop

8 楼gxboy（Blin 小学生学.NET）回复于 2006-05-26 11:29:20 得分 0

good   manTop

9 楼gxboy（Blin 小学生学.NET）回复于 2006-05-26 11:31:03 得分 0

关键是这里还有些实现的代码没有啊。  
   
  老兄帮我看看http://vboy.cnblogs.com/articles/165080.html  
   
  这里的vb6代怎么用vb.net表示Top

10 楼copico（北北）回复于 2006-05-26 11:33:55 得分 20

http://www.developerfusion.co.uk/utilities/convertcsharptovb.aspx  
  自己去翻译吧  
  博客打开的慢Top

11 楼copico（北北）回复于 2006-05-26 11:35:13 得分 20

最好是一个函数一个函数的去翻译,这样成功率比较高  
  Top

12 楼gxboy（Blin 小学生学.NET）回复于 2006-05-26 11:38:32 得分 0

到不是翻译，主要是实现问题。现在的接口还没实现代码呢Top

13 楼copico（北北）回复于 2006-05-26 11:39:59 得分 20

不说了  
  献丑Top

14 楼gxboy（Blin 小学生学.NET）回复于 2006-05-26 11:40:24 得分 0

谢了，兄弟Top

15 楼gxboy（Blin 小学生学.NET）回复于 2006-05-27 10:56:57 得分 0

请高手继续讲解！Top

16 楼gxboy（Blin 小学生学.NET）回复于 2006-05-30 10:30:03 得分 0

各位？？MVP呢？Top

17 楼yinweihong（）回复于 2006-05-30 11:30:03 得分 20

http://support.microsoft.com/default.aspx?scid=kb;en-us;182598  
  照着做,我保准你能做好,,,赫赫Top

18 楼gxboy（Blin 小学生学.NET）回复于 2006-05-30 13:57:36 得分 0

这是vb6的啊。我需要vb.net的。我对应用程序编程不熟，还望能简洁明了的回答。Top