VB程序员博客

系统文件夹里找不到。为什么？谁能告诉我它在哪里？多谢！！！
找什么？搜吧,不知道说得啥鼠标链接选择指针一个小手那样在你计算机里搜索*.cur,若搜不到,贴个邮箱,让别人给你发一个329990037@qq.comhttp://topic.csdn.net/u/20091130/01/837D334D-3C08-4C59-B56A-C87CBDE4B62B.html也许是删除了。

系统文件夹里找不到。为什么？谁能告诉我它在哪里？多谢！！！
找什么？搜吧,不知道说得啥鼠标链接选择指针一个小手那样在你计算机里搜索*.cur,若搜不到,贴个邮箱,让别人给你发一个329990037@qq.comhttp://topic.csdn.net/u/20091130/01/837D334D-3C08-4C59-B56A-C87CBDE4B62B.html也许是删除了。

如何实现模拟鼠标点击网页超连接或按钮

关注最近搞HTML+VB的人特多….<
'模拟点击登陆按钮
Set vDoc = WebBrowser1.Document
for i …
    Set vTag = vDoc.All(i)
    If vTag.Type = "submit" And vTag.Value = "登录" Then '登陆按钮
      vTag.Click
    End If
next谁有webbrowser1的具体用法说明呢？百度里搜一下,有好多WebBrowser常见用法
http://hi.baidu.com/hacklzt/blog/item/a1e5b23fd32fa3f2828b1305.html
<
上面提供的链接不错，自己搜一下也容易找到，网上很多的。http://hi.baidu.com/hacklzt/blog/item/a1e5b23fd32fa3f2828b1305.html

这里不错  收藏了  学习下webbrower不需要去模拟鼠标点击

改refer就可以了

如何实现模拟鼠标点击网页超连接或按钮

关注最近搞HTML+VB的人特多….<
'模拟点击登陆按钮
Set vDoc = WebBrowser1.Document
for i …
    Set vTag = vDoc.All(i)
    If vTag.Type = "submit" And vTag.Value = "登录" Then '登陆按钮
      vTag.Click
    End If
next谁有webbrowser1的具体用法说明呢？百度里搜一下,有好多WebBrowser常见用法
http://hi.baidu.com/hacklzt/blog/item/a1e5b23fd32fa3f2828b1305.html
<
上面提供的链接不错，自己搜一下也容易找到，网上很多的。http://hi.baidu.com/hacklzt/blog/item/a1e5b23fd32fa3f2828b1305.html

这里不错  收藏了  学习下webbrower不需要去模拟鼠标点击

改refer就可以了

例如：
鼠标点击拖动后实现效果：
###########################################

问题二：
画出直线或任意线（线条样式为虚线或者实线and点画线），在画线结束后线的末尾显示一个箭头。
例如：实现效果
————————————–>
1, 不懂什么意思
2,
    Me.Line (1, 1000)-(1000, 1000)
    Me.CurrentX = 1000
    Me.CurrentY = 900
    Print ">"
Picture1.OLEDragMode=ManualDragDrop事件：拖放事件，相当于MouseDown、MouseMove和MouseUp的组合。 
DragOver事件：鼠标在拖放过程中就会产生DragOver事件。能写上代码么？我是个新手！谢谢！第一个问题就是画出一条直线 而直线是被图片代替的！
画出一条直线 而直线是被图片代替的！??? 看不懂你在说啥 ??

既然直线是图片, 你还画什么线? 直接PaintPicture图片不就好了吗?

Private Sub Command1_Click()
  Me.Cls
  Me.CurrentX = 100: Me.CurrentY = 500 '指定位置
  Me.Print "———–>"
End Sub注：带箭头的直线和任意线是鼠标随意拖动画出来的下个CAD控件。利用下面代码, 座标已给你定好了, 你自己在座标位置 PaintPicture, 或将你的Picture或Image控件移到该位置, 因为不知道你真的想干什么, 不想浪费时间.

Dim X1!, Y1!, X2!, Y2!
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
      Me.DrawMode = 7: Me.DrawStyle = 1
      X1 = X: X2 = X
      Y1 = Y: Y2 = Y
  End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
      Me.Line (X1, Y1)-(X2, Y2), QBColor(10)
      Me.Line (X1, Y1)-(X, Y), QBColor(10)
      X2 = X: Y2 = Y
  End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
      Me.DrawMode = 13: Me.DrawStyle = 0
      Me.Line (X1, Y1)-(X, Y), QBColor(10)
      Me.CurrentX = X: Me.CurrentY = Y - (Me.TextHeight("-") 2)
      Me.Print "->"
  End If
