在VB.NET下面如何顯示和保存縮放圖像

實(shí)現(xiàn)代碼如下：

網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)建站！專注于網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、小程序開發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了積石山保安族東鄉(xiāng)族免費(fèi)建站歡迎大家使用！

Dim img As Image = Image.FromFile("D:\Image\tstImage.jpg") 'tstImage是原先的圖片

Dim grfx As Graphics = Me.CreateGraphics

grfx.DrawImage(img, 0, 0, img.Width * 3, img.Height * 3) '在Form里顯示

Dim imgnew As New System.Drawing.Bitmap(img, img.Height * 3, img.Width * 3) '新建一個(gè)放大的圖片

imgnew.Save("D:\Image\tstNewImage.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) '保存放大后圖片

你可以建一個(gè)Form，然后在Form里拖進(jìn)一個(gè)Button，把上面的代碼放在Button_Click事件里面，執(zhí)行就行了。

對上面代碼的解釋：

1.要獲取Graphics對象只能從某一事件的參數(shù)中獲取或者使用窗體和控件對象的CreateGraphics方法來獲取-----上面代碼使用Me.CreateGraphics來引用這個(gè)對象。

2.加載一個(gè)圖片用Image類的FromFile或者FromStream方法

3.用DrawImage來顯示一個(gè)圖片,該方法有30多個(gè)重載方法，可以查MSDN了解細(xì)節(jié)。

4.保存時(shí)的一個(gè)問題：我們必須先建一個(gè)對象，用于存縮放圖像。

vb.net 如何運(yùn)行javascript

既然引用了COM組件，就可以直接使用了，無需用CreateObject創(chuàng)建。

Dim ScriptControl As New MSScriptControl.ScriptControl

ScriptControl.Language = "JavaScript" '設(shè)置語言種類

ScriptControl.AddCode("function TestFunc(){return 'Hello world!'}") '添加腳本代碼

MsgBox(ScriptControl.Run("TestFunc")) '顯示一下那段腳本的返回值（這里你將看到Hello world!字符)

vb.net向webbrowser執(zhí)行javascript代碼進(jìn)行翻頁，如何讀翻頁后的數(shù)據(jù)

不想用點(diǎn)擊，直接執(zhí)行，那么你肯定就不能用onclick事件了。

在網(wǎng)頁中JS函數(shù)自動(dòng)執(zhí)行常用三種方法

在HTML中的Head區(qū)域中，有如下函數(shù)：

SCRIPT

LANGUAGE="JavaScript"

functionn

MyAutoRun()

{

　//以下是您的函數(shù)的代碼，請自行修改先！

　alert("函數(shù)自動(dòng)執(zhí)行哦！");

}

/SCRIPT

下面，我們就針對上面的函數(shù)，讓其在網(wǎng)頁載入的時(shí)候自動(dòng)運(yùn)行！

①第一種方法

將如上代碼改為：

SCRIPT

LANGUAGE="JavaScript"

functionn

MyAutoRun()

{

　//以下是您的函數(shù)的代碼，請自行修改先！

　alert("函數(shù)自動(dòng)執(zhí)行哦！");

}

window.onload=MyAutoRun();

//僅需要加這一句

/SCRIPT

②第二種方法

修改網(wǎng)頁的Body為：

body onLoad="MyAutoRun();"

或者改為：

body onLoad="javascript:MyAutoRun();"

③第三種方法

使用JS定時(shí)器來間斷性的執(zhí)行函數(shù)：

setTimeout("MyAutoRun()",1000); //隔1000毫秒就執(zhí)行一次MyAutoRun()函數(shù)

實(shí)現(xiàn)方法，將最上面的那JS函數(shù)，改為：

SCRIPT

LANGUAGE="JavaScript"

functionn

MyAutoRun()

{

　//以下是您的函數(shù)的代碼，請自行修改先！

　alert("函數(shù)自動(dòng)執(zhí)行哦！");

}

setTimeout("MyAutoRun()",1000);

//這樣就行拉

/SCRIPT

vb.net 禁止webbrowser中的ALERT等JS對話框

首先在項(xiàng)目引用里面,選擇COM選項(xiàng)卡,添加 Microsoft HTML Object Library

添加mshtml命名空間的引用。

下面看代碼

IHTMLWindow2 win = (IHTMLWindow2)hdoc.Window.DomWindow;

string s = "function confirm() {";

s += "return true;";

s += "}";

s += "function alert() {}";

win.execScript(s, "javascript");

這樣就可以解決在WebBrowser中因有消息窗口彈出而影響程序運(yùn)行過程的問題。

稍加改動(dòng)還可以控制頁面跳轉(zhuǎn)，比如原來的alert()方法是彈出一個(gè)提示信息，現(xiàn)在修改后的代碼不會(huì)有任何操作。

如果你在修改后的代碼加上一段自己的處理程序就不一樣了。當(dāng)彈出alert對話框時(shí)，我就認(rèn)為這個(gè)頁面已經(jīng)處理完成。

現(xiàn)在我需要處理下一個(gè)頁面。這樣的話就在 function alert() {} 的花括號中添加一段javascript的頁面跳轉(zhuǎn)腳本就可以拉。

將代碼修改為如下。就可以達(dá)到理想的效果。以下測試代碼中是在執(zhí)行alert方法時(shí)直接將頁面導(dǎo)航至空白頁。

很想幫你但是盡力了，呵呵。

VB.NET中webbrowser彈出的JS確認(rèn)框如何屏蔽？

vDocument?=?webBrowser1.Document

vDocument.parentWindow.execScript("function?confirm(str){return?true;}?",?"javascript")

vDocument.parentWindow.execScript("function?alert(str){return?true;}?",?"javaScript")

VB.NET抓取網(wǎng)頁JS顯示的內(nèi)容的問題

這個(gè)用到庫的問題(是matlab庫)

開頭:

#include mex.h/*這個(gè)matlab自己的也是必須的*/

庫函數(shù)(4個(gè)參數(shù))//名字忘了太長了

{

//自己的程序;

}