利用Windows API获得系统高级功能
摘要：利用WindowsAPI获得系统高级功能 邹刚 VB无疑是最先进的编程工具之一，但在涉及windows32位系统的核心编程方面——譬如一些高级功能的实现上，它仍然显得有些力不从心，这需要我们充分利用vb的强大的WindowsAPI函数调用能力来弥补。以下代码将向您展示如何利用WindowsAPI控制系统托盘（图标）区、开始菜单、任务栏以及禁用/起用ctrl-alt-del、退出网络登录、立即关机、重新启动等系统高级功能。 启动VB6，建立一个标准exe工程，添加14个command按钮，caption属性依次为“隐藏开始菜单”、“显示开始菜单”、“隐藏系统托盘”、“显示系统托盘”、“禁用...
阅读全文
DataGridView在vb.net中的操作技巧
摘要：目录：1、 取得或者修改当前单元格的内容2、 设定单元格只读3、 不显示最下面的新行4、 判断新增行5、 行的用户删除操作的自定义6、 行、列的隐藏和删除7、 禁止列或者行的Resize8、 列宽和行高以及列头的高度和行头的宽度的自动调整9、 冻结列或行10、 列顺序的调整11、 行头列头的单元格12、 剪切板的操作13、 单元格的ToolTip的设置14、 右键菜单（ContextMenuStrip）的设置15、 单元格的边框、 网格线样式的设定16、 单元格表示值的设定17、 用户输入时，单元格输入值的设定18、 设定新加行的默认值1、 DataGridView 取得或者修改当前单元格的内
阅读全文
0、(空字串)、Null、Empty、与Nothing的区别
摘要：Dim ADim B As StringDim C As IntegerDim D As ObjectA 等于 Empty， 因为尚未初始化的「不定型变量」都等于 Empty。但如果检测 A = "" 或 A = 0， 也都可以得到 True 值。B 等于 ""， 因为尚未初始化的非固定长度「字串」都等于 "" 。 但请注意 B<> Null。C 等于 0， 这个还有问题吗？D 等于 Nothing， 尚未设定有物件的「物件变量」都等于 Nothing， 但请不要使用 D = Nothing , 而要使用 D Is Not
阅读全文
获取数据库表结构和表数据的小程序(VB.NET版本)
摘要：以前在项目实施过程中经常要到客户方去进行调查。由于客户的生产网络环境是封闭的，而且不能去查看真实的数据库，因此做了个小程序来采集数据库中指定表的数据和指定表的结构。代码如下： 'GetTableStuct 获取表的结构 Private Function GetDataTableSchame(ByVal strTableName As String) As DataSet On Error GoTo theError InitialConnectionString() Dim dba As New SqlDataProvider.DataBaseAccess(con_SPEC_DB) D
阅读全文
用VB.net实现对.ini文件的读写操作的类
摘要：Option Explicit OnModule INI 'INICont.bas Ver 1.0+a INI '==================================================================== 'GetIntFromINI( sectionName , keyName , defaultValue, iniPath ) ' ' sectionName:节点名 ' keyName :配置项名 ' defaultValue:默认值 ' iniPath :INI配置文件的路径 &
阅读全文
VB.net版本的数据库访问类DataBaseAccess
摘要：在开发一个VB.net的项目时，曾经整理出了一个DataBaseAccess的访问类，现在将该类分享下：Imports SystemImports System.IOImports System.TextImports System.DataImports System.Data.SqlClientNamespace SqlDataProvider Public Class DataBaseAccess#Region "Local Property Declaration" Dim _connectionString As String#End Region#Region
阅读全文
生成字符串校验码的方法
摘要：以前的一个项目中遇到过要核对条码的校验码的需求，感觉有时候还是非常有用的，下面提供代码，代码版本为VB.net：//根据输入的的条码来计算该条码的校验位Private Function GetCheckDigit(Byal strCode As String) As String Dim intCurVal As Int16 = 0 Dim intChksum As Int16 = 0 Dim chrCur As String Dim intPos As Int16 'Check for invalid characters and calculate check sum For in
阅读全文
