vb 锁定鼠标到某一位置
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Command1_Click() '锁定鼠标 到某一位置
Dim r As RECT
r.Left = 100: r.Top = 100
r.Right = 100: r.Bottom = 100
ClipCursor r
End Sub
Private Sub Command2_Click() '解除锁定
ClipCursor ByVal 0&
End Sub
'原帖地址:
http://fy5388.blog.163.com/blog/static/5649953720091127115554104/
相关文档：
VB软件工程师：
职位描述：
1、进行编码、测试；
2、在规定时间内提交源代码。
岗位要求：
1、熟悉MS SQL数据库；
2、熟悉VB 6.0；
3、有业务系统开发经验；
4、具备良好的团队合作精神，勤奋、上进；
5、大专或者以上学历；
6、具有1年或者以上相关工作经验 ；
7、熟悉C#优先。
VB新手、初级程序员公司提供专� ......
VB中利用CopyMemory使用指针
一、指针是什么？
不需要去找什么标准的定义，它就是一个32位整数，在C语言和在VB里都可以用Long类型来表示。在32位Windows平台下它和普通的32位长整型数没有什么不同，只不过它的值是一个内存地址，正是因为这个整数象针一样指向一个内存地址，所以就有了指针的概念。
有� ......
我用VB执行DOS命令，生成文本文件随即打开
但是由于文本文件生成需要一段时间，
还未等文件生成完毕VB就打开了这个文件
请问如何让程序等待DOS命令执行完毕再打开这个文本文件啊
最好还能加上一个等待的进度条显示文本文件的生成过程
代码如下：
Shell "cmd /c dir /s /b e:\ dir.txt"
Open "dir.txt" ......
DB2ConnectionString
b2str = "Provider=MSDASQL.1;Password=a$sk6G7;Persist Security Info=True;User ID=DBA;Data Source=ConDB2SFXXK"
AccessConnectonString
accessstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DMSJK.mdb;Jet OLEDB:database password=" ......
将长路径转为短路径
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Function ShortPath(ByVal FileName As String) As String
Dim S As String
On Error GoTo exitFu ......
