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

[VB]¼òµ¥Timer

Public Class Form1
Dim x As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
x = 1
Timer1.Interval = 1000
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Left = Label1.Left + x * 100
If Label1.Left <= 0 Then
x = 1
End If
If Label1.Left + Label1.Width >= Me.Width Then
x = -1
End If
End Sub
End Class


Ïà¹ØÎĵµ£º

VB+SQL 2000 ʵÏÖÊý¾Ý¿âµÄ±¸·ÝºÍ»Ö¸´

 
'*************************************************************************
'**Ä£ ¿é Ãû£ºfBackupDatabase_a
'**Ãè    Êö£º±¸·ÝÊý¾Ý¿â,·µ»Ø³ö´íÐÅÏ¢,Õý³£»Ö¸´,·µ»Ø""
'**µ÷    ÓãºfBackupDatabase_a "±¸·ÝÎļþÃû","Êý¾Ý¿ ......

VBÎÞËù²»ÄÜÖ®Æß£ºVBµÄ¶àỊ̈߳¨1£©

VBÎÞËù²»ÄÜÖ®Æß£ºVBµÄ¶àỊ̈߳¨1£©
×÷ÕߣºÖÓÉù
 
ÌâÍâ»°£º
 
×î½ü£¬Ð´Á˼¸Æª¡¶VBÎÞËù²»ÄÜ¡·ÏµÁУ¬±¾ÏµÁÐÎÄÕµĴ´×÷³õÖÔ¾ÍÊÇҪȥµß¸²ÖÚ¶à³ÌÐòÔ±¶ÔÓÚ“·ÇÃæÏò¶ÔÏó”ÓïÑÔ“VB”µÄ³É¼û£¡
 
µ±È»£¬ÎÒÒ²ÔçÓÐÔ¤ÆÚ£¬´ËÑÔÒ»³ö±ØÈ»ÕÐÖ²»Ã÷ÕæÏàµÄȺÖڵēΧ¹¥”£¬È»¶ø£¬ÎÒ»¹ÊÇÒª¼ ......

VB ÃæÏò¶ÔÏó

Õ⼸ÌìÒ»Ö±ÔÚ×öÒ»¸öСµÄ¹¤³Ì,×öÒ»¸öÎı¾ÔĶÁÆ÷,ÏÖÔÚ×öµÄÒѾ­ÓÐÈý·ÖÖ®¶þÁË,´ÓÖÐѧϰµ½Á˺ܶà,¶ÔÎÒÃÇÒÔǰѧϰµÄ³É¹ûÓÐÁ˸üÉî¿ÌµÄÀí½â.
VBÊÇÒ»ÃÅÃæÏò¶ÔÏóµÄ³ÌÐòÉè¼Æ,ÎҾʹÓÃæÐÔ¶ÔÏóµÄ½Ç¶È¶ÔËû×öÒ»´Î×ܽá
°ÑVBÖÐËùÓеÄÊý¾Ý,±äÁ¿,¿Ø¼þ¶¼¿´×öÒ»¸ö¶ÔÏó
ÎÒÃÇËùÓеIJÙ×÷¶¼ÊǶԶÔÏóµÄ²Ù×÷,ÈöÔÏóÈ¥Ö´ÐÐijһ¸ö¹¦ÄÜ
´ó¼ÒÏÈ¿´Ò»¸öÀý× ......

VBÖÐʵÏÖµØÍ¼²Ù×÷µÄ·½·¨

1.       ÔÚVBµÄFormÉè¼ÆÊ±£¬¼ÓÈëÒ»¸öpicturebox¿Ø¼þ£¬Õâ¸ö¿Ø¼þ×÷ΪOLEÈÝÆ÷£¬MapInfoÖеĵØÍ¼½«ÔڸÿؼþÉÏÏÔʾ¡£
2.       Ö´ÐÐVBµÄº¯ÊýCreateobject(“MapInfo.Application”),Æô¶¯MapInfo¡£ÕâʱMapInfoÔÚºǫ́Æô¶¯£¬¶ÔÓû§À´Ëµ²»¿É¼û£¬²»»áµ¯³ösp ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