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 iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......