文章插图
No.1结婚礼尚往来是一项传统习俗 ， 是自古以来一种民间保险机制 ， 通过相互帮助 ， 有钱出钱有力出力的过程 ， 将人生大事完成得相对体面 。
人生中每个过程都需要仪式来进行证明 ， 礼仪是文明的象征 ， 但是一些不合时宜的礼节就不必保留了 。
婚礼当中 ， 宾客通过现金或财物来对新人表达祝福是一个很善良的行为 ， 是两个个体组成家族的必要过程 。通过这些财物可以实现家庭正常运行 。
但是 ， 有些地区 ， 礼金过高 ， 已经严重偏离了原本的精神体现 。
当然 ， 也是人们心理作用下的一种无序膨胀结果 ， 我们不提倡 。
本节内容 ， 在以前做过一个示例 ， 由于需求和下载量都比较大 ， 这里再进行一下改进 ， 以提高其实用性和友好性 ， 之后会不断完善其功能 。
上图为新人登记首页 ， 可实现姓名登记 ， 日期 ， 住址以及照片记录 。
【结婚礼单怎么做 婚礼流程单制作】作为一个应用来制作 ， 似乎要对各种可能的问题进行考虑 。
本表单中的各类控件 ， 都以实时添加为主 ， 也有一些手动添加的内个按钮 。
由于其事件的编写有点麻烦 ， 没有实现实时添加 ， 其它都可以 。
No.2如下代码是"添加信息"主功能按钮代码 ， 通过单击事件 ， 实现表单控件自动添加操作 。
代码
Private Sub CommandButton1_Click()Dim lObj As Object, rObj As Object, dObj As Object, aObj As Object, imObj As ObjectDim tObj() As Object, i As IntegerDim iObj As ObjectReDim 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 = TrueEnd WithEnd WithSet 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 = TrueEnd WithEnd WithSet 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 = TrueEnd WithEnd WithSet 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 = TrueEnd WithEnd WithSet 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 = TrueEnd WithEnd WithFor i = 0 To 3Set tObj(i) = Me.Frame1.Controls.Add("Forms.TextBox.1", "T" & i)With tObj(i)Select Case iCase 0.Top = lObj.TopCase 1.Top = rObj.TopCase 2.Top = dObj.TopCase 3.Top = aObj.TopEnd Select.Left = lObj.Left + lObj.Width + 10.Height = 28.Width = 300.BorderStyle = 1With .Font.Size = 18.Name = "楷体".Bold = FalseEnd WithEnd WithNext iSet 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 WithWith 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 = 28With .Font.Size = 11.Name = "楷体".Bold = FalseEnd WithEnd WithWith Me.info.Top = Me.NewMW.Top.Width = Me.NewMW.Width.Left = Me.NewMW.Left + .Width + 10.Visible = True.Caption = "确 定".Height = Me.NewMW.HeightWith .Font.Size = Me.NewMW.Font.Size.Name = Me.NewMW.Font.Name.Bold = FalseEnd WithEnd WithSet lObj = NothingSet rObj = NothingSet dObj = NothingSet aObj = NothingSet iObj = NothingSet imObj = NothingFor i = 0 To UBound(tObj)Set tObj(i) = NothingNext iEnd Sub
以上关于本文的内容，仅作参考！温馨提示：如遇健康、疾病相关的问题，请您及时就医或请专业人士给予相关指导!
「四川龙网」www.sichuanlong.com小编还为您精选了以下内容，希望对您有所帮助：
- 小米粥的做法有哪些 怎么做小米粥更好吃小米粥的常见做法小米粥怎么做最好吃
- 自己在家怎么做佛跳墙 家庭佛跳墙的做法 最正宗的做法
- 白果怎么吃好吃 白果有哪些美容功效
- 鱼肝油应该怎么吃 鱼肝油在什么时候吃最好
- 长期吃太多会怎么样 如何吃每一餐饭
- 怎么查自己婚姻信息，怎么查询自己婚姻信息
- 牛马婚姻怎么样，老公属马老婆属牛很恩爱
- 分享一款酱香风味的鱿鱼美食 酱鱿鱼怎么做好吃
- 健康晚餐怎么吃 吃晚餐有哪些讲究
- 属虎和属蛇的婚姻怎么样，生肖蛇和生肖虎的婚配如何