Changeset 32906 for lang/vb2005/TenageM

Timestamp:

04/28/09 19:25:01 (4 years ago)

Author:

kiri_feather

Message:

 

Location:

lang/vb2005/TenageM/trunk/TenageM

Files:

• Controller/TenageMController.vb (modified) (2 diffs)
• UI/InputForm.vb (modified) (3 diffs)

lang/vb2005/TenageM/trunk/TenageM/Controller/TenageMController.vb

@@ -86 +86 @@
 
     Public Sub SaveTweet(ByVal tweet As String)
-        SavedTweets.Instance.Tweets.Insert(0, tweet + " at " + DateTime.Now.ToString("yyMMdd HHmmss"))
+        SavedTweets.Instance.Tweets.Insert(0, tweet + "(" + DateTime.Now.ToString("dd-HHmm") + ")")
         SavedTweets.SaveSettings()
     End Sub
@@ -96 +96 @@
     Public Sub CheckConnection()
         Dim connected As Boolean = WebAccessBase.IsConnected
-        If _connected <> connected Then
+        If _connected <> connected Orelse _connected Is Nothing Then
             _connected = connected
             RaiseEvent Online(Me, New OnlineChangedEventArgs(connected))

lang/vb2005/TenageM/trunk/TenageM/UI/InputForm.vb

@@ -1 @@
-Public Class InputForm
+Public Class InputForm
 
     Private _controller As TenageMController
@@ -25 +25 @@
 
     Private Sub InputForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        CType(Me.Panel1, Control).TabIndex = 0
         _controller = New TenageMController()
         AddHandler _controller.Online, AddressOf Me.Controller_OnlineChanged
@@ -39 +40 @@
             Windows.Forms.Cursor.Current = Windows.Forms.Cursors.WaitCursor
             _controller.PostTweet(TweetText.Text.Trim)
+            TweetText.Text = ""
             Windows.Forms.Cursor.Current = Windows.Forms.Cursors.Default
         End If