VB´°ÌåÀ©Õ¹ÎÊÌâ........!
VB¿ÉÒÔͨ¹ýform.height·½·¨½øÐи߶ȵ÷Õû, µ«¶¼ÊÇÔÚÔÓÐheightµÄ»ù´¡ÉÏÏòÏ·½À©Õ¹, ÇëÎÊÓа취ÏòÉÏÀ©Õ¹Âð? (²»Òƶ¯´°ÌåÉÏÏÖÓÐËùÓпؼþµÄλÖÃ)
Ö»ÒªÏòÉÏÀ©Õ¹ÁË,Ò»¶¨¾ÍÒª¸Ä±ä´°ÌåÉÏÏÖÓпؼþµÄλÖÃ(ÒòΪÕâ¸öλÖÃÒ»¶¨ÊÇÏà¶ÔÓÚ´°Ìå×óÉϽÇ×ø±êÀ´ËµµÄ)ÒýÓà ֻҪÏòÉÏÀ©Õ¹ÁË,Ò»¶¨¾ÍÒª¸Ä±ä´°ÌåÉÏÏÖÓпؼþµÄλÖÃ(ÒòΪÕâ¸öλÖÃÒ»¶¨ÊÇÏà¶ÔÓÚ´°Ìå×óÉϽÇ×ø±êÀ´ËµµÄ) vbµÄ×ø±êÊÇ×óÉϽÇ(x,y)Ϊ(0,0),ÏòÉϵ÷,¿Ø¼þ×ø±ê¶¼»á±ä¶¯. ÐÂÊÖÎʵÄÎÊÌâÎ廨°ËÃÅ,ºÜÓÐÏëÏóÁ¦Ñ½ lz¿ÉÒÔ¼ÓÒ»¸öframe£¬°ÑËùÓеĿؼþ·ÅÈëframeÖУ¬ÐèÒªÏòÉÏÀ©Õ¹Ê±£¬°ÑframeµÄtopÐ޸ľͿÉÒÔÁË 樓Ö÷ÏÈ說說為ºÎÒ»¶¨Òª²»ÒÆ動´°體ÄØ? °ï¶¥ÏÈ form.top = form.top - 300 ½øÐи߶ȵ÷Õû ÒýÓà form.top = form.top - 300 ¿ÉÒÔÕâÑù×ö£º VB code: '¼ÙÉèÄãÏ£ÍûÄãµÄ´°ÌåÏòÉÏÀ©Õ¹300' Form.Top = Form.Top - 300 For Each ctl In Me.Controls ctl.Top = ctl.Top + 300 Next ctl Form.Height = Form.Height + 300ÒýÓà ²»Òƶ¯´°ÌåÉÏÏÖÓÐËùÓпؼþµÄλÖà ÒýÓà 8 Â¥ slowgrace µÄ»Ø¸´: ¿ÉÒÔÕâÑù×ö£º VB code'¼ÙÉèÄãÏ£ÍûÄãµÄ´°ÌåÏòÉÏÀ©Õ¹300' Form.Top= Form.Top-300ForEach ctl In Me.Controls
Ïà¹ØÎÊ´ð£º
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£ û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£ XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£ Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£ Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
¸÷λ´óϺ£º ÎÒÓÐÒ»¸öVBµ÷ÓÃË®¾§±¨±íµÄϵͳ£¬±¨±íÊÇ×÷Ϊһ¸öDesignǶÔÚVBÀïµÄ£¬½ñÌì·¢ÏÖ´òÓ¡µÚÒ»Õű¨±íÕý³££¬Í¬ÑùµÄÊý¾Ý£¬ÔÚµã´òÓ¡ÔÙµ÷ÓÃÒ»´Î¾Í»á±¨ Memory FullµÄ´íÎ󣬵«ÊÇ ......
Private Sub Check1_Click() If Check1.Value = 1 Then DTP1.Enabled = True Else DTP1.Enabled = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then DTP2.Enabled = True Else
......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡ ²åÈë֮ǰselectһϰ¢¡£ »òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç IF not Exist( & ......
±ÈÈçÎÒ´ò¿ª×ÀÃæµÄ¡°1.txt¡±Îı¾£¬ÀïÃæµÚÒ»ÐÐÊÇ¡°111¡±£¬ÓÃVBÔõôд¸ö³ÌÐò£¬¿ÉÒÔ¶¨Ê±¸Ä±ä¡°111¡±Îª¡°222¡±£¬ÔÙ¸ô¶Îʱ¼ä±ä³É¡°333¡±£¬Ôõôд ..... ¶ÔÕýÔÚÔËÐеÄÎı¾ÓÐЧÂ𣬶ÔÕýÔÚÔËÐеÄÎı¾Äܲ»ÄÜÂíÉÏ¿´µ½±ä»¯£¨¿ ......