• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Tạo hyperlink cho một đối tượng trong VB6

Góc trao đổi, hỏi đáp của ngôn ngữ Visual Basic 6 và Visual Basic Script

Điều hành viên: tungblt

dntuanphysics
Bài viết: 8
Ngày tham gia: T.Hai 01/03/2010 2:33 pm

Tạo hyperlink cho một đối tượng trong VB6

Gửi bàigửi bởi dntuanphysics » T.Ba 02/03/2010 3:05 pm

Xin chào cả nhà. Mình đang tạo một phần mềm ứng dụng nhưng bị bí chỗ này: Mình có một đối tượng hình ảnh, mình muốn tạo liên kết cho hình ảnh đó đến một địa chỉ web (mình làm được) nhưng mình muốn khi trỏ chuột vào hình đó thì trỏ chuột đổi thành hình chỉ tay (chưa biết làm). Hơn nữa, mình muốn khi mình nhấp vào hình đó, phần mềm của mình sẽ dẫn tới trang web có địa chỉ cho trước mà bằng web browser mặc định trên máy (Opera, FireFox...) thì làm sao hả các bạn? Vì bây giờ mình đang cho phần mềm chạy bằng Web Browser mặc định trong VB6, nó hoạt động dưới dạng form, chứ không phải là Web Browser như IE, Opera hay FireFox. Làm ơn chỉ giúp mình cái. Cám ơn các bạn rất nhiều.

tindl88
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 362
Ngày tham gia: T.Bảy 26/04/2008 6:10 pm
Has thanked: 16 time
Been thanked: 9 time

Re: Tạo hyperlink cho một đối tượng trong VB6

Gửi bàigửi bởi tindl88 » T.Ba 02/03/2010 9:10 pm

bạn dùng api ShellExecute

  1. ShellExecute 0, "open", "http://link_web_dat_o_day.com", 0, 0, 1
cứng nhắc...vớ vẩn

Hình đại diện của người dùng
Kasper
Guru
Guru
Bài viết: 1022
Ngày tham gia: T.Sáu 16/05/2008 10:54 am
Has thanked: 2 time
Been thanked: 72 time
Liên hệ:

Re: Tạo hyperlink cho một đối tượng trong VB6

Gửi bàigửi bởi Kasper » T.Tư 03/03/2010 8:27 am

Muốn đổi con trỏ chuột thành bàn tay thì rất dễ.
  1. ' Set thuộc tính MousePointer = 99-Custom
  2. ' Trong event MouseMove, code như sau:
  3. Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  4.     Picture1.MouseIcon = LoadPicture("Đường dẫn đến file cursor") ' Tui đính kèm cho bạn cursor hình bàn tay.
  5. End Sub
  6.  


Để tiện hơn nữa thì bạn có thể đưa cursor bàn tay này vào file res (dùng VB 6 Resource Editor trong menu Add-Ins).
Lúc đó thay vì dùng hàm LoadPicture thì bạn dùng hàm LoadResPicture.
Tập tin đính kèm
hand.zip
(238 Byte) Đã tải 143 lần
Lành tợ tòng, ác tợ hoa,
Nhà hòa muôn việc đều nên.

Hình đại diện của người dùng
thuongall
Quản trị
Quản trị
Bài viết: 455
Ngày tham gia: T.Tư 26/01/2005 8:05 am
Đến từ: Quê hương Đồng Khởi
Been thanked: 9 time
Liên hệ:

Re: Tạo hyperlink cho một đối tượng trong VB6

Gửi bàigửi bởi thuongall » T.Tư 03/03/2010 8:55 am

Còn nếu muốn không mang theo tập tin cursor hình bàn tay (phòng khi bị thất lạc, trừ khi cho vào Resource) thì dùng API như sau:
  1. Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
  2. Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
  3. Private Const IDC_HAND = 32649&
  4.  
  5. Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  6.     Dim hCursor As Long
  7.     hCursor = LoadCursor(0&, IDC_HAND)
  8.     hCursor = SetCursor(hCursor)
  9. End Sub

dntuanphysics
Bài viết: 8
Ngày tham gia: T.Hai 01/03/2010 2:33 pm

Re: Tạo hyperlink cho một đối tượng trong VB6

Gửi bàigửi bởi dntuanphysics » T.Tư 03/03/2010 1:48 pm

Cám ơn các bạn nhiều nha. Các bạn PRO lắm. Hehe, chẳng biết khi nào mới lên tới đẳng cấp của các bạn nữa?

