VB/VB.NetÈçºÎʵÏÖÓÃLabelÔÚ²»Í¬Î»ÖÃÒÆ¶¯µÄЧ¹û£¿
»¹¼ÇµÃÉÏ΢ÈíÍøÕ¾¸üÐÂϵͳ²¹¶¡Ê±£¬Ã¿µ±¹´Ñ¡Ò»¸öÉý¼¶Ïîʱ£¬ÔÚµ±Ç°¹´Ñ¡µÄλÖûá³öÏÖÒ»¸ö´øÎÄ×ֵĺڿòƽ»¬µÄ·ÉÏòÒÑÑ¡ÊýÁ¿µÄλÖÃÉϲ¢¼Ó1£¬µ±È¡Ïû¹´Ñ¡Ê±ÒÔÏà·´µÄ·½Ïò´ÓÒÑÑ¡ÊýÁ¿µÄλÖÃÉϷɻز¢¼õ1£¬Õâ¸öЧ¹û¶¯¸ÐÓиöÐÔ£¬ÏÖÔÚÎÒÏëÔÚVBÒ²ÏëʵÏÖÕâÖÖЧ¹û£¬ÇëÎÊÓÃVBÈçºÎʵÏÖ£¿ÓÃʲôËã·¨£¿ Çë¸÷λ´óϺ°ï°ï棬VB6»òVB.Net¶¼¿ÉÒÔ£¡
Ö±½ÓÓÃGDIº¯Êý¶ÔÆÁÄ»DC²Ù×÷¡£ÒýÓà ֱ½ÓÓÃGDIº¯Êý¶ÔÆÁÄ»DC²Ù×÷¡£ ÈçºÎʵÏÖ£¿ ÓÃshape¿Ø¼þÄ£Äâ¡£µ«Òª×¢Ò⣺check¿Ø¼þÖ»ÏÔʾһ¸ö¹³Ñ¡¿ò£¬ÆäÏÔʾÄÚÈÝÓÃÁíÍâµÄlabelʵÏÖ¡£ÒýÓà ÓÃshape¿Ø¼þÄ£Äâ¡£µ«Òª×¢Ò⣺check¿Ø¼þÖ»ÏÔʾһ¸ö¹³Ñ¡¿ò£¬ÆäÏÔʾÄÚÈÝÓÃÁíÍâµÄlabelʵÏÖ¡£ ²»ÖªÔõÑùʵÏÖ£¬ÄÜ·ñ¸ø³öʾÀý´úÂëÂ𣿻ò˼·¡¢Ëã·¨Ò²¿ÉÒÔ£¡ GDI²»¶®£¬¼òµ¥µÄÓÃMoveÃüÁîÀ´ÊµÏÖ£¬´óÖÂÈçÏ£º VB code: Option Explicit Dim lngL As Long Dim lngT As Long Dim lngW As Long Dim lngH As Long Private Sub Command1_Click() Do lngT = lngT + 2 lblMove.Move lngL, lngT DoEvents Loop Until lblMove.Top >= 3000 End Sub Private Sub Form_Load() With lblMove .Left = 0 .Top = 0 lngL = .Left lngT = .Top lngW = .Width lngH = .Height End With End Sub ÒªÊÇÒÆ¶¯Ð§¹ûƽ»¬Ð©£¬¿ÉÔÚÑ»·ÖмÓÉÏSleepº¯Êý£¬Ð§¹û»á¸üºÃ Â¥ÉϵÄ
Ïà¹ØÎÊ´ð£º
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
VB與VB.NET區別ÊÇʲô£¿ ³ýÁËÓï·¨²î²»¶à£¬¼¸ºõ¶¼ÊÇÇø±ð¡£ ×÷ÓÃÖ÷Òª區別ÊÇÊ²Ã´ÄØ? Óò»ÓÃÓÐ .net¿ò¼Ü ÒýÓà Óò»ÓÃÓÐ .net¿ò¼Ü .net¿É·ñÀí½â為Ł ......
http://fp4bmg.blu.livefilestore.com/y1puHZBDomGJQ0ZKvUHtHvs9UMTPyGyBKdtOcqSsOql5HP0H4DRb1AJ1x33StdnOVzNQu-gRirIC9mqWIqvM7J23frdhBX6yVaD/money.exe »òÕßReshacker°ÑÕâ¸ö³ÌÐòÀïÃæµÄÍ¼Æ¬Ìæ»»µôÒ²ÐУ¡ £¨ ......
Õâ¶Î³ÌÐòÖÐ Begin VB.Forms_frmmain BorderStyle = 1 'fixed single Caption = "ËÙËã24" clientHeight = 6375 clientLeft = 154 ......