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²»ÊǾͿÉÒÔÁË ......
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
ÎÒÔÚÎÒµçÄÔ(ÆÁÄ»±È½Ï´ó)Éè¼ÆÒ»¸ö½çÃæ,µ«ÊÇÔÚÆÁÄ»±È½ÏСµÄµçÄÔÉϲâÊÔʱ,·¢ÏÖ°´Å¥²»»áËæ×ÅÆÁÄ»´óС¶ø×Ô¶¯±ä´óС.
ÒªÔõôÉè?
Me.Height = Screen.Height * 0.6
Me.Width = Screen.Width * 0.6
VB cod ......
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
±£´æ³öµÄExcelÊý¾ÝÎļþ£¬ÏëÔÚ³ÌÐòÖоÍת»¯³ÉÊýÖµÀàÐÍ
Äܹ»ÔÚ´ò¿ªExcelÎļþºó£¬
Äܹ»Ö±½ÓÀûÓÃÊý¾Ý»Í¼£¬¶ø²»ÐèÒªÔÙ´Îת»¯Êý¾ÝÀàÐÍ
³ÌÐòÖеÄÊý¾ÝÊÇ´æ·ÅÔÚ¶þάÊý×éÀïµÄ£¬È»ºóÔÙ±£´æÔÚExcelÖÐ
Çë½Ì´óÏÀÃÇ£¬¸ ......