Interface code from C# to VB.NET - .NET (Core and Framework) Discussion Boards

But The MS said that "Running 32-bit Applications on 64-bit Windows (IIS 6.0)"

URL:http://www.microsoft.com/technet/prodtechnol/WindowsServer2003/Library/IIS/13f991a5-45eb-496c-8618-2179c3753bb0.mspx?mfr=true[^]

Hi again. I have another question hopefully someone can help me with. I've found articles online where it is said that an Interface does not have a GetType() function as it is not derived from 'Object'. This seems true since when trying to work with the IDataObject interface, there is no GetType() function.

The problem is, as my last post addresses, I'm trying to change code from C# to VB for drag and dropping from Outlook. The original C# code is shown below. The very Odd thing I don't understand is how in C# GetType() works with IDataObject. Inside the DragDrop event of an Windows Form object e.Data.GetType() is usable, but this is not the case in VB.

I have the below code converted to VB but the New constructor does not work since there is no GetType() functions "visible."

Thanks again!!

private System.Windows.Forms.IDataObject underlyingDataObject;
private System.Runtime.InteropServices.ComTypes.IDataObject comUnderlyingDataObject;
private System.Windows.Forms.IDataObject oleUnderlyingDataObject;
private MethodInfo getDataFromHGLOBLALMethod;

public OutlookDataObject(System.Windows.Forms.IDataObject underlyingDataObject)
{
    //get the underlying dataobject and its ComType IDataObject interface to it
    this.underlyingDataObject = underlyingDataObject;
    this.comUnderlyingDataObject = (System.Runtime.InteropServices.ComTypes.IDataObject)this.underlyingDataObject;

    //get the internal ole dataobject and its GetDataFromHGLOBLAL so it can be called later
    FieldInfo innerDataField = this.underlyingDataObject.GetType().GetField("innerData", BindingFlags.NonPublic | BindingFlags.Instance);
    this.oleUnderlyingDataObject = (System.Windows.Forms.IDataObject)innerDataField.GetValue(this.underlyingDataObject);
    this.getDataFromHGLOBLALMethod = this.oleUnderlyingDataObject.GetType().GetMethod("GetDataFromHGLOBLAL", BindingFlags.NonPublic | BindingFlags.Instance);
}

Hi David,

I am having the same problem, I can get the oleUnderlyingDataObject ok but I am unable to get the method getDataFromHGLOBLAL.

The last line of code returns nothing...

Did you find a resolution to this?

Regards

Bill Terrington

Public Sub New(ByVal underlyingDataObject As System.Windows.Forms.IDataObject)
         'get the underlying dataobject and its ComType IDataObject interface to it 
         Me.underlyingDataObject = underlyingDataObject
         Me.comUnderlyingDataObject = DirectCast(Me.underlyingDataObject, System.Runtime.InteropServices.ComTypes.IDataObject)

         'get the internal ole dataobject and its GetDataFromHGLOBLAL so it can be called later 
         Dim innerDataField As FieldInfo = CType(Me.underlyingDataObject, Object).[GetType].GetField("innerData", BindingFlags.NonPublic Or BindingFlags.Instance)

         Me.oleUnderlyingDataObject = DirectCast(innerDataField.GetValue(Me.underlyingDataObject), System.Windows.Forms.IDataObject)
         Me.getDataFromHGLOBLALMethod = CType(Me.oleUnderlyingDataObject, Object).[GetType].GetMethod("getDataFromHGLOBLAL", BindingFlags.NonPublic Or BindingFlags.Instance)

End Sub

Sorry but I never did find the solution. Not sure if you are using the same code I was (Providing for drag and drop from Outlook)?

I ended up using the original C# code and creating a C# library that my VB program referenced.

Then I ended up using an online code converter and now the program is in c# anyway...

Sorry couldn't be more helpful.

I have already created a c library but was hoping to avoid
the overhead if possible.

Thanks for the reply anyway.

David Hovey wrote:
The problem is, as my last post addresses, I'm trying to change code from C# to VB for drag and dropping from Outlook. The original C# code is shown below. The very Odd thing I don't understand is how in C# GetType() works with IDataObject. Inside the DragDrop event of an Windows Form object e.Data.GetType() is usable, but this is not the case in VB.

Translate C#:
FieldInfo innerDataField = this.underlyingDataObject.GetType().GetField("innerData", BindingFlags.NonPublic | BindingFlags.Instance);

TO VB:
Dim innerDataField As FieldInfo = CObj(Me.underlyingDataObject).GetType().GetField("innerData", BindingFlags.NonPublic Or BindingFlags.Instance)

Fred

Thanks Fred. Although it certainly has been awhile since I posted that. Where were you then!?
hahaha. Just a joke.

