Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 设置lbmail的 MouseIcon =99Private Sub lbMail_Click() ShellExecute hWnd, "OPEN", "mailto:[email protected]", 0, 0, 5 End Sub
如果你有,麻烦你可不可以邮件发给我!
e_mail: [email protected]
在属性里设置MouseIcon就行了
如果你要这方面的代码留下你的信箱
我发给你
设置lbmail的 MouseIcon =99Private Sub lbMail_Click()
ShellExecute hWnd, "OPEN", "mailto:[email protected]", 0, 0, 5
End Sub
在“控制面板|鼠标|指针”里最后面就有这个手状的图片。贴下来,用VC自己做一个就完了。