Makale numaras�: 182598 - Son G�zden Ge�irme: 16 Ekim 2007 Sal� - G�zden ge�irme: 5.3

Visual Basic denetimleri de ger�ekle�tir �objectsafety nas�l

�ngilizce ve T�rk�e'yi yan yana g�r�nt�leme

Buraya t�klayarak �ngilizce ve T�rk�e'yi yan yana g�r�nt�leyebilirsiniz.

Otomatik terc�me makalelerin ne oldu�unu a��klayan yaz�y� okumak i�in buraya t�klay�n

Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Sistem �pucuBu makale, kulland��n�zdan farkl� bir i�letim sistemine y�neliktir. Sizinle ilgili olmayabilecek makale i�eri�i devre d�� b�rak�ld�.

Hepsini a� | Hepsini kapa

�zet

Bu makalede, denetimlerini komut dizilerinde kullanmak ve ba�latmak i�in g�venli olarak i�aretlemek i�in Visual Basic denetimde �objectsafety arabirimini nas�l. Varsay�lan olarak, Visual Basic denetimleri bile�en kategorisini kay�t defterindeki denetimin komut dizilerinde kullanmak ve ba�latmak i�in g�venli olarak i�aretlemek i�in kullan�r. �objectsafety arabirimini uygulayan tercih edilen y�ntemdir. Bu makalede, bu arabirim, Visual Basic denetimleri ger�ekle�tirmek i�in gereken t�m kodunu i�erir.

L�tfen bir denetimi yaln�zca, asl�nda g�venli ise, g�venli i�aretlenmelidir oldu�unu unutmay�n. Bu makalede denetimlerini komut dizilerinde kullanmak ve ba�latmak i�in g�venli olarak i�aretleme ayr�nt�lar�n� tan�mlay�n; Bu, yaln�zca kodda nas�l yapaca��n�z� g�stermektedir. Bu ayr�nt�l� bir a��klamas� i�in �nternet istemcisi Software Development Kit'e (SDK) belgelerine ba�vurun. "G�venli ba�latma ve komut dizileri i�in ActiveX denetimleri" Component Development b�l�m�nde bak�n.

�ste

Daha fazla bilgi

UYAR�: Bu makalede a��klanan, bir veya daha fazlas� a�a��daki i�levleri: VarPtr, VarPtrArray, VarPtrStringArray, StrPtr ve ObjPtr. Bu i�levler, Microsoft Teknik destek taraf�ndan desteklenmiyor. Visual Basic belgelerindeki belgelenmemi�tir ve sa�lanan bu Knowledge Base makalesinde "oldu�u gibi." Microsoft, Visual Basic gelecekteki s�r�mlerde kullan�labilir oldu�unu garanti etmez. Bu i�levler hakk�nda ek bilgi i�in Microsoft Knowledge Base'deki makaleyi g�r�nt�lemek �zere a�a��daki makale numaras�n� t�klat�n:

