回复 8楼deppp的帖子
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- FpSpread1.ActiveSheet.ActiveSkin = FpSpread2_Sheet1.ActiveSkin
- Dim rdTemp As New FarPoint.Win.Spread.CellType.ColumnHeaderRenderer
- rdTemp.TextOrientation = FarPoint.Win.TextOrientation.TextTopDown
- FpSpread1.ActiveSheet.ColumnHeader.DefaultStyle.Renderer = rdTemp
- End Sub
复制代码 |