如何在 VB 中更改窗體之外的滑鼠形狀？

呼叫 API 更改滑鼠形狀。

這個問題我不太明白，但是如果你不知道滑鼠指標的值和對應滑鼠的形狀，很容易做到。 直接在右側屬性欄中修改滑鼠指標的值，然後在窗體的形狀上執行 look 滑鼠。 例如，2（十字）是十字形，3（工字梁）是“i”的形狀。

mouseicon

是滑鼠的自定義圖示。

和。 mousepointer

標準圖示。 箭頭 0 十字 1

1 15 是系統的定義，99 是自定義的，滑鼠指標形狀由 Nengazhi 的 mouseicon 屬性決定。

private declare function showcursor lib "user32" (byval bshow as long) as long

private sub form_mousemove(button as integer, shift as integer, x as single, y as single)

if x >= and x <= + and y >= and y <= + then

showcursor 0

elseshowcursor 1

end if

end sub

在VB中執行沒有效果，您必須將其轉換為exe檔案並再次執行。

將 label1 的 mousepointer 屬性的值設定為 99

mouseicon 屬性設定為小手形圖示，您可以在 C： Windows Cursors 目錄中找到該圖示。

private sub command1_click()= int(rnd * 16)

end sub

呵呵，不要離開形式。 如果你出去，它不會起作用。

我已經很久沒有使用VB了，我忘記了很多，但是您可以在屬性面板中找到它。

這不需要任何程式。