VB6 Fix

[Starbuck]

Can anyone show me a pure .net equivelent of the VB6 Fix procedure as below

Function vbfix(ByVal ct As Char, ByVal e As DataGridcstrCellEventArgs, ByVal
g As System.Drawing.Graphics) As Double

vbfix = Fix(Math.Ceiling(g.MeasureString(ct, e.TextFont, 20,
StringFormat.GenericTypographic).Width))

End Function

Thanks

 

[Steve Schroeder]

If I show you, can I have your job? No? How 'bout a week's pay?

 

[Starbuck]

Any helpful answers out there

If I show you, can I have your job? No? How 'bout a week's pay?

 

[Mythran]

Can anyone show me a pure .net equivelent of the VB6 Fix procedure as
below

Function vbfix(ByVal ct As Char, ByVal e As DataGridcstrCellEventArgs,
ByVal g As System.Drawing.Graphics) As Double

vbfix = Fix(Math.Ceiling(g.MeasureString(ct, e.TextFont, 20,
StringFormat.GenericTypographic).Width))

End Function

Thanks

AFAIK, Math.Ceiling performs the same thing as Fix function does. Unless I
am corrected, then the same function body "could be":

Return Math.Ceiling(g.MeasureString(ct, e.TextFont, 20,
StringFormat.GenericTypographic).Width))


Mythran

 

[Herfried K. Wagner [MVP]]

Can anyone show me a pure .net equivelent of the VB6 Fix procedure as
below

Function vbfix(ByVal ct As Char, ByVal e As DataGridcstrCellEventArgs,
ByVal g As System.Drawing.Graphics) As Double

vbfix = Fix(Math.Ceiling(g.MeasureString(ct, e.TextFont, 20,
StringFormat.GenericTypographic).Width))

There is no direct replacement for 'Fix' available in the .NET Framework. I
suggest to use 'Fix' instead of writing your own replacement using
'System.Math'. BTW: 'Fix' is part of Visual Basic .NET and it will remain
part of it. There are absolutely no reasons to avoid using it.

 

[Stephany Young]

Microsoft.VisualBasic.Fix and System.Math.Ceiling can be considered, to all
intents and purposes, to be functionally equivalent. Therefore, in your
example, the use of both is overkill. Pick the one that suits the way you
are feeling at the time.

I am curious, however, as to why you consider the example you have shown to
be not 'pure .net'?

 

[Herfried K. Wagner [MVP]]

Microsoft.VisualBasic.Fix and System.Math.Ceiling can be considered, to
all intents and purposes, to be functionally equivalent.

That's not true in general. 'Fix' is implemented as this:

\\\
Public Function Fix(ByVal Number As Double) As Double
If Number >= 0 Then
Return Math.Floor(Number)
End If
Return -Math.Floor(-Number)
End Function
///

Sample:

\\\
?Math.Ceiling(1.2) ' 2.
?Fix(1.2) ' 1.
///

 

[Jay B. Harlow [MVP - Outlook]]

Starbuck,
Microsoft.VisualBasic.Conversion.Fix is the Pure .NET Equivalent of the VB6
Fix procedure!

You could implement (duplicate the code) Conversion.Fix & Conversion.Int in
terms of Math.Floor & Math.Ceiling, however that would be a lot of
duplicated code as Fix & Int are overloaded for must numeric types (Decimal,
Double, Integer, Long, Object, Short, Single), where as Math.Floor &
Math.Ceiling are only implemented in terms of Double.

Hope this helps
Jay

| Can anyone show me a pure .net equivelent of the VB6 Fix procedure as
below
|
| Function vbfix(ByVal ct As Char, ByVal e As DataGridcstrCellEventArgs,
ByVal
| g As System.Drawing.Graphics) As Double
|
| vbfix = Fix(Math.Ceiling(g.MeasureString(ct, e.TextFont, 20,
| StringFormat.GenericTypographic).Width))
|
| End Function
|
| Thanks
|
|
|
|