Bạn có thể chỉ cho mình cụ thể chỗ này được không? Mình làm hiện bàn tay rồi, nhưng làm sao cho nó vào File Resource được vậy, mình mở ra nhưng không biết làm sao cho vô. Hehe :D . Nhân tiện cả nhà cho mình hỏi, các bạn có biết cách làm hiệu ứng cho button không? Mình ví dụ khi trỏ chuột vào button (hoặc đối tượng button bằng hình ảnh tự tạo) thì nó to lên hoặc ít nhất là nhúc nhích hoặc bèo lắm là sáng lên. Làm ơn chỉ giáo cho mình với. Cám ơn cả nhà.
Sửa lần cuối bởi dntuanphysics vào ngày T.Tư 03/03/2010 2:39 pm với 2 lần sửa.

Hình đại diện của người dùng
xuanquy_th
Guru
Guru
Bài viết: 787
Ngày tham gia: T.Ba 05/08/2008 9:15 pm
Đến từ: Thanh Hoá
Has thanked: 1 time
Been thanked: 10 time
Liên hệ:

Re: Tạo hyperlink cho một đối tượng trong VB6

Gửi bàigửi bởi xuanquy_th » T.Tư 03/03/2010 1:52 pm

Hãy tin (Bằng tâm huyết và sự phấn đấu) rằng một ngày gần đây nhât xẽ lên được thì ngày đó xẽ càng đến nhanh hơn
Khi Chúa Trời đóng cánh cửa này lại, Ngài sẽ mở một cánh cửa khác cho ta.
Nhưng ta thường nhìn quá lâu vào cánh cửa đã đóng nên không thấy được có một cánh cửa khác đang mở ra cho ta!!!

Hình đại diện của người dùng
Kasper
Guru
Guru
Bài viết: 1022
Ngày tham gia: T.Sáu 16/05/2008 10:54 am
Has thanked: 2 time
Been thanked: 72 time
Liên hệ:

Re: Tạo hyperlink cho một đối tượng trong VB6

Gửi bàigửi bởi Kasper » T.Năm 04/03/2010 8:29 am

Button = hình ảnh -> tạo hiệu ứng khi move chuột -> đổi hình khác: đó là 1 cách.
Dùng VB6 Resource editor:
Menu Add-Ins -> Add-In Manager ... -> Double click vào dòng VB 6 Resource Editor -> OK
Lúc này trên thanh icon sẽ xuất hiện thêm 1 icon của VB Resource Editor (hình khối màu xanh do nhiều hình vuôn nhỏ ghép lại)
Sử dụng: click vào icon đó, sẽ thấy hiện một cửa sổ. Để add một cursor vào file resource, ta chọn biểu tượng add cursor (hình chon trỏ và đồng hồ cát) sau đó chỉ đến đường dẫn chứa file cursor.
Bạn nên chú ý đến số ID của cursor để trong chương trình khi ta dùng hàm LoadResPicture sẽ truyền vào.
Khi dùng hàm LoadResPicture(tham so 1, tham so 2) bạn lưu ý:
- Tham số 1: là ID
- Tham số 2: là restype, cursor là số 2
Ví dụ: khi add 1 cursor lần đầu vào, hệ thống sẽ đặt ID là 101, khi đó: để sử dụng cursor này ta code như sau: LoadResPicture(101, 2)
Lành tợ tòng, ác tợ hoa,
Nhà hòa muôn việc đều nên.

dntuanphysics
Bài viết: 8
Ngày tham gia: T.Hai 01/03/2010 2:33 pm

Re: Tạo hyperlink cho một đối tượng trong VB6

Gửi bàigửi bởi dntuanphysics » T.Sáu 05/03/2010 8:04 am

Cám ơn bạn nhiều lắm Kasper. Mình add được rồi. Nhưng còn mấy câu hỏi khác mình chưa làm được. Mong Kasper và cả nhà giúp một tay với.

tindl88
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 362
Ngày tham gia: T.Bảy 26/04/2008 6:10 pm
Has thanked: 16 time
Been thanked: 9 time

Re: Tạo hyperlink cho một đối tượng trong VB6

Gửi bàigửi bởi tindl88 » T.Sáu 05/03/2010 5:30 pm

Nhiêu đây là đủ, muốn có Cursor khác thì bạn dùng Resource như Kasper hd.
  1. Option Explicit
  2.  
  3. Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
  4. Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
  5. 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
  6. Private Const IDC_HAND = 32649&
  7.  
  8. Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  9.     'Khi rê chuột vào Picture hiện cursor hình bàn tay
  10.    Dim hCursor As Long
  11.     hCursor = LoadCursor(0&, IDC_HAND)
  12.     hCursor = SetCursor(hCursor)
  13. End Sub
  14.  
  15. Private Sub Picture1_Click()
  16.     'Mở web theo trình duyệt mặc định
  17.    ShellExecute 0, "open", "http://google.com", 0, 0, 1
  18. End Sub
cứng nhắc...vớ vẩn


Quay về “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.3 khách