Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

Vb¸ßÊÖ°ï°ïæ°É~~Íò·Ö¸Ð¼¤£¡£¡£¡£¡

ÎÒÏÖÔÚ³õѧ£¬×Ô¼ºÏë×öһЩС³ÌÐò£¬ÏÖÔÚ³öÏÖÁ½¸öÎÊÌ⣺
1£ºÈçºÎÓÃÊó±ê×ó¼ü°´ÏÂÀ´Òƶ¯´°¿Ú£¬ËÉ¿ªÊÖ£¬Í£Ö¹Òƶ¯¡£
2£ºÈçºÎ°Ñ¼¸°´Å¥¿Ø¼þǶµ½Ò»¸ö´óµÄ°´Å¥ÉÏ£¬µã»÷´ó°´Å¥µÄÈÎÒâÒ»´¦£¬¿ÉÒÔÍ¬Ê±ÒÆ¶¯~
СŮ×ÓÔÚÕâ¸Ð¼¤²»¾¡£º£©
Cathy, Ïêϸµã¡£

µÚÒ»¸öÎÊÌâ¿ÉÒÔÏàÓ¦Êó±êµÄmoveʼþ ¶¨ÒåÒ»¸ö²ÎÊýÓëÊó±ê×ó¼ü°´Ï¹ØÁª
Èç¹ûÊó±ê°´Ï ÔÙÖ´ÐÐÒÆ¶¯²Ù×÷ ͨ¹ý¹ØÁª´°ÌåµÄλÖúÍÊó±êÖ¸ÕëµÄλÖÃÀ´ÊµÏÖ´°ÌåλÖõÄÒÆ¶¯


Äܲ»ÄÜ˵Ã÷°×µãÄØ£¿ÎÒ³õѧ£¬¶Ô¿âÀïµÄº¯Êý¶¼²»ÔõôÊìϤ


1¡¢
Dim t, tx, ty
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
t = True
tx = X
ty = Y
End If

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If t = True Then
    Form1.Top = Y + Form1.Top - ty
    Form1.Left = X + Form1.Left - tx
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
t = False
End Sub

2¡¢ÓÃpicturebox×öÈÝÆ÷ÆäËü°´Å¥µÄÈÝÆ÷£¬²¢ÇÒËü×ö´ó°´Å¥¡£



1. Ìí¼Ó Text1  Picture1¡¡ÊÔ×ÅÍ϶¯ËüÃÇ

Option Explicit
'*****************************************ÒÆ¶¯´°Ìå
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias &


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

ÓÃVB±àдTXTÎĵµ - .NET¼¼Êõ / VB.NET

ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ

googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ

Ö±½Óµ÷²éÓþͿÉÒÔÁË

Ãæ¶ÔÃÀÅ® ......

vb¿ÉÒÔÕâÑù×ö²»£¿ - VB / ·Ç¼¼ÊõÀà

¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡

¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿

2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£

........................¿ÉÒÔÂð

¿ÉÒÔ!


  ¾À½á£¬

29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
 A. ......

VB µ÷Óà vc ±àдµÄdll - C/C++ / C++ ÓïÑÔ

ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