Vb写的俄罗斯方块 基本功能全'声明一个整数常量Width,表示游戏界面横向的小正方形数目,初始化为16 Public Const Width As Integer = 16 '声明一个整数常量Height,表示游戏界面横向的小正方形数目,初始化为30 Public Const Height As Integer = 30 '游戏界面的背景色 Public Shared BackColor As Color '小正方形的大小 Public Shared SquareSize As Size = New Size(10, 10) Public Shared g As Graphics '声明一个Graphics变量,用于绘制下一个方块 Public Shared gNext As Graphics '声明一个数组,用于表示游戏界面上的所有小正方形 Private Shared ArrGameField(Width - 1, Height - 1) As CSquare '函数功能:判断ArrGameField(x, y)是否有正方形,有则返回False,无则返回True Public Shared Function IsEmpty(ByVal x As Integer, ByVal y As Integer) As Boolean If x >= 0 And x = 0 And y =0 '在循环体中,先判断第y行是否是满的,是的话result增1,并把第y行上的所有小正方形下降一行.最后y递减1 '如果实现把第y行的所有小正方形下降一行:从第y行扫描至第0行,每扫描一行,把上一行的每个小正方形赋值给该行,并修改每一个小正方形的Location属性的值 While Y >= 0 If IsLineFull(Y) Then result += 1 For i As Integer = Y To 0 Step -1 If i > 0 Then For x As Integer = 0 To Width - 1 ArrGameField(x, i) = ArrGameField(x, i - 1) If Not ArrGameField(x, i) Is Nothing Then ArrGameField(x, i).Location = New Point(ArrGameField(x, i).Location.X, ArrGameField(x, i).Location.Y + SquareSize.Height) End If Next Else For x As Integer = 0 To Width - 1 ArrGameField(x, i) = Nothing Next End If Next Else

一款很好的扫雷游戏，很适合初学者来学习，做有很详细的注释，一款很很好的框架适用学习

itextsharp vb net pdf作成 实例 源代码 简单实用的PDF 生成 作成代码 itextsharp.dll使用情况下

对Itextsharp空间的简单封装,有拆分合并PDF文件,插入图片文字,旋转等功能.

VB.NET实现无边框、无标题栏的网页浏览器，这个窗口同时还没有状态栏，可以说是一个无边框的窗口，直接显示内容，浏览器功能是基于Windows的IE组件，直接调用的IE内核，本程序其实最值得参考的部分是窗体界面的设计，如何在VB.NET中实现无标题栏和状态栏的窗口，这个值得学习哦。

删除文本文件中重复的行，用VB.net实现。只查询文本中单列数值中重复的行，删除然后输出无重复行。

VB.NET 阻止关机代码

Interop.NETCONLib

用VB6与VBNET制作游戏修改器-外挂与获取模块基址

资源分高吧，之所谓高是因为该实例包含了DataGridView对数据库的所有操作（insert,update,select,delete），以及对DataGridView本身的基本操作（删除行，添加行，给记录添加索引号＝＝）。该代码已经在我写的程序中运用，希望对有需求的人有用，不过你的资源分也要扣哦！