當(dāng)然可以，MousePointer屬性就是設(shè)置鼠標(biāo)指針形狀的屬性，有0～98種可以選擇，如果這么多種你還不滿意，就將其屬性設(shè)置為99，然后將MouseIcon屬性選擇一個(gè)以.ico或.cur為擴(kuò)展名的圖標(biāo)就行了，那個(gè)圖標(biāo)就是你鼠標(biāo)的形狀。
創(chuàng)新互聯(lián)專注于臨泉網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供臨泉營(yíng)銷型網(wǎng)站建設(shè)，臨泉網(wǎng)站制作、臨泉網(wǎng)頁(yè)設(shè)計(jì)、臨泉網(wǎng)站官網(wǎng)定制、小程序定制開(kāi)發(fā)服務(wù)，打造臨泉網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供臨泉網(wǎng)站排名全網(wǎng)營(yíng)銷落地服務(wù)。
屬性里面先把UseWaitCursor改為true然后再改Cursor的屬性。選擇一個(gè)你要的形狀
VB設(shè)置鼠標(biāo)的指針樣式，可設(shè)置窗口中的鼠標(biāo)樣式和系統(tǒng)中的鼠標(biāo)指針樣式，通過(guò)操作窗口中的菜單，你就可以很方便的改變鼠標(biāo)樣式，下面是我給大家整理的一些相關(guān)解決 方法 步驟，希望對(duì)大家有幫助!
VB怎么更改鼠標(biāo)指針樣式
這是窗體代碼：
01VERSION 5.00
02Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
03Begin VB.Form Form1
04 Caption = "鼠標(biāo)樣式設(shè)置器"
05 ClientHeight = 3210
06 ClientLeft = 165
07 ClientTop = 735
08 ClientWidth = 5490
09 LinkTopic = "Form1"
10 ScaleHeight = 3210
11 ScaleWidth = 5490
12 StartUpPosition = 3 '窗口缺省
13 Begin MSComDlg.CommonDialog CommonDialog1
14 Left = 2640
15 Top = -45
16 _ExtentX = 847
17 _ExtentY = 847
18 _Version = 393216
19 End
20 Begin VB.Menu SetMouse
21 Caption = "設(shè)置鼠標(biāo)樣式"
22 Begin VB.Menu SetSysMouse
23 Caption = "設(shè)置系統(tǒng)鼠標(biāo)樣式"
24 End
25 Begin VB.Menu BackSysMouse
26 Caption = "恢復(fù)系統(tǒng)鼠標(biāo)樣式"
27 End
28 Begin VB.Menu SetFormMouse
29 Caption = "設(shè)置窗體鼠標(biāo)樣式"
30 End
31 Begin VB.Menu BackFormMouse
32 Caption = "恢復(fù)窗體鼠標(biāo)樣式"
33 End
34 End
35End
36Attribute VB_Name = "Form1"
37Attribute VB_GlobalNameSpace = False
38Attribute VB_Creatable = False
39Attribute VB_PredeclaredId = True
40Attribute VB_Exposed = False
41Option Explicit
42Const OCR_NORMAL = 32512
43Const IDC_ARROW = 32512
44Const SPI_SETCURSORS = 87
45Const SPIF_SENDWININICHANGE = H2
46Const OCR_NORAAC = 32512 '標(biāo)準(zhǔn)
47Const GCL_HCURSOR = (-12)
48' const OCR_APPSTARTING = 32650 '小的沙漏
49' const OCR_HAND = 32649 '手
50' const OCR_NO = 32648 '圓
51' const OCR_SIZEALL = 32646 '十
52' const OCR_WAIT = 32514 '沙漏
53Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String)As Long
54Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, _
55 ByVal id As Long) As Long
56Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, _
57 ByVal uParam As Long, _
58 ByRef lpvParam As Any, _
59 ByVal fuWinIni As Long _
60 ) As Long
61Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, _
62 ByVal nIndex As Long, _
63 ByVal dwNewLong As Long _
64 ) As Long
65Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, _
66 ByVal nSize As Long _
67 ) As Long
68Dim hCursor As Long
69Private Sub BackFormMouse_Click() '恢復(fù)窗體鼠標(biāo)的樣式
70 Dim sPath As String * 260 '定義路徑
71 GetSystemDirectory sPath, Len(sPath)
72 hCursor = LoadCursorFromFile(sPath)
73 SetClassLong Me.hwnd, GCL_HCURSOR, hCursor
74End Sub
75Private Sub BackSysMouse_Click() '恢復(fù)系統(tǒng)鼠標(biāo)的樣式
76 SystemParametersInfo SPI_SETCURSORS, 0, 0, SPIF_SENDWININICHANGE
77End Sub
78Private Sub SetFormMouse_Click() '設(shè)置窗體的鼠標(biāo)樣式
79 CommonDialog1.Filter = "CUR文件(*.cur)|*.cur|ANI文件(*.ani)|*.ani|所有文件|(*.*)"
80 CommonDialog1.ShowOpen
81 CommonDialog1.CancelError = False
82 If CommonDialog1.FileName "" Then
83 hCursor = LoadCursorFromFile(CommonDialog1.FileName)
84 SetClassLong Me.hwnd, GCL_HCURSOR, hCursor
85 End If
86End Sub
87Private Sub SetSysMouse_Click() '設(shè)置系統(tǒng)鼠標(biāo)樣式
88 CommonDialog1.Filter = "CUR文件(*.cur)|*.cur|ANI文件(*.ani)|*.ani|所有文件|(*.*)"
89 CommonDialog1.ShowOpen
90 CommonDialog1.CancelError = False
91 If CommonDialog1.FileName "" Then
92 hCursor = LoadCursorFromFile(CommonDialog1.FileName)
93 Call SetSystemCursor(hCursor, OCR_NORMAL)
94 End If
95End Sub
程序運(yùn)行截圖如下圖所示：
相關(guān)拓展：vb如何控制鼠標(biāo)
主要是要通過(guò)兩個(gè)方面：
(一)對(duì)鼠標(biāo)的停留位置做出判斷，也就是得到鼠標(biāo)在屏幕上停留的位置。
(二)將鼠標(biāo)的移動(dòng)到所確定的位置上。 而實(shí)現(xiàn)這個(gè)功能則要使用到SetCursorPos這個(gè)函數(shù)，此函數(shù)的功能是設(shè)定鼠標(biāo)位置。
這個(gè)函數(shù)的聲明如下：
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
而僅僅有這個(gè)函數(shù)是不夠的，還需要定義一個(gè)type格式的自定義變量。定義為：
Public Type POINTAPI
x As Long
y As Long
End Type
它用于存放鼠標(biāo)的位置(屏幕上的位置)。
但是一個(gè)新的問(wèn)題又出現(xiàn)了：鼠標(biāo)到底放在哪里呢?也就是如何獲得屏幕上的位置。
這個(gè)問(wèn)題就要用到另一個(gè)函數(shù)：GetCursorPos，它的功能是獲得屏幕上鼠標(biāo)的坐標(biāo)。
它的聲明如下：
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
這樣就可以通過(guò)GetCursorPos函數(shù)獲得鼠標(biāo)的位置，存放到一個(gè)POINTAPI變量中，再通過(guò)SetCursorPos函數(shù)來(lái)設(shè)置鼠標(biāo)的位置。
這樣就可以十分順利的來(lái)控制鼠標(biāo)了!
屬性里面先把UseWaitCursor改為true然后再改Cursor的屬性。選擇一個(gè)你要的形狀
題目沒(méi)看太明白,,,如果你是不知道m(xù)ousepointer的值以及相應(yīng)的鼠標(biāo)的形狀,那就好辦咯。在右邊的屬性欄直接修改mousepointer的值
,然后運(yùn)行觀查鼠標(biāo)在窗體上的形狀就行了。比如2(cross)就是十字交叉形狀,而3(i-beam)就是“i”的形狀咯。
Dim?mc?As?System.Windows.Forms.Cursor
mc?=?Cursors.Arrow
mc當(dāng)前獲取就是箭頭鼠標(biāo)
重慶分公司
重慶分公司
