Dim expr As LambdaExpression
expr = ParseLambda(Of PostClass, Boolean)(text, New PostClass)
Catch ex As ParseException
- MessageBox.Show("構文エラー:" + ex.Message, "ラムダ式構文チェック", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
+ MessageBox.Show(My.Resources.IsValidLambdaExpText1 + ex.Message,
+ My.Resources.IsValidLambdaExpText2, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Return False
End Try
Return True
End Property
'''<summary>
+ ''' ユーザーアイコンとして使用できないファイルです に類似しているローカライズされた文字列を検索します。
+ '''</summary>
+ Friend ReadOnly Property ChangeIconToolStripMenuItem_ClickText6() As String
+ Get
+ Return ResourceManager.GetString("ChangeIconToolStripMenuItem_ClickText6", resourceCulture)
+ End Get
+ End Property
+
+ '''<summary>
''' 更新履歴
'''
'''==== Ver 0.9.7.1(****/**/**)
End Property
'''<summary>
+ ''' 構文エラー: に類似しているローカライズされた文字列を検索します。
+ '''</summary>
+ Friend ReadOnly Property IsValidLambdaExpText1() As String
+ Get
+ Return ResourceManager.GetString("IsValidLambdaExpText1", resourceCulture)
+ End Get
+ End Property
+
+ '''<summary>
+ ''' ラムダ式構文チェック に類似しているローカライズされた文字列を検索します。
+ '''</summary>
+ Friend ReadOnly Property IsValidLambdaExpText2() As String
+ Get
+ Return ResourceManager.GetString("IsValidLambdaExpText2", resourceCulture)
+ End Get
+ End Property
+
+ '''<summary>
''' <a href="http://twitter.com/" rel="nofollow">Keitai Mail</a> に類似しているローカライズされた文字列を検索します。
'''</summary>
Friend ReadOnly Property KeitaiMailSourceString() As String
End Property
'''<summary>
+ ''' タブ作成エラー に類似しているローカライズされた文字列を検索します。
+ '''</summary>
+ Friend ReadOnly Property TweenMain_LoadText1() As String
+ Get
+ Return ResourceManager.GetString("TweenMain_LoadText1", resourceCulture)
+ End Get
+ End Property
+
+ '''<summary>
''' **** エラー ログ: {0} **** に類似しているローカライズされた文字列を検索します。
'''</summary>
Friend ReadOnly Property UnhandledExceptionText1() As String
<data name="Enable" xml:space="preserve">
<value>有効</value>
</data>
+ <data name="ChangeIconToolStripMenuItem_ClickText6" xml:space="preserve">
+ <value>ユーザーアイコンとして使用できないファイルです</value>
+ </data>
+ <data name="IsValidLambdaExpText1" xml:space="preserve">
+ <value>構文エラー:</value>
+ </data>
+ <data name="IsValidLambdaExpText2" xml:space="preserve">
+ <value>ラムダ式構文チェック</value>
+ </data>
+ <data name="TweenMain_LoadText1" xml:space="preserve">
+ <value>タブ作成エラー</value>
+ </data>
</root>
\ No newline at end of file
End Using
End Sub
-
Private Sub ChangeIconToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChangeIconToolStripMenuItem.Click
OpenFileDialogIcon.Filter = My.Resources.ChangeIconToolStripMenuItem_ClickText1
OpenFileDialogIcon.Title = My.Resources.ChangeIconToolStripMenuItem_ClickText2
If isValidIconFile(New FileInfo(fn)) Then
doChangeIcon(fn)
Else
- MessageBox.Show("ユーザーアイコンとして使用できないファイルです")
+ MessageBox.Show(My.Resources.ChangeIconToolStripMenuItem_ClickText6)
End If
End Sub
If _statuses.Tabs(tn).TabType = TabUsageType.Undefined Then
_statuses.Tabs(tn).TabType = TabUsageType.UserDefined
End If
- If Not AddNewTab(tn, True, _statuses.Tabs(tn).TabType, _statuses.Tabs(tn).ListInfo) Then Throw New Exception("タブ作成エラー")
+ If Not AddNewTab(tn, True, _statuses.Tabs(tn).TabType, _statuses.Tabs(tn).ListInfo) Then Throw New Exception(My.Resources.TweenMain_LoadText1)
Next
Me.JumpReadOpMenuItem.ShortcutKeyDisplayString = "Space"
End Set
End Property
- 'Public WriteOnly Property CountApi() As Integer
- ' 'API時の取得件数
- ' Set(ByVal value As Integer)
- ' _countApi = value
- ' End Set
- 'End Property
-
- 'Public WriteOnly Property CountApiReply() As Integer
- ' 'API時のMentions取得件数
- ' Set(ByVal value As Integer)
- ' _countApiReply = value
- ' End Set
- 'End Property
-
Public Property ReadOwnPost() As Boolean
Get
Return _readOwnPost