VB.NET窗体Tab 读取ini文件 界面滑动等功能集

vb6.0 编程实现字节数组和字符串的相互转换，演示如何进行字节数组和字符串的相互转换.

VB6.0演示一个求解数学问题，求两个数最大公约数，这是个简单的数学问题，数学基础好，用VB很轻松就编写出本程序了。在运行的窗口中，分别输入两个整数，单击按钮，程序将显示两个数的最大公约数是多少。求解的过程代码描述如下： 　　If (Val(Text1.Text) = 0 Or Val(Text2.Text) = 0) Or Val(Text1.Text) > 2147483647 Or Val(Text2.Text) > 2147483647 Then 　　 MsgBox "输入的数0或溢出，请重新输入！" 　　 MsgBox "输入的数0或溢出,请重新输入!", vbInformation + vbOKOnly, "数据错误" 　　 Text1.Text = "" 　　 Text2.Text = "" 　　 Text1.SetFocus 　　Else 　　 m = Val(Text1.Text) 　　 n = Val(Text2.Text) 　　If m < n Then 　　 temp = m: m = n: n = temp 　　End If 　　Do 　　 r = m Mod n 　　 m = n 　　 n = r 　　Loop While r 0 　　Label3.Caption = "两个正整数m和n的最大公约数为: " & m 　　End If

VB6为菜单制作添加分割线，在菜单项与菜单项之间显示一个分隔线，这个在Windows经典风格的窗口中，十分常见，像一个水平线那样，把菜单分成多个部分，这个水平线带有阴影效果，视觉效果更立体。 　　本窗口中的菜单，是一个企业综合管理系统的主界面面板，那些菜单都是测试用的，你可以看一下菜单中的分隔线是如何嵌入到菜单中的。

VB6.0 判断指定字符串出现的次数，判断字符串A在字符串B中出现的次数，使用了VB的Mid函数来判断，如图所示的运行效果，单击按钮即可查看运行结果。代码验证判断部分，采用for循环遍历判断，代码如下： 　　Dim j As Integer 　　j = 0 　　For i = 1 To Len(Text1) 　　 If Mid(Text1, i, Len(Text2)) = Text2 Then 　　 j = j + 1 　　 End If 　　Next i 　　Label2.Caption = "出现" & j & "次"

VB.NET自制图片查看器，一个看图工具软件，功能方面主要有图片原图显示、自动缩放图片、图片居中、自动缩放图片框、背景色设置、文件名及其路径、视图ToolStripMenuItem等。你可以通过这个小程序了解一些VB.NET与图片之间的操作技巧，另外还可以学习到窗口对话框的一些基本操作、PictureBox控件用法、目录和文件列表框的使用、处理鼠标事件、偏移量计算图片位置，重画图片、绘图画面，颜色填充、窗体界面元素控制等的控制方法。。

VB 6.0 动态改变图表的比例,改变图表的视图比例,默认是0.7,点击确认按钮后,图表会变大显示,减小数字,图表会紧接着变小.看了下代码,里面就是一行代码搞定: 　　MSChart1.RowLabel = "" 　　不过这个功能还是很实用的,当视图内容比较多的时候,图表显示的比较小,用这个功能可将图表放大显示. 　　MSChart主要用来生成一些简单的图表，包括饼图、曲线图、柱状图等，较复杂的图表就需要借助三方控件了。

一个不错的VB TELNET实现源码,虽然很简单,但是对于新手来说比较容易学习

本源码基于VB.NET编写，集合了VB.NET中的读取ini文件，窗体Tab标签，界面滑动等效果，界面看上去是一个音乐播放器，其实本程序是侧重于界面的编程设计，演示了窗口中TAB标签切换、界面滑动以及整体界面的美化的具体实现，使用了比较多的三方DLL，已经都打包了，感兴趣的下载源码，在VS2012版本以上的VS中打开并编译。

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

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