svnno****@sourc*****
svnno****@sourc*****
2011年 1月 27日 (木) 02:49:03 JST
Revision: 1414
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1414
Author: syo68k
Date: 2011-01-27 02:49:03 +0900 (Thu, 27 Jan 2011)
Log Message:
-----------
「最新の情報に更新」ボタンを追加
Modified Paths:
--------------
trunk/Tween/EventViewerDialog.Designer.vb
trunk/Tween/EventViewerDialog.vb
-------------- next part --------------
Modified: trunk/Tween/EventViewerDialog.Designer.vb
===================================================================
--- trunk/Tween/EventViewerDialog.Designer.vb 2011-01-26 17:40:55 UTC (rev 1413)
+++ trunk/Tween/EventViewerDialog.Designer.vb 2011-01-26 17:49:03 UTC (rev 1414)
@@ -29,6 +29,7 @@
Me.ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.ColumnHeader4 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.CheckExcludeMyEvent = New System.Windows.Forms.CheckBox()
+ Me.ButtonRefresh = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'OK_Button
@@ -85,12 +86,22 @@
Me.CheckExcludeMyEvent.Text = "自分で発生させたイベントを除外"
Me.CheckExcludeMyEvent.UseVisualStyleBackColor = True
'
+ 'ButtonRefresh
+ '
+ Me.ButtonRefresh.Location = New System.Drawing.Point(472, 258)
+ Me.ButtonRefresh.Name = "ButtonRefresh"
+ Me.ButtonRefresh.Size = New System.Drawing.Size(134, 21)
+ Me.ButtonRefresh.TabIndex = 3
+ Me.ButtonRefresh.Text = "最新の情報に更新"
+ Me.ButtonRefresh.UseVisualStyleBackColor = True
+ '
'EventViewerDialog
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.OK_Button
Me.ClientSize = New System.Drawing.Size(691, 291)
+ Me.Controls.Add(Me.ButtonRefresh)
Me.Controls.Add(Me.CheckExcludeMyEvent)
Me.Controls.Add(Me.OK_Button)
Me.Controls.Add(Me.EventList)
@@ -113,5 +124,6 @@
Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader4 As System.Windows.Forms.ColumnHeader
Friend WithEvents CheckExcludeMyEvent As System.Windows.Forms.CheckBox
+ Friend WithEvents ButtonRefresh As System.Windows.Forms.Button
End Class
Modified: trunk/Tween/EventViewerDialog.vb
===================================================================
--- trunk/Tween/EventViewerDialog.vb 2011-01-26 17:40:55 UTC (rev 1413)
+++ trunk/Tween/EventViewerDialog.vb 2011-01-26 17:49:03 UTC (rev 1414)
@@ -68,13 +68,22 @@
End Sub
Private Sub CheckExcludeMyEvent_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckExcludeMyEvent.CheckedChanged
- EventList.BeginUpdate()
- EventList.Items.Clear()
If EventSource IsNot Nothing AndAlso EventSource.Count > 0 Then
+ EventList.BeginUpdate()
+ EventList.Items.Clear()
EventList.Items.AddRange(
CreateListViewItemArray((From x As Twitter.FormattedEvent In EventSource
Where If(CheckExcludeMyEvent.Checked, Not x.IsMe, True) Select x).ToList()))
+ EventList.EndUpdate()
End If
- EventList.EndUpdate()
End Sub
+
+ Private Sub ButtonRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonRefresh.Click
+ If EventSource IsNot Nothing AndAlso EventSource.Count > 0 Then
+ EventList.BeginUpdate()
+ EventList.Items.Clear()
+ EventList.Items.AddRange(CreateListViewItemArray(EventSource))
+ EventList.EndUpdate()
+ End If
+ End Sub
End Class