VB³ÌÐòÒѾÔÚÔËÐУ¬µ«Ã»Óб»¼¤»îʱ£¬ÔÚVBÖÐÔõÑùʼÖÕ¼àÊÓ¼üÅÌ»òÕß¼àÊÓijһ¸ö¼ü¡¾±ÈÈçS¼ü¡¿Ò²ÐУ¬×îºÃÊÇ¿ÉÓÃÀý×ÓËÆºõÊÇÓù³×Ó£¬¿ÉϧÊÖ±ßûÓдúÂë¡£UP! http://www.codeproject.com/KB/system/kbdlistenerpackage.aspx hope it's useful for you ÊÇVB6»¹ÊÇVB.net£¿
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿ ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String) ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click MouseWait() Dim ClearTempTabelSQL As String 'If Not ......