Thông tin
  • Đánh dấu xác nhận câu hỏi đã được giải quyết để giúp diễn đàn nâng cao chất lượng [cách sử dụng]
  • Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết [nội qui]
  • 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

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

Gửi bàigửi bởi dntuanphysics » Thứ 3 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.
dntuanphysics
 
Bài viết: 8
Ngày tham gia: Thứ 2 01/03/2010 2:33 pm
Đã cảm ơn: 0 lần
Được cảm ơn: 0 lần

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

Gửi bàigửi bởi tindl88 » Thứ 3 02/03/2010 9:10 pm

bạn dùng api ShellExecute

Syntax: [ Download ] [ Hide ]
Using Visual Basic Syntax Highlighting
  1. ShellExecute 0, "open", "http://link_web_dat_o_day.com", 0, 0, 1
Parsed in 0.000 seconds, using GeSHi 1.0.8.11
cứng nhắc...vớ vẩn
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: Thứ 7 26/04/2008 6:10 pm
Đã cảm ơn: 16 lần
Được cảm ơn: 9 lần

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

Gửi bàigửi bởi Kasper » Thứ 4 03/03/2010 8:27 am

Muốn đổi con trỏ chuột thành bàn tay thì rất dễ.
Syntax: [ Download ] [ Hide ]
Using Visual Basic Syntax Highlighting
  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.  
Parsed in 0.000 seconds, using GeSHi 1.0.8.11


Để 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.
Bạn không được cấp phép để xem tập tin đính kèm trong bài viết này.
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 thành viên
Kasper
Guru
Guru
 
Bài viết: 1024
Ngày tham gia: Thứ 6 16/05/2008 10:54 am
Đã cảm ơn: 2 lần
Được cảm ơn: 72 lần

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

Gửi bàigửi bởi thuongall » Thứ 4 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:
Syntax: [ Download ] [ Hide ]
Using Visual Basic Syntax Highlighting
  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
Parsed in 0.016 seconds, using GeSHi 1.0.8.11
Hình đại diện của thành viên
thuongall
Quản trị
Quản trị
 
Bài viết: 455
Ngày tham gia: Thứ 4 26/01/2005 8:05 am
Đến từ: Quê hương Đồng Khởi
Đã cảm ơn: 0 lần
Được cảm ơn: 9 lần

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

Gửi bàigửi bởi dntuanphysics » Thứ 4 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 Thứ 4 03/03/2010 2:39 pm với 2 lần sửa trong tổng số.
dntuanphysics
 
Bài viết: 8
Ngày tham gia: Thứ 2 01/03/2010 2:33 pm
Đã cảm ơn: 0 lần
Được cảm ơn: 0 lần

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

Gửi bàigửi bởi xuanquy_th » Thứ 4 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 thành viên
xuanquy_th
Guru
Guru
 
Bài viết: 787
Ngày tham gia: Thứ 3 05/08/2008 9:15 pm
Đến từ: Thanh Hoá
Đã cảm ơn: 1 lần
Được cảm ơn: 10 lần

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

Gửi bàigửi bởi Kasper » Thứ 5 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.
Hình đại diện của thành viên
Kasper
Guru
Guru
 
Bài viết: 1024
Ngày tham gia: Thứ 6 16/05/2008 10:54 am
Đã cảm ơn: 2 lần
Được cảm ơn: 72 lần

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

Gửi bàigửi bởi dntuanphysics » Thứ 6 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.
dntuanphysics
 
Bài viết: 8
Ngày tham gia: Thứ 2 01/03/2010 2:33 pm
Đã cảm ơn: 0 lần
Được cảm ơn: 0 lần

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

Gửi bàigửi bởi tindl88 » Thứ 6 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.
Syntax: [ Download ] [ Hide ]
Using Visual Basic Syntax Highlighting
  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
Parsed in 0.000 seconds, using GeSHi 1.0.8.11
cứng nhắc...vớ vẩn
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: Thứ 7 26/04/2008 6:10 pm
Đã cảm ơn: 16 lần
Được cảm ơn: 9 lần


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

Ai đang trực tuyến?

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