vb禁用窗体最大化、最小化和关闭快捷菜单

vb 拖动滑块设置窗体透明度，在如图所示的窗体中，有一个滑块可左右滑动，用户可改变滑块的值，来改变窗体的透明度，如图所示是在30%位置的透明度效果，滑块往右，则透明度减小，也就是窗体越清淅，往左则窗口越来越透明。源码运行于VB6.0，欢迎VB爱好者下载研究源码。

vb.NET模拟扑克牌出牌功能，其实可看作是一个界面较简单的扑克牌游戏，界面有些粗糙，没有过多美化，用文字描述了牌面，后续可以对界面进行升级。有点过于简单了，可当作一个初级的VB.NET编程例子吧。

VB简单实现磁性窗体，将窗体粘合，子窗体连接的任何窗体都粘合上，获取所有窗体的矩形区域，并重新设置粘合，连接窗体上的矩形。这种窗口多见于一些影音视频播放软件中，比如播放列表快接近播放主窗口时，自动吸附到主窗口上，紧贴主窗口边缘，像是有种磁性一样吸附在一起，本窗口中的三个子窗口，都具有自动吸附的磁性感觉，有兴趣可下载本源码学习测试。

VB 写的拼图 用数字代表图片，将数字的顺序排列好，就完成了拼图，比起图片版的拼图，要简单多了。 　　玩法：将数字1挪动到最开始的位置，如何移动？要把占位的数字一个一个挪开，依次为1、2、3等数字让位，把整体排序好，就拼好了。

VB的保存文件对话框调用创建一例，弹出“打开”对话框，还有保存对话框，另存为对话框，通用对话框，cdlOFNFileMustExist当用户输入非法的文件名时,要显示一个警告。 　　cdlOFNReadOnly指示对话框关闭时只读复选框的状态。。

一个不错的VB TELNET实现源码,虽然很简单,但是对于新手来说比较容易学习

vb演示如何调用其他应用程序菜单的方法，程序演示了在VB程序中，调用 windows记事本程序的菜单，不过测试发现，本程序在Windows 7中失效了，本代码写于2010年的，有些早了，当时可能只考虑了Windows XP，可能需要对以下代码加以修正，才能适用于windows 7/10环境： 　　hwnd = FindWindow(vbNullString, "无标题 - 记事本菜单") 　　If hwnd = 0 Then Exit Sub 　　hMainMenu = GetMenu(hwnd) 　　hMenu = GetSubMenu(hMainMenu, 0) 　　MenuID = GetMenuItemID(hMenu, 3) 　　AppActivate "无标题 - 记事本菜单" 　　Ret = SendMessage(hwnd, WM_COMMAND, MenuID, 0&)

VB 演示创建视图 以及使用视图保存数据，数据库选择了MSSQL，根据各数据库字段创建视图，并使用这个视图进行数据保存，测试前请确保数据库连接成功。

一款基于VB开发的药品管理程序，数据库采用SqlServer，运行之前首先在SQL查询分析器里执行SQL目录下的myMedsys.sql脚本.大家可根据源程序代码自行扩展程序，二次开发完善。

VB.NET 获取全局coordinate鼠标坐标，显示窗体内的XY坐标，窗体外凡是显示屏幕的任意位置都可以显示出坐标，获取全局鼠标坐标，测试截图是获取本窗口外的鼠标坐标，请参见截图效果。随着鼠标移动会显示出各个鼠标坐标点的XY坐标信息。单击窗口的“开始”按钮后，将执行以下代码获取全局坐标： 　　GetCursorPos(p) 　　tooltip1.SetToolTip(Me, "当前鼠标位置 X=:" & p.x & "Y=:" & p.y) 　　tooltip1.Active = True