VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 
   Caption         =   "关于本程序"
   ClientHeight    =   2490
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   4935
   OleObjectBlob   =   "UserForm1.frx":0000
   ShowModal       =   0   'False
   StartUpPosition =   1  '所有者中心
End
Attribute VB_Name = "UserForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Copyright [2012-2019] [www.cdrvba.com]

'Licensed under the Apache License, Version 2.0 (the "License");
'you may not use this file except in compliance with the License.
'You may obtain a copy of the License at

'    http://www.apache.org/licenses/LICENSE-2.0

'Unless required by applicable law or agreed to in writing, software
'distributed under the License is distributed on an "AS IS" BASIS,
'WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
'See the License for the specific language governing permissions and
'limitations under the License.


Option Explicit

Private Sub cmdTest0_Click()
    Me.Hide
    UserForm2.initTestData
    loadDefaultSettings
    UserForm2.chkCutMark.value = False
    UserForm2.chkInfoMark.value = False
    UserForm2.cboMainTextPercent.value = "70"
    UserForm2.t1.text = "欢迎访问我的个人博客 WWW.ZEBE.ME": d1.text = "横向": c1.text = "白字": l1.text = "15": w1.text = "670": s1.text = "550"
    UserForm2.startMake
    MsgBox "提示：这是模拟制作单个横幅。没有创建裁切线、小字和备注信息，同时将内容的宽度比例设置成了70%。（可以在设置面板中来控制相应选项）"
    End
End Sub

Private Sub cmdTest1_Click()
    Me.Hide
    UserForm2.initTestData
    loadDefaultSettings
    UserForm2.t1.text = UserForm2.textArray(2): d1.text = "横向": c1.text = "白字": l1.text = "8": w1.text = "670": s1.text = "550"
    UserForm2.t2.text = UserForm2.textArray(3): d2.text = "横向": c2.text = "白字": l2.text = "9.5": w2.text = "540": s2.text = "450"
    UserForm2.t3.text = UserForm2.textArray(5): d3.text = "横向": c3.text = "白字": l3.text = "10": w3.text = "670": s3.text = "550"
    UserForm2.t4.text = UserForm2.textArray(18): d4.text = "横向": c4.text = "白字": l4.text = "12": w4.text = "820": s4.text = "550"
    UserForm2.t5.text = UserForm2.textArray(29): d5.text = "横向": c5.text = "白字": l5.text = "8.5": w5.text = "670": s5.text = "550"
    UserForm2.startMake
    MsgBox "提示：这是模拟多个不同内容、不同规格的横幅制作。"
    End
End Sub

Private Sub cmdTest2_Click()
    Me.Hide
    UserForm2.initTestData
    loadDefaultSettings
    UserForm2.chkInfoMark.value = False ' 关闭备注信息
    UserForm2.t1.text = UserForm2.textArray(30): d1.text = "竖向": c1.text = "黄字": l1.text = "15": w1.text = "820": s1.text = "550"
    UserForm2.t2.text = UserForm2.textArray(31): d2.text = "竖向": c2.text = "黄字": l2.text = "15": w2.text = "820": s2.text = "550"
    UserForm2.t3.text = UserForm2.textArray(32): d3.text = "竖向": c3.text = "黄字": l3.text = "15": w3.text = "820": s3.text = "550"
    UserForm2.t4.text = UserForm2.textArray(33): d4.text = "竖向": c4.text = "黄字": l4.text = "15": w4.text = "820": s4.text = "550"
    UserForm2.t5.text = UserForm2.textArray(34): d5.text = "竖向": c5.text = "黄字": l5.text = "15": w5.text = "820": s5.text = "550"
    UserForm2.t6.text = UserForm2.textArray(35): d6.text = "竖向": c6.text = "黄字": l6.text = "15": w6.text = "820": s6.text = "550"
    UserForm2.t7.text = UserForm2.textArray(36): d7.text = "竖向": c7.text = "黄字": l7.text = "15": w7.text = "820": s7.text = "550"
    UserForm2.t8.text = UserForm2.textArray(37): d8.text = "竖向": c8.text = "黄字": l8.text = "15": w8.text = "820": s8.text = "550"
    UserForm2.t9.text = UserForm2.textArray(38): d9.text = "竖向": c9.text = "黄字": l9.text = "15": w9.text = "820": s9.text = "550"
    UserForm2.startMake
    MsgBox "提示：这是模拟开业条幅的制作（关闭了备注信息的创建）。" & vbCrLf & "开业条幅适合采用本程序制作，因为规格基本是相同的，这时候就可采取批量设置的方法，所有条幅只设置1次参数，只需修改内容即可。"
    End
End Sub

