• 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

Vi trí dấu nháy trên textbox

Các thủ thuật liên quan đến việc xử lý ứng dụng, biểu mẫu và control
Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4763
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 518 time

Vi trí dấu nháy trên textbox

Gửi bàigửi bởi truongphu » T.Năm 13/08/2009 10:22 am

Thủ thuật: Vi trí dấu nháy trên textbox
Tác giả: clarkkent gởi, truongphu edit
Mô tả: Xác định vị trí dấu nháy trên textbox / pixel



Cần Text1 khá lớn, MultiLine = True

Mã: Chọn hết

  1. Private Declare Function GetCaretPos Lib "user32" (lpPoint As POINTAPI) As Long
  2. Private Type POINTAPI
  3.     X As Long: Y As Long
  4. End Type
  5.  
  6. Private Sub Text1_Change()
  7.     Me.Caption = "X: " & ScaleX(GetTCurs.X, vbPixels, vbTwips) + Text1.Left & " Y: " & ScaleX(GetTCurs.Y, vbPixels, vbTwips) + Text1.Top
  8. End Sub
  9.  
  10. Private Sub Text1_Click()
  11.     Me.Caption = "X: " & ScaleX(GetTCurs.X, vbPixels, vbTwips) + Text1.Left & " Y: " & ScaleX(GetTCurs.Y, vbPixels, vbTwips) + Text1.Top
  12. End Sub
  13.  
  14. Private Function GetTCurs() As POINTAPI
  15.     Dim pt As POINTAPI
  16.     GetCaretPos pt
  17.     GetTCurs.X = pt.X:      GetTCurs.Y = pt.Y
  18. End Function


Tặng CoffeeShop
Tập tin đính kèm
vi tri con tro.rar
(1.19 KiB) Đã tải 505 lần


o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Quay về “[VB] Ứng dụng - Form và Control”

Đ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.0 khách