No.1

结婚礼尚往来是一项传统习俗，是自古以来一种民间保险机制，通过相互帮助，有钱出钱有力出力的过程，将人生大事完成得相对体面。

人生中每个过程都需要仪式来进行证明，礼仪是文明的象征，但是一些不合时宜的礼节就不必保留了。

婚礼当中，宾客通过现金或财物来对新人表达祝福是一个很善良的行为，是两个个体组成家族的必要过程。通过这些财物可以实现家庭正常运行。

但是，有些地区，礼金过高，已经严重偏离了原本的精神体现。

当然，也是人们心理作用下的一种无序膨胀结果，我们不提倡。

本节内容，在以前做过一个示例，由于需求和*载下**量都比较大，这里再进行一下改进，以提高其实用性和友好性，之后会不断完善其功能。

上图为新人登记首页，可实现姓名登记，日期，住址以及照片记录。

作为一个应用来制作，似乎要对各种可能的问题进行考虑。

本表单中的各类控件，都以实时添加为主，也有一些手动添加的内个按钮。

由于其事件的编写有点麻烦，没有实现实时添加，其它都可以。

No.2

如下代码是"添加信息"主功能按钮代码，通过单击事件，实现表单控件自动添加操作。

代码

Private Sub CommandButton1_Click()
Dim lObj As Object, rObj As Object, dObj As Object, aObj As Object, imObj As Object
Dim tObj() As Object, i As Integer
Dim iObj As Object
ReDim tObj(3)
Set lObj = Me.Frame1.Controls.Add("Forms.Label.1", "t0")
    With lObj
        .Top = 30
        .Left = 30
        .Width = 150
        .Height = 28
        .Caption = "新郞："
        With .Font
            .Size = 18
            .Name = "楷体"
            .Bold = True
        End With
    End With
Set rObj = Me.Frame1.Controls.Add("Forms.Label.1", "t1")
    With rObj
        .Top = lObj.Top + lObj.Height + 10
        .Left = lObj.Left
        .Width = lObj.Width
        .Height = lObj.Height
        .Caption = "新娘："
        With .Font
            .Size = 18
            .Name = "楷体"
            .Bold = True
        End With
    End With
 Set dObj = Me.Frame1.Controls.Add("Forms.Label.1", "d1")
    With dObj
        .Top = rObj.Top + rObj.Height + 10
        .Left = lObj.Left
        .Width = lObj.Width
        .Height = lObj.Height
        .Caption = "良辰吉日："
        With .Font
            .Size = 18
            .Name = "楷体"
            .Bold = True
        End With
    End With
 Set aObj = Me.Frame1.Controls.Add("Forms.Label.1", "a1")
    With aObj
        .Top = dObj.Top + dObj.Height + 10
        .Left = lObj.Left
        .Width = lObj.Width
        .Height = lObj.Height
        .Caption = "共筑爱巢："
        With .Font
            .Size = 18
            .Name = "楷体"
            .Bold = True
        End With
    End With
 Set imObj = Me.Frame1.Controls.Add("Forms.Label.1", "im1")
    With imObj
        .Top = aObj.Top + aObj.Height + 10
        .Left = lObj.Left
        .Width = lObj.Width
        .Height = lObj.Height
        .Caption = "良材女貌："
        With .Font
            .Size = 18
            .Name = "楷体"
            .Bold = True
        End With
    End With
 For i = 0 To 3
    Set tObj(i) = Me.Frame1.Controls.Add("Forms.TextBox.1", "T" & i)
    With tObj(i)
        Select Case i
                Case 0
                    .Top = lObj.Top
                Case 1
                    .Top = rObj.Top
                Case 2
                    .Top = dObj.Top
                Case 3
                    .Top = aObj.Top
        End Select
        .Left = lObj.Left + lObj.Width + 10
        .Height = 28
        .Width = 300
        .BorderStyle = 1
        With .Font
            .Size = 18
            .Name = "楷体"
            .Bold = False
        End With
    End With
 Next i
  Set iObj = Me.Frame1.Controls.Add("Forms.image.1", "img1")
  With iObj
    .Picture = LoadPicture("")
    .BorderStyle = 1
    .BackColor = Me.Frame1.BackColor
    .Top = 20
    .Left = tObj(UBound(tObj)).Left + tObj(UBound(tObj)).Width + 20
    .Height = Me.Frame1.Height - 40
    .Width = Me.Frame1.Width - .Left - 20
    .BorderColor = RGB(255, 255, 255)
  End With
 With Me.NewMW
    .Top = tObj(UBound(tObj)).Top + tObj(UBound(tObj)).Height + 10
    .Left = tObj(UBound(tObj)).Left '+ tObj(UBound(tObj)).Width + 20
    .Visible = True
    .Caption = "选择照片"
    .Width = 120
    .Height = 28
        With .Font
            .Size = 11
            .Name = "楷体"
            .Bold = False
        End With
 End With
  With Me.info
    .Top = Me.NewMW.Top
    .Width = Me.NewMW.Width
    .Left = Me.NewMW.Left + .Width + 10
    .Visible = True
    .Caption = "确 定"
    .Height = Me.NewMW.Height
        With .Font
            .Size = Me.NewMW.Font.Size
            .Name = Me.NewMW.Font.Name
            .Bold = False
        End With
 End With
     Set lObj = Nothing
    Set rObj = Nothing
    Set dObj = Nothing
    Set aObj = Nothing
    Set iObj = Nothing
    Set imObj = Nothing
    For i = 0 To UBound(tObj)
        Set tObj(i) = Nothing
    Next i
End Sub

为什么要做这些麻烦的工作呢？其实是为了通过原生代码的编写，实现从零构建一个窗体面板的一个过程。

也就是说，当程序开始运行的时候，表单中是什么也没有的。

当某些条件被触发之后，表单中的控件就一个个生成了。

似乎有道生一，一生二，二生万物的感觉。

有一种理论，宇宙是被创造出来的，就是这个意思。

欢迎关注、收藏

---END---