199824� (http://support.microsoft.com/kb/199824/EN-US/ ) Nas�l yap�l�r: adresini de�i�kenleri Visual Basic'te Al...

A�a��daki ad�mlar Basit bir Visual Basic denetimi olu�turma ve komut dizilerinde kullanmak ve ba�latmak i�in g�venli i�aretler nas�l g�sterilmektedir.

Bu �rnekte, olu�turdu�unuz t�m dosyalar� kaydedebilece�iniz yeni bir klas�r olu�turun.
OLE Otomasyonu t�r kitapl�� Olu�turucu, Visual Basic 6.0 CD-ROM'undan al�n. Bunu yapmak i�in <a0></a0>, t�m d�rt dosya \Common\Tools\VB\Unsupprt\Typlib\ klas�r�nden proje klas�r�n�ze kopyalay�n. Not: VIsual Basic 5.0 \VB5.0\Tools\Unsupprt\Typlib\ klas�r�ndeki t�m dosyalar� kopyalamak.

A�a��daki metni Not Defteri'ne kopyalay�n ve dosyay� Objsafe.odl olarak <a1>Proje</a1> klas�r�ndeki kaydedin:

      [
          uuid(C67830E0-D11D-11cf-BD80-00AA00575603),
          helpstring("VB IObjectSafety Interface"),
          version(1.0)
      ]
      library IObjectSafetyTLB
      {
          importlib("stdole2.tlb");
          [
              uuid(CB5BDC81-93C1-11cf-8F20-00805F2CD064),
              helpstring("IObjectSafety Interface"),
              odl
          ]
          interface IObjectSafety:IUnknown {
              [helpstring("GetInterfaceSafetyOptions")]
              HRESULT GetInterfaceSafetyOptions(
                        [in]  long  riid,
                        [in]  long *pdwSupportedOptions,
                        [in]  long *pdwEnabledOptions);

              [helpstring("SetInterfaceSafetyOptions")]
              HRESULT SetInterfaceSafetyOptions(
                        [in]  long  riid,
                        [in]  long  dwOptionsSetMask,
                        [in]  long  dwEnabledOptions);
           }
       }

Bir komut isteminde <path>CD'YI kullan�n... komutunu proje klas�re gidin ve bir .tlb dosyas� olu�turmak i�in a�a��daki komutu yaz�n:
MKTYPLIB objsafe.odl TLB objsafe.tlb
Visual Basic, bir ActiveX denetimi) projesi olu�turun. �zellikler listesinde projenin IObjSafety ve DemoCtl i�in denetimin ad�n� de�i�tirin. Denetimi cmdTest adl� bir KomutD��mesi yerle�tirin. The cmdTest T�klat olay i�leyicisinde bir MsgBox "Test" ifadesi yerle�tirin.
Proje men�s�nde Ba�vurular, g�z t�klat�p, daha �nce olu�turdu�unuz Objsafe.tlb ekleyin.

Projenizi a�a��daki kod yeni bir mod�l ekleyin ve mod�l basSafeCtl ad�:

      Option Explicit

      Public Const IID_IDispatch = "{00020400-0000-0000-C000-000000000046}"
      Public Const IID_IPersistStorage = _
        "{0000010A-0000-0000-C000-000000000046}"
      Public Const IID_IPersistStream = _
        "{00000109-0000-0000-C000-000000000046}"
      Public Const IID_IPersistPropertyBag = _
        "{37D84F60-42CB-11CE-8135-00AA004BB851}"

      Public Const INTERFACESAFE_FOR_UNTRUSTED_CALLER = &H1
      Public Const INTERFACESAFE_FOR_UNTRUSTED_DATA = &H2
      Public Const E_NOINTERFACE = &H80004002
      Public Const E_FAIL = &H80004005
      Public Const MAX_GUIDLEN = 40

      Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
         (pDest As Any, pSource As Any, ByVal ByteLen As Long)
      Public Declare Function StringFromGUID2 Lib "ole32.dll" (rguid As _
         Any, ByVal lpstrClsId As Long, ByVal cbMax As Integer) As Long

      Public Type udtGUID
          Data1 As Long
          Data2 As Integer
          Data3 As Integer
          Data4(7) As Byte
      End Type

      Public m_fSafeForScripting As Boolean
      Public m_fSafeForInitializing As Boolean

      Sub Main()
          m_fSafeForScripting = True
          m_fSafeForInitializing = True
      End Sub

Proje �zellikleri ', yukar�daki Sub Main'n� �al��t�rmak i�in Sub Main i�in ba�lang�� nesne de�i�tirin. M_fSafeForScripting ve m_fSafeForInitializing de�i�kenleri g�venli komut dosyas� ve/veya ba�latma de�i�kenler i�in de�erleri belirtmek i�in kullan�n.
Denetimi <a1>Kod</a1> penceresini a��n. (Hemen sonra Se�enek Belirtik veya ilk olarak) bildirisi b�l�m�ne a�a��daki kod sat�r�n� ekleyin:
Implements IObjectSafety

