ÇóÖú£¡VBÖÐpicturebox¿Ø¼þÓÃAPI»Í¼µÄ×ø±êÎÊÌ⣡
ÎÒÔøÓÃpictureboxµÄlineº¯Êý»Í¼£¬ÏëÌá¸ßÔËÐÐËÙ¶È£¬ÏÖÔÚÏëÓÃAPI¡£VBĬÈϵĵ¥Î»ÊÇç¾£¬×ø±êÔµãÔÚ×óÉϽǣ¬XÕý·½ÏòÏòÓÒΪ255¸öµ¥Î»£¬YµÄÕý·½ÏòÏòÏÂΪ100µ¥Î»¡£¶øAPIÖÐĬÈϵÄÊÇÏñËØ£¬ÏëÇë½Ì¸÷λ¸ßÊÖ£¬ÎÒÓ¦¸ÃÓÃAPIÔõÑù±àд£¬ÄÜ´ïµ½ºÍÒÔǰͬÑùµÄЧ¹û£¿Ð»Ð»¸÷λ£¡
1ÏñËØ=15ç¾
Äܲ»ÄÜ»»pictureboxµÄscalemode
»Ø¸´zhao4zhong1
1ÏñËØ=15ç¾£¬Ó¦¸ÃÔÚÄÇÀï¸ÄÄØ£¿ÔÚlinetoº¯ÊýÖÐÂð£¿
»Ø¸´patrickkong
ÎÒÊÔ¹ýÁË£¬ËƺõûÓÐÓã¬ÄãÊÇ·ñÓùýÄØ£¿ÄÜ˵µÄ¾ßÌåЩÂð£¿
VB code:
Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Const PS_SOLID = 0
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As Long) As Long
Private Sub Command1_Click()
Picture1.AutoRedraw = True
Picture1.Scale (0, 0)-(255, 100)
Picture1.Line (20, 20)-(80, 80), vbRed
End Sub
Private Sub Command2_Click()
Dim ret As Long
Dim re As Long
Dim re1 As Long
Picture1.ScaleMode = 3
Picture1.Scale (0, 0)-(255, 100)
Picture1.AutoRedraw = True
X1 = Int(20 * Picture1.Width / 255 / Screen.TwipsPerPixelX)
Y1 = Int(20 * Picture1
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html
Éæ¼°µ½Ëã·¨£¬goog ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......