{"id":1335,"date":"2012-06-05T17:27:24","date_gmt":"2012-06-05T22:27:24","guid":{"rendered":"http:\/\/anvil-of-time.com\/wordpress\/?p=1335"},"modified":"2021-03-11T12:16:45","modified_gmt":"2021-03-11T17:16:45","slug":"powerbuilder-using-net-visual-controls-in-pb-classic-applications","status":"publish","type":"post","link":"https:\/\/anvil-of-time.com\/powerbuilder\/powerbuilder-using-net-visual-controls-in-pb-classic-applications\/","title":{"rendered":"PowerBuilder – Using .Net Visual Controls in PB Classic Applications"},"content":{"rendered":"

This article describes the techniques and code used during my presentations at the Carolina Code Camp 2012 and at the May 2012 meeting of the North Carolina PowerBuilder User Group.<\/p>\n

The techniques described here utilize Visual Basic .Net (coded in Visual Studio 2010) with the Interop Forms Toolkit<\/a> available from Microsoft. The Interop Forms Toolkit was originally intended as a ‘bridge’ between the VB 6 world and VB .Net. It allows you to host any .Net control in any Win32 application that supports COM. The current version supports Visual Studio 2005, 2008, and 2010.<\/p>\n

In this example we are creating a horizontal track bar control to use in a PB application (PB12.5). Why not use the PB control you say? Well, we want one which allows us to control the background color.<\/p>\n

First create a project in Visual Studio and under ‘Visual Basic’ – ‘Windows’ choose the VB6 Interop UserControl. Give the control a meaningful name at the bottom, I picked ‘vb_trackbar’.
\n\"\"<\/a><\/p>\n

In the Solution Explorer you should see a number of components which are automatically created. Almost all the work is done in the ‘InterobUserControl.vb’ element
\n\"\"<\/a><\/p>\n

Double click on the ‘InteropUserControl.vb’ element to bring it up in design mode so the actual control can be built.
\n\"\"<\/a>
\nChoose a Trackbar from the tools window in Visual Studio
\n\"\"<\/a>
\nand drop it on the usercontrol. Rearrange its size and position as appropriate
\n\"\"<\/a>
\nNow choose a Label and drop it on the control.
\n\"\"<\/a><\/p>\n

Change the backcolor of the trackbar to yellow; the name to TB; the Margin to 0,0,0,0; the Maximum to 100; the TickFrequency to 10; and the TickStyle to Both.
\n\"\"<\/a><\/p>\n

Modify the background color of the label and the usercontrol itself to yellow. Rename the control to ‘IOP_Trackbar’, the label to ‘LB_Value’, and give the label a border.
\n\"\"<\/a><\/p>\n

Right click on the ‘InteropUserControl.vb’ element from the Project window and choose ‘View Code’
\n\"\"<\/a><\/p>\n

You will see code like this (this is from Visual Studio 2010).
\n\"\"<\/a><\/p>\n

Here is the code to add.<\/p>\n

   'Please enter any new code here, below the Interop code\n\n    ' event to show in PB\n    Public Event tbScroll()\n    Public Event tbValuechanged()\n\n    Private Sub TB_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB.Scroll\n        LB_Value.Text = TB.Value.ToString()\n        RaiseEvent tbScroll()\n    End Sub\n    Private Sub TB_Valuechanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB.ValueChanged\n        RaiseEvent tbValuechanged()\n    End Sub\n\n    ' method to call from PB\n    Public Sub tbSetBackColor(ByVal testval As Integer)\n        Dim myColor As Color = ColorTranslator.FromWin32(testval)\n\n        TB.BackColor = myColor ' set color on trackbar\n        LB_Value.BackColor = myColor ' set color on label\n        BackColor = myColor ' set color on interop control\n    End Sub\n    ' Property get\/set\n    Public Shadows Property TBBackgroundColor() As Integer\n        Get\n            Return ActiveXControlHelpers.GetOleColorFromColor(TB.BackColor)\n        End Get\n        Set(ByVal value As Integer)\n            TB.BackColor = ActiveXControlHelpers.GetColorFromOleColor(value)\n        End Set\n    End Property\n    ' this is the value of the trackbar\n    Public Shadows Property TBValue() As Integer\n        Get\n            Return TB.Value\n        End Get\n        Set(ByVal value As Integer)\n            TB.Value = value\n        End Set\n    End Property<\/pre>\n
In the first portion there are two events we want to expose to PowerBuilder so we can write code in our PB app to respond to the control. These are ‘tbScroll’ and ‘tbValuechanged’. One is triggered in response to the Scroll event on the trackbar (which we named ‘TB’) and the other by the Valuechanged event. In the tbScroll event we are setting the Text in the label (we called it ‘LB_Value’) on the userobject to the Value property of the Trackbar.<\/p>\n
We also are creating a method, tbSetBackColor, which can be called from our PB app to set the background colors of the userobject, trackbar, and label.<\/p>\n
Finally we are exposing two properties of the Trackbar so we can either set or get them from our PB app. These are called ‘TBBackgroundColor’ and ‘TBValue’.<\/p>\n
The last thing we need to do in Visual Studio is to add an Interface to the project so the events we are exposing can be seen from within PowerBuilder. From the Project menu choose ‘Add New Item’.
\n\"\"<\/a>
\nThen under the ‘Common Items’ choose ‘Interface’
\n\"\"<\/a><\/p>\n
In the code for the interface, replace it with the following.<\/p>\n
<guid("ca16a9e8-02c7-43d2-90f6-4ef30885a338"), _="" interfacetype(cominterfacetype.interfaceisidispatch)=""> _\nPublic Interface iIOP_Trackbar\n    <dispid(1)> _\n    Sub tbScroll()\n    <dispid(2)> _\n    Sub tbValuechanged()\nEnd Interface<\/dispid(2)><\/dispid(1)><\/guid("ca16a9e8-02c7-43d2-90f6-4ef30885a338"),><\/pre>\n
The first thing to do now is to replace the example GUID with one of your own (Visual Studio can generate one). Also give the Interface a more meaningful name – ‘iIOP_Trackbar’ in this example. Within the interface definition are the two events which will be visible from within PowerBuilder.<\/p>\n
With this done you can now build the solution from the ‘Build’ menu
\n\"\"<\/a><\/p>\n
This will create and register the dll on the machine.<\/p>\n
Now in PowerBuilder the control will be available when you choose to add an userobject.
\n\"\"<\/a><\/p>\n
The events are visible in Powerscript.
\n\"\"<\/a><\/p>\n
Now in the tbscroll event on our ole control we put the following.<\/p>\n
long ll_val\n\/\/report on the current value of the control\n\/\/this uses the 'getter' method to return the track bar value from the .net control\nll_val = ole_1.object.event tbvalue()\n\/\/move the PB control\nhtb_1.position = ll_val\n\/\/ show value\nst_1.text = string(ll_val)<\/pre>\n
Code in the tbvaluechanged event on the ole control<\/p>\n
sle_2.text = 'tbvaluechanged at ' + string(Now(),'hh:mm:ss')<\/pre>\n
Code to set the color of the ole control.<\/p>\n
long ll_color\n\n\/\/ set the desired color on the control\nIF sle_1.text = string(RGB(0,174,221)) THEN\n\tll_color = 15780518\nELSE\n\tll_color = RGB(0,174,221)\nEND IF\n\/\/ call method on .Net control to set the background colors\nole_1.object.event tbsetbackcolor(ll_color)\n\/\/ get the color value using the 'getter' method in .Net class\nsle_1.text = string(ole_1.object.tbbackgroundcolor())<\/pre>\n
Running the application gives the following
\n\"\"<\/a>
\nSee the original control background color. Clicking the Set Color button gives this
\n\"\"<\/a><\/p>\n
Moving the trackbar ole control results in this.<\/p>\n
\"\"<\/a><\/p>\n
There are a couple of things to look out for when using the techniques described here. The first is that any events exposed via the .Net Interface must have some sort of Powerscript in them within PB. Failure to do this results in an ‘unhandled exception’ application crash. There may be some way to prevent this from within Visual Basic but I am not sure.<\/p>\n
The other issue is that if you have to change your VB.Net component you must re add it to your window\/form within PowerBuilder. Usually I will add a second ole object to the existing window, transfer all the code from the old ole control, delete the original control, and finally rename the new control to that of the old control. This is the biggest issue I have with working with ‘roll your own’ ole controls. If anyone knows of a work around for this I would like to hear it.<\/p>\n
Visual studio and PB files can be downloaded from here<\/a>.<\/p>\n
The video presentation of this is on YouTube<\/a>.
\nCodeProject<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
This article describes the techniques and code used during my presentations at the Carolina Code Camp 2012 and at the May 2012 meeting of the North Carolina PowerBuilder User Group. The techniques described here utilize Visual Basic .Net (coded in Visual Studio 2010) with the Interop Forms Toolkit available from Microsoft. The Interop Forms Toolkit…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[47,3,10,85],"tags":[50,12,13,16,48],"_links":{"self":[{"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/posts\/1335"}],"collection":[{"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/comments?post=1335"}],"version-history":[{"count":15,"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/posts\/1335\/revisions"}],"predecessor-version":[{"id":2035,"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/posts\/1335\/revisions\/2035"}],"wp:attachment":[{"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/media?parent=1335"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/categories?post=1335"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/tags?post=1335"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}