Private Sub cmdTest3_Click()
    Me.Hide
    UserForm2.initTestData
    loadDefaultSettings
    UserForm2.t1.text = UserForm2.textArray(1): d1.text = "横向": c1.text = "白字": l1.text = "8": w1.text = "670": s1.text = "550"
    UserForm2.t2.text = UserForm2.textArray(7): d2.text = "横向": c2.text = "白字": l2.text = "10": w2.text = "670": s2.text = "550"
    UserForm2.t3.text = UserForm2.textArray(17): d3.text = "横向": c3.text = "白字": l3.text = "9": w3.text = "670": s3.text = "550"
    UserForm2.t4.text = UserForm2.textArray(20): d4.text = "横向": c4.text = "白字": l4.text = "11": w4.text = "670": s4.text = "550"
    UserForm2.t5.text = UserForm2.textArray(11): d5.text = "横向": c5.text = "白字": l5.text = "12": w5.text = "670": s5.text = "550"
    UserForm2.t6.text = UserForm2.textArray(18): d6.text = "竖向": c6.text = "白字": l6.text = "12": w6.text = "670": s6.text = "550"
    UserForm2.t7.text = UserForm2.textArray(19): d7.text = "竖向": c7.text = "白字": l7.text = "15": w7.text = "670": s7.text = "550"
    UserForm2.t8.text = UserForm2.textArray(4): d8.text = "竖向": c8.text = "白字": l8.text = "13": w8.text = "670": s8.text = "550"
    UserForm2.t9.text = UserForm2.textArray(5): d9.text = "竖向": c9.text = "白字": l9.text = "13": w9.text = "670": s9.text = "550"
    UserForm2.startMake
    MsgBox "提示：这是混排效果。建议尽可能不使用此功能，因为数量如果很多，可能导致制作失败。"
    End
End Sub

Private Sub cmdTest4_Click()
    Me.Hide
    UserForm2.initTestData
    loadDefaultSettings
    UserForm2.cboMainTextStyle.text = "极速模式"
    UserForm2.t1.text = UserForm2.textArray(2): d1.text = "横向": c1.text = "白字": l1.text = "8": w1.text = "670": s1.text = "550"
    UserForm2.t2.text = UserForm2.textArray(3): d2.text = "横向": c2.text = "白字": l2.text = "9.5": w2.text = "540": s2.text = "450"
    UserForm2.t3.text = UserForm2.textArray(5): d3.text = "横向": c3.text = "白字": l3.text = "10": w3.text = "670": s3.text = "550"
    UserForm2.t4.text = UserForm2.textArray(18): d4.text = "横向": c4.text = "白字": l4.text = "12": w4.text = "820": s4.text = "550"
    UserForm2.t5.text = UserForm2.textArray(29): d5.text = "横向": c5.text = "白字": l5.text = "8.5": w5.text = "670": s5.text = "550"
    UserForm2.startMake
    MsgBox "提示：这是使用极速模式制作横幅的效果。跟【美观优先】模式不同，该模式采取的是强制拉伸文本，因此速度较快，但不能完全保证美观性。"
    End
End Sub

Private Sub cmdTest5_Click()
    Me.Hide
    UserForm2.initTestData
    loadDefaultSettings
    UserForm2.chkInfoMark.value = False ' 关闭备注信息
    UserForm2.t1.text = UserForm2.textArray(22): d1.text = "竖向": c1.text = "白字": l1.text = "15": w1.text = "820": s1.text = "550"
    UserForm2.t2.text = UserForm2.textArray(13): d2.text = "竖向": c2.text = "白字": l2.text = "12": w2.text = "820": s2.text = "550"
    UserForm2.t3.text = UserForm2.textArray(25): d3.text = "竖向": c3.text = "白字": l3.text = "13": w3.text = "820": s3.text = "550"
    UserForm2.t4.text = UserForm2.textArray(10): d4.text = "竖向": c4.text = "白字": l4.text = "12": w4.text = "820": s4.text = "550"
    UserForm2.t5.text = UserForm2.textArray(8): d5.text = "竖向": c5.text = "黄字": l5.text = "15": w5.text = "820": s5.text = "550"
    UserForm2.startMake
    MsgBox "提示：这是使用【美观优先】模式制作竖幅的效果。针对文字内容较少，但长度较长的条幅，会自动增加文字间距，尽量保持文字不变形。该模式运行速度较慢。"
    End
End Sub

Private Sub cmdTest6_Click()
    Me.Hide
    UserForm2.initTestData
    loadDefaultSettings
    UserForm2.t1.text = "深入贯彻落实科学发展观，依法推进艾滋病防治工作。": d1.text = "横向": c1.text = "白字": l1.text = "12": w1.text = "670": s1.text = "550": k1.text = "金牛区街道办  宣"
    UserForm2.t2.text = "依法推广使用安全套，有效预防性病艾滋病。": d2.text = "横向": c2.text = "白字": l2.text = "8": w2.text = "540": s2.text = "450": k2.text = "攀枝花市西区疾控中心  宣"
    UserForm2.startMake
    MsgBox "提示：这是模拟制作带落款的横幅，建议尽量不使用该模式，鉴于布料宽度、条幅长度、色带长度、以及落款内容长度的不同，程序很难判定如何调整才是最佳效果，因此对于带落款的条幅尽量手工排版。当然，如果实在想偷懒，可以使用此模式先创建，然后手动修改，这样也能提高制作速度，起码画矩形框和打字的时间省去了，你说呢？"
    End
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Unload Me
End Sub