When I couldn't figure it out I ended up using a .NET library to keep the C# code as it was. Then as it turned out, because I needed more C# experience, I ported my program over to C# and didn't need the code in VB anyway.

All kidding aside. Great work.

Hello. I am trying to implement drag and drop in my application (from Outlook messages and message attachments) I found the code on a Code Project post, but it is for C#. My application is written in VB, so I'd rather convert the code to VB than add a required DLL to what my program requires.

I need help with the below lines of code. Where I need help is at the CreateStream function for example. I cannot find a equivalent for the "return" section of "[return: MarshalAs(UnmanagedType.Interface)]"

Can you help me?

Thanks.

[ComImport, InterfaceType(ComInterfaceType.InterfaceIsIUnknown), Guid("0000000B-0000-0000-C000-000000000046")]
public interface IStorage
{
    [return: MarshalAs(UnmanagedType.Interface)]
    IStream CreateStream([In, MarshalAs(UnmanagedType.BStr)] string pwcsName, [In, MarshalAs(UnmanagedType.U4)] int grfMode, [In, MarshalAs(UnmanagedType.U4)] int reserved1, [In, MarshalAs(UnmanagedType.U4)] int reserved2);
    [return: MarshalAs(UnmanagedType.Interface)]
    IStream OpenStream([In, MarshalAs(UnmanagedType.BStr)] string pwcsName, IntPtr reserved1, [In, MarshalAs(UnmanagedType.U4)] int grfMode, [In, MarshalAs(UnmanagedType.U4)] int reserved2);
    [return: MarshalAs(UnmanagedType.Interface)]
    IStorage CreateStorage([In, MarshalAs(UnmanagedType.BStr)] string pwcsName, [In, MarshalAs(UnmanagedType.U4)] int grfMode, [In, MarshalAs(UnmanagedType.U4)] int reserved1, [In, MarshalAs(UnmanagedType.U4)] int reserved2);
    [return: MarshalAs(UnmanagedType.Interface)]
    IStorage OpenStorage([In, MarshalAs(UnmanagedType.BStr)] string pwcsName, IntPtr pstgPriority, [In, MarshalAs(UnmanagedType.U4)] int grfMode, IntPtr snbExclude, [In, MarshalAs(UnmanagedType.U4)] int reserved);
    void CopyTo(int ciidExclude, [In, MarshalAs(UnmanagedType.LPArray)] Guid[] pIIDExclude, IntPtr snbExclude, [In, MarshalAs(UnmanagedType.Interface)] IStorage stgDest);
    void MoveElementTo([In, MarshalAs(UnmanagedType.BStr)] string pwcsName, [In, MarshalAs(UnmanagedType.Interface)] IStorage stgDest, [In, MarshalAs(UnmanagedType.BStr)] string pwcsNewName, [In, MarshalAs(UnmanagedType.U4)] int grfFlags);
    void Commit(int grfCommitFlags);
    void Revert();
    void EnumElements([In, MarshalAs(UnmanagedType.U4)] int reserved1, IntPtr reserved2, [In, MarshalAs(UnmanagedType.U4)] int reserved3, [MarshalAs(UnmanagedType.Interface)] out object ppVal);
    void DestroyElement([In, MarshalAs(UnmanagedType.BStr)] string pwcsName);
    void RenameElement([In, MarshalAs(UnmanagedType.BStr)] string pwcsOldName, [In, MarshalAs(UnmanagedType.BStr)] string pwcsNewName);
    void SetElementTimes([In, MarshalAs(UnmanagedType.BStr)] string pwcsName, [In] System.Runtime.InteropServices.ComTypes.FILETIME pctime, [In] System.Runtime.InteropServices.ComTypes.FILETIME patime, [In] System.Runtime.InteropServices.ComTypes.FILETIME pmtime);
    void SetClass([In] ref Guid clsid);
    void SetStateBits(int grfStateBits, int grfMask);
    void Stat([Out]out System.Runtime.InteropServices.ComTypes.STATSTG pStatStg, int grfStatFlag);
}

Hi! I'm using a Windows form user control in a Vb6 application. I'm having some problems while using the control in Vb6 application.

1. I'm not able to set the value of a combo box in the user control programmatically. i.e At the run time I'm running some code which is not setting the value of the combo box in the Vb6 form.

2. When I click on some Vb6 control on the form then user control gets hidden. I'm adding the user control dynamically at run time.

3. Some module level variable were not able to retain there values in the user control but when I changed them to "Shared type" they were able to retain their values. Similarly progress bar is not able to retain its property values.

I tried searching on the net but could not find any suiable solution.Any kind of help is appreciated.

