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

VB创建一个个性化的椭圆形窗口界面，使用 SetWindowRgn创建椭圆形窗口的例子。个性的窗口形状可增加程序的趣味性，可以使程序更具吸引力。见惯了方方正正的矩形窗体，椭圆形窗体更会使用户眼前一亮。本实例设计一个椭圆形的窗体，运行程序，窗体为椭圆形，单击窗体，即可退出程序。

VB6.0折线图生成实例,使用曲线图展示各项指标完成情况,同样是使用了MSChart控件的功能,这个折线图的数据取自SQL数据库,在程序中会建立数据库操作模块,将数据读取出来,然后交给折线图生成模块,最终生成这种不同颜色的曲线图,每条曲线都代表一项指标,在视图方面,本示例中的折线图可以按行显示标记,也可以叠置显示,最终效果,如测试图示. 　　运行前,请确保已正确连接测试数据库,否则程序不能运行.

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

VB6.0 改变扩展名保护Access数据库，也就是让用户修改Access数据库的扩展名，之前可能禁止改变，但本代码介绍的方法允许修改扩展名，以下是本例子核心功能部分的完整源码，仅供参考： 　　Private Sub Form_Load() 　　 Dim cnnstr As String 　　 cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "db_wjgl.bak;Persist Security Info=False" 　　 cn.Open cnnstr 　　 Adodc1.ConnectionString = cnnstr 　　 Set Picture1.DataSource = Adodc1 　　 Picture1.DataField = "文件" 　　End Sub 　　Private Sub Form_Unload(Cancel As Integer) 　　 cn.Close 　　End Sub

vb.net绘制生成曲线，数据从access数据库中读取，然后将数据进行简要处理后，传送给曲线生成函数，生成适时的数据曲线。 　　请注意：vb.net里PICTURE只支持像素，长度比较大，需要乘除定义精确值，8当余数为1,则刚好够总长度,否则需要判断长度，计算出坐标,画图，如果要设置数值或日期的显示格可以设置Format属性，例如： .Format = "￥0.00"。

VB 6.0 过程引用传递参数，显示传递前和传递后的参数值： 　　Private Sub mysub(ByRef i As Integer) 　　 i = 100 　　End Sub 　　Private Sub Form_Resize() 　　 Dim num As Integer 　　 num = 1 　　 Print "传递前:" & num 　　 Call mysub(num) 　　 Print "传递后:" & num 　　End Sub

VB6 屏幕滚动字幕，这个文字滚动区域被控制在屏幕的右下角，由右向左开始滚动，中间的高度可以调节，通过调节Me.Top = Screen.Height - Me.Height - 800参数，来改变文字滚动区域距离屏幕顶部的距离，文字滚动的实现是基于计时器和循环来实现，下面的代码可为你提供本效果的实现思路： 　　Label1.Caption = "这里定义需要滚动的文字内容： 用VB制作的文字滚动效果！" 　　Me.Left = Screen.Width 　　Me.Top = Screen.Height - Me.Height - 800 　　BeginPath Me.hWnd 　　SetBkMode Me.hWnd, TRANSPARENT 　　EndPath Me.hWnd 　　rgn = PathToRegion(Me.hWnd) 　　SetWindowRgn Me.hWnd, rgn, True 　　Timer1.Interval = 200 　　Timer1.Enabled = True 　　End Sub 　　Private Sub Timer1_Timer() 　　 Me.Left = Me.Left - 100 　　 If Me.Left < Label1.Width * (-1) Then 　　 Timer1.Enabled = False 　　 Me.Left = Screen.Width 　　 Timer1.Enabled = True 　　 End If 　　End Sub

VB 使用DataGrid显示书名数据表，这个例子相当简单，主要是学习在VB编程中如何使用DataGrid数据网格控件，将数据库内容读取出来，然后绑定到DataGrid表格中显示： 　　Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=book" 　　Adodc1.RecordSource = "select * from 书名" 　　Set DataGrid1.DataSource = Adodc1 　　DataGrid1.Columns(3).NumberFormat = "$0.00" 　　DataGrid1.Columns(4).NumberFormat = "$0.00" 　　End Sub

VB实现子窗体跟随主窗体自动移动，这个窗体的形式，相信大家也见到过，就像一些播放器的子窗口，当拖动主窗体的时候，子窗体会跟着移动，紧紧贴服，自动跟随，好像是主窗口带有磁性一样。 　　测试时，请在主窗口中单击“打开跟随窗体”后，会显示子窗口，此时拖动父窗口，即可看到效果。

VB 利用Tag属性存储用户名 　　If Text1.Text = "" Or Text2.Text = "" Then 　　 MsgBox "用户名或密码不能为空", vbCritical, "信息提示" 　　 Exit Sub 　　Else 　　 If Text1.Text = "TSoft" And Text2.Text = "111" Then 　　 Me.Tag = Text1.Text 　　 Frm_Main.Show 1 　　 Unload Me 　　 Else 　　 MsgBox "输入的名户名或密码不正确", vbCritical, "信息提示" 　　 End If 　　End If