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 ¿Ø¼þ À´ÊµÏÖËüÃǵÄͨОͿÉÒÔÁË¡£ÄãÍøÉÏËÑÒ»ÏÂËüµÄʹÓã¬Ó¦¸Ã¿
Ïà¹ØÎÊ´ð£º
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
If recs > 0 Then 'ÒÑÓп¼Éú
Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
num = V ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......