Just a note

ASP.NET 使用meta content= text/html 方式，將 Gridview export to Excel

2024-10-08T22:57:00.001+08:00

meta content= text/html and gridview export to excel

資料匯出

由於是meta content= text/html 格式，所以報錯

格式與網頁一樣

.ASP

......................

</head>

<body>

<div>

<asp:ScriptManager ID="ScriptManager1" runat="server" />

<asp:UpdatePanel ID="UpdatePanel1" runat="server">

<asp:Button ID="btnExport" runat="server" Text="匯出" Font-Size="X-Large" Width="100px" />

<asp:GridView ID="GridView1" runat="server" />

</ContentTemplate>

<asp:postbacktrigger controlid="btnExport" />

</triggers>

</asp:UpdatePanel>

</div>

</form>

</body>

.ASP.VB

......................

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If Not IsPostBack Then

DatatableBindToGridview()

End If

End Sub

Private Sub DatatableBindToGridview()

Dim dt As New DataTable

With dt

.Columns.Add("格式1", GetType(String))

.Columns.Add("格式2", GetType(String))

For i As Integer = 0 To 10

.Rows.Add()

.Rows(i).Item(0) = Format(i, "00")

.Rows(i).Item(1) = Format(i, "00")

End With

With GridView1

.DataSource = dt

.DataBind()

.HorizontalAlign = HorizontalAlign.Center

.GridLines = GridLines.Both

.HeaderStyle.BorderColor = Drawing.Color.Black

.HeaderStyle.BackColor = Drawing.Color.Gray

.HeaderStyle.ForeColor = Drawing.Color.White

.Font.Size = 14

End With

End Sub

Private Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound

If GridView1.Rows.Count < 0 Then Exit Sub

If e.Row.RowType = DataControlRowType.DataRow Then

If e.Row.RowIndex Mod 2 = 0 Then

e.Row.BackColor = Drawing.Color.LemonChiffon

Else

e.Row.BackColor = Drawing.Color.AliceBlue

End If

End Sub

Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

'少了這個Sub

'GridView1.RenderControl 時會產生

'型別 'GridView' 的控制項

'GridView1 必須置於有 runat=server 的表單標記之中。

End Sub

Protected Sub btnExport_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnExport.Click

Dim sw As New System.IO.StringWriter

Dim hw As New System.Web.UI.HtmlTextWriter(sw)

GridView1.RenderControl(hw)

With Response

.ClearContent()

.AppendHeader("Content-Disposition", "attachment; filename=" & Format(Now, "yyyyMMdd HHmmss") & ".xls")

.ContentType = "application/vnd.ms-excel"

.Write("<meta http-equiv='Content-Type' content='text/html; charset=utf-8'>")

.Write("<style type=text/css>")

.Write("td{mso-number-format:\@;}")

.Write("</style>")

.Write(sw.ToString())

.End()

End With

End Sub

gridview 分頁 mssql 語法

2024-10-08T22:56:00.003+08:00

先使用 select count 做總筆數與每頁幾筆與分頁的安排

layout 如右《 1 2 3 4 5 6 7 8 9 10 》
一次秀十頁與超過十頁後下拉選項的頁數

如程式點 8 且每頁10筆
則 Row BETWEEN (8 - 1) * 10 + 1 AND 8 * 10

如程式點 2 且每頁20筆
則 Row BETWEEN (2 - 1) * 20 + 1 AND 2 * 20

WITH tmpTable AS
(
SELECT ROW_NUMBER() OVER (ORDER BY A001 DESC) AS Row , A001, A002, A003, A004,
A005, Pass
FROM DSN001
WHERE A004 like '%2%'
)
select * from tmpTable WHERE Row BETWEEN 2 AND 5

紅字為原本 sql 語法
除了排序的部份
要拆放在 row number
其他直接套用

這會有效減少頻寬的浪費

jquery ajax ashx

2024-10-08T22:56:00.002+08:00

function DivRemove(obj, str) {
var text = obj.name;
var formdata = new FormData();
formdata.append("myText", text);
var ajax = new XMLHttpRequest();
ajax.open("POST", "Dol.ashx");
ajax.send(formdata);

var newobj = '#' + str
$(str).remove();
}

