原作者:www.upwinder.com 添加时间:2007-09-01 原文发表:2007-08-31 人气:96 来源：未知

---

本文章共3649字，分3页，当前第3页，快速翻页：123

If MaxId = 0 Then MaxId = 1　　　'设置全部选项按钮。 　　　　　　　If MaxId > 8 Then Exit Sub 　　　'只允许十个按钮。 　　　　　　　MaxId = MaxId 1　　　　　　　　'按钮计数递增。 逆风编程技术 　　　　　　　Load optButton(MaxId)　　　　　　'创建新按钮。 　　　　　　　optButton(0).SetFocus 　　　　　　'重置按钮选项。 　　　　　　　'将新按钮放置在上一个按钮下方。 　　　　　　　optButton(MaxId).Top = optButton(MaxId - 1)._ 　　　　　　　Top 400 　　　　　　　optButton(MaxId).Visible = True　　'显示新按钮。 　　　　　　　optButton(MaxId).Caption = "Option" & MaxId 1 　　　　End Sub 　　　　通过“删除”命令按钮的 Click 事件过程删除选项按钮： 　　　　Private Sub cmdDelete_Click () 　　　　　　　If MaxId <= 1 Then Exit Sub　　　　　　'保留最初的两个按钮。 　　　　　　　Unload optButton(MaxId)　　　　　　　　'删除最后的按钮。 　　　　　　　MaxId = MaxId - 1　　　　　　　　　　　'按钮计数递减。 　　　　　　　optButton(0).SetFocus　　　　　　　　　'重置按钮选项。 　　　　End Sub 　　　　通过“关闭”按钮的 Click 事件过程结束应用程序： 　　　　Private Sub cmdClose_Click () 　　　　　　　Unload Me 　　　　End Sub   本文章更多内容：<<上一页 - 1 - 2 - 3

---

• VB 神童教程第二章第十一节——滚动条

• 关于数据报表的打印设置 • 将ENTER变成TAB键 • 掌握开发的武器－语言 • Access97的报表解决方案 • 用VB建立Access数据库结构 • Text 转换为 Access MDB • 用VB 5.0从Recordset中打印列表 • VB5中远程数据库的访问 • 在VB中存取数据库中的图片 • 用数据库保存VB程序的用户设置

---

本文章所属分类：首页 → VB