Imports Microsoft.Office.Interop.ExcelImports Microsoft.Office.CoreProtected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load InsertPicture("c:/aa.xls", "A2", "c:\aa.jpg", "E:/h.xls") End Sub '=
目的:封裝成頁面table,以字串的形式返回給request '將查詢的結果寫到table中,用於popup顯示 Dim temptable As String = "<table border='0' cellpadding='0' cellspacing='1' style ='background-color:#C0FFFF;width:100%;'>"’迴圈行數 While Dr.Read()‘迴圈列數 For i As
Public Function InsertPicture() As String Dim oExcel As New Microsoft.Office.Interop.Excel.Application Dim obook As Microsoft.Office.Interop.Excel.Workbooks Dim oSheet As Microsoft.Office.Interop.Excel.Sheets
其實他的原理很簡單就是下面這個小例子用到的技術:一:createPopup()方法的使用二:內建函式的使用三:setInterval方法的使用function A(){ var i=300; var oPopup = window.createPopup(); //IE5.5+ var str = "<DIV style='background:red'>AAAAAAAAAAAAAAAAAAAAA<br/>
一:vb.net '動態設定該行的背景顏色 '這是個gridview內建的方法(RowDataBound) Protected Sub GvStockScheduleList_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvStockScheduleList.RowDataBound If
1.frames之間值傳遞: function DdlChangeId_Onhanged(obj) { var ff = document.forms[0]; //得到所有的frame var objFrames = parent.frames; var ChangeValue = obj.value; //得到架構一的,一個文字框 var obj_jan =