VB将 数组元素作为实参

VB的保存文件对话框调用创建一例，弹出“打开”对话框，还有保存对话框，另存为对话框，通用对话框，cdlOFNFileMustExist当用户输入非法的文件名时,要显示一个警告。 　　cdlOFNReadOnly指示对话框关闭时只读复选框的状态。。

vb 拖动滑块设置窗体透明度，在如图所示的窗体中，有一个滑块可左右滑动，用户可改变滑块的值，来改变窗体的透明度，如图所示是在30%位置的透明度效果，滑块往右，则透明度减小，也就是窗体越清淅，往左则窗口越来越透明。源码运行于VB6.0，欢迎VB爱好者下载研究源码。

vb.net获取TXT文件的各种属性参数，除了复制、移动文件、删除文件外，还可获取到文件的各种属性参数，不过只是针对TXT文本文件，可以获取到以下的参数：文 件 名 、路 径 、文件大小 、创建文件时间、最近访问时间、最近写入时间、是否隐藏文件、是否只读文件、是否系统文件 、是否脱机文件等 。

VB6 获取当前打开窗口数量，如何获取当前打开窗口数量，本示例打开一个窗口后，在测试时会打开另外一个窗口，然后主窗口中会统计到这个打开的窗口，把当前打开窗口的数量填入文本框中。本程序可学习一下DoEvents()的用法。调用新窗口显示可参考以下代码： 　　Private Sub Command1_Click() 　　 Form2.Show 　　 Call Form_Activate 　　End Sub 　　Private Sub Form_Activate() 　　 Text1.Text = DoEvents() 　　End Sub

VB输入限制功能一例：只允许输入汉字，本实例只允许用户输入汉字，如果输入其它类型的字符，程序将不允许输入，且会提醒用户。原理是获取键盘上的ASCII值，并判断是否在中文汉字的范围，若不在，就禁止输入。实现本功能的关键代码，分享给大家： 　　If KeyAscii > 0 And KeyAscii 13 And KeyAscii 8 Then 　　 KeyAscii = 0 　　 MsgBox "只允许输入汉字！", 48, "提示" 　　End If 　　因为是对键盘的控制实现对输入的限制，因此若鼠标复制了一段包含其它字符的文字，则程序无能为力，因为鼠标不在监控范围。

VB 以流的方式打开文本文件，创建FileSystemObject MyFSO对象，创建TextStream对象，然后使用对象GetFile文件，最后使用对象OpenAsTextStream读取流文件，具体用法，可参见以下代码： 　　Private Sub Form_Load() 　　 Dim MyFSO As New FileSystemObject 　　 Dim MyFile As File 　　 Dim MyTS As TextStream 　　 Set MyFile = MyFSO.GetFile(App.Path & "MyFile.txt") 　　 Set MyTS = MyFile.OpenAsTextStream(ForReading) 　　 Text1.Text = MyTS.ReadAll 　　 MyTS.Close 　　End Sub 　　完整的可编译实例，请下载源码包。

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

VB6.0 使用递归过程实现阶乘运算 　　Function F(n As Integer) As Single 　　 If n > 1 And n

vb6 批量生成证书、房屋等编号，学会了本例子，是个比较实用的技巧，在一些需要批量生成编号的地方，你都可以借鉴本程序，来实现编号生成，在本例中，是批量生成房屋的编号，用户可选择楼层范围、单元范围等参数后，即可快速生成编号。十分方便哦。这个小程序从界面和功能易用上来说，都设计的都好用的。

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