Visual Basic Discussion Boards

Sonhospa11-Feb-12 15:18

11-Feb-12 15:18

Hi Luc,

sorry for my late response, I had to find the time to figure that out and still find myself stuck.

Following your advice I defined the class "AirportRange"

Public Class AirportRange
	Private _display As String
	Public Property Display() As String
		Get
			Return _display
		End Get
		Set(ByVal value As String)
			_display = value
		End Set
	End Property

	Private _value As Integer
	Public Property Value() As Integer
		Get
			Return _value
		End Get
		Set(ByVal value As Integer)
			_value = value
		End Set
	End Property
End Class

Storing the class in a generic list didn't work (e.g. I didn't know how to), so I used the designer and set up the class as a Project DataSource - after which VS creates an "AirportRangesBindingSource" from it. This I used as DataSource for the new comboBoxes on my main and child forms, setting DataMember and ValueMember to the properties as you suggested.

A problem arose: The forms show, but I can't define items for them - which results in no possibility to select any values from the ComboBox. The items obviously have to be defined in the class istself? At least when I open the "items" property, I get an error message saying it wouldn't be possible to set items as a DataSource is defined...

Can you help me out of that?
Thanks for now,
Mick

Re: Synchronized controls logic

Luc Pattyn11-Feb-12 15:47

Luc Pattyn

11-Feb-12 15:47

You should keep things simple, especially when you don't understand them well.
And not knowing the basics of generic lists is not acceptable nowadays!

Here is a demo class to describe the combobox items:

Public Class Item
    Private myValue As Integer
    Private myName As String

    Public Sub New(ByVal number As Integer, ByVal name As String)
        myValue = number
        myName = name
    End Sub

    Public ReadOnly Property Valu() As Integer
        Get
            Return myValue
        End Get
    End Property

    Public ReadOnly Property Name() As String
        Get
            Return myName
        End Get
    End Property
End Class

and this could be part of a Form that holds a number of comboboxes, all showing the same list, and working fully synchronized:

Private Items As List(Of Item)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Items = New List(Of Item)
    Items.Add(New Item(1, "one"))
    Items.Add(New Item(2, "two"))
    Items.Add(New Item(3, "three"))
    For Each ctrl As Control In Me.Controls
        If TypeOf (ctrl) Is ComboBox Then
            Dim cmb As ComboBox = CType(ctrl, ComboBox)
            cmb.DataSource = Items
            cmb.DisplayMember = "Name"
            cmb.ValueMember = "Valu"
        End If
    Next
End Sub

That is all there is to it. No magic, no wizards involved.

PS: when you attach a SelectedValueChanged handler to each ComboBox, you'll see they all fire, the one you actually changed fires first, then the others in arbitrary order.

Smile | :)

Luc Pattyn [My Articles] Nil Volentibus Arduum

Fed up by FireFox memory leaks I switched to Opera and now CP doesn't perform its paste magic, so links will not be offered. Sorry.

Re: Synchronized controls logic

Sonhospa11-Feb-12 23:36

Sonhospa

11-Feb-12 23:36

Actually I had built this solution (a custom control in connection with a custom 'changed' event both forms shared) before and discarded it – thinking your suggestion would show a completely different approach – because ... this approach only solves a part of my problem, raising another one:

Having every control fire it's changed events I end up actualizing the underlying lists twice (which is time intensive)! I had first tried to avoid that by identyfying the clicked control (passing the sender to the FindForm function), but there' obviously no difference between the index change by a 'real user selection' and a remote index change triggered by the other control's changed-event. Could that effect be avoided?

Regards
Mick

Re: Synchronized controls logic

Luc Pattyn12-Feb-12 0:04

Luc Pattyn

12-Feb-12 0:04

you could use a global variable GlobalVal to hold the current value of your synchronized comboboxes.
in each SelectedValueChanged handler, compare the new value to GlobalVal; when different do everything that needs to be done and update GlobalVal, when equal do less (or even nothing at all).

Which basically means you would be using a cache with just one entry.

Smile | :)

Luc Pattyn [My Articles] Nil Volentibus Arduum

Fed up by FireFox memory leaks I switched to Opera and now CP doesn't perform its paste magic, so links will not be offered. Sorry.

Re: Synchronized controls logic

Sonhospa12-Feb-12 1:35

Sonhospa

12-Feb-12 1:35

Wow - you seem to be online day and night Java | [Coffee]

And yes, that makes sense and keeps it simple, too Wink | ;)

I'm going to check that out.

