VB读取EXCEL数据转化为自定义格式控件.doc

实现读取EXCEL数据转化为格式字符串，并实现格式字符串的分配使用 Option Explicit Public BaseX0 As Single 起始位置 Public BaseY0 As Single Public xyScale As Single Public B_Ti As Single 磅值到绨的转化值 Public ChoseColor As String 选择颜色 Public StatView As Object Dim Mycell As Cells Dim Ft As New StdFont Dim BCtl As PictureBox 绑定的显示控件 Dim Viewable As Boolean Dim TmpLine As myLine Dim TmpData As CellData Dim MyImages() As Image 附加的图片 Dim MyImagesSta() As Image 附加图片的位置信息 Dim OldArea As String 原始选择区域 Dim TxtInput As TextBox 输入控件 Dim inputFg As Boolean Private Type myLine 线条结构--26字节 NoVIsable As Boolean 可显示否 color As Long 颜色 Style As Integer 线型0～6 Weight As Integer 线宽 x1 As Single y1 As Single x2 As Single y2 As Single End Type Private Type CellData 单元格的数据＝22＋lenb(text) NoVIsable As Boolean 可见否 color As Long 颜色 alignment As Integer 对齐方式 WrapText As Boolean 自动换行 Nfont As New StdFont 字体 Style As Integer 线型 Text As String 文本字符号 x1 As Single 区域 y1 As Single 左边位置 width As Single height As Single MergRange As String 包含区域 End Type Private Type Baseinfo Rol As Integer 行 col As Integer 列 width As Single 总宽 height As Single 总高 PaperSize As Integer LeftMargn As Single 页边距－单位cm TopMargn As Single BottomMargn As Single RightMargn As Single Orientation As Integer End Type Private Type Cells 单元集合 Binf As Baseinfo Lines() As myLine DataS() As CellData End Type －－－－－－－－－－－－－－－－处理结构的函数 Private Function GetLineString(L As myLine, Optional Spt As String = ) As String 获取线的 If (Spt = ) Then Spt = Chr(8) Dim t As String t = L.color Spt t = t L.NoVIsable Spt t = t L.Style Spt t = t L.Weight Spt t = t L.x1 Spt t = t L.x2 Spt t = t L.y1 Spt t = t L.y2 Spt GetLineString = t End Function Private Function GetStringLine(ByVal str As String, Optional Spt As String = ) As myLine 获取线的 If (Spt = ) Then Spt = Chr(8) Dim L As myLine Dim t As Variant t = Split(str, Sp