| 日 | 月 | 火 | 水 | 木 | 金 | 土 |
|---|---|---|---|---|---|---|
| 1 | 2 | 3 | ||||
| 4 | 5 | 6 | 7 | 8 | 9 | 10 |
| 11 | 12 | 13 | 14 | 15 | 16 | 17 |
| 18 | 19 | 20 | 21 | 22 | 23 | 24 |
| 25 | 26 | 27 | 28 | 29 | 30 |
'- 1ページ目から表示させる処理 --
Private Sub PagerReset()
Dim dp As DataPager = ListView1.FindControl("pager")
If Not dp Is Nothing Then
'リセット用もしくは先頭ページへのコマンドを指定
Dim cmdEventArgs As CommandEventArgs = New CommandEventArgs("Reset", "")
Dim tempPagerField As TemplatePagerField = dp.Fields(0)
If Not tempPagerField Is Nothing Then
'ここでPagerCommandのイベントが処理される
tempPagerField.HandleEvent(cmdEventArgs)
End If
End If
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles Me.Load
If Not IsPostBack Then
TextBox1.Text = "あいうえお"
TextBox1.Attributes.Add("onfocus", "this.select();")
TextBox1.Focus()
End If
End Sub
'/// 半角カタカナは全角に変換し、全角英数字記号は半角に変換 //////
Public Function ConvANK(ByVal moto As String) As String
'-- 全角の英数字、記号、スペースを半角に --
Dim re As Regex = New Regex("[０-９Ａ-Ｚａ-ｚ：，． ]+")
Dim output As String = re.Replace(moto, AddressOf myReplacer)
'-- 半角カタカナ(Unicodeで\uFF61-\uFF9Fが範囲)を全角に --
Dim re2 As Regex = New Regex("[\uFF61-\uFF9F]+")
Dim output2 As String = re2.Replace(output, AddressOf myReplacer2)
Return output2
End Function
'/// 半角変換 ///
Shared Function myReplacer(ByVal m As Match) As String
Return Strings.StrConv(m.Value, VbStrConv.Narrow, 0)
End Function
'/// 全角変換 ///
Shared Function myReplacer2(ByVal m As Match) As String
Return Strings.StrConv(m.Value, VbStrConv.Wide, 0)
End Function
'//// Ajax対応版MsgBox //////
Private Sub AjaxMsgBox(ByVal msg As String)
Dim strScript As String = "alert('" & msg & "');"
ScriptManager.RegisterClientScriptBlock(UpdatePanel1, Me.GetType(), _
"msgbox", strScript, True)
End Sub
Dim recCount as Long
Protected Sub SqlDataSource1_Selected(ByVal sender As Object, _
ByVal e As System.Web.UI.WebControls.SqlDataSourceStatusEventArgs)
recCount = e.AffectedRows
End Sub
'--上記２の処理--
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles Me.Load
If Not IsPostBack Then
ddlOrder.Items.Clear()
ddlOrder.Items.Add(New ListItem("全て", ""))
ddlOrder.AppendDataBoundItems = True
End If
End Sub
'--上記３の処理--
Private Sub ddlOrder2_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles ddlOrder2.DataBound
If ddlOrder2.Items.Count = 0 Or _
(ddlOrder2.Items.Count > 0 AndAlso ddlOrder2.Items(0).Text <> "全て") Then
ddlOrder2.Items.Insert(0, New ListItem("全て", ""))
End If
End Sub
この広告は90日以上新しい記事の投稿がないブログに表示されております。
