VB±êÌâÀ¸ ¶¯Ì¬ÏÔʾ
ÎÒÔÚ´°ÌåÕý³£ÔËÐеÄÇé¿öÏ ±êÌâÀ¸ÉÏ¿ÉÒÔ¶¯Ì¬ÏÔʾÊýÖµ
¿ÉÊǵã»÷×îС»¯°´Å¥µÄºó £¬ÔÚÈÎÎñÀ¸ÉϵıêÌâÉϾͲ»±äÁË£¿
Ôõô°ì
±ðÕÛÌÚÕâЩ»¨¼Ü×Ó£¬Ã»ÒâÒå
²»»á°É£¿
VB code:
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
Me.Caption = i
End Sub
×îС»¯£¬²»±ä»¯ÊÇÓ¦¸ÃµÄ
±ä»òÕß²»±äÓëÄãµÄ³ÌÐòÈçºÎдµÄÓйØ,²¢ÇÒȷʵÕâÖÖ¶«Î÷¶ÔÄãµÄ³ÌÐòºÜÓÐÓÃÂð?
ÄÇÄãÊÇдÔÚÄÄЩʼþÀïµÄÁË,²¿·Öʼþ¿ÉÄÜû±»´¥·¢,»¹ÓгÌÐòÔÚºǫ́µÄʱºòËÙ¶È»áÂýºÜ¶à,Èç¹ûÊÇ´óÊý¾Ý´¦ÀíÏÔʾ»á±äÂý
·ÅÔÚtimer¿Ø¼þÀïÖ´Ðж¯Ì¬±êÌ⣬ÔÚ×îС»¯Ê±Ã»ÓÐÎÊÌ⣬Ìù³öÄãµÄ²¿·Ö´úÂëÀ´Èôó»ï°ïÄã¿´¿´Ôõô»ØÊÂ~~
×îС»¯ºóÈÎÎñÀ¸µÄÑù×ӾͶ¨Á˰¡£¡£¡
¶÷£¬Í¬Òâ
ȷʵûʲôÓÃ
Â¥Ö÷£¬ÓöþÂ¥ÅóÓѵĴúÂë¿ÉÒÔʵÏֵģ¬×îС»¯ºóÔÚ״̬À¸ÉÏÒ²»á±ä»¯µÄ
°ï¶¥£¡£¡£¡£¡£¡£¡£¡
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
Õâ¸ö³ÌÐòÊǹ̶¨µÄ£¬±ÈÈçcmd.exe
´ò¿ªCMDºó£¬Êó±êÔÚCMDµÄ±êÌâÀ¸¿ÉÒÔµã»÷ÓÒ¼üºÍ×ó¼ü£¬µ¯³öÏàÓ¦µÄ²Ëµ¥¡£
ÎÒÒª´ïµ½µÄÄ¿µÄÊÇ£ºÎÞÂÛÊÇ×ó»÷»¹ÊÇÓÒ»÷CMDµÄ±êÌâÀ¸¶¼²»Äܵ¯³ö²Ëµ¥¡£
»òÕßÄܳöÏֲ˵¥Ò²ÐУ¬µ«Ö»Äܳö ......
´úÂëÈçÏ£º
Private Sub MSFlexGrid1_SelChange()
If MSFlexGrid1.Rows = 1 Then Exit Sub
If MSFlexGrid1.Row = 0 Then Exit Sub
grid_row = MSFlexGrid1.Row
......
ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄÔÉϵÄʱ¼äÏÔʾ²»ÕýÈ· ÄÇÆñ²»ÊÇ»ñµÃµÄʱ¼äÒ²ÊDz»ÕýÈ·µÄ
Ôõô»ñµÃÕýÈ·µÄʱ¼ä
Á¬Íø£¬´Ó±ðµÄµØ·½»ñµÃ
ÒýÓÃ
ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄ ......
ÎÒÒªµ¼Èëµ¼³öÊý¾Ý¿âÎļþ£¬ÔÚµ½´¦µÄʱºòʹÓÃÁí´æÎª¶Ô»°¿ò£¬¾ßÌå´úÂëÊÇÈçºÎʵÏֵģ¿ÎÒÖ±½ÓÓÃcommondialog1.showsaveÖ®ºóµãÁí´æÎªÃ»ÓÐÏìÓ¦£¬ÊDz»ÊÇÒªÌí¼Óʲô´úÂ룿¼±£¡
Áí´æÎªÊ²Ã´¸ñʽµÄÎļþÄãÐèÒª¸æËß´ó¼Ò,дµ½²»Í¬À ......