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 ¿Ø¼þ À´ÊµÏÖËüÃǵÄͨОͿÉÒÔÁË¡£ÄãÍøÉÏËÑÒ»ÏÂËüµÄʹÓã¬Ó¦¸Ã¿
Ïà¹ØÎÊ´ð£º
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......