Thank you in advance Cool | :cool:

Mick

OLE Automation error 438 when registering a XLL using custom action

tagad10-Feb-12 6:17

tagad

10-Feb-12 6:17

Hi,

I would like to register an XLL while installing a project using MSI.

I am using a VB.NET installer class to do this:

Imports System.ComponentModel
Imports System.Configuration.Install
Imports System.ArgumentException
Imports Microsoft.Office.Interop

Public Class Installer1

    Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary)
        MyBase.Install(stateSaver)

        Dim targetDir = Me.Context.Parameters.Item("targetdir")
        targetDir = targetDir.Substring(0, targetDir.Length - 1)
        MsgBox(targetDir)

        Dim myScript = targetDir + "MySuperAddin.xll"
        MsgBox(myScript)

        Dim objAddin As Object
        Dim objEXL As Excel.Application = DirectCast(CreateObject("Excel.Application"), Excel.Application)

        objEXL.Workbooks.Add()
        Try

            objAddin = objEXL.AddIns.Add(myScript, True)
            objAddin(myScript).Installed = True

        Catch ex As Exception
            MsgBox("cannot open addin. /n Error: " + ex.Message)
Err_Handler:
            MsgBox(Err.Description, vbCritical, "Error: " & Err.Number)
        End Try
        objAddin = Nothing
        objEXL.Quit()
        objEXL = Nothing
    End Sub
End Class

When I run this code as a VB script on my desktop I dont have any issue.

it is a very standard way to install an addin

please see the link
http://stackoverflow.com/questions/1130301/uninstalling-excel-add-in-using-vbscript[^]

However when I run it during the installation I get

Error: 438 Member not found. (Exception from HRESULTS: 0x80020003 (DISP_E_MEMBERNOTFOUND))

I tried to find a solution using the following links:
1) http://support.microsoft.com/kb/172108[^]

and

2) http://support.microsoft.com/kb/213489/[^]

but NO success. it is a clear problem with OLE Automation Object. I would really appreciate a suggestion. MANY THANKS!!

How do I check programmatically if installed version of ACE OleDb is 64 or 32 bit version?

Jörgen Andersson9-Feb-12 22:33

Jörgen Andersson

9-Feb-12 22:33

My Google foo is failing me.

Light moves faster than sound. That is why some people appear bright, until you hear them speak.
List of common misconceptions

Re: How do I check programmatically if installed version of ACE OleDb is 64 or 32 bit version?

Luc Pattyn9-Feb-12 23:36

Luc Pattyn

9-Feb-12 23:36

IIRC a 64-bit version of the OleDb data provider doesn't exist.

Smile | :)

Luc Pattyn [My Articles] Nil Volentibus Arduum

Fed up by FireFox memory leaks I switched to Opera and now CP doesn't perform its paste magic, so links will not be offered. Sorry.

Re: How do I check programmatically if installed version of ACE OleDb is 64 or 32 bit version?

Jörgen Andersson9-Feb-12 23:47

Jörgen Andersson

9-Feb-12 23:47

Well, it does.[^]
And normally I would be happy about that, but at the moment it's a bit of a problem to solve.

Light moves faster than sound. That is why some people appear bright, until you hear them speak.
List of common misconceptions

Re: How do I check programmatically if installed version of ACE OleDb is 64 or 32 bit version?

Luc Pattyn9-Feb-12 23:59

Luc Pattyn

9-Feb-12 23:59

I stand corrected.

Smile | :)

Luc Pattyn [My Articles] Nil Volentibus Arduum

Fed up by FireFox memory leaks I switched to Opera and now CP doesn't perform its paste magic, so links will not be offered. Sorry.

Re: How do I check programmatically if installed version of ACE OleDb is 64 or 32 bit version?

Dave Kreskowiak10-Feb-12 2:11

Dave Kreskowiak

10-Feb-12 2:11

Curious...why would you want to check?

You're code is going to use the ACE that matches your code bitness. The connection string wouldn't change at all AFAIK.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Re: How do I check programmatically if installed version of ACE OleDb is 64 or 32 bit version?

Jörgen Andersson10-Feb-12 3:05

Jörgen Andersson

10-Feb-12 3:05

It seems that the ACE OleDb that's getting installed with Office is always 32 bits, no matter what your operating system is.
But if you install the Microsoft Access Database Engine 2010 Redistributable you'll have the choice of 32 or 64 bits.
So I want to check not just whether it's installed or not, but also the bitness.
And if it doesn't check I will fallback to Jet OleDb which is preinstalled with the same bitness as the OS.
Or am I missing something obvious here?

