导航

2007年3月22日

调整RichTextBox的行距(vb6)

摘要： Option ExplicitPrivate Declare Function SendMessage()Function SendMessage& Lib "user32" Alias "SendMessageA" _(ByVal hwnd As Long, ByVal wMsg As Long, _ByVal wParam As Long, lParam As Any)Private Cons... 阅读全文

posted @ 2007-03-22 19:50 pegger 阅读(1130) 评论(0) 推荐(0) 编辑

锁定鼠标在窗体中(vb6)

摘要： Private Declare Sub ClipCursor()Sub ClipCursor Lib "user32" (lpRect As RECT)Private Declare Sub GetClientRect()Sub GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT)Private Declare Sub Cl... 阅读全文

posted @ 2007-03-22 16:05 pegger 阅读(555) 评论(1) 推荐(0) 编辑

移动窗体到鼠标附近(vb6)

摘要： Private Declare Function GetCursorPos()Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPrivate Declare Sub GetClientRect()Sub GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As ... 阅读全文

posted @ 2007-03-22 16:01 pegger 阅读(271) 评论(0) 推荐(0) 编辑

河南恒友科贸有限公司 
电话 ：0371-53733453    传真：0371-65388972
地址：郑州市郑花路8号 E-mail：hengyousoft@QQ.com