Visual C to Visual Basic Converstion Help...

[MRD]

Hi All, I found a useful bit of code on msdn in VC but need it in VB.
I've started the conversion but can't quite finish. The code puts a
custom Icon on a toolbar (In my case the Word Add-in "Standard" bar.

I don't know how to handle the "resource manager" line especially the
"this.GetType() ". What the heck is "This?" (and don't start the "who's
on first routine please :-)

Also, what is the reference for clipboard objects?

Also, I'm applying the tool to a command bar button, not a menu pop-up
but I'm assuming the code is analogous and I only have to switch types.

Thanks in advance,
Mark

=========
The original code
=========
private void AddSubButton(Of fice.CommandBar Popup cb, string buttonName)
{
try
{
object missing = Missing.Value;
Office.CommandB arButton customButton;
customButton = (Office.Command BarButton) cb.Controls.Add (
Office.MsoContr olType.msoContr olButton,
missing, missing, missing, missing);
customButton.St yle =
Office.MsoButto nStyle.msoButto nIconAndCaption ;
ResourceManager rm = new ResourceManager (
"CustomFaces.Ic onResource", this.GetType(). Assembly);
System.Drawing. Icon res;
res = (Icon) rm.GetObject(bu ttonName);
Bitmap bmp;
bmp=res.ToBitma p();
Clipboard.SetDa taObject(bmp,tr ue);
customButton.Fa ceId = 0;
customButton.Ca ption=buttonNam e;
customButton.Pa steFace();
}
catch (Exception exc)
{
MessageBox.Show (exc.Message,"A dding Sub");
}

}

========
MY Interpretation in VB
========
Function AddSubButton(By Val cb As CommandBarButto n, ByVal buttonname As
String)

Dim missing As Object = missing.Value
Dim customButton As CommandBarButto n
Dim bmp As Bitmap
Dim res As Icon
Dim rm As New ResourceManager ("CustomFaces.I conResource",
rm.GetType().As sembly)
Try
customButton = cb.Controls.Add (MsoControlType .msoControlButt on, _
missing, missing, missing, missing)
customButton.St yle = MsoButtonStyle. msoButtonIconAn dCaption
res = rm.GetObject(bu ttonname)
bmp = res.ToBitmap()
Clipboard.SetDa taObject(bmp, True)
customButton.Fa ceId = 0
customButton.Ca ption = buttonname
customButton.Pa steFace()
Catch
msgbox("Adding Button",MsgBoxS tyle.OKOnly)
End Try
End Function

[zacks]

I believe this in C# is equivalent to Me in VB.

[David Anton]

Our Instant VB C# to VB converter produces the following: (Note that
MessageBox.Show is still fine in VB)

Private Sub AddSubButton(By Val cb As Office.CommandB arPopup, ByVal
buttonName As String)
Try
Dim missing As Object = Missing.Value
Dim customButton As Office.CommandB arButton
customButton =
CType(cb.Contro ls.Add(Office.M soControlType.m soControlButton , missing,
missing, missing, missing), Office.CommandB arButton)
customButton.St yle = Office.MsoButto nStyle.msoButto nIconAndCaption
Dim rm As ResourceManager = New
ResourceManager ("CustomFaces.I conResource", Me.GetType().As sembly)
Dim res As System.Drawing. Icon
res = CType(rm.GetObj ect(buttonName) , Icon)
Dim bmp As Bitmap
bmp=res.ToBitma p()
Clipboard.SetDa taObject(bmp,Tr ue)
customButton.Fa ceId = 0
customButton.Ca ption=buttonNam e
customButton.Pa steFace()
Catch exc As Exception
MessageBox.Show (exc.Message,"A dding Sub")
End Try

End Sub

--
David Anton
www.tangiblesoftwaresolutions.com
Instant C#: VB to C# converter
Instant VB: C# to VB converter
Instant C++: C# to C++ converter & VB to C++ converter
Instant J#: VB to J# converter

"MRD" wrote:

