vb.net设计qq软件 vb.net qq
摘要:【vb软件下载】VB NET软件下载请问有VB NET中文版的软件下载地址 vb net编程工具是:Microsoft Visual Studio 20081、Microsoft Visual S...
发布日期:2020-09-09【vb软件下载】VB.NET软件下载请问有VB.NET中文版的软件下载地址...
vb.net编程工具是:Microsoft Visual Studio 20081、Microsoft Visual Studio 2008是面向Windows Vista、Office 2007、Web 2.0的下一代开发工具,代号“Orcas”,是对Visual Studio 2005一次及时、全面的升级。
2、VS2008引入了250多个新特性,整合了对象、关系型数据、XML访问方式,语言更简洁。
3、使用Visual Studio 2008可以高效开发Windows应用。
4、设计器中可以实时反映变更,XAML中智能感知功能可以提高开发效率。
5、Visual Studio 2008支持项目模板、调试器和部署程序。
6、Visual Studio 2008可以高效开发Web应用,集成了AJAX 1.0,包含AJAX项目模板,它还可以高效开发Office应用和Mobile应用。
...
如何用vb.net做鼠标输入软件
方法一:调用api 在Visual Baisc.net中的声明: Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Public Const MOUSEEVENTF_LEFTDOWN = &H2 "模拟鼠标左键按下 Public Const MOUSEEVENTF_LEFTUP = &H4 "模拟鼠标左键释放 Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 "模拟鼠标中间键按下 Public Const MOUSEEVENTF_MIDDLEUP = &H40 "模拟鼠标中间键释放 Public Const MOUSEEVENTF_RIGHTDOWN = &H8 "模拟鼠标右键按下 Public Const MOUSEEVENTF_RIGHTUP = &H10 "模拟鼠标右键释放 Public Const MOUSEEVENTF_MOVE = &H1 "模拟鼠标指针移动 例:mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0 "在(10,10)模拟鼠标左键按下 方法二:namespace ClassLibrary.Hardware { public class Mouse { internal const byte SM_MOUSEPRESENT = 19; internal const byte SM_CMOUSEBUTTONS = 43; internal const byte SM_MOUSEWHEELPRESENT = 75; internal struct POINTAPI { internal int x; internal int y; } internal struct RECT { internal int left ; internal int top ; internal int right ; internal int bottom ; } [System.Runtime.InteropServices.DllImport("user32.dll" , EntryPoint="SwapMouseButton")] internal extern static int SwapMouseButton ( int bSwap ); [System.Runtime.InteropServices.DllImport("user32" , EntryPoint="ClipCursor")] internal extern static int ClipCursor(ref RECT lpRect); [System.Runtime.InteropServices.DllImport( "user32.dll" , EntryPoint="GetCursorPos" )] internal extern static int GetCursorPos( ref POINTAPI lpPoint ); [System.Runtime.InteropServices.DllImport("user32.dll", EntryPoint="ShowCursor")] internal extern static bool ShowCursor ( bool bShow ) ; [System.Runtime.InteropServices.DllImport( "user32.dll" , EntryPoint = "EnableWindow" )] internal extern static int EnableWindow( int hwnd , int fEnable ); [System.Runtime.InteropServices.DllImport("user32.dll" , EntryPoint="GetWindowRect")] internal extern static int GetWindowRect( int hwnd , ref RECT lpRect ) ; [System.Runtime.InteropServices.DllImport("user32.dll" , EntryPoint="SetCursorPos")] internal extern static int SetCursorPos ( int x , int y ) ; [System.Runtime.InteropServices.DllImport("user32.dll" , EntryPoint="GetSystemMetrics")] internal extern static int GetSystemMetrics( int nIndex ); [System.Runtime.InteropServices.DllImport("user32.dll" , EntryPoint="SetDoubleClickTime")] internal extern static int SetDoubleClickTime ( int wCount ); [System.Runtime.InteropServices.DllImport("user32.dll" , EntryPoint="GetDoubleClickTime")] internal extern static int GetDoubleClickTime() ; [System.Runtime.InteropServices.DllImport("kernel32.DLL", EntryPoint="Sleep")] internal extern static void Sleep ( int dwMilliseconds ) ; //得到鼠标相对与全屏的坐标,不是相对与你的Form的,且与你的分辨率有关系 public static int FullScreenPosition_X { get { POINTAPI _POINTAPI = new POINTAPI(); GetCursorPos ( ref _POINTAPI ); return _POINTAPI.x; } } public static int FullScreenPosition_Y { get { POINTAPI _POINTAPI = new POINTAPI(); GetCursorPos ( ref _POINTAPI ); return _POINTAPI.y; } } // 隐藏 显示 鼠标 public static void Hide() { ShowCursor( false ) ; } public static void Show() { ShowCursor( true ) ; } // 将鼠标锁定在你的Form里 不过你得将你的Form先锁了,Form Resize 就失效了 public static void Lock( System.Windows.Forms.Form ObjectForm ) { RECT _FormRect = new RECT (); GetWindowRect( ObjectForm.Handle.ToInt32() , ref _FormRect ); ClipCursor( ref _FormRect ); } public static void UnLock() { RECT _ScreenRect = new RECT (); _ScreenRect.top = 0; _ScreenRect.left = 0; _ScreenRect.bottom = System.Windows.Forms.Screen.PrimaryScreen.WorkingArea.Bottom; _ScreenRect.right = System.Windows.Forms.Screen.PrimaryScreen.WorkingArea.Right; ClipCursor( ref _ScreenRect ); } // 鼠标失效,不过失效的好像不只是鼠标,小心哦 public static void Disable( System.Windows.Forms.Form ObjectForm ) { EnableWindow( ObjectForm.Handle.ToInt32() , 0 ) ; } public static void Enable( System.Windows.Forms.Form ObjectForm ) { EnableWindow( ObjectForm.Handle.ToInt32() , 1 ) ; } // 鼠标自己移动 很想动画哦 参数是2个控件的handle // 看这个方法前,先用凉水擦把脸。
。
。
反正我写的时候 头晕 public static void Move ( int From_Handle_ToInt32 , int To_Handle_ToInt32 ) { RECT rectFrom = new RECT () ; RECT rectTo = new RECT () ; int i ; GetWindowRect( From_Handle_ToInt32 , ref ...
怎样用VB.NET 做学生管理系统
这里的后缀是MDB:ADODC属性页→通用→选择使用连接字符串→点击生成→选择Microsoft Jet 4.0 OLE DB Provider 点击下一步→选择之前准备好的数据库→点击测试连接,Microsoft ADO Data Control 6.0 Microsoft Hierarchical Flexgrid Control 6.0勾选后左侧工具栏里就多了两个控件即 ADODC控件和MSHFlexGrid控件。
选择 ADODC控件和MSHFlexGrid控件,放在窗体的合适位置设置ADODC控件的属性:右键窗体内ADODC1控件1,因为,VB不直接支持07版的accdb后缀格式,准备工作搞定。
菜单中找到工程→部件→勾选 .mdb,输入表名,这里表名为test,ok1:Access:VB右侧属性表里,找到datasource!)2:数据库建立后就进入了数据表界面,可以输入数据了,输完以后CRRL+S保存,建立数据库,确定。
2:ADODC属性页→记录源→命令类型选择2-adcmdtable,表或存储过程名称选择之前建立的数据表test,显示测试成功则ok,点击确定,ADODC属性设置完成。
设置MSHFlexGrid控件的属性。
(注意,数据库命名为Database1,如果Access是2007版本的,保存的时候要另存为2003版本的才行,选择adodc1就完事了般电话机对外联络,以免为了穿透墙壁天花板等障碍而浪费电...
VB.net设计窗体程序,怎么让窗体在鼠标点击时,窗体不被激活?
你先要指定勒数据源,然后导入oledb名字空间 imports system.data.oledb public function InsertUser(sql as string,con as string)as integer dim myCon as new oledbConnection(你的数据库连接) dim myCmd as new oledbCommand(SQL语句,myCon) dim count as integer try mycon.open() count = mycmd.executenonquery() catch ex as exception throw new excetion(ex.message) finally mycon.close return count end function Private Sub 增加键_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 增加键.Click If 增加键.Text = "确定" Then If 姓名框.Text = "" Or 性别框.Text = "" Or 专业框.Text = "" Or 出生年月框.Text = "" Or 学号框.Text = "" Then MessageBox.Show("您有未填写之处,请补充完毕!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Else dim sqlStr as string = "Insert into 表名 values(字段值) dim count as integer count = InsertUser(sqlstr,con) if count >=1 then msgbox(添加成功) else msgbox(添加失败)