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

VB×Ô¶¯µÇ¼¼ì²â²¢Ìí¼ÓÓòÃû

ÓôÃÆ£¬ÎÒʹÓõÄÕâ¸ö¿Õ¼äµÄIDCÉ̾¹È»Ã¿¸ôÒ»¶Îʱ¼ä¾ÍÒª¼ì²â°ó¶¨µÄÓòÃûÊÇ·ñÔÙδÌá½»±¸°¸ÁбíÖУ¬Èç¹ûÊǾÍɾ³ý£¬µ«ÊÇÈ´²»¼ì²âÎÒÊÇ·ñÌá½»Á˱¸°¸£¬°´ÕÕËûÃÇ˵·¨É¾³ýÓòÃûÒ»Ììºó²ÅÄÜÔٴΰ󶨣¬·ñÔòÕâÒ»ÌìÄÚ°ó¶¨Á˵½Ï´μì²â¾Í»áÔÙɾ³ý¡£ÕâÑùÎҾͲ»Í£µÄÔÚºǫ́¿´£¬¿´ÊÇ·ñ±»É¾³ý£¬Èç¹û±»É¾³ý£¬¾ÍÔÙ°ÑÓòÃû°ó¶¨ÉÏÈ¥£¬;(ºÜÊÜÉË£¡
ÓÚÊÇÓÃVB×öÁ˸ö³ÌÐò£¬×Ô¶¯µÇ¼¼ì²â£¬¿´ÓòÃûÊÇ·ñ±»É¾³ý£¬É¾³ýÔò×Ô¶¯Ìí¼ÓÓòÃûÉÏÈ¥£¬Ã¿10Ãë¼ì²âÒ»´Î¡£Ö÷ÒªÓõ½ÁËWebBrowser
н¨´°ÌåFORM1£¬ÔÚ´°ÌåÉϽ¨¸öWebBrowserºÍTIMER¾Í¿ÉÒÔÁË£¬TIMER¼ä¸ôÉèÖÃΪ10000¡£
ÒÔÏÂÊÇ´úÂë
Private Sub Form_Load()
WebBrowser1.Navigate "http://**************/hostadm/subhostname1.asp?id=****"
End Sub
Private Sub Timer1_Timer()
WebBrowser1.Refresh
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
turl = WebBrowser1.LocationURL
If turl <> "http://**************/hostadm/subhostname1.asp?id=****" Then
    If turl <> "http://**************/user/default.asp" Then
        If turl <> "http://**************/user/logininfo.asp" And turl <> "http://**************/user/hostadm.asp" And turl <> "http://**************/hostadm/selfhostmodify.asp" Then
        WebBrowser1.Navigate "http://**************/user/default.asp"
        ElseIf turl = "http://**************/hostadm/selfhostmodify.asp" Then
        WebBrowser1.Navigate "http://**************/hostadm/subhostname1.asp?id=****"
        ElseIf turl = "http://**************/user/hostadm.asp" Then
        WebBrowser1.Navigate "http://**************/user/hosta


Ïà¹ØÎĵµ£º

VBÓëMatlab»ìºÏ±à³Ì

VBÓëMatlab»ìºÏ±à³ÌÓжàÖÖ·½Ê½£¬ÕâÀïÌÖÂÛMatlab½«MÎļþ±àÒë³Écom×é¼þ¹²VBµ÷Óõķ½Ê½¡£
Matlab°æ±¾£ºMatlab 7.7. 0.471 R2008b
VB°æ±¾£ºVB 6.0 & VB 2008
Ê×ÏÈдºÃÍê³Éij¸ö¹¦ÄܵÄmÎļþ£¬±ÈÈçÔÚmÎļþÖÐдÈëÈçϺ¯Êý
function [returns,stderr]=GetReturns(prices)
    returns=price2ret(prices)&nbs ......

¡°×Ô¶¯µã»÷°´Å¥¡±Ð¡¹¤¾ßVBÔ´Âë

“×Ô¶¯µã»÷°´Å¥”С¹¤¾ßVBÔ´Âë
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Pri ......

VB³õ¼¶ÄæÏòÓëÀûÓÃ

½ñÌì×öÒ»¸öVB³ÌÐòµÄ×ÔÏÔ×¢²áÂë¡£ÎÒÒ²²»ÖªµÀ¸ÃÔõô½Ð£¬¾ÍÊÇÕÒµ½³öÏÖ×¢²áÂëµÄµØ·½£¬È»ºóÓöԻ°¿òµ¯³öÀ´¡£Ëµ°×Á˾ÍÊÇÓÃMessageBox°ÑÒ»¸ö×Ö·û´®¸øµ¯³öÀ´£¨Ã»×·Ç󰢡£¡£¡££©
    ÎªÁËÓеã×·Ç󣬽ñÌì²»µ¼Èëuser32ÀïÃæµÄAPI£¬¶øÊǰÑVBÀïÃæ×Ô´øµÄMsgboxº¯Êý¸øÍÚ³öÀ´µ÷Ó㬾ÍÊÇÒýÓÃMSVBVM60.rtcMsgBoxº¯Êý¡£ÎÒÊ ......

VB.NETÖÐÄܲ»ÄܶÔDATASETÔÙÓÃSQLÓïÑÔ

¿ÉÒÔɸѡÊý¾Ý£¬µ«²»ÄÜÊDZê×¼µÄSQLÓï¾ä£º
Me.DsUserManager1.Tables(0).Select("id > 5 and id <20")
---------------------------------------------------------------
1.ɸѡ£º
dataset.tables("tabname").select("id=1")'Ï൱ÓÚSQLÖÐWHEREºóµÄÌõ¼þÄÚÈÝ
2.±£´æµ½ÄÄ£¿Õâµ¹ÊDz»Öª ......

ÔÙ̸ÓÃVBÎÞ´°¿Ú͸Ã÷Usercontrol±àд͸Ã÷¸¡¶¯°´Å¥

'* ************************************************************** *
'* ³ÌÐòÃû³Æ£ºButton.ctl
'* ³ÌÐò¹¦ÄÜ£ºÍ¸Ã÷¸¡¶¯°´Å¤
'* ×÷Õߣºlyserver£¬×îºóÐÞ¸ÄÈÕÆÚ£º2009Äê11ÔÂ
'* ÁªÏµ·½Ê½£ºhttp://blog.csdn.net/lyserver
'* ************************************************************ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