Implementation method of "hyperlink" in VB6

xiaoxiao2021-03-06  13

The mouse pointing shape (i.e., when the mouse is moved to the label, the value of the mouseicon is hand shape, and the mousepointer is set to 99-Custom) for the palm. After setting the control properties, you can write the program code.

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

Private sub label1_click () Call Shellexecute (Form1.hWnd, "Open", "http://shadanet.com", vbnullstring, vbnullstring, & h0) Call shellexecute (Form1.hwnd, "Open", "Mailto: WQRZ @ 163. COM ",", app.path, 1) end sub

转载请注明原文地址:https://www.9cbs.com/read-48828.html

New Post(0)