vb²Ù×÷ieä¯ÀÀÆ÷
ÏàÐÅÏÖÔÚ¾ø´ó¶àÊý¼ÆËã»úÉÏʹÓõÄÊÇIEä¯ÀÀÆ÷¡£ÈçºÎͨ¹ý±à³Ì¿ØÖÆIEµÄ²Ù×÷ÄØ£¬±¾ÎĽ«Ò»²½²½½éÉÜÈçºÎͨ¹ýVB
µ÷ÓÃIEµÄ¶ÔÏó¿âÀ´¶ÔIE½øÐпØÖÆ¡£
±¾ÎÄʹÓõıà³Ì¹¤¾ßÊÇVB6Ó¢ÎÄÆóÒµ°æ£¬ä¯ÀÀÆ÷ÊÇIE5£¬ÒÔϵĴúÂëÖ»ÄÜÔÚIE4¼°ÒÔÉÏ°æ±¾ÏÂÔËÐС£ÁíÍâΪÁËÄÜÉî
ÈëÁ˽â³ÌÐò´úÂ룬×îºÃÄÜ°²×°MSDN¡£ÎÄÖеÄËùÓжÔÏ󡢺¯Êý¡¢Ê¼þÔÚÆäÖж¼¿ÉÒԲ鵽¡£
Ò»¡¢ÈçºÎ»ñµÃWindowsÖÐËùÓдò¿ªµÄä¯ÀÀÆ÷´°¿Ú
Ê×ÏÈ´ò¿ªVB£¬½¨Á¢Ò»¸öй¤³Ì£¬µã»÷²Ëµ¥ Projects | References ÏÔÚAvailable References ÁбíÖÐÑ¡Ôñ
Microsoft Internet ControlsÏInternet¶ÔÏóÒýÓýéÈëµ½¹¤³ÌÖС£Ìí¼ÓÒ»¸öListBoxµ½Form1£¬È»ºóÔÚForm1ÖÐÌí
¼ÓÈçÏ´úÂ룺
Dim dWinFolder As New ShellWindows
Private Sub Form_Load()
Dim objIE As Object
For Each objIE In dWinFolder
If InStr(1, objIE.FullName, "IEXPLORE.EXE", vbTextCompare) <> 0 Then
List1.AddItem objIE.LocationURL
End If
Next
End Sub
´ò¿ª¼¸¸öä¯ÀÀÆ÷´°¿Ú£¬È»ºóÔËÐгÌÐò£¬¿ÉÒÔ¿´µ½ËùÓÐä¯ÀÀ´°¿ÚÖеÄURLµØÖ·¶¼ÔÚList1ÖÐÁÐÁ˳öÀ´¡£
ÉÏÃæ³ÌÐòÖеÄShellWindows¶ÔÏóÊÇÃèÊöµ±Ç°ËùÓдò¿ªµÄ“ä¯ÀÀ´°¿Ú”¶ÔÏ󼯺ϵĶÔÏó£¬ÀûÓÃFor...EachÓï¾ä¿ÉÒÔ
»ñµÃÆäÖÐËùÓеÄä¯ÀÀ´°¿Ú¶ÔÏó¡£ÕâÊÇÒ»¸öWebBrowser¶ÔÏó£¬ÔÚMSDNË÷ÒýÖÐͨ¹ý“WebBrowser Object”ÖпÉÒÔÕÒµ½¸Ã
¶ÔÏóµÄÏêϸ½éÉÜ
ÔÚShellWindowsÖеÄä¯ÀÀ´°¿Ú¶ÔÏó²»½ö°üº¬IE£¬»¹°üº¬Explore´°¿Ú£¨Ïò×ÊÔ´¹ÜÀíÆ÷»òÕß“ÎҵĵçÄÔ”´°¿Ú¾ÍÊÇ
Explore£©¡£Ö»²»¹ýËüÃǵÄ
Ïà¹ØÎĵµ£º
VB±¸·ÝACCESSÊý¾Ý¿âµÄ·½·¨£¬´úÂë
Õâ¸ö´úÂëÆäʵҲÊÊÓÃÓÚÆäËüÀàÐÍÎļþµÄ¸´ÖÆ£¬ÒªÐÞ¸ÄÒ»ÏÂÆäÖеÄÓï¾äŶ~Private Sub bak_Click()
Dim TargetFileName As String 'Ä¿±êÎļþÃû
On Error Resume Next
With cdlog1
.DialogTitle = "Êý¾Ý±¸·Ý"
.InitDir = App.Path
.FileName = "backup.mdb"
.Filter = ......
¹ØÓÚActiveXµÄ½Ì³Ì
Visual BasicÊÇÃæÏò¶ÔÏóµÄ³ÌÐòÉè¼ÆÓïÑÔ£¬Î¢Èí¹«Ë¾ÍƳöÁËActiveX¼¼Êõ£¬ÀûÓÃActiveX¼¼ÊõÌá³öµÄ±ê×¼£¬¶Ô½çÃæµÄÉè¼Æ½øÐÐÁË·â×°£¬ÐγÉÁËһϵÁбà³Ì¿Ø¼þ£¬¼´Ìض¨¹¦ÄܵijÌÐòÄ£¿é¡£ÔÚ³ÌÐòµÄÉè¼ÆÖУ¬Éè¼ÆÈËÔ±Ö»ÐèÒªÍ϶¯ËùÐè¿Ø¼þµ½´°Ì壬Ȼºó¶Ô¿Ø¼þ½øÐÐÊôÐÔÉèÖúÍʹÓÃÆä·½·¨¡¢Ê¼þ¼´¿É£¬´ó´ó¼õÇáÁË·±ËöµÄ³ÌÐòÉè¼Æ¡ ......
ºÜ¶àʱºò,ÎÒÃDz»ÏëÒ»¿ªÊ¼¾ÍÏÔʾ¹ö¶¯Ìõ,µ±Îı¾µ½´ïÖ¸¶¨ÐÐÊýÎı¾¿òÎÞ·¨ÍêÈ«ÏÔʾµÄʱºòÔÙÏÔʾËü,ÓÉÓÚScrollbarÊôÐÔÊÇÖ»¶ÁµÄ,ÎÞ·¨ÔÚÔËÐÐʱµÄ´úÂëÖиıäÕâ¸öÊôÐÔ,Ö»ÄÜʹÓÃÏÂÃæµÄAPIʵÏÖÕâ¸ö¹¦ÄÜ:
Public Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
......
ÀûÓÃAPI°ÑÒ»¸ö¿Ø¼þ°ó¶¨µ½ÁíÒ»¸ö¿Ø¼þÀï
ÀûÓÃAPI°ÑÒ»¸ö¿Ø¼þ°ó¶¨µ½ÁíÒ»¸ö¿Ø¼þÀï¡£²»¹ýÒª¿Ø¼þÓÐHWNDÊôÐÔ¡£ÀýÈ磺
New_OldParent& = SetParent(Me.Text_txt.hWnd, Me.picture_bj.hWnd)
°Ñtxt¿Ø¼þÌí¼Óµ½picture¿Ø¼þÀïʹÓá£
×¢£ºÊ¹Óà ......
Public Class Form1
Private Sub CmdTrans_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdTrans.Click
Dim psi As New System.Diagnostics.ProcessStartInfo
Dim ftpFileName As String
psi.FileName = "ftp.exe"
psi.RedirectStandardInput = ......