VB lineto ¡¢ MoveToEx ¡¢ ×ÀÃæ»Ïß¡£ - VB / API
ÎÒÏëʵÏÖÔÚ×ÀÃæ»Á½ÌõÏߺáÊúÁ½Ìõ¡£
ΪʲôÎÒÓÃlineto »³öÀ´µÄÆðʼµãÊÇ0£¬0 ¡££¿
Äܲ»ÄÜ×Ô¼ºÉèÖᣣ¿
Èç¹ûÊÇ»µÄÐéÏ߾͸üºÃÁË¡£
Èç¹ûÄÜÔÙÉèÖÃÏÂ͸Ã÷¶È¡£¡£¡£¡£¡£
ҪʵÏÖµÄЧ¹û¡£
ÔÚÆÁÄ»ÖÐÑ뻳öÒ»¸öÊ®×ÖµÄͼ°¸³öÀ´¡£
²»¹ÜÊÇʲôAPI ¡£
Ö»ÒªÄÜʵÏÖÕâ¸öЧ¹û¾Í³É¡£
ÓÃMoveToExÒÆ»±ÊλÖÃ
The MoveToEx function updates the current position to the specified point and optionally returns the previous position.
BOOL MoveToEx(
HDC hdc, // handle to device context
int X, // x-coordinate of new current position
int Y, // y-coordinate of new current position
LPPOINT lpPoint // pointer to old current position
);
×Ô¼º±êÌâÉϲ»ÊÇдÁËmovetoexô, ÄѵÀûÓÃ?
GDI+
ÎÒÓÃÁËmovetoex¡£
²»¹ý»¹ÊÇÔÚ0£¬0ÄÇÀ↑ʼ»°¡¡£
ºÎ²»Ìù´úÂëÄØ£¬ÕâÖÖÇé¿ö£¬ËÖªµÀÄã´úÂëÔõôдµÄ°¡£º£©
VB code:
Option Explicit
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As
Ïà¹ØÎÊ´ð£º
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ϵͳÔÚ¶ą̀µçÄÔÉÏÔËÐУ¬¾ÍÔÚÆäÖÐһ̨µçÄÔÉϲúÉú¡±ÄÚ´æÒç³ö¡°¡£
ÿ̨µçÄÔ²Ù×÷ϵͳ ÅäÖö¼Ò»ÑùµÄ¡£¡£ÇëÎÊÊÇʲôÔÒò£¿
(1)ÓÃÁËÉè¼Æ²»ÍêÉÆµÄ¿Ø¼þ£¬¿Ø¼þ±¾ÉíÓÐÎÊÌ⣬»òÕß²»Ç¡µ±µØÊ¹ÓÃÁËapiº¯Êý¡£
(2)ÎÞÏÞµÄ ......