浏览器控件问题？

xingzhihao

例如：

当用户的计算机不能上网时，窗体的浏览器控件将显示“该页无法显示”，这个影响美观。

我希望这时它的可见性为不显示，关键是——

如何判断浏览器控件的联网状态？？

高手，请指教12。谢谢！

[此贴子已经被作者于2006-6-7 22:02:51编辑过]

WDLRCZT

看看如下代码:

检测是否以联网及联网方式
module:
Public Declare function InternetGetConnectedStateEx Lib "wininet.dll" _
    Alias "InternetGetConnectedStateExA" _
    (ByRef lpdwFlags As Long, _
    ByVal lpszConnectionName As String, _
    ByVal dwNameLen As Long, _
    ByVal dwReserved As Long _
    ) As Long

Public Enum EIGCInternetConnectionState
    INTERNET_CONNECTION_MODEM = &H1&
    INTERNET_CONNECTION_LAN = &H2&
    INTERNET_CONNECTION_PROXY = &H4&
    INTERNET_RAS_INSTALLED = &H10&
    INTERNET_CONNECTION_OFFLINE = &H20&
    INTERNET_CONNECTION_CONFIGURED = &H40&
End Enum

Public Property Get InternetConnected( _
    Optional ByRef eConnectionInfo As EIGCInternetConnectionState, _
    Optional ByRef sConnectionName As String _
    ) As Boolean
    Dim dwFlags As Long
    Dim sNameBuf As String
    Dim Lr As Long
    Dim iPos As Long
   
    sNameBuf = String$(513, 0)
    Lr = InternetGetConnectedStateEx(dwFlags, sNameBuf, 512, 0&)
    eConnectionInfo = dwFlags
    iPos = InStr(sNameBuf, vbNullChar)
    If iPos > 0 Then
        sConnectionName = Left$(sNameBuf, iPos - 1)
    ElseIf Not sNameBuf = String$(513, 0) Then
        sConnectionName = sNameBuf
    End If
    InternetConnected = (Lr = 1)
End Property
窗体中
Private Sub Form_Load()
    ' Determine whether we have a connection:
    bConnected = InternetConnected(Er, sName)

    ' The connection state info parameter provides details
    ' about how we connect:
    If (Er And INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM Then
        sMsg = sMsg & "Connection uses a modem." & vbCrLf
    End If
    If (Er And INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN Then
        sMsg = sMsg & "Connection uses LAN." & vbCrLf
    End If
    If (Er And INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY Then
        sMsg = sMsg & "Connection is via Proxy." & vbCrLf
    End If
    If (Er And INTERNET_CONNECTION_OFFLINE) = INTERNET_CONNECTION_OFFLINE Then
        sMsg = sMsg & "Connection is Off-line." & vbCrLf
    End If
    If (Er And INTERNET_CONNECTION_CONFIGURED) = INTERNET_CONNECTION_CONFIGURED Then
        sMsg = sMsg & "Connection is Configured." & vbCrLf
    Else
        sMsg = sMsg & "Connection is Not Configured." & vbCrLf
    End If
    If (Er And INTERNET_RAS_INSTALLED) = INTERNET_RAS_INSTALLED Then
        sMsg = sMsg & "System has RAS installed." & vbCrLf
    End If
   
   ' Display the connection name and info:
    If bConnected Then
        Text1.Text = "Connected: " & sName & vbCrLf & vbCrLf & sMsg
    Else
        Text1.Text = "Not Connected: " & sName & vbCrLf & vbCrLf & sMsg
    End If
End Sub



（本贴加为精华，以示鼓励——LucasLynn）

[此贴子已经被LucasLynn于2006-6-9 11:05:05编辑过]

xingzhihao

谢谢您的帮助！

但是上述代码有错误——

bConnected = InternetConnected(Er, sName)




是否有什么引用？？？

[此贴子已经被作者于2006-6-8 13:47:52编辑过]

WDLRCZT

看看这个示例

xingzhihao

原来是几个变量没有声明——

再次感谢！WDLRCZT，[em07]

WDLRCZT

你太客气了,大家互相帮助嘛

xingzhihao

浏览器控件的背景如何设置透明？

WDLRCZT

你把浏览器控件可见性设为否试试

wmy2008

好东西

brucexiao

多谢指导！！！！！！！！！！！！！！！！