Light moves faster than sound. That is why some people appear bright, until you hear them speak.
List of common misconceptions

Re: How do I check programmatically if installed version of ACE OleDb is 64 or 32 bit version?

Dave Kreskowiak10-Feb-12 3:33

Dave Kreskowiak

10-Feb-12 3:33

Well, you have no fall back. Why? Bcause you cannot mix 64 and 32-bit code in the same process. This problem is solved at installtime, not runtime.

If your app is compiled as x64 or AnyCPU (and running on a 64-bit O/S), you cannot use the 32-bit drivers. The reverse is also true. If compiled x86 or AnyCPU (and running on a 32-bit O/S), you can't use 64-bit drivers.

The best solution to the problem is to install the requisite software your app needs to run, as is. If your app is compiled x86 or AnyCPU (on a 32-bit machine), then chances are everything is already installed. If your app is compiled AnyCPU (on a 64-bit machine) or x64, then you have to install the Reidistributable engine.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Re: How do I check programmatically if installed version of ACE OleDb is 64 or 32 bit version?

yanghua9414-Feb-12 5:42

yanghua94

14-Feb-12 5:42

In my opinion, user can install both x64 and x86 version of any COM/Activex component with the same GUID, but when a program runs in 64bit mode, you can check registry entries to ensure which version is installed. The real registry key for a x86 component in WOW64 could be found at HKEY_CLASSES_ROOT\Wow6432Node\CLSID node instead of HKEY_CLASSES_ROOT.

vsFlexgrid 8 ActiveX

Jim Giles9-Feb-12 10:39

Jim Giles

9-Feb-12 10:39

Does anyone have a LICENCED copy of vsFlexgrid 8 ActiveX surplus to their needs that they wish to sell?

I need to update 1 VB6 prog to run on Win7 but find ComponentOne price is prohibitive for a 1 off job

I understand that this is permitted by the Licence agreement.

Jim

What should i install ?

alejx9-Feb-12 3:55

alejx

9-Feb-12 3:55

Hello !
i have finished my application in vb.net 2010 / Net Framework 4 / with Entity Framework 41/ Crystal reports.

on My PC where i have created the application , everything run fine.
now , i want to install and run my application on another PC where Visual studio is not installed .
Except my application , what other packages should i install on other pc to run my application.

Thank you !

Re: What should i install ?

Simon_Whale9-Feb-12 4:22

Simon_Whale

9-Feb-12 4:22

you will more than likely need to make sure that the 4.0 framework is installed and also the crystal reports runtime

Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch

Re: What should i install ?

alejx9-Feb-12 7:23

alejx

9-Feb-12 7:23

Thank you !
But can you give me some link where to download these packages ?

Thank You !

Re: What should i install ?

Framework .l.9-Feb-12 14:18

Framework .l.

9-Feb-12 14:18

check this out..

http://www.microsoft.com/download/en/details.aspx?id=17851

Problems with marshaling

Florian Krätschmer8-Feb-12 23:42

Florian Krätschmer

8-Feb-12 23:42

I want to integrate an "old DLL" in which a function is called, in which I must pass two structures ByRef. The functions and structures:

<System.Runtime.InteropServices.StructLayoutAttribute(System.Runtime.InteropServices.LayoutKind.Sequential, CharSet:=System.Runtime.InteropServices.CharSet.Ansi, Pack:=1)> _
   Public Structure BitRec
       <MarshalAs(UnmanagedType.ByValArray, SizeConst:=20)> Public iBit() As Integer
       Public iState As Integer
       Public iTime As Integer
   End Structure

<System.Runtime.InteropServices.StructLayoutAttribute(System.Runtime.InteropServices.LayoutKind.Sequential, CharSet:=System.Runtime.InteropServices.CharSet.[Ansi], Pack:=1)> _
    Public Structure MixCalcRec
        Public dLeistung As Double
        Public dTemp1 As Double
        Public dEinlauf As Double
        Public dAuslauf As Double
        Public dStempelWeg As Double
        Public dDrehzahl As Double
    End Structure

<System.Runtime.InteropServices.DllImportAttribute("DPCALC", EntryPoint:="_CalcMixData@28", CallingConvention:=System.Runtime.InteropServices.CallingConvention.StdCall)> _
   Public Shared Function CalcMixDataDLL(ByRef AnalogData As MixCalcRec, ByVal iArraySize As Integer, ByRef BitArray As BitRec, ByVal iBitSize As Integer, ByVal iMode As Integer, ByVal dbDistance As Double) As Integer
   End Function

