VB
关注
分享
扫一扫
gyzsky
这个作者很懒，什么都没留下…
展开
-
vb通用过程简介
Private Sub Ave(Arry() As Integer, ByVal N As Integer, Average As Integer) Dim I As Integer, Sum As Integer Sum = 0 For I = 1 To N - 1 Sum = Sum + Arry(I) Next I Aver原创 2013-03-28 09:49:18 · 2170 阅读 · 0 评论 -
vb listview用法
VB ListView 控件View Code Private Sub Command1_Click() '命令按钮 ListView1.View = lvwReport '设置ListView控件中ListItem对象的外观形式为报表，其值为3 ListView1.ColumnHeaders.Clear转载 2013-04-12 09:59:11 · 4447 阅读 · 0 评论 -
vb DataGrid
VB.NET使用DataGridView分页显示(转) 在使用DataGridView显示来自DataTable的记录时，如果DataTable里的记录太多(上百条)，那么用DataGridView查看记录就很不方便，如果能让DataGridView分页显示，每页只显示10条（可以随意规定每页显示的条数），并且配以页面之间的跳转按钮，岂不是方面了许多？现在就来说说我是怎么做转载 2013-04-12 11:02:16 · 931 阅读 · 0 评论 -
vb动态加载控件
Option ExplicitDim con As New ADODB.ConnectionDim res As New ADODB.RecordsetDim moveX As Long '动态添加控件时控件移到X点Dim moveY As Long '动态添加控件时控件移到Y点Const mWidth = 1500Const ConCount = 4 '表中查询条件的数量原创 2013-06-08 11:41:06 · 1367 阅读 · 0 评论 -
vb控件操作文件
代码如下：Private Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_DblClick() If Right(File1.Path, 1) T原创 2013-06-08 11:34:47 · 716 阅读 · 0 评论