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

VB ²Ëµ¥Ï¶രÌåµÄÔËÐÐÎÊÌâ

ÒªÇó£ºÔÚVBÉè¼ÆµÄ²Ëµ¥½çÃæÖУ¬µ±Ñ¡Ôñijһ²Ëµ¥Ïîʱ£¬ÒªÇó´ò¿ªÆä¶ÔÓ¦µÄ´°Ìå¡£
ĿǰµÄÏÖÏ󣺵±´®¿ÚÊÕµ½Êý¾Ýʱ£¬Ïà¹ØµÄ´°Ìå»á×Ô¶¯µ¯³ö£¬¶øÎÒ²¢Ã»ÓÐÔڲ˵¥ÉϽøÐÐÑ¡Ôñ¡£
ÇëÎÊ£ºÓë´®¿ÚÏà¹ØµÄ´°Ì壬ÔõÑù²»ÈÃËüÃÇ×Ô¶¯µ¯³ö£¿


×Ô¶¯µ¯³öÊDZØÈ»µÄ£¬¿ÉÒÔ

'Éè1¸ö±äÁ¿
Public blnRun As Boolean
'Èç¹ûÖ÷¶¯µ÷ÓÃ
Private Sub mnu_A_Click()
            blnrun=true
            frmTest.Show           
End Sub

'·ÇÖ÷¶¯µ÷Óã¬Òþ²Ø
Private Sub Form_Load()
    If Not blnRun Then
        Me.Hide
    End If
   
End Sub

·É϶³µ,À´ÍíÁË,°ï¶¥

頂Ò»樓¡£

лл´ó¼Ò°¡£¡
ÎÒÊÔ¹ýÁË£¬²»¹ý»¹ÊÇ»á×Ô¶¯µ¯³öÀ´¡£ºóÀ´°ÑMDIchildÊôÐÔÉèΪFalseºó£¬¾Í²»µ¯³öÀ´ÁË¡£

Ô­À´ÊÇÕâ¸öÎÊÌâ°¡
Äã°Ñ¹¤³ÌµÄÊôÐÔÀïÃæÓиö"Æô¶¯"ÕÒÒ»ÕÒ,»»³É±ðµÄ,±ÈÈçMDIForm1

ÒýÓÃ
лл´ó¼Ò°¡£¡
ÎÒÊÔ¹ýÁË£¬²»¹ý»¹ÊÇ»á×Ô¶¯µ¯³öÀ´¡£ºóÀ´°ÑMDIchildÊôÐÔÉèΪFalseºó£¬¾Í²»µ¯³öÀ´ÁË¡£


    ÎÒÕâÑùÐÞ¸ÄËäÈ»½â¾öÁ˵¯³öµÄÎÊÌ⣬µ«ÊÇ£¬ÎÒ½«ÕâЩ´°Ìå²»ÉèÖÃΪ×Ó´°ÌåµÄ»°£¬ÕâЩ´°ÌåºÍÖ÷²Ëµ¥¾Í»¥Ïà¶ÀÁ¢ÁË£¬ÓÖ²»Âú×ãÒªÇóÁË¡££¨ÒòΪ¸÷¸öMDIForm±ØÐëÔËÐÐÔÚÖ÷²Ëµ¥Ï£©
    ËùÒÔ»¹ÊÇ´æÔÚÕâ¸öÎÊÌ⣺¶ÔÓÚÖ÷²Ëµ¥ÏÂÓë´®¿ÚÏà¹ØµÄ¸÷¸ö×Ó´°Ì壬µ±´®¿ÚÀ´Êý¾Ýʱ£¬ÔõÑù²»ÈÃËüÃÇ×Ô¶


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

VB ÍøÒ³×Ô¶¯µÇ½

Option Explicit

Private Sub Command1_Click()
    WebBrowser1.Navigate "http://mc.qeedoo.com/servers.php"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal ......

VB ÔõôÄÜÌá¸ßÎı¾ÎļþµÄÑ­»·ËÙ¶È

ÌâÄ¿ÃèÊöÓ¦¸Ã²»ÊǺÜ׼ȷ¡£
ÏÖ×´ÊÇ£º¼ÙÈçÒ»¸öÎı¾Îļþ¹²100ÐУ¬ÄÇôÎÒÑ­»·´ÎÊý×î´ó¾ÍÊÇ100×100=10000Ï£¬»¨·Ñʱ¼ä·Ç³£¶à£¬ÇëÎÊÓÐûÓа취Äܹ»Ìá¸ß¶ÔÎı¾ÎļþµÄÑ­»··ÃÎÊËÙ¶È¡£·ÇÊý¾Ý¿â¼¼Êõ¡£
ÄãҪѭ»·×öʲô£ ......

VBÁ¬½ÓÊý¾Ý¿â²éѯ³¬Ê±ÎÊÌâ

ÔÙVBÄ£¿éÖÐÎÒÊÇͨ¹ýÈçÏ·½Ê½À´Á¬½ÓÖ÷¿âºÍÀúÊ·¿âµÄ(ÀúÊ·¿âÊý¾ÝÁ¿´ó)
VB code:

Public Connstr As String
Public objConn As New ADODB.Connection
Public ConnHISstr As String
Public objConnHIS As New A ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