锐客网

  1. 首页 > 睿知 > it技术 > >

关于vb.net鼠标停留事件的信息

IT技术知识

VB.NET2005制作鼠标停留弹出窗口onMouseOver="javascript:showLayer(idname1)" onMouseOut="idname1.style.visibility='hidden'"
DIV id="idname2" style="background-color:yellow;TOP:0px; VISIBILITY: hidden; OVERFLOW: visible; POSITION: absolute;PADDING-TOP: 3px;margin-bottom:9px"
table width="300" class="t1"
tr td width="20"/td
td width="160" align="center"b即时提示：所有知识/b/td
td width="20"/td /tr tr td/td
td
此处显示系统中所有的知识列表 。任何人提交的知识都可以在这里显示 。系统默认的显示方式是按照时间倒排显示 。您可以选择按提交人，知识类型进行排序 。
【关于vb.net鼠标停留事件的信息】br/
还可以通过输入检索词来查询知识 。方法是在输入框中输入内容，然后按检索 。
br/br/bfont color="blue"特别提示：因为知识管理系统是不属于特定项目的，因此无论登陆任何项目，按所有知识所得到的结果都是一样的 。/font/b
/td
td/td /tr tr td/td td/td td/td /tr /table /DIV
vb.net 的screen的mousedown ，mousemove，mouseup事件问题：引用原文：“要是换个思路，先截全屏，然后将窗体全屏，让Picturebox占满全屏幕，但是无论利用什么方法(最大化，boderstyle设为none）都遮挡不了任务栏 。”
解决方法：经测试，代码可以实现你得要求，即能遮挡任务栏 。
设置：在窗体上添加一个PictureBox1,，dock属性设置为Fill 。随便导入一张图片用于显示 。
代码如下：
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.WindowState = FormWindowState.Maximized
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
Me.Close()
End Sub
End Class
程序截图：
VB.NET当鼠标停在屏幕任意地方，得到该点的颜色我有个笨办法，先用API抓图到内存里，然后再在根据你点鼠标的屏幕工作区坐标 ， 去那图里取色 。
-----------------------
'抓图所需的API
Private Declare Function CreateCompatibleDC Lib "GDI32" (ByVal hDC As Integer) As Integer
Private Declare Function CreateCompatibleBitmap Lib "GDI32" (ByVal hDC As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer
Private Declare Function SelectObject Lib "GDI32" (ByVal hDC As Integer, ByVal hObject As Integer) As Integer
Private Declare Function BitBlt Lib "GDI32" (ByVal srchDC As Integer, ByVal srcX As Integer, ByVal srcY As Integer, ByVal srcW As Integer, ByVal srcH As Integer, ByVal desthDC As Integer, ByVal destX As Integer, ByVal destY As Integer, ByVal op As Integer) As Integer
Private Declare Function DeleteDC Lib "GDI32" (ByVal hDC As Integer) As Integer
Private Declare Function DeleteObject Lib "GDI32" (ByVal hObj As Integer) As Integer
Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Integer) As Integer
Const SRCCOPY As Integer = HCC0020
'抓图的部分
Dim hDC, hMDC As Integer
Dim hBMP, hBMPOld As Integer
Dim sw, sh As Integer
hDC = GetDC(0)
hMDC = CreateCompatibleDC(hDC)
sw = Screen.PrimaryScreen.Bounds.Width
sh = Screen.PrimaryScreen.Bounds.Height
hBMP = CreateCompatibleBitmap(hDC, sw, sh)
hBMPOld = SelectObject(hMDC, hBMP)
BitBlt(hMDC, 0, 0, sw, sh, hDC, 0, 0, SRCCOPY)
hBMP = SelectObject(hMDC, hBMPOld)
Dim bmp As Bitmap = Image.FromHbitmap(New IntPtr(hBMP))
DeleteDC(hDC)
DeleteDC(hMDC)
DeleteObject(hBMP)
......
'取点的颜色
bmp.GetPixel(e.X, e.Y)
----------------------------
关键就是这些你自己组合吧，你分给的太少了 ， 很麻烦 ， 恕我不帮你改全了 。如果要仔细帮你改，请另开高分贴，不要用新马甲来

推荐阅读


上一篇：拍摄工地用什么镜头，拍摄星空用什么镜头最好

下一篇：关于推广挣钱棋牌游戏的信息