End Sub

例如：
鼠标点击拖动后实现效果：
###########################################

问题二：
画出直线或任意线（线条样式为虚线或者实线and点画线），在画线结束后线的末尾显示一个箭头。
例如：实现效果
————————————–>
1, 不懂什么意思
2,
    Me.Line (1, 1000)-(1000, 1000)
    Me.CurrentX = 1000
    Me.CurrentY = 900
    Print ">"
Picture1.OLEDragMode=ManualDragDrop事件：拖放事件，相当于MouseDown、MouseMove和MouseUp的组合。 
DragOver事件：鼠标在拖放过程中就会产生DragOver事件。能写上代码么？我是个新手！谢谢！第一个问题就是画出一条直线 而直线是被图片代替的！
画出一条直线 而直线是被图片代替的！??? 看不懂你在说啥 ??

既然直线是图片, 你还画什么线? 直接PaintPicture图片不就好了吗?

Private Sub Command1_Click()
  Me.Cls
  Me.CurrentX = 100: Me.CurrentY = 500 '指定位置
  Me.Print "———–>"
End Sub注：带箭头的直线和任意线是鼠标随意拖动画出来的下个CAD控件。利用下面代码, 座标已给你定好了, 你自己在座标位置 PaintPicture, 或将你的Picture或Image控件移到该位置, 因为不知道你真的想干什么, 不想浪费时间.

Dim X1!, Y1!, X2!, Y2!
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
      Me.DrawMode = 7: Me.DrawStyle = 1
      X1 = X: X2 = X
      Y1 = Y: Y2 = Y
  End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
      Me.Line (X1, Y1)-(X2, Y2), QBColor(10)
      Me.Line (X1, Y1)-(X, Y), QBColor(10)
      X2 = X: Y2 = Y
  End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
      Me.DrawMode = 13: Me.DrawStyle = 0
      Me.Line (X1, Y1)-(X, Y), QBColor(10)
      Me.CurrentX = X: Me.CurrentY = Y - (Me.TextHeight("-") 2)
      Me.Print "->"
  End If
End Sub

例如：
鼠标点击拖动后实现效果：
###########################################

问题二：
画出直线或任意线（线条样式为虚线或者实线and点画线），在画线结束后线的末尾显示一个箭头。
例如：实现效果
————————————–>
1, 不懂什么意思
2,
    Me.Line (1, 1000)-(1000, 1000)
    Me.CurrentX = 1000
    Me.CurrentY = 900
    Print ">"
Picture1.OLEDragMode=ManualDragDrop事件：拖放事件，相当于MouseDown、MouseMove和MouseUp的组合。 
DragOver事件：鼠标在拖放过程中就会产生DragOver事件。能写上代码么？我是个新手！谢谢！第一个问题就是画出一条直线 而直线是被图片代替的！
画出一条直线 而直线是被图片代替的！??? 看不懂你在说啥 ??

既然直线是图片, 你还画什么线? 直接PaintPicture图片不就好了吗?

Private Sub Command1_Click()
  Me.Cls
  Me.CurrentX = 100: Me.CurrentY = 500 '指定位置
  Me.Print "———–>"
End Sub注：带箭头的直线和任意线是鼠标随意拖动画出来的下个CAD控件。利用下面代码, 座标已给你定好了, 你自己在座标位置 PaintPicture, 或将你的Picture或Image控件移到该位置, 因为不知道你真的想干什么, 不想浪费时间.

Dim X1!, Y1!, X2!, Y2!
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
      Me.DrawMode = 7: Me.DrawStyle = 1
      X1 = X: X2 = X
      Y1 = Y: Y2 = Y
  End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
      Me.Line (X1, Y1)-(X2, Y2), QBColor(10)
      Me.Line (X1, Y1)-(X, Y), QBColor(10)
      X2 = X: Y2 = Y
  End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
      Me.DrawMode = 13: Me.DrawStyle = 0
      Me.Line (X1, Y1)-(X, Y), QBColor(10)
      Me.CurrentX = X: Me.CurrentY = Y - (Me.TextHeight("-") 2)
      Me.Print "->"
  End If
End Sub

工作需要，今天开始学习VB，但是VB的开发环境好像不支持鼠标滚轮，书上教了一种方法可以支持鼠标滚轮，现在分享给大家：

