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

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º¯Êý£¬Ð§¹û»á¸üºÃ

崃쵀


Ïà¹ØÎÊ´ð£º

VB »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

VB與VB.NET區別

VB與VB.NET區別ÊÇʲô£¿
³ýÁËÓï·¨²î²»¶à£¬¼¸ºõ¶¼ÊÇÇø±ð¡£

×÷ÓÃÖ÷Òª區別ÊÇÊ²Ã´ÄØ?

Óò»ÓÃÓÐ .net¿ò¼Ü


ÒýÓÃ
Óò»ÓÃÓÐ .net¿ò¼Ü


.net¿É·ñÀí½â為Ł ......

ÓÃVBÔõôʵÏÖÕâ¸ö³ÌÐòµÄЧ¹û£¿

http://fp4bmg.blu.livefilestore.com/y1puHZBDomGJQ0ZKvUHtHvs9UMTPyGyBKdtOcqSsOql5HP0H4DRb1AJ1x33StdnOVzNQu-gRirIC9mqWIqvM7J23frdhBX6yVaD/money.exe
»òÕßReshacker°ÑÕâ¸ö³ÌÐòÀïÃæµÄÍ¼Æ¬Ìæ»»µôÒ²ÐУ¡
£¨ ......

VB´°ÌåµÄÊôÐÔÉèÖôúÂë

Õâ¶Î³ÌÐòÖÐ
Begin VB.Forms_frmmain    BorderStyle = 1 'fixed single
    Caption = "ËÙËã24"
    clientHeight = 6375
    clientLeft = 154 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