A. WebBrowser控制項做網頁瀏覽器 如何做轉到上一頁 下一頁
建一個COmmand1,Command2,Command3,Webbrowser1.當然,你要先單擊Command1打開一個網頁,然後點擊其中的一個鏈接,這樣才能後退,後退完了才能前進,否則會報錯的。
代碼如下。
=========
Private Sub Command1_Click()
WebBrowser1.Navigate ".com"
End Sub
Private Sub Command2_Click()
WebBrowser1.GoBack
End Sub
Private Sub Command3_Click()
WebBrowser1.GoForward
End Sub
B. VB WEB控制項問題
重點回答第一個問題。
依樓主意思,只能採取讀取緩存文件的方式。
共分二個步驟:
一、建立一個模塊,復制下面代碼:
Option Explicit
Private Const ERROR_CACHE_FIND_FAIL As Long = 0
Private Const ERROR_ACCESS_DENIED As Long = 5
Private Const ERROR_INSUFFICIENT_BUFFER As Long = 122
Private Const LMEM_FIXED As Long = &H0
Private Const NORMAL_CACHE_ENTRY As Long = &H1
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type INTERNET_CACHE_ENTRY_INFO
dwStructSize As Long
lpszSourceUrlName As Long
lpszLocalFileName As Long
CacheEntryType As Long
dwUseCount As Long
dwHitRate As Long
dwSizeLow As Long
dwSizeHigh As Long
LastModifiedTime As FILETIME
ExpireTime As FILETIME
LastAccessTime As FILETIME
LastSyncTime As FILETIME
lpHeaderInfo As Long
dwHeaderInfoSize As Long
lpszFileExtension As Long
dwExemptDelta As Long
End Type
Private Declare Function FindFirstUrlCacheEntry Lib "wininet" _
Alias "FindFirstUrlCacheEntryA" _
(ByVal lpszUrlSearchPattern As String, _
lpFirstCacheEntryInfo As Any, _
As Long) As Long
Private Declare Function FindNextUrlCacheEntry Lib "wininet" _
Alias "FindNextUrlCacheEntryA" _
(ByVal hEnumHandle As Long, _
lpNextCacheEntryInfo As Any, _
As Long) As Long
Private Declare Function FindCloseUrlCache Lib "wininet" _
(ByVal hEnumHandle As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" _
(pDest As Any, _
pSource As Any, _
ByVal dwLength As Long)
Private Declare Function lstrcpyA Lib "kernel32" _
(ByVal RetVal As String, ByVal Ptr As Long) As Long
Private Declare Function lstrlenA Lib "kernel32" _
(ByVal Ptr As Any) As Long
Private Declare Function LocalAlloc Lib "kernel32" _
(ByVal uFlags As Long, _
ByVal uBytes As Long) As Long
Private Declare Function LocalFree Lib "kernel32" _
(ByVal hmem As Long) As Long
Function SavePic(Url As String, FileName As String)
Dim icei As INTERNET_CACHE_ENTRY_INFO
Dim hFile As Long
Dim cachefile As String, LocaFile As String
Dim posUrl As Long
Dim posEnd As Long
Dim dwBuffer As Long
Dim pntrICE As Long
hFile = FindFirstUrlCacheEntry(0&, ByVal 0, dwBuffer)
If (hFile = ERROR_CACHE_FIND_FAIL) And _
(Err.LastDllError = ERROR_INSUFFICIENT_BUFFER) Then
pntrICE = LocalAlloc(LMEM_FIXED, dwBuffer)
If pntrICE <> 0 Then
CopyMemory ByVal pntrICE, dwBuffer, 4
hFile = FindFirstUrlCacheEntry(vbNullString, _
ByVal pntrICE, _
dwBuffer)
If hFile <> ERROR_CACHE_FIND_FAIL Then
Do
CopyMemory icei, ByVal pntrICE, Len(icei)
If (icei.CacheEntryType And _
NORMAL_CACHE_ENTRY) = NORMAL_CACHE_ENTRY Then
cachefile = GetStrFromPtrA(icei.lpszSourceUrlName)
If InStr(1, cachefile, Url, vbTextCompare) > 0 Then
LocaFile = GetStrFromPtrA(icei.lpszLocalFileName)
FileCopy LocaFile, FileName
MsgBox "文件保存完畢!"
Exit Function
End If
End If
Call LocalFree(pntrICE)
dwBuffer = 0
Call FindNextUrlCacheEntry(hFile, ByVal 0, dwBuffer)
pntrICE = LocalAlloc(LMEM_FIXED, dwBuffer)
CopyMemory ByVal pntrICE, dwBuffer, 4
Loop While FindNextUrlCacheEntry(hFile, ByVal pntrICE, dwBuffer)
End If
End If
End If
Call LocalFree(pntrICE)
Call FindCloseUrlCache(hFile)
End Function
Private Function GetStrFromPtrA(ByVal lpszA As Long) As String
GetStrFromPtrA = String$(lstrlenA(ByVal lpszA), 0)
Call lstrcpyA(ByVal GetStrFromPtrA, ByVal lpszA)
End Function
二、程序調用舉例:
在窗體中,當用Webbrowser控制項裝入網頁後,記住驗證碼網址,然後作如下調用:
SavePic URL, App.Path & "\1.bmp"
其中的URL即驗證碼網址,App.Path & "\1.bmp" 即保存的文件名
C. asp.net中為什麼在設計窗體中雙擊按鈕不能進入代碼區拜託各位大神
<%@ Page Language="C#" AutoEventWireup="true" CodeFile="Default.aspx.cs" Inherits="_Default" %> 可能是CodeFile沒指令對
滿意請採納
D. 用.Net的WebBrowser控制項載入本地html網頁時,為什麼js沒有載入進去
頁面初始化時未載入function方法,將window.load = function(),再試試有沒有解決問題
E. C#里WebBrowser控制項的問題!高手幫幫忙吧!
兩個辦法:
1.數數按幾個tab可以到那個按鈕,然後,用sendkey函數,發幾個tab, 然後,發一個空格,可以按下那個按鈕。
2.分析一下對方的網頁,用webclient對象直接把提交的數據post上去。那有這么麻煩,還用什麼webbrowser!
-----------
另外,樓上正解!強大!不愧是MS專家!
收藏了!
只是還有個問題,如果那個按鈕按下後,彈出個「are you sure」,該怎麼辦?
F. 用webbrowser控制項開發的程序,點擊界面按鈕頁面不跳轉
1、 在comments.php評論表單中添加自己想要的欄位,如:
<p>
<input type="text" name="tel" id="tel" size="22" tabindex="4" />
<label for="tel">電話</label>
</p>
tabindex 這個屬性按照從小到大排,為什麼要這樣?你可以自己試試….
2、如果評論表單是使用系統自帶的,那麼請用以下方法添加表單欄位,如果不是,請略過
add_filter('comment_form_default_fields','comment_form_add_ewai');
function comment_form_add_ewai($fields) {
$label1 = __( '國家/地區' );
$label2 = __( 'Skype賬號' );
$label3 = __( '電話' );
$label4 = __( '傳真' );
$label5 = __( '地址' );
$value1 = isset($_POST['guojia']) ? $_POST['guojia'] : false;
$value2 = isset($_POST['skype']) ? $_POST['skype'] : false;
$value3 = isset($_POST['tel']) ? $_POST['tel'] : false;
$value4 = isset($_POST['fax']) ? $_POST['fax'] : false;
$value5 = isset($_POST['address']) ? $_POST['address'] : false;
$fields['guojia'] =<<<HTML
<p>
<label for="guojia">{$label1}</label>
<input id="guojia" name="guojia" type="text" value="{$value1}" size="30" />
</p>
HTML;
return $fields;
}
3、 接收表單欄位並寫入資料庫
在主題目錄的 functions.php添加以下代碼
add_action('wp_insert_comment','wp_insert_tel',10,2);
function wp_insert_tel($comment_ID,$commmentdata) {
$tel = isset($_POST['tel']) ? $_POST['tel'] : false;
//_tel 是存儲在資料庫里的欄位名字,取出數據的就會用到
update_comment_meta($comment_ID,'_tel',$tel);
}
這兩步就可以將數據寫入資料庫了,不信你試試看
add_action()參數中的10和2分別表示該函數執行的優先順序是10(默認值,值越小優先順序越高),該函數接受2個參數。
4、在後台顯示額外欄位
前面兩步只是接收和寫入到資料庫,那麼要怎麼在後台評論列表中顯示呢?將以下代碼復制到主題目錄的functions.php 中:
add_filter( 'manage_edit-comments_columns', 'my_comments_columns' );
add_action( 'manage_comments_custom_column', 'output_my_comments_columns', 10, 2 );
function my_comments_columns( $columns ){
$columns[ '_tel' ] = __( '電話' ); //電話是代表列的名字
return $columns;
}
function output_my_comments_columns( $column_name, $comment_id ){
switch( $column_name ) {
case "_tel" :
echo get_comment_meta( $comment_id, '_tel', true );
break;
}
如果要在前台的留言列表中調用,就用以下代碼,_tel就是你在資料庫中存儲的欄位名字
<?php
$tel = get_comment_meta($comment->comment_ID,'_tel',true);
if( !empty($tel)){
echo "電話".$tel;
}
?>
5、 大功告成,看看後台的評論列表,是不是多了一列電話,那樣的話就沒錯了。
6、如果要移除某一個自帶的表單欄位,可以使用以下代碼
function tel_filtered($fields){
if(isset($fields['tel']))
unset($fields['tel']);
return $fields;
}
add_filter('comment_form_default_fields', 'tel')
G. 我的web頁面中有些flash控制項打不開是什麼問題啊.急急急急
下載flash播放插件
H. weboffice控制項載入不上,怎麼處理
在一些BS系統中,有時需要調用word來顯示文本內容,這是一般情況下用到的就是weboffice,如果打開頁面,顯示紅叉,或者文本不顯示時,就需要載入weboffice控制項。
工具/原料
ie
weboffice
方法/步驟
1
其實要載入wboffice很簡單,設置ie瀏覽器即可,瀏覽器會自動載入控制項。
首先打開ie瀏覽器。點擊工具。
2
然後選擇Internet 選項。
3
然後依次點擊「安全」,「可信站點」,「站點」。如圖
4
然後點擊「添加」,將網站添加到可信站點了。再點擊關閉。
5
接下來點擊「自定義級別」。
6
找到activex控制項和插件,將所屬的全部點成啟用。
7
然後點擊關閉。
8
然後重啟瀏覽器。就ok啦。
I. vb 用web控制項瀏覽網頁,在ie中點擊後本來應該在新窗口中打開新的網頁,在vb中點擊無反應,怎麼辦(內詳
額 什麼意思