A�a��daki iki yordam denetimleri kodunuzu Kopyala:

      Private Sub IObjectSafety_GetInterfaceSafetyOptions(ByVal riid As _
      Long, pdwSupportedOptions As Long, pdwEnabledOptions As Long)

          Dim Rc      As Long
          Dim rClsId  As udtGUID
          Dim IID     As String
          Dim bIID()  As Byte

          pdwSupportedOptions = INTERFACESAFE_FOR_UNTRUSTED_CALLER Or _
                                INTERFACESAFE_FOR_UNTRUSTED_DATA

          If (riid <> 0) Then
              CopyMemory rClsId, ByVal riid, Len(rClsId)

              bIID = String$(MAX_GUIDLEN, 0)
              Rc = StringFromGUID2(rClsId, VarPtr(bIID(0)), MAX_GUIDLEN)
              Rc = InStr(1, bIID, vbNullChar) - 1
              IID = Left$(UCase(bIID), Rc)

              Select Case IID
                  Case IID_IDispatch
                      pdwEnabledOptions = IIf(m_fSafeForScripting, _
                    INTERFACESAFE_FOR_UNTRUSTED_CALLER, 0)
                      Exit Sub
                  Case IID_IPersistStorage, IID_IPersistStream, _
                     IID_IPersistPropertyBag
                      pdwEnabledOptions = IIf(m_fSafeForInitializing, _
                    INTERFACESAFE_FOR_UNTRUSTED_DATA, 0)
                      Exit Sub
                  Case Else
                      Err.Raise E_NOINTERFACE
                      Exit Sub
              End Select
          End If
      End Sub

      Private Sub IObjectSafety_SetInterfaceSafetyOptions(ByVal riid As _
      Long, ByVal dwOptionsSetMask As Long, ByVal dwEnabledOptions As Long)
          Dim Rc          As Long
          Dim rClsId      As udtGUID
          Dim IID         As String
          Dim bIID()      As Byte

          If (riid <> 0) Then
              CopyMemory rClsId, ByVal riid, Len(rClsId)

              bIID = String$(MAX_GUIDLEN, 0)
              Rc = StringFromGUID2(rClsId, VarPtr(bIID(0)), MAX_GUIDLEN)
              Rc = InStr(1, bIID, vbNullChar) - 1
              IID = Left$(UCase(bIID), Rc)

              Select Case IID
                  Case IID_IDispatch
                      If ((dwEnabledOptions And dwOptionsSetMask) <> _
                   INTERFACESAFE_FOR_UNTRUSTED_CALLER) Then
                          Err.Raise E_FAIL
                          Exit Sub
                      Else
                          If Not m_fSafeForScripting Then
                              Err.Raise E_FAIL
                          End If
                          Exit Sub
                      End If

                  Case IID_IPersistStorage, IID_IPersistStream, _
                IID_IPersistPropertyBag
                      If ((dwEnabledOptions And dwOptionsSetMask) <> _
                    INTERFACESAFE_FOR_UNTRUSTED_DATA) Then
                          Err.Raise E_FAIL
                          Exit Sub
                      Else
                          If Not m_fSafeForInitializing Then
                              Err.Raise E_FAIL
                          End If
                          Exit Sub
                      End If

                  Case Else
                      Err.Raise E_NOINTERFACE
                      Exit Sub
              End Select
          End If
      End Sub

Dosya men�s�nde, proje ve dosyalar� kaydedin. OCX bir proje dosyas�ndan olun. Denetimi �imdi �objectsafety arabirimini uygular. S�namak i�in <a0></a0>, .htm dosyas�n� denetimi ekleyin.

�ste

Referanslar

MkTypLib.exe �nceden ile Platform Software Development Kit'e (Microsoft Visual Studio 6.0 ile gelen SDK) birlikte eski bir ara�t�r. Ge�erli Platform SDK MkTypLib.exe arac� ile birlikte verilmez de�il.

MkTypLib gerekti?inde hakk�nda daha fazla bilgi i�in a�a��daki Microsoft Web sitesine bak�n:

http://www.microsoft.com/msj/0297/visualprog/visualprog0297.aspx (http://www.microsoft.com/msj/0297/visualprog/visualprog0297.aspx)

Ek bilgi i�in, Microsoft Bilgi Bankas�'ndaki makaleleri g�r�nt�lemek �zere a�a��daki makale numaralar�n� t�klat�n:

