Tạo Link Label cho ứng dụng

Các thủ thuật liên quan đến việc xử lý ứng dụng, biểu mẫu và control
Đăng trả lời
Hình đại diện của thành viên
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: Thứ 4 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 32 times
Tiếp xúc:

Tạo Link Label cho ứng dụng

Gửi bài by clarkkent »

Thủ thuật: Tạo Link Label cho ứng dụng
Tác giả: Nguyễn Trung Tín
Mô tả: Tạo Link Label cho ứng dụng


Ta sẽ có 2 Label. Label1 dùng làm link tới 1 trang web, Label2 dùng để gửi mail...
LinkLabel.PNG
LinkLabel.PNG (6.68 KiB) Đã xem 10600 lần

Mã: Chọn tất cả

Private Declare Function ShellExecute Lib "shell32" 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 LongPrivate Declare Function GetDesktopWindow Lib "user32" () As LongPrivate Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As LongPrivate Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long Private Const SW_SHOWNORMAL As Long = 1Private Const SW_SHOWMAXIMIZED As Long = 3Private Const SW_SHOWDEFAULT As Long = 10 Const IDC_HAND As Long = &H7F89Dim hCursor As Long Private Sub Form_Load()With Label1        .ForeColor = clrLinkInactive        .Caption = "http://caulacbovb.com/forum/"   End With   hCursor = LoadCursor(ByVal 0&, IDC_HAND)End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)        Label1.ForeColor = vbBlack        Label1.Font.Underline = False        Label2.ForeColor = vbBlack        Label2.Font.Underline = FalseEnd Sub Private Sub Label1_Click()    Dim sURL As String    sURL = Label1.Caption    Call RunShellExecute("open", sURL, 0&, 0&, SW_SHOWNORMAL)End Sub Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)    Label1.ForeColor = vbBlue    Label1.Font.Underline = True    'Set con chuột có hình bàn tay    SetCursor hCursorEnd Sub Private Sub RunShellExecute(sTopic As String, sFile As Variant, sParams As Variant, sDirectory As Variant, nShowCmd As Long)   Call ShellExecute(GetDesktopWindow(), sTopic, sFile, sParams, sDirectory, nShowCmd)End Sub Private Sub Label2_Click()    ShellExecute hwnd, "open", "mailto:" & Label2.Caption, vbNullString, vbNullString, SW_SHOWEnd Sub Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)    Label2.ForeColor = vbBlue    Label2.Font.Underline = True    'Set con chuột có hình bàn tay    SetCursor hCursorEnd Sub 
Tập tin đính kèm
LinkLabel.rar
Tạo Link Label cho ứng dụng
(1.58 KiB) Đã tải về 1084 lần
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...
Hình đại diện của thành viên
Dang Minh Du
Thành viên ưu tú
Thành viên ưu tú
Bài viết: 531
Ngày tham gia: Thứ 4 02/04/2008 2:08 pm
Đến từ: RGames Team
Has thanked: 3 times
Been thanked: 17 times
Tiếp xúc:

Re: Tạo Link Label cho ứng dụng

Gửi bài by Dang Minh Du »

Code của em ngắn hơn, áp dụng cho control thì tiện hơn :D , chỉ dùng shell và một ít thuật khác :D
~°Dòng Sông Mùa Thu°~
Studying...!
tienlbhoc
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 415
Ngày tham gia: Thứ 7 14/07/2007 10:06 pm
Đến từ: Hà Nội
Been thanked: 1 time

Re: Tạo Link Label cho ứng dụng

Gửi bài by tienlbhoc »

dotnet hình như có sẵn :D
Diễn đàn và blog phần mềm tự làm :
http://my.opera.com/DienDanTienlbhoc/forums/
http://my.opera.com/tienlbhoc/blog/
Hình đại diện của thành viên
Kỳ Nam
Guru
Guru
Bài viết: 510
Ngày tham gia: Chủ nhật 12/08/2007 8:47 pm
Đến từ: Qui Nhơn
Been thanked: 1 time
Tiếp xúc:

Re: Tạo Link Label cho ứng dụng

Gửi bài by Kỳ Nam »

tienlbhoc đã viết:dotnet hình như có sẵn :D
ngoại đạo kiếm chỗ khác chơi

lần đầu tiên dô 1 mục của VB6 , vì muốn biết tienlbhoc phát biểu gì trong đây
tienlbhoc
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 415
Ngày tham gia: Thứ 7 14/07/2007 10:06 pm
Đến từ: Hà Nội
Been thanked: 1 time