Public Function CalcMixData(ByRef AnalogData As MixCalcRec, ByVal iArraySize As Integer, ByRef BitArray As BitRec, ByVal iBitSize As Integer, ByVal iMode As Integer, ByVal dbDistance As Double) As Integer
        Dim ireturn As Integer = 0
        Dim iSizeOfOneStruct1 As Integer = Marshal.SizeOf(GetType(MixCalcRec))
        Dim iTotalSize1 As Integer = iSizeOfOneStruct1 * iArraySize
        Dim pUnmanagedAnalogDaten As IntPtr = Marshal.AllocCoTaskMem(iTotalSize1)
        Marshal.StructureToPtr(AnalogData, pUnmanagedAnalogDaten, False)
        Dim iSizeOfOneStruct2 As Integer = Marshal.SizeOf(GetType(BitRec))
        Dim iTotalSize2 As Integer = iSizeOfOneStruct2 * iBitSize
        Dim pUnmanagedBitDaten As IntPtr = Marshal.AllocCoTaskMem(iTotalSize2)
        Marshal.StructureToPtr(BitArray, pUnmanagedBitDaten, False)
        ireturn = CalcMixDataDLL(pUnmanagedAnalogDaten, iArraySize, pUnmanagedBitDaten, iBitSize, iMode, dbDistance)
        Marshal.FreeCoTaskMem(pUnmanagedAnalogDaten)
        Marshal.FreeCoTaskMem(pUnmanagedBitDaten)
        CalcMixData = ireturn
    End Function

After calling the Function in the DLL wrapper i get an error that I attempted to read or write in protected memory. Can someone help me with that? What am I doing wrong? I think the structures and the DLL declaration are OK. I guess something's wrong in the DLL wrapper.

Thanks for your help.

A code in VB.NET.

hansoctantan8-Feb-12 22:40

hansoctantan

8-Feb-12 22:40

Hi guys, I have a question...
I created an Image TIF Viewer and its working fine (Zooming, Move Up Down Left Right, Rotate, Next and Previous Page).
This image viewer is not that high level app cause I just use Panel and Picturebox in it. The problem is I can't run this program to a lower version of windows so I decided to use Visual Basic 6. The problem is some of the datatypes is new to me, I just found them in the Internet.
This is the part that I don't know how to convert it in VB6

I use this code to view the multi-tiff image

Dim objGuid As Guid = (objImage.FrameDimensionsList(0))
Dim objDimension As System.Drawing.Imaging.FrameDimension = New System.Drawing.Imaging.FrameDimension(objGuid)
imgTotalPage = objImage.GetFrameCount(objDimension)
objImage.SelectActiveFrame(objDimension, imgPage)

the Guid and this System.Drawing.Imaging.FrameDimension, is there a same type of this in VB6?

Any answer/reply/comment is appreciated. Thumbs Up | :thumbsup:

Thanks in advance... Big Grin | :-D

modified 9-Feb-12 5:38am.

Re: A code in VB.NET.

JR2129-Feb-12 1:40

JR212

9-Feb-12 1:40

Easy. Don't

VB6 to vb.net ==>logic
vb.net to vb6 ==> very wrong choice

there must be another reason why your program won't work.

Is the framework that you use installed on that other computer.

Jan

Re: A code in VB.NET.

Simon_Whale9-Feb-12 1:59

Simon_Whale

9-Feb-12 1:59

It will be Difficult to impossible to rollback code to previous versions of Visual basic especially from the .net framework to version 6.

If you are adamant on using VB6 then I would look at 3rd party controls to do what you are after.

Sorry but that is my 2 cents on the subject.

Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch

Re: A code in VB.NET.

Dave Kreskowiak9-Feb-12 2:10

Dave Kreskowiak

9-Feb-12 2:10

There is no direct conversion for the code you posted. You'd have to write your own libraries to duplicate the functionality provided.

Considering you want (for some very bad reason) to use VB6, I'd suggest using a 3rd party control for this, IF you can even find one any more.

Windows 8 will NOT have VB6 runtime support, so I suggest you rethink what you want to support. in the way of Windows versions.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Re: A code in VB.NET.

hansoctantan9-Feb-12 3:28

hansoctantan

9-Feb-12 3:28

Actually I created the program to remove the use of third party.
The reason is, you must buy the license.
If that's the case, I'll try to find an another way...

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.