Hi All, I found a useful bit of code on msdn in VC but need it in VB.
I've started the conversion but can't quite finish. The code puts a
custom Icon on a toolbar (In my case the Word Add-in "Standard" bar.

I don't know how to handle the "resource manager" line especially the
"this.GetType() ". What the heck is "This?" (and don't start the "who's
on first routine please :-)

Also, what is the reference for clipboard objects?

Also, I'm applying the tool to a command bar button, not a menu pop-up
but I'm assuming the code is analogous and I only have to switch types.

Thanks in advance,
Mark

=========
The original code
=========
private void AddSubButton(Of fice.CommandBar Popup cb, string buttonName)
{
try
{
object missing = Missing.Value;
Office.CommandB arButton customButton;
customButton = (Office.Command BarButton) cb.Controls.Add (
Office.MsoContr olType.msoContr olButton,
missing, missing, missing, missing);
customButton.St yle =
Office.MsoButto nStyle.msoButto nIconAndCaption ;
ResourceManager rm = new ResourceManager (
"CustomFaces.Ic onResource", this.GetType(). Assembly);
System.Drawing. Icon res;
res = (Icon) rm.GetObject(bu ttonName);
Bitmap bmp;
bmp=res.ToBitma p();
Clipboard.SetDa taObject(bmp,tr ue);
customButton.Fa ceId = 0;
customButton.Ca ption=buttonNam e;
customButton.Pa steFace();
}
catch (Exception exc)
{
MessageBox.Show (exc.Message,"A dding Sub");
}

}

========
MY Interpretation in VB
========
Function AddSubButton(By Val cb As CommandBarButto n, ByVal buttonname As
String)

Dim missing As Object = missing.Value
Dim customButton As CommandBarButto n
Dim bmp As Bitmap
Dim res As Icon
Dim rm As New ResourceManager ("CustomFaces.I conResource",
rm.GetType().As sembly)
Try
customButton = cb.Controls.Add (MsoControlType .msoControlButt on, _
missing, missing, missing, missing)
customButton.St yle = MsoButtonStyle. msoButtonIconAn dCaption
res = rm.GetObject(bu ttonname)
bmp = res.ToBitmap()
Clipboard.SetDa taObject(bmp, True)
customButton.Fa ceId = 0
customButton.Ca ption = buttonname
customButton.Pa steFace()
Catch
msgbox("Adding Button",MsgBoxS tyle.OKOnly)
End Try
End Function

[rmacias]

The "this" keyword in C# referes to "this" instance of the object

this.GetType() returns the System.Type of the current object.

It is the same as the "Me" keyword in VB.NET.

Me.GetType() returns the System.Type of the current object.

"MRD" wrote:

Hi All, I found a useful bit of code on msdn in VC but need it in VB.
I've started the conversion but can't quite finish. The code puts a
custom Icon on a toolbar (In my case the Word Add-in "Standard" bar.

I don't know how to handle the "resource manager" line especially the
"this.GetType() ". What the heck is "This?" (and don't start the "who's
on first routine please :-)

Also, what is the reference for clipboard objects?

Also, I'm applying the tool to a command bar button, not a menu pop-up
but I'm assuming the code is analogous and I only have to switch types.

Thanks in advance,
Mark

=========
The original code
=========
private void AddSubButton(Of fice.CommandBar Popup cb, string buttonName)
{
try
{
object missing = Missing.Value;
Office.CommandB arButton customButton;
customButton = (Office.Command BarButton) cb.Controls.Add (
Office.MsoContr olType.msoContr olButton,
missing, missing, missing, missing);
customButton.St yle =
Office.MsoButto nStyle.msoButto nIconAndCaption ;
ResourceManager rm = new ResourceManager (
"CustomFaces.Ic onResource", this.GetType(). Assembly);
System.Drawing. Icon res;
res = (Icon) rm.GetObject(bu ttonName);
Bitmap bmp;
bmp=res.ToBitma p();
Clipboard.SetDa taObject(bmp,tr ue);
customButton.Fa ceId = 0;
customButton.Ca ption=buttonNam e;
customButton.Pa steFace();
}
catch (Exception exc)
{
MessageBox.Show (exc.Message,"A dding Sub");
}

}

========
MY Interpretation in VB
========
Function AddSubButton(By Val cb As CommandBarButto n, ByVal buttonname As
String)

Dim missing As Object = missing.Value
Dim customButton As CommandBarButto n
Dim bmp As Bitmap
Dim res As Icon
Dim rm As New ResourceManager ("CustomFaces.I conResource",
rm.GetType().As sembly)
Try
customButton = cb.Controls.Add (MsoControlType .msoControlButt on, _
missing, missing, missing, missing)
customButton.St yle = MsoButtonStyle. msoButtonIconAn dCaption
res = rm.GetObject(bu ttonname)
bmp = res.ToBitmap()
Clipboard.SetDa taObject(bmp, True)
customButton.Fa ceId = 0
customButton.Ca ption = buttonname
customButton.Pa steFace()
Catch
msgbox("Adding Button",MsgBoxS tyle.OKOnly)
End Try
End Function

[MRD]

Thanks all. I've got the conversion all set - I think - now I can't
debug... *sigh*