Dear Sir,
I have an error `Error BC30452 Operator '/' is not defined for types 'XUnit' and 'Integer'. and Error BC30452 Operator '-' is not defined for types 'XUnit' and 'Double'. when I convert from c# to vb.net
Please Guide me
Thanks
Code in C#
if (chk_waterMask.Checked)
{
var font = new XFont("Tahoma", 120.0f);
var sizes = xgr.MeasureString(txt_waterMask.Text, font);
xgr.TranslateTransform(page.Width / 2, page.Height / 2);
xgr.RotateTransform(-Math.Atan(page.Height / page.Width) * 180 / Math.PI);
xgr.TranslateTransform(-page.Width / 2, -page.Height / 2);
var format = new XStringFormat();
format.Alignment = XStringAlignment.Near;
format.LineAlignment = XLineAlignment.Near;
XBrush brush = new XSolidBrush(XColor.FromArgb(128, 255, 0, 0));
xgr.DrawString(txt_waterMask.Text, font, brush,
new XPoint((page.Width - sizes.Width) / 2, (page.Height - sizes.Height) / 2),
format);
}
Code in VB.NET
If chk_waterMask.Checked Then
Dim font = New XFont("Tahoma", 120.0F)
Dim sizes = xgr.MeasureString(txt_waterMask.Text, font)
'`Below Error BC30452 Operator '/' is not defined for types 'XUnit' and 'Integer'
xgr.TranslateTransform(page.Width / 2, page.Height / 2)
'`Below Error BC30452 Operator '/' is not defined for types 'XUnit' and 'XUnit'.
xgr.RotateTransform(-Math.Atan(page.Height / page.Width) * 180 / Math.PI)
''Below Error BC30487 Operator '-' is not defined for type 'XUnit'.
xgr.TranslateTransform(-page.Width / 2, -page.Height / 2)
Dim format = New XStringFormat()
format.Alignment = XStringAlignment.Near
format.LineAlignment = XLineAlignment.Near
Dim brush As XBrush = New XSolidBrush(XColor.FromArgb(128, 255, 0, 0))
'`Below Error BC30452 Operator '-' is not defined for types 'XUnit' and 'Double'.
xgr.DrawString(txt_waterMask.Text, font, brush, New XPoint((page.Width - sizes.Width) / 2, (page.Height - sizes.Height) / 2), format)
End If