1、下载http://download.microsoft.com/download/e/f/b/efb39198-7c59-4ace-a5c4-8f0f88e00d34/vb6mousewheel.exe
这是一个自解压的包，其中包含VB6IDEMouseWheelAddin.dll和其源程序。

2、将包中的VB6IDEMouseWheelAddin.dll或者将源程序编译出一个新的VB6IDEMouseWheelAddin.dll COPY到系统目录或者VB安装目录（防止被删除）

3、开始->运行:regsvr32 VB6IDEMouseWheelAddin.dll

4、运行Visual Basic 6.0

5、单击Add-Ins菜单下的Add-In Manager，弹出Add-In Manger对话框
注意：中文系统是“外接程序管理(A)”中的“外接程序管理器”；
      日文系统是：「アドイン(A)」中的「アドインマネージゃ」。

6、在Available Add-Ins列表中，选择“MouseWheel Fix”，在Load Behavior栏中单击选中"Loaded/Unloaded和Load on Startup复选框

7、确定，完成

这时，Visual Basic6.0 IDE已经支持滚轮了

接分

谢谢

谢谢…………

改天试一下。

没遇到过这种情况.

VB 我做了个无标题栏的窗体，当鼠标移到它的上面的时候总是把其他原本在它上面的窗体覆盖住了，
而不是当点击的时候发生的。
怎么解决这样的怪现象，使它恢复正常（即只有我点击某个窗体，这个窗体才覆盖别的窗体）
谢谢

你设置了什么SetFocus了？贴代码，看一下

用 VB 里面的click 事件就可以了 —-

用VB 里面的click 事件就可以了 —-

一般不會發生樓主說的問題，可能你在Form_Active中加了什麼。

如何楼主有兴趣,可以点击下面的链接
http://topic.csdn.net/t/20030630/16/1974422.html

[size=16px]我试过是我的那个无标题栏的窗体里面调用的 MoveForm 函数(定义在模块里面的
该模块(moduale2)里面的代码有如下:
Public Declare Function GetObjectAPI Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
  Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
  Public Declare Function SetWindowRgn Lib "User32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
  Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Public Const RGN_OR = 2

Public Declare Function ReleaseCapture Lib "User32" () As Long
Public Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2

Public Function MoveForm(ByVal MOVvForm As Form)
    ReleaseCapture
    SendMessage MOVvForm.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Function

不知道里面错在哪里,我是想在鼠标移动窗体的时候,可以移动.如果不这样那该怎么实现呢?而且要实现只有我点击某个窗体，这个窗体才覆盖别的窗体.

谢谢非常谢谢

你应该在窗体的 MouseDown 而不是 MouseMove 事件中调用 MoveForm()。

是这样的 我要去点WebBrowser1 里的一个FLASH 现在是用mouse_event去点 这样影响了我电脑鼠标的使用

在网络上搜索到用SendMessage 或 PostMessage 发送点击测试下来都不能成功
首先得到窗体的 句柄 然后在查找到 WebBrowser1的句柄(WebBrowser1这个没有句柄 里面是Shell Embedding)
所以找到了 Shell Embedding 句柄后发送 SendMessage 或 PostMessage 去点击WebBrowser1 的坐标

下面已经得到了WebBrowser1 的句柄了 但是不知道怎么发送点击 希望有高手帮助

g_WindowHwnd = FindWindow(vbNullString, "Form3")
g_WindowHwnd = GetBrowserWindow(g_WindowHwnd)

Private Function GetBrowserWindow(hwndBrowserContainer As Long) As Long
Dim RetVal As Long
Dim hwndPeer As Long
Dim ClassString As String * 256
hwndPeer = GetWindow(hwndBrowserContainer, GW_CHILD)
RetVal = GetClassName(hwndPeer, ClassString, 256)
If InStr(ClassString, "Shell Embedding") <> 0 Then
List1.AddItem Str(hwndPeer) & "|" & ClassString
End If
Do While hwndPeer <> 0
hwndPeer = GetWindow(hwndPeer, GW_HWNDNEXT)
RetVal = GetClassName(hwndPeer, ClassString, 256)
If InStr(ClassString, "Shell Embedding") <> 0 Then
List1.AddItem Str(hwndPeer) & "|" & ClassString
End If
Loop
GetBrowserWindow = hwndPeer
End Function

据说FLASH这样不行的~

是否没有消息处理机制？