Thanks

Don't Quit

What does this have to do with the .NET Framework?

only two letters away from being an asset

This is related to InterOp and I could not find any forum specific to Interop here so I put it in the dot net framework.

Don't Quit

i am a new user and i want to know about web.config file in asp.net.
how many types of property of this file.how can i use it in our application.

no

Check the link
[^]"> [^]">

Cheers!!
Brij

I am devloping an application in which I wan to bind gridview using xml data which comes from database ..

How can I bind the gridview using SqlAdapter and dataset objects ?

I have following code but it doesnt make column as per xml data in grid view
It shows all data into single column ..

I dont know whether I am make some mistake in inserting or retrving the data...

Whether I have to store the xml as document type or as storage type ?

I have following code which I use to bind the grid view ...

Dim sqlString As String = "Data Source=ADSERVER\..........."

Dim sqlConnection As New SqlConnection(sqlString)

Dim xr As Xml.XmlReader
Dim ds2 As New DataSet
Dim dt As DataTable

sqlConnection.Open()
Dim cmd As New SqlCommand("Select data from xmlTest where PKID=63", sqlConnection)
xr = cmd.ExecuteXmlReader()
ds2.ReadXml(xr, XmlReadMode.InferSchema)
dt = ds2.Tables(0)
VGridControl1.DataSource = dt

Which displays the in the single column as it is in database...

Have you checked you dt,That it is having single column as DB or according to your XML schema?

Cheers!!
Brij

I want to read the xml data from the sql server 2005 by using
vb.net
I have xmltest table in datatbase and the data column which has the xml datatype
but I have a code of reading the xml data as follows

conn.Open();
SqlCommand command = conn.CreateCommand();
System.Text.StringBuilder builder = new
System.Text.StringBuilder();
command.CommandText = "SELECT XmlDesc FROM XmlTest WHERE ID = " + ID.ToString();
SqlDataReader reader = command.ExecuteReader();
if (reader.Read())
{
1)how to use in vb.net ?
-----> SqlXml sqlXmlValue = reader.GetSqlXml(0);
XmlReader xmlReader = sqlXmlValue.CreateReader();
while (xmlReader.Read())
{
2) How to use in vb.NET
---> builder.Append(xmlReader.ReadString());
builder.Append(" ");
}
txtXmlDesc.Text = builder.ToString();
}
else
txtXmlDesc.Text = "No Value";

now I want to convert this code in to vb.NET
what shoud I use at 1 and 2 ?
insted of SQLXml which is in c# what should I use in vb.net ?

nileshbahirshet wrote:
insted of SQLXml which is in c# what should I use in vb.net ?

SqlXml is a .NET class not specific to C#. IMO stick with C#, VB is dead and VB.NET is a poor attempt to keep VBers relevant.

only two letters away from being an asset

language: C#

I am trying to set a no. of pictureboxes containing an image( image being a transparent image) of its own. Is there any way to set these pictureboxes over one another so that the image of one picturebox below another picturebox can be seen( as the images set over them are transparent)????

You can't do this with pictureBoxes - even though the image contains transparent areas, the pictureBox will only show the background colour of the parent control (or anything you paint manually in the PaintBackground event of parent control). You may have better luck doing the painting yourself rather than relying on pictureBox - this will give you more control over what happens when you layer images like this.

"An eye for an eye only ends up making the whole world blind"

I agree with the previous poster,

It would be better to have a list of images in your form and to draw them all to a single picture box inside the PictureBox Paint event handler.

-------------------------------

Carrier Bags - 21st Century Tumbleweed.

The best thing you can do is layer these images in memory, and then write the combined image into a single picturebox.

"WPF has many lovers. It's a veritable porn star!" - Josh Smith

My blog | My articles | MoXAML PowerToys

Hi,

if you want to operate on images and don't know how to do it with a PictureBox, then it is very
likely a PictureBox is not the right Control for the job. Consider using a Panel, and paint whatever
it is you need in its Paint handler.

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

Fixturized forever. Confused | :confused:

can a panel open multiple images together.... if not then how to do it.. as i have more than 1 no. of transparent images to open Confused | :confused:

???

if yes.... then i'll go forward with it.....

Thank you all for replying.... Wink | ;)

A Panel is a simple container, it is like a whiteboard with size, location, backcolor, etc.
but it does not do anything; you have to load the images yourself and paint what you want to see.
IMO Panel gets sufficiently explained in MSDN.

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

Fixturized forever. Confused | :confused:

Hello to all,
I want to conferm that Is it possible to create a 16 bit application in .Net. I need 16 dll or application because I want to create a dll for 16 bit application.

Please help me how to solve this problem.

thanks