-
VB.net与OMRON CP系列PLC通讯的实例
VB.net与OMRON CP系列PLC通讯，截图是辅助程序：FCS校验计算器的运行效果，与PLC通讯的实例在PLC-PC文件夹下，源码在VB.NET环境编译。
LBIndustrialCtrls.dll放在debug目录中，与exe文件同级。
- 2023-03-30 11:55:03下载
- 积分：1
-
vb.NET模拟扑克牌出牌功能
vb.NET模拟扑克牌出牌功能，其实可看作是一个界面较简单的扑克牌游戏，界面有些粗糙，没有过多美化，用文字描述了牌面，后续可以对界面进行升级。有点过于简单了，可当作一个初级的VB.NET编程例子吧。
- 2022-03-22 04:23:34下载
- 积分：1
-
网络五子棋游戏源码之客户大厅和服务器
网络五子棋游戏源码之客户大厅和服务器
VB编的
- 2023-07-18 23:30:04下载
- 积分：1
-
vb.net 读取INI文件示例
vb.net vs2008读取INI文件示例，ini文件名为 Send.ini，代码中包括了一个读ini API函数。
Ini文件说明：
[节名] []中的节名对应此API的第一参数
Name=内容 Name对应此API的第二参数
API的第三参数是没有取到匹配内容时返回的字符串;
API的第四参数是要返回的字符串;
API的第五参数是字符串缓冲的长度，一般255;
API的第六参数是INI文件的路径。
- 2022-02-20 08:44:55下载
- 积分：1
-
VB让窗口标题栏闪烁效果源码
VB让窗口标题栏闪烁效果源码，不过我测试没有发现标题栏闪烁，咋回事呢？实现的思路是：声明API函数Flashwindow，然后编写下面的代码：
Call FlashWindow(hwnd, 1)
If Me.Caption = "闪烁的标题栏" Then
Me.Caption = "欢迎使用管理软件！ "
Else
Me.Caption = "闪烁的标题栏-www.codesc.net"
End If
- 2022-08-08 08:27:55下载
- 积分：1
-
VB.NET自制的看图工具软件
VB.NET自制图片查看器，一个看图工具软件，功能方面主要有图片原图显示、自动缩放图片、图片居中、自动缩放图片框、背景色设置、文件名及其路径、视图ToolStripMenuItem等。你可以通过这个小程序了解一些VB.NET与图片之间的操作技巧，另外还可以学习到窗口对话框的一些基本操作、PictureBox控件用法、目录和文件列表框的使用、处理鼠标事件、偏移量计算图片位置，重画图片、绘图画面，颜色填充、窗体界面元素控制等的控制方法。。
- 2022-12-25 17:15:03下载
- 积分：1
-
VB 6.0 AscW将汉字转换为Unicode字符代码
本源码演示VB 6.0 如何将汉字转换为Unicode字符代码，在窗口中输入汉字，单击按钮，即可将汉字转换为Unicode字符，其实这个实现起来也比较简单，用VB内置函数AscW即可实现，代码的编写可参考如下：
Private Sub Command1_Click()
Text2.Text = AscW(Text1)
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
- 2022-08-09 07:08:37下载
- 积分：1
-
VB6.0 WinLock-锁住计算机 沐风视窗锁
VB6.0 WinLock-锁住计算机 实现锁定电脑的功能，沐风视窗锁，程序由沐风工作室开发编写，锁定计算机后，按下回车键后请输入解锁密码才能解锁屏幕，另外这个锁屏程序还可以设置自启动、效验密码等功能。
本程序同时支持卸载，当用户点击 卸载按钮后，即将完成删除，程序将运行卸载程序。
温馨提示：第一次使用,请输入密码。密码设置成功,程序将重新启动。
- 2022-08-12 14:41:19下载
- 积分：1
-
VB6.0 获取网络连接信息
VB6.0 获取网络连接信息，在如图所示的窗口中，点击按钮即可获取显示本机的网络连接信息，这些信息包括：
是否通过LAN连接、是否通过Modem连接、是否通过Proxy连接、是否在线连接、是否安装了网络RAS等信息。获取完成最后可提示：“系统通过LAN与Internet连接，系统安装了远程访问服务”。
- 2023-05-26 06:40:02下载
- 积分：1
-
VB利用地址偏移访问内存
VB利用地址偏移访问内存，整个处理过程 封装在事件函数中，用户单击后，执行以下代码：
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub Form_Load()
Dim i As Long
Dim j As Long
i = 1234
j = 4321
Debug.Print VarPtr(i)
Debug.Print VarPtr(j)
CopyMemory ByVal VarPtr(i), ByVal VarPtr(i) - 4, 4
Text1.Text = i
End Sub
- 2022-08-20 12:19:05下载
- 积分：1
