VB6.0使用InPutBox显示密码输入框

VB6.0 利用组合框辅助录入数据，输入框什么的就不多说了，主要学习VB6 中的Combo、DTPicker组合框在录入数据时的用法，方便用户选择数据、选择时间，特别是时间，可固定为指定格式，防止程序出错等。

VB使用Microsoft Agent控件制作的软件助手动画，软件助手这个相信大家都熟悉吧，最早的Office里面，就有一个大眼睛小助手，不过感觉这个小助手似乎并没有赢得大家的喜爱。本程序就是调用Windows中固有的Agent控件够实现一个简单的小助手，为制作同类程序的VB开发者提供参考。 　　注：我测试失败了，我的系统是Widows7，当时这个程序是面向Windows XP的。

vb 将数字格式化为金额，这个更像是一个自动计算程序，根据用户输入的单位、数量、价格等参数，自动计算出金额，这才是程序要表达的功能，相差代码： 　　Private Sub Text1_LostFocus(Index As Integer) 　　 Text1(Index).BackColor = &H80000005 　　 If Index = 3 Then Text1(3) = Format(Text1(3), "0.00") 　　End Sub

VB6.0制作圆形窗体界面，打开后是一个矩形窗体，双击后变为一个圆形窗口，创建一个矩形区域的API函数,用来将窗口恢复为矩形，同时创建一个椭圆形区域的API函数，圆形应该是一个规则的矩形窗口，代码还是挺简单的，而且还有注释，非常适合学习研究VB的窗体制作，有兴趣的下载源码。

VB 柱状图生成的例子,看看,是不是很实用的图表效果,这种图表也叫做直方图表,这是纵向的,也有横向的柱状图.本柱状图的生成是使用了Vb内置的微软图表控件MSChart控件,因此可看作是此控件的应用范例.

vb 不借助第3个变量实现两个变量互换,交换两个变量的值,在窗口上输入a和b的值，从运行效果截图你可看出这个功能： 　　If IsNumeric(Txt_a.Text) Then 　　 a = Val(Txt_a.Text) 　　Else 　　 MsgBox "请输入数字！" 　　 Exit Sub 　　End If 　　If IsNumeric(Txt_b.Text) Then 　　 b = Val(Txt_b.Text) 　　Else 　　 MsgBox "请输入数字！" 　　 Exit Sub 　　End If 　　a = a + b 　　b = a - b 　　a = a - b 　　Lbl_Info.Caption = "a的值是:" & a & " b的值是:" & b

窗体分割 窗口分栏程序- vB版，这个可将窗口分为上下部分、左右部分，可分成二栏、三栏，通过程序左侧的参数设置面板，决定程序窗口要经过怎么的切割。本源码同样来自于国外源代码网站。代码注释英文，这里就不帖代码，你可以单击页面底部的“下载源码”按钮，下载本窗口切割实例的完整源码。

vb 判断经历多少个工作日，在两个日期选择器中选择日期值，然后判断选定的两个日期之间相差了多少天，判断两个定点之间的天数，比较基础，但也很有必要学习，时间和日期计算在很多软件中都要用到，这个例子相对简单些。大致代码： 　　If IsDate(Text1) = True And IsDate(Text2) = True Then 　　 Dim i As Integer 　　 i = gongzuori(CDate(Text1), CDate(Text2)) 　　 Label3.Caption = "经历" & i & "个工作日" 　　Else 　　 MsgBox "请输入日期型" 　　End If

VB 使用VsMenu控件创建漂亮菜单，是一个很不错的VsMenu控件用法演示实例，在窗体上单击右键,可以看到弹出式菜单效果。 　　Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 　　 If Button = vbRightButton Then PopupMenu MDIfrmMain.mnuEdit 　　 End Sub

VB将程序图标添加到托盘，任务栏的系统托盘上有本程序的图标，并可通过图标的右键菜单，调出程序主窗口、退出关闭程序等功能，是一种比较常见的添加系统托盘的示例。