Re: Tạo Link Label cho ứng dụng

Gửi bài by tienlbhoc »

lần đầu vào box vb => không biết vb , thế mà còn chê người khác ;))
Diễn đàn và blog phần mềm tự làm :
http://my.opera.com/DienDanTienlbhoc/forums/
http://my.opera.com/tienlbhoc/blog/
Hình đại diện của thành viên
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: Thứ 4 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 32 times
Tiếp xúc:

Re: Tạo Link Label cho ứng dụng

Gửi bài by clarkkent »

tienlbhoc đã viết:dotnet hình như có sẵn :D
Phải lả C# chứ :D
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...
Hình đại diện của thành viên
vo_minhdat2007
Quản trị
Quản trị
Bài viết: 2227
Ngày tham gia: Chủ nhật 17/07/2005 1:40 am
Has thanked: 13 times
Been thanked: 87 times
Tiếp xúc:

Re: Tạo Link Label cho ứng dụng

Gửi bài by vo_minhdat2007 »

clarkkent đã viết:
tienlbhoc đã viết:dotnet hình như có sẵn :D
Phải lả C# chứ :D
.NET là có cả : Label Link là một control chuẩn hẳn hoi >:) .
P/S Sorry vì lạc box :D
NightMarez
Bài viết: 5
Ngày tham gia: Thứ 5 24/07/2008 2:50 pm

Re: Tạo Link Label cho ứng dụng

Gửi bài by NightMarez »

Cái này làm khi mousemove vào label thì nó gạch chân và đổi sang màu xanh, khi mousemove vào form lại thì nó xóa đi. Nhưng bây giờ giả sử mouse chưa move vào form mà move vào chỗ khác rồi thì sao nhỉ :-?. Cái này chắc là phải linh hoạt trong khi sử dụng rồi :D
Hình đại diện của thành viên
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: Thứ 4 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 32 times
Tiếp xúc:

Re: Tạo Link Label cho ứng dụng

Gửi bài by clarkkent »

NightMarez đã viết:Cái này làm khi mousemove vào label thì nó gạch chân và đổi sang màu xanh, khi mousemove vào form lại thì nó xóa đi. Nhưng bây giờ giả sử mouse chưa move vào form mà move vào chỗ khác rồi thì sao nhỉ :-?. Cái này chắc là phải linh hoạt trong khi sử dụng rồi :D
Ừ! Nhưng
mouse chưa move vào form mà move vào chỗ khác rồi thì
thì bạn cũng nhanh đấy :D
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...
Hình đại diện của thành viên
Dang Minh Du
Thành viên ưu tú
Thành viên ưu tú
Bài viết: 531
Ngày tham gia: Thứ 4 02/04/2008 2:08 pm
Đến từ: RGames Team
Has thanked: 3 times
Been thanked: 17 times
Tiếp xúc:

Re: Tạo Link Label cho ứng dụng

Gửi bài by Dang Minh Du »

Tạo một hàm isOver cho label, kiểm tra = timer :D
~°Dòng Sông Mùa Thu°~
Studying...!
vanthuy
Thành viên chính thức
Thành viên chính thức
Bài viết: 15
Ngày tham gia: Thứ 4 13/08/2008 11:40 am
Đến từ: Đồng Nai

Re: Tạo Link Label cho ứng dụng

Gửi bài by vanthuy »

;))
bây giờ giả sử mouse chưa move vào form mà move vào chỗ khác rồi thì sao nhỉ .
chỗ khác ư! cứ copy đoạn code trong sự kiện Form_MouseMove quăng zô hết sự kiện MouseMove của mấy "chỗ khác" đó xem. ;;)
mouse chưa move vào form mà move vào chỗ khác rồi thì
thì bạn cũng nhanh đấy
:))
Lúc đó bạn nhanh cỡ nào cũng...bó tay :))
Hình đại diện của thành viên
doicanhden
Thành viên tích cực
Thành viên tích cực
Bài viết: 160
Ngày tham gia: Thứ 4 02/09/2009 4:29 pm
Đến từ: Tp.HCM
Has thanked: 7 times
Been thanked: 3 times
Tiếp xúc:

Re: Tạo Link Label cho ứng dụng

Gửi bài by doicanhden »

Hờ Hờ chưa chắc.
VD nhá: Kéo cái chương trình nào đó nằm chồng lên cái LInk Label, move chuột vô cái LinkLabel, rồi cứ "thong thả" di chuyển chuột sang chương trình nằm ở trên. ---> Lỗi
Đăng trả lời

Quay về