前言

从接触VB开始到现在已经学习了很长的时间，在这个使用VB的过程中，会遇到一些具有总结性、精炼的一些代码知识，于是将这部分的知识总结一下并分享给大家。

VB代码片段

一、清空所有的文本框、Combox的内容

Dim ctl As Control '定义一个变量，把控件装载到里面 For Each ctl In Controls '删除所有text文本框内容 If TypeOf ctl Is TextBox Then ctl.Text = "" Next ctl '删除所有combobox文本框内容 For Each ctl In Controls If TypeOf ctl Is ComboBox Then ctl.Text = "" Next ct1

二、MDI窗体为主窗体,Form为子窗体，让Form窗体在MDI窗体的中央位置出现

If me.width >= MDIForm1.ScaleWidth Then Me.Width = MDIForm1.ScaleWidth Me.Left=0 Else Me.Left=(MDIForm1.ScaleWidth - Me.Width)/2 

三、循环体累加的使用

  n= 0

'循环计算总卡数 While (mrc4.EOF = False) n = n + 1 mrc4.Fields(11) = Trim("结账") '更新数据库结账 mrc4.MoveNext '移动到下一条记录 Wend

总结

很多知识性的代码还是要自己实践并总结出来的，我可能没有找到太多关于VB基础的代码片段。