Public PageHader_BT_Name As String                      '表头名称  调用此报表时,外部传入
Public PageHader_BT_Left As Integer                     '    左边距
Public PageHader_BT_top As Integer                      '    上边距
Public PageHader_BT_Height As Integer                   '    高度
Public PageHader_BT_Width As Integer                    '    宽度
Public PageHader_BT_Font_Bsize As Integer               '    字体大小
Public PageHader_BT_Font_Bname As String                '    字体名称
Public PageHader_BT_Font_Bold As Boolean                '    是否粗体
Public PageHader_BT_Font_WordWrap As String             '    字体名称
Public PageHader_BT_VerticalAlignment As Integer        '    垂直居中方式
Public PageHader_BT_Alignment As Integer                '    .
.
.
.
.Public PageHader_BT2_Name As String                      '表头名称  调用此报表时,外部传入
Public PageHader_BT2_Left As Integer                     '    左边距
Public PageHader_BT2_top As Integer                      '    上边距
Public PageHader_BT2_Height As Integer                   '    高度
Public PageHader_BT2_Width As Integer                    '    宽度
Public PageHader_BT2_Font_Bsize As Integer               '    字体大小
Public PageHader_BT2_Font_Bname As String                '    字体名称
Public PageHader_BT2_Font_Bold As Boolean                '    是否粗体
Public PageHader_BT2_Font_WordWrap As String             '    字体名称
Public PageHader_BT2_VerticalAlignment As Integer        '    垂直居中方式
Public PageHader_BT2_Alignment As Integer                '      求助:以上内容有好多个,这是一个打印窗体的设置,但是打印窗体了内有多少个文本,如果这样的话就要写多少次,浪费资源还不好用呀,有没有别的好的方法实现?数组??还是类??还是。。
等待中。

解决方案 »

  1.   

    用类也可,结构也可。ClassPublic PageHader_BT_Name As String                      '表头名称  调用此报表时,外部传入 
    Public PageHader_BT_Left As Integer                    '    左边距 
    Public PageHader_BT_top As Integer                      '    上边距 
    ...Typepublic type PrintSettings
        PageHader_BT_Name As String                      '表头名称  调用此报表时,外部传入 
        PageHader_BT_Left As Integer                    '    左边距 
        PageHader_BT_top As Integer                      '    上边距 
        ...
    end type
      

  2.   

    结构能实现  下面功能吗?dim ss as PrintSettings
    ss.PageHader_BT_Name="****"
    ss.PageHader_BT_Left =0
    也就是说,我定一个结构,他能弹出对应的变量或者属性吗?(不知道该如何表达就这么说吧)类肯定能实现,结构能吗?》