vb.net 鼠標(biāo)停留在label，textbox上時(shí)，如何顯示提示信息

Label 控件用于顯示用戶不能編輯的文本或圖像。含義：用于顯示標(biāo)簽

成都創(chuàng)新互聯(lián)2013年至今，是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目成都做網(wǎng)站、成都網(wǎng)站設(shè)計(jì)網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢(mèng)想脫穎而出為使命，1280元鯉城做網(wǎng)站,已為上家服務(wù),為鯉城各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:13518219792

TextBox 控件通常用于可編輯文本，不過(guò)也可使其成為只讀控件，文本框用于獲取用戶輸入或顯示文本。

這就是區(qū)別，Label只能顯示，而TextBox可以修改，輸入數(shù)據(jù)

VB.NET2005制作鼠標(biāo)停留彈出窗口

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即時(shí)提示：所有知識(shí)/b/td

td width="20"/td /tr tr td/td

td

此處顯示系統(tǒng)中所有的知識(shí)列表。任何人提交的知識(shí)都可以在這里顯示。系統(tǒng)默認(rèn)的顯示方式是按照時(shí)間倒排顯示。您可以選擇按提交人，知識(shí)類型進(jìn)行排序。

br/

還可以通過(guò)輸入檢索詞來(lái)查詢知識(shí)。方法是在輸入框中輸入內(nèi)容，然后按檢索。

br/br/bfont color="blue"特別提示：因?yàn)橹R(shí)管理系統(tǒng)是不屬于特定項(xiàng)目的，因此無(wú)論登陸任何項(xiàng)目，按所有知識(shí)所得到的結(jié)果都是一樣的。/font/b

/td

td/td /tr tr td/td td/td td/td /tr /table /DIV

VB.NET當(dāng)鼠標(biāo)停在屏幕任意地方，得到該點(diǎn)的顏色

我有個(gè)笨辦法，先用API抓圖到內(nèi)存里，然后再在根據(jù)你點(diǎn)鼠標(biāo)的屏幕工作區(qū)坐標(biāo)，去那圖里取色。

-----------------------

'抓圖所需的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)

......

'取點(diǎn)的顏色

bmp.GetPixel(e.X, e.Y)

----------------------------

關(guān)鍵就是這些你自己組合吧，你分給的太少了，很麻煩，恕我不幫你改全了。如果要仔細(xì)幫你改，請(qǐng)另開(kāi)高分貼，不要用新馬甲來(lái)