<%@ WebHandler Language="VB" Class="Dol" %>

Imports System
Imports System.Web
Imports System.IO
Imports System.Web.SessionState

Public Class Dol: Implements IHttpHandler, IRequiresSessionState

Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
Dim savepath As String = ""
Dim tempPath As String = ""
tempPath = System.Configuration.ConfigurationManager.AppSettings("FolderPath")
savepath = context.Server.MapPath(tempPath)

Dim FileName As String = context.Request("myText")
'Dim FileNameArr As String() = Split(FileName, "\")
'FileName = Format(Now, "yyyyMMdd HHmmss") & "." & FileNameArr(FileNameArr.Length - 1)

If File.Exists(savepath & "\" & FileName) = True Then
File.Delete(savepath & "\" & FileName)
End If

End Sub

Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
Get
Return False
End Get
End Property

End Class

文字長度測試

2024-10-08T22:54:00.000+08:00

用二個DIV做出立體按鈕

2024-08-04T15:17:00.003+08:00

<div id="demo" style="width:100%;

/*border:1px solid gray;*/

word-break: break-all;

text-align:center;

padding:4px;

color:white;

font:20px arial;

text-shadow: 2px 2px 4px #000000;">查詢</div>

</div>

<style>

.gradO {

/* border:1px solid gray;*/

width:72px;

height:72px;

padding: 8px;

border-radius:50%;

background-image: linear-gradient(45deg, rgb(255,0,0), rgb(255,182,193));

}

.gradO:hover {

box-shadow: 5px 10px 18px #d5d5d5;

}

.parent {

display: flex;

justify-content: center;

align-content: center;

flex-wrap: wrap;

cursor:default;

}

.parent:hover {

cursor:pointer;

}

.gradI {

padding: 6px;

width:56px;

height:56px;

border-radius:50%;

background-image: linear-gradient(45deg, rgb(255,182,193), rgb(255,0,0));

}

</style>

省略 myFunction

html table 常用設定

2024-08-04T15:08:00.002+08:00

<style>

.tableFixHead { overflow: auto; height: 300px; width: fit-content;}

.tableFixHead table { border-collapse: collapse; font:20px arial;}

.tableFixHead th, td { padding: 5px; border-radius: 1px; border: 1px solid lightgray;}

.tableFixHead thead { position: sticky; top: -1px; z-index: 1; background-color: gray; color: #fff; text-shadow: 1px 1px 2px #000; text-align:center;}

.tableFixHead tbody tr:nth-child(odd) { background-color: LemonChiffon;}

.tableFixHead tbody tr:nth-child(even) { background-color: AliceBlue;}

.tableFixHead tbody tr:hover { background-color: lightskyblue;}

.tableFixHead tbody tr.selected { border: 2px solid red; background-color: darkgray; color: #fff; text-shadow: 1px 1px 2px #000;}

</style>

const rows = document.querySelectorAll('tbody tr');

for (let i = 0; i < rows.length; i++) {

rows[i].onclick = function () {

highlightTableRow(this);

};

}

function highlightTableRow(row) {

const previouslySelectedRow = document.querySelector('tr.selected');

if (previouslySelectedRow) {

previouslySelectedRow.classList.remove('selected');

}

row.classList.add('selected');

}

</script>

民國年月日

2023-02-22T20:50:00.001+08:00

function Year1911() {

var d = new Date();

var yyy = d.getFullYear() - 1911;

var MM = d.getMonth() + 1;

MM = MM > 10 ? MM : '0' + MM;

var dd = d.getDate();

dd = dd > 10 ? dd : '0' + dd;

return (yyy + '' + MM + '' + dd);

}

ASP.NET AutoCompleteExtender 模糊查詢下拉式選單

2020-05-13T07:27:00.000+08:00

查詢鼎新會計科目為例

.ASPX

<asp:ScriptManager ID="ScriptManager1" runat="server" EnablePageMethods = "true" />

<asp:TextBox ID="txtItem" runat="server"></asp:TextBox>
<asp:AutoCompleteExtender
runat="server"
ID="AutoCompleteExtender1"
TargetControlID="txtItem"
ServiceMethod="SearchItem"
MinimumPrefixLength="1"
CompletionInterval="100"
EnableCaching="false"
CompletionSetCount="10"
FirstRowSelected = "false" >
</asp:AutoCompleteExtender>

.ASPX.VB

Imports System.Data.SqlClient

<System.Web.Script.Services.ScriptMethod(), System.Web.Services.WebMethod()> _
Public Shared Function SearchItem(ByVal prefixText As String, ByVal count As Integer) As List(Of String)

Dim cn As New SqlConnection
cn.ConnectionString = ConfigurationManager.ConnectionStrings("myConn").ConnectionString
cn.Open()

Dim cmd As New SqlCommand
cmd.Connection = cn
cmd.CommandText = "select distinct top (@MyCount) TH004, TH008 from COPTH where TH004 LIKE @SearchText + '%'"
cmd.Parameters.AddWithValue("@MyCount", count)
cmd.Parameters.AddWithValue("@SearchText", prefixText)

Dim customers As List(Of String) = New List(Of String)
Dim sdr As SqlDataReader
sdr = cmd.ExecuteReader()

While sdr.Read
customers.Add(sdr("TH004").ToString & vbNewLine & " " & sdr("TH008").ToString)
End While

cn.Close()
Return customers

End Function

web.config
<connectionStrings>
<add name="myConn" connectionString="Data Source=.\SQLExpress;Initial Catalog=myDB;Persist Security Info=True;User ID=myID;Password=myPWD"/>
</connectionStrings>

api-ms-win-crt-runtime-l1-1-0.dll

2019-01-15T12:30:00.000+08:00

今天使用者問了一個問題，上網查了一下資料；不少應用軟體都會出現這個問題。

解決方法如下：
Windows 中通用 C 執行階段的更新 KB2999226
請在微軟提供的資料中，尋找對應版本下載

如果你的電腦沒有升級 SP，請先到這裡下載對應版本
當您嘗試安裝 Windows 7 SP1、Windows Server 2008 R2 SP1 或 Windows Embedded Standard 7 SP1 時，可取得防止「0xC0000034」錯誤訊息出現的更新

如果你的電腦沒有安裝 Visual C++，也請到這裡下載對應版本
下載Visual C++ 可轉散發套件會安裝執行階段元件，這些是執行使用 Visual Studio 2015 建置的 C++ 應用程式所必備的元件。

ASP.NET 在 postback 後，所有 JavaScript 功能失效

2017-08-02T15:11:00.000+08:00

因為不常寫 webpage ，遇到這個事，還浪費了半天找資料測試。就像是，我也常常搞不懂 M$ ......

原本按MOQ設定會彈出畫面

第一次執行都是正常的，但是一經過 postback 後，又像是，變調的戀情，回不去了~~

程式架構 Master + Content + UpdatePanel1

處理方法

1. 在 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me

.Load

加上

ScriptManager.RegisterStartupScript(Me, Page.GetType, "Script", "initAllEvent();", True)

PS.原來是 M$ 在 postback 後清掉了所有“異已” >"<

2.在自訂的 js 檔案中，把所有要初始化的事件寫在裡面

function initAllEvent() {

$("#btnMOQ").click(function () {

SelectorDivShow("#divWhite1");

});

......

}

再測試一次，果然就正常了！！

.net 使用 osk 出現無法啟動螢幕小鍵盤的錯誤處理

2015-12-10T11:39:00.002+08:00

程式寫好後，移到別台會出現的錯誤

Code Snip
#Region "On Screen Keyboard"
Private OSK As System.Diagnostics.Process

Public Sub CloseKeyboard()
If OSK IsNot Nothing Then
If Not OSK.HasExited Then
OSK.Kill()
End If
OSK.Close()
OSK = Nothing
End If
End Sub

Public Sub OpenKeyboard()
Try
If OSK Is Nothing OrElse OSK.HasExited Then
OSK = Process.Start("C:\Windows\System32\osk.exe")
End If
Catch
End Try
End Sub
#End Region

重新設定目標CPU 為 AnyCPU 就正常了

利用 MenuStrip 做多國語言的切換

2015-12-10T11:25:00.000+08:00

相關的參考，在程式中有備註

初始畫面會先跑預設語言

選擇語言檔設定的語系

語言檔的內容設定

Code Snip
Public Class frmMain

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MenuStrip1.Font = New Font("arial", 10)
tsLanguage.Font = New Font("arial", 10)

Dim lines As String() = StrArr()
For i As Integer = 0 To lines.Length - 1
If Mid(lines(i), 3, 1) = "-" Then tsLanguage.Items.Add(lines(i))
Next
tsLanguage.SelectedIndex = 0
End Sub

'轉換語系
Private Sub tsLanguage_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles tsLanguage.SelectedIndexChanged
Me.Cursor = Cursors.WaitCursor
'獲得語系檔
Dim lines As String() = StrArr()
For i As Integer = 0 To lines.Length - 1
'比對語系所在列數
If tsLanguage.SelectedItem = lines(i) Then
'底下程式太長太亂，另開副程序開始置換
CollectionCtrl(lines, i + 1)
End If
Next
Me.Cursor = Cursors.Default
End Sub

Private Sub CollectionCtrl(ByVal lines() As String, ByVal CurRow As Integer)
'置換迴圈
For i As Integer = CurRow To lines.Length - 1
'直到檔尾或下一個語系：例 en-us 的 "-" 請不要更改
If Mid(lines(i), 3, 1) = "-" Then Exit Sub
'搜尋表單上的控制項
For Each ctrl As Control In Controls
'語系檔該行空白不比對
If lines(i) <> Nothing Then
Select Case ctrl.Name
'由於物件特性，底下物件必須遞迴才能找到
Case "MenuStrip1"
Dim ts As ToolStrip = CType(ctrl, ToolStrip)
For j As Integer = 0 To ts.Items.Count - 1
tsRecursive(ts.Items(j), lines, i)
Next
Case Else
If ctrl.Tag = Trim(Split(lines(i), "=")(0)) Then _
ctrl.Text = Trim(Split(lines(i), "=")(1))
End Select
End If
Next
Next
End Sub

Private Sub tsRecursive(ByVal tsmi As ToolStripMenuItem, ByVal lines() As String, ByVal CurRow As Integer)
On Error Resume Next
If tsmi.Tag = Trim(Split(lines(CurRow), "=")(0)) Then _
tsmi.Text = Trim(Split(lines(CurRow), "=")(1))
'遞迴
For i As Integer = 0 To tsmi.DropDownItems.Count - 1
tsRecursive(tsmi.DropDownItems(i), lines, CurRow + 1)
Next
End Sub

Private Function StrArr() As String()
'語系檔在相對目錄 \language\bin\Debug\
Dim txtReader As IO.StreamReader = IO.File.OpenText(Application.StartupPath & "\Language.ini")
Dim fileContents As String = txtReader.ReadToEnd()
txtReader.Close()
Return Split(fileContents, Environment.NewLine)
End Function
End Class

asp 的 session 轉到 aspx 可用的 session

2015-12-10T11:23:00.000+08:00

在條件限制不能使用 cookie 的情況下
IIS 中的虛擬目錄 Session 無法共用
就算在相同目錄 asp 與 aspx 也無法共用
考慮安全性與便利性

利用 asp 將所有的 Session 使用 Form Post 的方法傳遞給 aspx 的程式

aspSession.asp
-----------------------------------------------
<html>
<head>
<title>ASP Session</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
</head>

<body>
<%
Response.CodePage = 65001
Response.CharSet = "utf-8"
Response.Write("<FORM name=trans id=trans action=aspxSession.aspx method=post >")

For Each Item In Session.Contents
If Item <> "SYS_MailSender" then
Response.Write("<input type=hidden name=" & Item)
Response.Write( " value=" & Session(item) & " >")
'Response.Redirect("aspxSession.aspx?target=" + Session(item))
End If
Next

Response.Write("</FORM>")
Response.Write("<scr" + "ipt>trans.submit();</scr" + "ipt>")
%>
</body>
</html>
-----------------------------------------------

再由 aspx 的程式重新設定 Session

aspxSession.aspx.vb
-----------------------------------------------
Public Class aspxSession
Inherits System.Web.UI.Page

' ASP 寫進的 Session 必須要在這轉成 ASP.NET
'本來要用 Request.QueryString 來處理的
'後來考慮安全性，所以用aspSession.asp/Form Action 的方式
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

'Session("Emp_Id") = Request.QueryString("target")

For i As Integer = 0 To Request.Form.Count - 1
Session(Request.Form.GetKey(i)) = Request.Form(i)
Next

If Session("Emp_Id") = "" Then
Response.Redirect("~/")
Else
Response.Redirect("~/eFormQuot/undertake.aspx")
End If

End Sub

End Class
-----------------------------------------------

把四四方方的控制項，弄得圓圓的美化方法

2015-03-27T11:24:00.001+08:00

在一開始往下的時候，一定要先看 Control.Region 屬性
MSDN裡面有示範程式，我就不現醜了 =.=

雖然，這些 button 也不會真的很難看

但很明顯的，美化後真的太視覺系了

控制項在多執行緒出現錯誤

2015-03-27T10:56:00.000+08:00

如果在使用多執行緒(Multithreaded ) 時，
想把執行後的資料回傳到表單上的控制項，
除了委派(delegate) 或使用 BackgroundWorker 元件之外，
最快的方式，應該是直接在 form load 的事件中，加上
Form.CheckForIllegalCrossThreadCalls = False。
但是MSDN上的備註裡，也提醒

Control.CheckForIllegalCrossThreadCalls
"當控制項的建立執行緒以外的執行緒嘗試存取該控制項的其中一個方法或屬性時，它通常會導致無法預期的結果。 "

所以，是要用還是不要用?????? 那就見人見智了!!!!!!!!

如何在 .net 的工具箱顯示 Advantech USB 4751L 的控制項

2015-03-26T18:03:00.001+08:00

這個標題其實下的不好~~

前天同事在問，自動量測儀器中，有一台研華的IO卡，
為什麼沒辦法在 .net 的工具箱，看到相關的控制項。
想了很久，因為這個程式是去年寫好的，所以......

為了預防我自已又忘了，開始嗡嗡嗡

1.選定頁籤後，在空白處按滑鼠右鍵

2.選擇項目

3.瀏灠檔案後，選擇 windows \ system32 \ automation.dbaq.dll

檢查遠端主機是否連線與反應時間

2015-03-26T17:39:00.001+08:00

以前連接遠端主機前，都會先檢查主機是否正常。
在程式裡會加上 My.Computer.Network.Ping(host) 判斷。
但有時網路頻寬常常會不穩定，所以必須加上一些參數來參考。

最先想到這個

但我嫌他太麻煩了，還要拆文字檔才能得到結果。
所以又換了一個方法，還不錯用，給各位參考。

'伺服器的反應時間
Private Sub PingRoundTime(ByVal host As String, ByVal size As String)
Try
Dim PingSVR As New Ping
Dim InfoSVR As PingReply
Dim Buff(size) As Byte

InfoSVR = PingSVR.Send(host, 1000, Buff)

With InfoSVR
If .Status = IPStatus.Success Then
MessageBox.Show(.RoundtripTime.ToString)
Else
MessageBox.Show(.Status.ToString)
End If
End With
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

SQLite 新嘗試

2015-03-04T15:42:00.000+08:00

寫程式做資料統計有很多年了，要用 SQLite 來紀錄，還是頭一回。
先分享官網下載的網頁 System.Data.SQLite Downloads

至於UI 的操作，個人覺得 DB Browser for SQLite 很好用。

以上請依據作業系統，選擇合適的版本下載使用吧！

asp.net 網頁生命週期

2014-04-23T14:04:00.000+08:00

網頁載入事件的順序，詳情請參考圖的來源 asp.net page life cycle.

List all Microsoft SQL Server / Instance Names

2014-04-15T21:52:00.000+08:00

查出在一台伺服器中，同時安裝多少個執行個體（Instance）

最近開發 KONNEX (KNX)相關的程式，這個協會有提供特定的軟體給使用者設定並開發，其中也會安裝資訊庫。如果要自動設定 physical address 就必須讀取相關的 firmware info. 又要配合專案......唉，真是一言難盡。
以下是針對未來使用者可藉由不同的執行個體(Instance)名稱，作為存取資料庫系統依據的程式碼
-----------------------------------------------------------
Sub ScanSQLInstance()
'指定在 64 位元作業系統上以哪個登錄檢視為目標
Dim RV As RegistryView
If Not Registry.LocalMachine.OpenSubKey("SOFTWARE\Wow6432Node") Is Nothing Then
RV = RegistryView.Registry64
Else
RV = RegistryView.Registry32
End If
'登錄機碼節點
Dim baseKey As RegistryKey = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RV)
'節點下的子機碼
Dim key As RegistryKey = baseKey.OpenSubKey("SOFTWARE\Microsoft\Microsoft SQL Server\Instance Names\SQL")

ListBox1.Items.Add(key.Name)
ListBox1.Items.Add("-----------------------------------------------")
'列出所有機碼名稱的字串陣列
For Each s As String In key.GetValueNames()
ListBox1.Items.Add(s)
Next
'收工 ^^
key.Close()
baseKey.Close()
End Sub

搜尋含區域網路內sql執行個體
Using System.Data.Sql

Dim sqlServer As SqlDataSourceEnumerator = SqlDataSourceEnumerator.Instance
Dim db As DataTable = sqlServer.GetDataSources()
Dim Name As String() = New String(db.Rows.Count - 1) {}
For i As Integer = 0 To db.Rows.Count - 1
Name(i) = db.Rows(i)(0).ToString() + db.Rows(i)(1).ToString().Trim()
toolStripTextBox1.Items.Add(Name(i))
Next

VB.NET ComboBox 模糊查詢下拉式選單

2014-04-11T14:25:00.000+08:00

下拉選單

可模糊查詢的下拉選單

Dim authors As New AutoCompleteStringCollection
With authors
.Add("Keelung")
.Add("Taipei")
.Add("Taoyuan")
.Add("Hsinchu")
.Add("Miaoli")
.Add("Taichung")
.Add("Changhua")
.Add("Nantou")
.Add("Chiayi")
.Add("Yunlin")
.Add("Tainan")
.Add("Kaohsiung")
.Add("Pingtung")
.Add("Taitung")
.Add("Hualien")
.Add("Ilan")
End With

With ComboBox1
.AutoCompleteMode = AutoCompleteMode.Suggest
.AutoCompleteSource = AutoCompleteSource.CustomSource
.AutoCompleteCustomSource = authors
.DataSource = authors
.SelectedIndex = -1
End With

GridView 固定標題列與凍結欄位

2014-04-11T13:56:00.001+08:00

配合鼎新的 ERP 做好一個報價功能的網頁
結果發現單身的部份如果要將標題列凍結還要寫很久~~~

晚上找了G大神搜尋了一下嘿嘿嘿 ^^

很輕鬆的就把gridview 標題列凍結了

gridview 標題列凍結程式請參考 gridviewscroll Demo

Excel 專案工作日計算與預估

2014-04-11T10:48:00.000+08:00

工作上須要紀錄專案起始日、到期日與完成率，並自動推算未完成的專案，會在什麼時候完成。

Excel 2003

函數設計：1.設定一個重啟的基礎日
2.計算出原本用掉的天數與完成率的比
3.求出2.再乘與未完成率得到剩餘工作天
4.求出3.與重起日相加

計算日曆天 E1 =D2+ DATEDIF(A2,B2,"D")/C2*(1-C2)

計算工作天 E3 =WORKDAY(D2,NETWORKDAYS(A2,B2)/C2*(1-C2))

如果要扣掉工作天，必須使用 WORKDAY 與 NETWORKDAYS
請記得引用

JavaScript 網頁執行時，重新定義大小並置中

2013-05-10T15:24:00.001+08:00

在 head 加上
<script type="text/javascript" src="pst.js" ></script>

在 pst.js(或是直接寫在 head 也是可以啦 ^^" )
function window.onload() {
reSize(1024, 600);
}

function reSize(x, y) {
if (x > screen.availWidth) x = screen.availWidth
if (y > screen.availHeight) y = screen.availHeight
self.moveTo((screen.availWidth - x) / 2, (screen.availHeight - y) / 2);
self.resizeTo(x, y);
}

ASP.NET Calendar 隱藏的問題(必須要有物件)

2013-04-24T12:04:00.001+08:00

本來單純的想說
簡單的做一下日期控制
應該不用Ajax

就使用工具箱的Calendar 控制項
<asp:TextBox ID="txtDate" runat="server" Width="88px" />
做日期的點選後
再隱藏就好
<asp:Calendar ID="Calendar1" runat="server"

BackColor="#FFFFCC" BorderColor="#FFCC66" BorderWidth="1px"
DayNameFormat="Shortest" Font-Names="Verdana" Font-Size="8pt"
ForeColor="#663399" Height="200px" ShowGridLines="True" Width="220px" >
<DayHeaderStyle BackColor="#FFCC66" Font-Bold="True" Height="1px" />
<NextPrevStyle Font-Size="9pt" ForeColor="#FFFFCC" />
<OtherMonthDayStyle ForeColor="#CC9966" />
<SelectedDayStyle BackColor="#CCCCFF" Font-Bold="True" />
<SelectorStyle BackColor="#FFCC66" />
<TitleStyle BackColor="#990000" Font-Bold="True" Font-Size="9pt"
ForeColor="#FFFFCC" />
<TodayDayStyle BackColor="#FFCC66" ForeColor="White" />
</asp:Calendar>

code behind
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
Dim myScript As String = Nothing
myScript += "<script type='text/javascript'>"
myScript += " function iniDisplay(tmpObj,tmpVal) {"
myScript += " var objID = document.getElementById(tmpObj);"
myScript += " objID.style.display = tmpVal;}"
myScript += "</script>"
'不能使用 Add 須使用 RegisterStartupScript
'Page.Controls.Add(New LiteralControl(myScript))
Page.ClientScript.RegisterStartupScript(Me.GetType(), "onload", myScript)

If (Not Page.ClientScript.IsStartupScriptRegistered("alert")) Then
Page.ClientScript.RegisterStartupScript(Me.GetType(), "alert", "iniDisplay('CalendarDisp','none');", True)
End If

txtDate.Attributes.Add("onclick", "iniDisplay('CalendarDisp','');")
End If
End Sub

Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As EventArgs) Handles Calendar1.SelectionChanged
txtDate.Text = Format(Calendar1.SelectedDate, "yyyyMMdd")

If (Not Page.ClientScript.IsStartupScriptRegistered("alert")) Then
Page.ClientScript.RegisterStartupScript(Me.GetType(), "alert", "iniDisplay('CalendarDisp','none');", True)
End If
End Sub

在點選日期時
結果發生了這個錯誤
想說一開始
即然就能隱藏跟彈出
沒有道理點選後再隱藏，就失效了......@#$%
將 myScript 的 iniDisplay 移出 aspx 再測試一下

嘿嘿嘿...收工，但真是搞不懂

程式下載

Just a note

ASP.NET 使用meta content= text/html 方式，將 Gridview export to Excel

gridview 分頁 mssql 語法

jquery ajax ashx

文字長度測試

用二個DIV做出立體按鈕

html table 常用設定

民國年月日

ASP.NET AutoCompleteExtender 模糊查詢下拉式選單

api-ms-win-crt-runtime-l1-1-0.dll

ASP.NET 在 postback 後，所有 JavaScript 功能失效

.net 使用 osk 出現 無法啟動螢幕小鍵盤 的錯誤處理

利用 MenuStrip 做多國語言的切換

asp 的 session 轉到 aspx 可用的 session

把四四方方的控制項，弄得圓圓的美化方法

控制項在多執行緒出現錯誤

如何 在 .net 的工具箱顯示 Advantech USB 4751L 的控制項

檢查遠端主機是否連線與反應時間

SQLite 新嘗試

asp.net 網頁生命週期

List all Microsoft SQL Server / Instance Names

VB.NET ComboBox 模糊查詢下拉式選單

GridView 固定標題列與凍結欄位

Excel 專案工作日計算與預估

JavaScript 網頁執行時，重新定義大小並置中

ASP.NET Calendar 隱藏的問題(必須要有物件)

.net 使用 osk 出現無法啟動螢幕小鍵盤的錯誤處理

如何在 .net 的工具箱顯示 Advantech USB 4751L 的控制項