2012年6月29日金曜日

[ASP]画面が表示されるまで「お待ち下さい…」の表示を行なう。

From Evernote:

[ASP]画面が表示されるまで「お待ち下さい…」の表示を行なう。

以下の３ステップを行なう。

①全画面表示される前に準備出来たものから表示するおまじない。これを最初に書く。

<% Response.Buffer=false %>

②bodyタグに以下のonloadスクリプトを追加する。

③表示のdivを作成する。一番上に。

<div id="waitdiv" align="center">
     <br/>
     集計しています。お待ちください…
     <img src="image/roller.gif" border="0" alt="">
</div>

2012年6月21日木曜日

[SQL]SQL文での日付変換あれこれ。

From Evernote:

SQL文での日付変換あれこれ。

●yyyyMMdd（数値型）→Date型

---------------------------------------

SELECT CONVERT(datetime, CAST(CA.数値型 AS VARCHAR), 112) AS 日付型
FROM カレンダーテーブル AS CA

---------------------------------------

●Date型→yy/MM（文字列）

---------------------------------------

SELECT RIGHT(CONVERT(VARCHAR, CA.日付型,111),5) AS 文字列型

FROM カレンダーテーブル AS CA

---------------------------------------

2012年6月18日月曜日

[VB.NET]ﾃｷｽﾄボックスで指定の桁数を入力したら次へフォーカス

From Evernote:

[VB.NET]ﾃｷｽﾄボックスで指定の桁数を入力したら次へフォーカス

# Region " ﾃｷｽﾄﾎﾞｯｸｽ７桁でフォーカス移動"

Private Sub txtTEST_KeyPress( ByVal sender As System.Object, _

ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTEST.KeyPress

Dim strBefore As String = Me .txtTEST.Text.Trim

If strBefore.Length = 6 AndAlso _

Asc(e.KeyChar) <> Keys.Back AndAlso _

e.KeyChar.ToString.Trim.Length = 1 AndAlso _

Me.txtEigen.SelectionStart = 6 Then

Me.txtNEXT.Select()

End If

End Sub

# End Region

2012年6月15日金曜日

[VB.NET]ﾃｷｽﾄボックスにて条件に合わない入力の場合はキャンセル

From Evernote:

[VB.NET]ﾃｷｽﾄボックスにて条件に合わない入力の場合はキャンセル

Private Sub txtEigen_KeyPress( ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtEigen.KeyPress

'例：Aの入力をなかったことにする

If e.KeyChar = "A" Then

e.Handled = True

End If

End Sub

[.NET]列挙型(Enum)のオリジナル使い方

From Evernote:

[.NET]列挙型(Enum)のオリジナル使い方

フツウに宣言して自分変数として使うけど、

その他色々使うメモ。

'宣言部==============================

Private Enum ABCD As Integer

A = 1

B = 2

C = 3

D = 4

End Enum

'①通常の使い方

If tmp = ABCD.A.GetHashCode

MessageBox.Show("あたり")

End If

'②定義されている数や中身を知りたい場合

Dim cnt As Integer = 0

For Each EnumNumber As ABCD In System.Enum.GetValues(GetType (ABCD))

cnt += 1

MessageBox.Show(EnumNumber)

'ここからは自分流==============

'これはEnum宣言と同じく作っておく

Private Function GetName( ByVal Type As Type, ByVal Code As Integer ) As String

Dim tmp As String = Nothing

If Type Is GetType(ABCD) Then

Select Case Code

Case ABCD.A.GetHashCode

tmp = "えー"

Case ABCD.B.GetHashCode

tmp = "びー"

Case ABCD.C.GetHashCode

tmp = "しー"

Case ABCD.D.GetHashCode

　 tmp = "でー"

End Select

End If

Return tmp

End Function

# End Region

'たとえば列挙したデータでデータテーブルを作りたい場合==============

Dim dt As New DataTable

dt.Columns.Add( "id" , GetType( Integer))

dt.Columns.Add( "name" , GetType( String))

For Each EnumNumber As ABCDIn System.Enum.GetValues(GetType (ABCD))

Dim dr As DataRow = dt.NewRow

dr.Item( "id" ) = EnumNumber

dr.Item( "name" ) = GetName( GetType(ABCD), EnumNumber)

dt.Rows.Add(dr)