如何把GeneralCellType .NumberFormat.CurrencySymbol显示在数字的右边

Spread for WinForm 7.0  PC win7
Dim B As Object = RangeCell.CellType
  RangeCell.CellType = B
B.NumberFormat = New System.Globalization.NumberFormatInfo
NumberFormat.CurrencySymbol="US$"   
默认显示在数字的左边

如何把GeneralCellType .NumberFormat.CurrencySymbol显示在数字的右边

回复 1楼qinbinghao的帖子

qinbinghao 你好，
当前 Spread 无法实现这个功能，需要通过自定义单元格类型实现：

1. 
   
2. public partial class Form1 : Form
   
3.     {
   
4.         public Form1()
   
5.         {
   
6.             InitializeComponent();
   
7.              MyCurrecyCellType myType = new MyCurrecyCellType();
   
8.              myType.DecimalPlaces = 0;
   
9.              this.fpSpread1.Sheets[0].Columns[0].CellType = myType;
   
10.         }
    
11.     }
    
12. 
    
13.     class MyCurrecyCellType:NumberCellType
    
14.     {
    
15.         public override string Format(object obj)
    
16.         {
    
17.             string formatstr="";
    
18.             if (obj != null)
    
19.             {
    
20.                 formatstr = obj.ToString() + "$";
    
21.             }
    
22.             return formatstr;
    
23.         }
    
24.     }
    

复制代码

请给VB.NET 代码

回复 3楼qinbinghao的帖子

VB.NET 代码如下：

1. 
   
2. Imports FarPoint.Win.Spread.CellType
   
3. 
   
4. Public Class Form1
   
5. 
   
6.     Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
7.         Dim myType As New MyCurrecyCellType()
   
8.         myType.DecimalPlaces = 0
   
9.         Me.FpSpread1.Sheets(0).Columns(0).CellType = myType
   
10. 
    
11.     End Sub
    
12. End Class
    
13. 
    
14. Class MyCurrecyCellType
    
15.     Inherits NumberCellType
    
16.     Public Overrides Function Format(obj As Object) As String
    
17.         Dim formatstr As String = ""
    
18.         If obj IsNot Nothing Then
    
19.             formatstr = obj.ToString() & "$"
    
20.         End If
    
21.         Return formatstr
    
22.     End Function
    
23. End Class
    

复制代码