Writing an Activex control in VB.net

前端之家收集整理的这篇文章主要介绍了Writing an Activex control in VB.net前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

The problem with that example is that is does not register the control,and the example will only work for putting it in a web page.

I did get this to work. The .Net user control can be hosted in VB6,VBA web forms,but not,I found,all ActiveX containers. Here are the details for those interested in what I did.

1. Create a VB.NEt user control (VB 2005)
2. Put a button on the control
3. Set project property "Register for COM interop"
4. Modify the usercontrol1.vb as show below
BUILD VB.Net user control which will register the ActiveX control
5. In VB6,add control (assembly namespace.MyControl")

Code:
The problem with that example is that is does not register the control,and the example will only work for putting it in a web page.

I did get this to work. The .Net user control can be hosted in VB6,all ActiveX containers. Here are the details for those interested in what I did.

1. Create a VB.NEt user control (VB 2005)
2. Put a button on the control
3. Set project property "Register for COM interop"
4. Modify the usercontrol1.vb as show below
BUILD VB.Net user control which will register the ActiveX control
5. In VB6,add control (assembly namespace.MyControl")

Code:
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.IO
Imports System.Reflection
Imports Microsoft.Win32
Imports System
Imports System.Threading
Imports System.Math

<ComClass(MyControl.ClassId,_
MyControl.InterfaceId,_
MyControl.EventsId)> _
Public Class MyControl
    ' MAKE SURE WE HAVE 1 PUBLIC SUB in this class

#Region "COM GUIDs"
    ' These GUIDs provide the COM identity for this class
    ' and its COM interfaces. If you change them,existing
    ' clients will no longer be able to access the class.
    'You should create your own 3 GUIDS using GuidGen
    Public Const ClassId As String = "8D6CC4E9-1AE1-4909-94AF-8A4CDC10C466"
    Public Const InterfaceId As String = "D901FC53-EEC2-4634-A1B5-BB4E41B24521"
    Public Const EventsId As String = "7458968F-F760-4f53-A2E4-30C1D8CD691B"
#End Region

#Region "required FOR ACTIVEX"
    ' This function is called when registered (no need to change it)
    <ComRegisterFunction()> _
    Private Shared Sub ComRegister(ByVal t As Type)
        Dim keyName As String = "CLSID\\" & t.GUID.ToString("B")
        Dim key As RegistryKey = Registry.ClassesRoot.OpenSubKey(keyName,True)

        key.CreateSubKey("Control").Close()
        Dim subkey As RegistryKey = key.CreateSubKey("MiscStatus")
        subkey.SetValue("","131201")
        subkey = key.CreateSubKey("TypeLib")
        Dim libid As Guid = Marshal.GetTypeLibGuidForAssembly(t.Assembly)
        subkey.SetValue("",libid.ToString("B"))
        subkey = key.CreateSubKey("Version")
        Dim ver As Version = t.Assembly.GetName().Version
        Dim version As String = String.Format("{0}.{1}",ver.Major,ver.Minor)
        If version = "0.0" Then version = "1.0"
        subkey.SetValue("",version)

    End Sub

    ' This is called when unregistering (no need to change it)
    <ComUnregisterFunction()> _
    Private Shared Sub ComUnregister(ByVal t As Type)
        ' Delete entire CLSID¥{clsid} subtree
        Dim keyName As String = "CLSID\\" & _
            t.GUID.ToString("B")
        Registry.ClassesRoot.DeleteSubKeyTree(keyName)
    End Sub

#End Region
    Private Sub UserControl1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Public Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("OK")
    End Sub
End Class



Software developers have used ActiveX controls on their web pages to add advanced functionality to the web experience. With my migration from a Visual Basic 6 world to a Microsoft .NET C# world,I had some question as to how I can create an ActiveX control with .NET. After some research I found out that the solution is really quite simple. Create a Windows control project in Visual Studio .NET and expose an interface to the COM world.

In this example,I will walk you through creating an ActiveX control that will show a simple user interface and accept input from a web page. This process will involve the following steps:

  1. Create an assembly (class library project) that contains an item of type User Control.

  2. Expose an interface for the control.

  3. Embed the user control into a web page.

  4. Transfer data from a web form to the control and display the data on the control.

Step 1: Create anassembly.

You can use the example provided for download,or simply create your own project from scratch. In this section I will outline everything you need to do in order to properly create your assembly.

Once the project is created,delete the Class1.cs file from your project as it will not be necessary. Next,add a User Control to the project by right clicking on the project in your solution explorer,choose Add,then User Control. Name your user control "myControl".

On the user control,add some UI elements,and a text Box control named txtUserText. The txtUserText control will display the user data that is typed into the web form. This will demonstrate how to pass data to your User Control.

When you are done adding your user interface to the control we now have to add a key element to the control,an Interface. The interface will allow COM/COM+ objects to know what properties they can use. In this case,we are going to expose one public property named UserText. That property will allow us to set the value of the text Box control.

Step 2: Expose the Interface for the control.

First,create a private String to hold the data passed from the web form to the control:

privateDimmStr_UserTextasString

Place this String just inside the Class myControl.

Next,we will create a public property. The web page will use this property to pass text back to your control. This property will allow reading and writing of the value mStr_UserText.

PublicPropertyUserText()As[String]
Get
ReturnmStr_UserText
EndGet
Set(ByValValueAs[String])
mStr_UserText = value
@H_301_193@'Update the text Box control value also.
txtUserText.Text = value
EndSet
End
Property

In this example,you will note the extra code in the set section of the public property. When a value is passed from the web form to the control we will set the private String value equal to the value passed to the property. In addition,we are simply going to modify the value of the Text Box control directly. Typically you would NOT do this. Instead,you would raise an event and then validate the data being passed by examining the private variable mStr_UserText. Then you would set the value of the Text Box Control. However,that would add significant code to this example and for simplicity sake I am omitting that security precaution.

Now that you have a public property that .NET assemblies can use,you need to make that property available to the COM world. We do this by creating an Interface and making the myControl class inherit the interface. This will allow COM objects to see what properties we have made available.

Your code will now look like this:

NamespaceActiveXDotNet
{
PublicInterfaceAxMyControl
PropertyUserText()AsString
Property
EndInterface@H_301_193@'AxMyControl

PublicClassmyControl
InheritsSystem.Windows.Forms.UserControl,AxMyControl
PrivatemStr_UserTextAs[String]

PublicPropertyUserText()AsString
Set(ByValValueAsString)
EndSet
EndProperty
EndClass@H_301_193@'myControl
...

Notice that we now have an interface defined,the interface tells COM/COM+ that there is a public property available for use that is of type String and is readable (get) and writeable (set). All we do now is have the Class myControl inherit the interface and viola! We have a .NET assembly that acts like an ActiveX Control.

Step 3: Embed the user control in a web page.

The last thing we do now is use the control in an example web page.

<html>
<
bodycolor=white>
<
hr>
<fontface=arialsize=1>
<
OBJECTid="myControl1"name="myControl1"classid="ActiveXDotNet.dll#ActiveXDotNet.myControl"width=288height=72>
</OBJECT>
</
font>
<formname="frm"id="frm">
<
inputtype="text"name="txt"value="enter text here"><inputtype=buttonvalue="Click me"onClick="doScript();">
</
form>
<
hr>
</
body>
<scriptlanguage="javascript">
function
doScript()
{
myControl1.UserText = frm.txt.value;
}
</script>
</
html>

You will notice in the HTML code above,that you call your .NET assembly very similar to an ActiveX control; however there is no GUID,and no .OCX file. Your CLASSID is now the path to your DLL and the Namespace.Classname identifier. Refer to the code above to understand the Syntax of the CLASSID object tag property. Place the HTML file and your DLL in the same directory on your web server and navigate to the HTML document. (Do not load the HTML document by double clicking on it,navigate to it in your browser by using the Fully Qualified URL.) *NOTE: You might need to add your web server to your Trusted Sites list in your Internet Explorer browser.

Step 4: Transfer data from the web form to the user control.

When you load the HTML page,your control should load into the page and you will see a web form with a text Box and a button. In this example,if you type some text into the text Box and click the button,it will use JavaScript to send the text from the web page form,to the User Control that you just built. Your User Control will then display the text in the Text Box control that I on the form.

Where do I go from here?

There are many issues that you should investigate in order to properly create User Controls that work on a web page. .NET Security plays a big part in what you can actually do within the confines of your code. You should also investigate code signing your control.

原文链接:https://www.f2er.com/vb/261699.html

猜你在找的VB相关文章