VBÈçºÎ½øÈëinternet
Çë½Ì£¡ÈôÒª×öµ½µãcommand1 ¾ÍÄÜ´ò¿ªInternet ²¢ÄܽøÈëÒ»¸öÖ¸¶¨µÄÍøÖ· ±ÈÈçwww.163.com »òÕßÊÇIPµØÖ·¡£Ð»Ð»£¡
VB code:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
ShellExecute hwnd, "open", "www.163.com ", "", "", 1
End Sub
Private Sub Command1_Click()
Dim ie As Object
Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
ie.Visible = True
ie.Navigate "http://www.163.com"
End Sub
VB code:
Private Sub Command1_Click()
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.baidu.com/", vbNormalFocus
End Sub
лл£¡
ÎÒÓÐÒ»¸öÏë·¨£¬ÏëÇë½Ìһϣ¬¼ÙÈôÎÒÓÃVB±àдÁ˸ö³ÌÐò£¬·ÅÔÚһ̨·þÎñÆ÷ÉÏ£¬ÄÜ·ñʵÏÖÎÒÁí±àд¸ö¿Í»§¶Ë³ÌÐò£¬»òÕßʲô±ðµÄ³ÌÐò£¬ÄÜ·ÃÎʺͲÙ×÷ÎÒ·ÅÔÚ·þÎñÆ÷ÉϵijÌÐò¡£·þÎñÆ÷×°µÄÊÇserver 2000.¶àлָµ¼£¡
ÓÃMicrosoft Internet Transfer Control ¿Ø¼þ À´ÊµÏÖËüÃǵÄͨОͿÉÒÔÁË¡£ÄãÍøÉÏËÑÒ»ÏÂËüµÄʹÓã¬Ó¦¸Ã¿
Ïà¹ØÎÊ´ð£º
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
If recs > 0 Then 'ÒÑÓп¼Éú
Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
num = V ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......