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¿Ø¼þÀïÖ´Ðж¯Ì¬±êÌ⣬ÔÚ×îС»¯Ê±Ã»ÓÐÎÊÌ⣬Ìù³öÄãµÄ²¿·Ö´úÂëÀ´Èôó»ï°ïÄã¿´¿´Ôõô»ØÊÂ~~ ×îС»¯ºóÈÎÎñÀ¸µÄÑù×ӾͶ¨Á˰¡£¡£¡ÒýÓà ×îС»¯ºóÈÎÎñÀ¸µÄÑù×ӾͶ¨Á˰¡£¡£¡ ¶÷£¬Í¬Òâ ȷʵûʲôÓà ¥Ö÷£¬ÓöþÂ¥ÅóÓѵĴúÂë¿ÉÒÔʵÏֵģ¬×îС»¯ºóÔÚ״̬À¸ÉÏÒ²»á±ä»¯µÄ °ï¶¥£¡£¡£¡£¡£¡£¡£¡
Ïà¹ØÎÊ´ð£º
¸÷룬ÇëÎʹ³×ÓÊÇÔõôÔËÐеİ¡£¿ÇëÏÈ¿´¿´ÎÒдµÄ´úÂ룺 Public hhook Private Sub Command1_Click() hhook = SetWindowsHookEx(2, AddressOf testhook, 0, App.ThreadID) End Sub ÒÔϵ ......
Printer.ScaleMode = 6 6±íʾºÁÃ× Printer.PaperSize = vbPRPSA4 '³õÊ¼×ø±ê x = 1 y = 4 '×î´óµÄÏß¿ð Printer.DrawStyle = 0 Printer.Line (x, y)-(x + 132.5, y) ......
ÎÒÔÚÎÒµçÄÔ(ÆÁÄ»±È½Ï´ó)Éè¼ÆÒ»¸ö½çÃæ,µ«ÊÇÔÚÆÁÄ»±È½ÏСµÄµçÄÔÉϲâÊÔʱ,·¢ÏÖ°´Å¥²»»áËæ×ÅÆÁÄ»´óС¶ø×Ô¶¯±ä´óС. ÒªÔõôÉè? Me.Height = Screen.Height * 0.6 Me.Width = Screen.Width * 0.6 VB cod ......
ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä µ«ÊÇÈç¹ûµçÄÔÉϵÄʱ¼äÏÔʾ²»ÕýÈ· ÄÇÆñ²»ÊÇ»ñµÃµÄʱ¼äÒ²ÊDz»ÕýÈ·µÄ Ôõô»ñµÃÕýÈ·µÄʱ¼ä Á¬Íø£¬´Ó±ðµÄµØ·½»ñµÃ ÒýÓà ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä µ«ÊÇÈç¹ûµçÄ ......