161873� (http://support.microsoft.com/kb/161873/EN-US/ ) I�areti MFC denetimleri g�venli Scripting/ba�lat�lmas� i�in nas�l

143258� (http://support.microsoft.com/kb/143258/EN-US/ ) Tip kitapl��'nda, sabitleri ve DLL bildirimleri olu�turma

131105� (http://support.microsoft.com/kb/131105/EN-US/ ) �rnek: TYPEBLD: ICreateTypeLib ve ICreateTypeInfo nas�l kullan�l�r

�objectsafety arabirimi hakk�nda daha fazla bilgi i�in a�a��daki Microsoft Web sitesine bak�n:

http://msdn.microsoft.com/en-us/library/aa911729.aspx (http://msdn.microsoft.com/en-us/library/aa911729.aspx)

G�venli ba�latma ve ActiveX denetimleri i�in komut dosyas� olu�turma hakk�nda daha fazla bilgi i�in a�a��daki Microsoft Web sitesine bak�n:

http://msdn2.microsoft.com/en-us/library/Aa751977.aspx (http://msdn2.microsoft.com/en-us/library/Aa751977.aspx)

Microsoft �nternet Explorer i�in Web tabanl� ��z�mler geli�tirme hakk�nda daha fazla bilgi i�in a�a��daki Microsoft Web sitelerini ziyaret edin:

http://msdn.microsoft.com/ie/ (http://msdn.microsoft.com/ie/)

http://support.microsoft.com/iep (http://support.microsoft.com/iep)

�ste

Bu makaledeki bilginin uyguland�� durum:

Microsoft Visual Basic Control Creation Edition
Microsoft Visual Basic 5.0 Professional Edition
Microsoft Visual Basic 6.0 Professional Edition
Microsoft Visual Basic 5.0 Enterprise Edition
Microsoft Visual Basic Enterprise Edition for Windows 6.0
Microsoft Visual Basic 5.0 Learning Edition
Microsoft Visual Basic 6.0 Learning Edition
Microsoft Internet Explorer 4.0 128-Bit Edition
Microsoft Internet Explorer 4.01 Service Pack 2
Microsoft Internet Explorer 4.01 Service Pack 1
Microsoft Internet Explorer 4.01 Service Pack 2
Microsoft Internet Explorer 5.0
Microsoft Internet Explorer 5.01
Microsoft Internet Explorer (Programming) 5.01 SP1
Microsoft Internet Explorer 5.5

�ste

kbmt kbfaq kbhowto KB182598 KbMttr

�ste

Otomatik Terc�me

�NEML�: Bu makale, bir ki�i taraf�ndan �evrilmek yerine, Microsoft makine-�evirisi yaz�l�m� ile �evrilmi�tir. Microsoft size hem ki�iler taraf�ndan �evrilmi�, hem de makine-�evrisi ile �evrilmi� makaleler sunar. B�ylelikle, bilgi bankam�zdaki t�m makalelere, kendi dilinizde ula�m�� olursunuz. Bununla birlikte, makine taraf�ndan �evrilmi� makaleler m�kemmel de�ildir. Bir yabanc�n�n sizin dilinizde konu�urken yapabilece�i hatalar gibi, makale; kelime da�arc��, s�z dizim kurallar� veya dil bilgisi a��s�ndan yanl��lar i�erebilir. Microsoft, i�eri�in yanl�� evrimi veya onun m��teri taraf�ndan kullan�m�ndan do�an; kusur, hata veya zarardan sorumlu de�ildir. Microsoft ayr�ca makine �evirisi yaz�l�m�n� s�k�a g�ncellemektedir.

Makalenin �ngilizcesi a�a��daki gibidir:182598� (http://support.microsoft.com/kb/182598/en-us/ )

�ste

This site in other countries/regions:

Visual Basic denetimleri de ger�ekle�tir �objectsafety nas�l

�zet

Daha fazla bilgi

Referanslar

Bu makaledeki bilginin uyguland�� durum:

Anahtar Kelimeler:�

Di�er Destek Siteleri

Topluluk

Hemen Yard�m Al

Makale �evirileri

�lgili Destek Merkezleri

This site in other countries/regions:

Visual Basic denetimleri de ger�ekle�tir �objectsafety nas�l

�zet

Daha fazla bilgi

Referanslar

Bu makaledeki bilginin uyguland��� durum:

Anahtar Kelimeler:�

Di�er Destek Siteleri

Topluluk

Hemen Yard�m Al

Makale �evirileri

�lgili Destek Merkezleri

Bu makaledeki bilginin uyguland�� durum: