root/lang/vb2005/Tween/Tween/Setting.vb @ 21501

Revision 21501, 35.1 kB (checked in by kiri_feather, 5 years ago)

-TinyUrl展開オプションが機能していなかった問題を修正
-更新間隔自動調整が機能していなかった問題を修正
-更新間隔自動調整の有効・無効オプションを設定画面に追加（デフォルト有効）
-ステータス欄のPOST制限表示を時速表示に変更（自発言/取得発言）
-ステータス欄にタイムライン更新間隔表示を追加
タイムアウトデフォルト30秒に変更

Line 
1
2Public Class Setting
3    Private _MyuserID As String
4    Private _Mypassword As String
5    Private _MytimelinePeriod As Integer
6    Private _MyDMPeriod As Integer
7    Private _MynextThreshold As Integer
8    Private _MyNextPages As Integer
9    Private _MyLogDays As Integer
10    Private _MyLogUnit As LogUnitEnum
11    Private _MyReadPages As Integer
12    Private _MyReadPagesReply As Integer
13    Private _MyReadPagesDM As Integer
14    Private _MyReaded As Boolean
15    Private _MyIconSize As IconSizes
16    Private _MyStatusText As String
17    Private _MyUnreadManage As Boolean
18    Private _MyPlaySound As Boolean
19    Private _MyOneWayLove As Boolean
20    Private _fntUnread As Font
21    Private _clUnread As Color
22    Private _fntReaded As Font
23    Private _clReaded As Color
24    Private _clFav As Color
25    Private _clOWL As Color
26    Private _fntDetail As Font
27    Private _clSelf As Color
28    Private _clAtSelf As Color
29    Private _clTarget As Color
30    Private _clAtTarget As Color
31    Private _clAtFromTarget As Color
32    Private _MyNameBalloon As NameBalloonEnum
33    Private _MyPostCtrlEnter As Boolean
34    Private _useAPI As Boolean
35    Private _hubServer As String
36    Private _browserpath As String
37    Private _MyCheckReply As Boolean
38    Private _MyUseRecommendStatus As Boolean
39    Private _MyDispUsername As Boolean
40    Private _MyDispLatestPost As DispTitleEnum
41    Private _MySortOrderLock As Boolean
42    Private _MyMinimizeToTray As Boolean
43    Private _MyCloseToExit As Boolean
44    Private _MyTinyUrlResolve As Boolean
45    Private _MyProxyType As ProxyTypeEnum
46    Private _MyProxyAddress As String
47    Private _MyProxyPort As Integer
48    Private _MyProxyUser As String
49    Private _MyProxyPassword As String
50    Private _MyMaxPostNum As Integer
51    Private _MyPeriodAdjust As Boolean
52
53    'Public Enum LogUnitEnum
54    '    Minute
55    '    Hour
56    '    Day
57    'End Enum
58
59    'Public Enum IconSizes
60    '    IconNone = 0
61    '    Icon16 = 1
62    '    Icon24 = 2
63    '    Icon48 = 3
64    '    Icon48_2 = 4
65    'End Enum
66
67    'Public Enum NameBalloonEnum
68    '    None
69    '    UserID
70    '    NickName
71    'End Enum
72
73    'Public Enum DispTitleEnum
74    '    None
75    '    Ver
76    '    Post
77    '    UnreadRepCount
78    '    UnreadAllCount
79    '    UnreadAllRepCount
80    '    UnreadCountAllCount
81    'End Enum
82
83    Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
84        If Username.Text.Trim = "" Or _
85           Password.Text.Trim = "" Then
86            Me.DialogResult = Windows.Forms.DialogResult.Cancel
87            MessageBox.Show("���[�U�[���ƃp�X���[�h��肵�Ă��������B")
88            Exit Sub
89        End If
90        If Username.Text.Contains("@") Then
91            Me.DialogResult = Windows.Forms.DialogResult.Cancel
92            MessageBox.Show("���[�U�[���Ɂw@�x��߂Ȃ��ł��������B�i���[���A�h���X�s�j")
93            Exit Sub
94        End If
95        Try
96            _MyuserID = Username.Text.Trim()
97            _Mypassword = Password.Text.Trim()
98            _MytimelinePeriod = CType(TimelinePeriod.Text, Integer)
99            _MyDMPeriod = CType(DMPeriod.Text, Integer)
100            _MynextThreshold = CType(NextThreshold.Text, Integer)
101            _MyNextPages = CType(NextPages.Text, Integer)
102            _MyMaxPostNum = CType(MaxPost.Text, Integer)
103
104            '_MyLogDays = CType(ReadLogDays.Text, Integer)
105            'Select Case ReadLogUnit.SelectedIndex
106            '    Case 0
107            '        _MyLogUnit = LogUnitEnum.Minute
108            '    Case 1
109            '        _MyLogUnit = LogUnitEnum.Hour
110            '    Case 2
111            '        _MyLogUnit = LogUnitEnum.Day
112            '    Case Else
113            '        _MyLogUnit = LogUnitEnum.Hour
114            'End Select
115            _MyReadPages = CType(StartupReadPages.Text, Integer)
116            _MyReadPagesReply = CType(StartupReadReply.Text, Integer)
117            _MyReadPagesDM = CType(StartupReadDM.Text, Integer)
118            _MyReaded = StartupReaded.Checked
119            Select Case IconSize.SelectedIndex
120                Case 0
121                    _MyIconSize = IconSizes.IconNone
122                Case 1
123                    _MyIconSize = IconSizes.Icon16
124                Case 2
125                    _MyIconSize = IconSizes.Icon24
126                Case 3
127                    _MyIconSize = IconSizes.Icon48
128                Case 4
129                    _MyIconSize = IconSizes.Icon48_2
130            End Select
131            _MyStatusText = StatusText.Text
132            _MyPlaySound = PlaySnd.Checked
133            TweenMain.PlaySoundMenuItem.Checked = _MyPlaySound
134            _MyUnreadManage = UReadMng.Checked
135            _MyOneWayLove = OneWayLv.Checked
136
137            _fntUnread = lblUnRead.Font
138            _clUnread = lblUnRead.ForeColor
139            _fntReaded = lblReaded.Font
140            _clReaded = lblReaded.ForeColor
141            _clFav = lblFav.ForeColor
142            _clOWL = lblOWL.ForeColor
143            _fntDetail = lblDetail.Font
144            _clSelf = lblSelf.BackColor
145            _clAtSelf = lblAtSelf.BackColor
146            _clTarget = lblTarget.BackColor
147            _clAtTarget = lblAtTarget.BackColor
148            _clAtFromTarget = lblAtFromTarget.BackColor
149            Select Case cmbNameBalloon.SelectedIndex
150                Case 0
151                    _MyNameBalloon = NameBalloonEnum.None
152                Case 1
153                    _MyNameBalloon = NameBalloonEnum.UserID
154                Case 2
155                    _MyNameBalloon = NameBalloonEnum.NickName
156            End Select
157            _MyPostCtrlEnter = CheckPostCtrlEnter.Checked
158            _useAPI = CheckUseAPI.Checked
159            _hubServer = HubServerDomain.Text.Trim
160            _browserpath = BrowserPathText.Text.Trim
161            _MyCheckReply = CheckboxReply.Checked
162            _MyUseRecommendStatus = CheckUseRecommendStatus.Checked
163            _MyDispUsername = CheckDispUsername.Checked
164            _MyCloseToExit = CheckCloseToExit.Checked
165            _MyMinimizeToTray = CheckMinimizeToTray.Checked
166            Select Case ComboDispTitle.SelectedIndex
167                Case 0  'None
168                    _MyDispLatestPost = DispTitleEnum.None
169                Case 1  'Ver
170                    _MyDispLatestPost = DispTitleEnum.Ver
171                Case 2  'Post
172                    _MyDispLatestPost = DispTitleEnum.Post
173                Case 3  'RepCount
174                    _MyDispLatestPost = DispTitleEnum.UnreadRepCount
175                Case 4  'AllCount
176                    _MyDispLatestPost = DispTitleEnum.UnreadAllCount
177                Case 5  'Rep+All
178                    _MyDispLatestPost = DispTitleEnum.UnreadAllRepCount
179                Case 6  'Unread/All
180                    _MyDispLatestPost = DispTitleEnum.UnreadCountAllCount
181            End Select
182            _MySortOrderLock = CheckSortOrderLock.Checked
183            _MyTinyUrlResolve = CheckTinyURL.Checked
184            If RadioProxyNone.Checked Then
185                _MyProxyType = ProxyTypeEnum.None
186            ElseIf RadioProxyIE.Checked Then
187                _MyProxyType = ProxyTypeEnum.IE
188            Else
189                _MyProxyType = ProxyTypeEnum.Specified
190            End If
191            _MyProxyAddress = TextProxyAddress.Text.Trim()
192            _MyProxyPort = Integer.Parse(TextProxyPort.Text.Trim())
193            _MyProxyUser = TextProxyUser.Text.Trim()
194            _MyProxyPassword = TextProxyPassword.Text.Trim()
195            _MyPeriodAdjust = CheckPeriodAdjust.Checked
196
197            'TweenMain.SetMainWindowTitle()
198            'TweenMain.SetNotifyIconText()
199
200        Catch ex As Exception
201            MessageBox.Show("�ݒ��Ɍ����������B")
202            Me.DialogResult = Windows.Forms.DialogResult.Cancel
203            Exit Sub
204        End Try
205    End Sub
206
207    Private Sub Setting_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
208        Username.Text = _MyuserID
209        Password.Text = _Mypassword
210        TimelinePeriod.Text = _MytimelinePeriod.ToString()
211        DMPeriod.Text = _MyDMPeriod.ToString()
212        NextThreshold.Text = _MynextThreshold.ToString()
213        NextPages.Text = _MyNextPages.ToString()
214        MaxPost.Text = _MyMaxPostNum.ToString()
215        'ReadLogDays.Text = _MyLogDays.ToString()
216        'Select Case _MyLogUnit
217        '    Case LogUnitEnum.Minute
218        '        ReadLogUnit.SelectedIndex = 0
219        '    Case LogUnitEnum.Hour
220        '        ReadLogUnit.SelectedIndex = 1
221        '    Case LogUnitEnum.Day
222        '        ReadLogUnit.SelectedIndex = 2
223        'End Select
224        StartupReadPages.Text = _MyReadPages.ToString()
225        StartupReadReply.Text = _MyReadPagesReply.ToString()
226        StartupReadDM.Text = _MyReadPagesDM.ToString()
227        StartupReaded.Checked = _MyReaded
228        Select Case _MyIconSize
229            Case IconSizes.IconNone
230                IconSize.SelectedIndex = 0
231            Case IconSizes.Icon16
232                IconSize.SelectedIndex = 1
233            Case IconSizes.Icon24
234                IconSize.SelectedIndex = 2
235            Case IconSizes.Icon48
236                IconSize.SelectedIndex = 3
237            Case IconSizes.Icon48_2
238                IconSize.SelectedIndex = 4
239        End Select
240        StatusText.Text = _MyStatusText
241        UReadMng.Checked = _MyUnreadManage
242        If _MyUnreadManage = False Then
243            StartupReaded.Enabled = False
244        Else
245            StartupReaded.Enabled = True
246        End If
247        PlaySnd.Checked = _MyPlaySound
248        TweenMain.PlaySoundMenuItem.Checked = _MyPlaySound
249        OneWayLv.Checked = _MyOneWayLove
250
251        lblUnRead.Font = _fntUnread
252        lblUnRead.ForeColor = _clUnread
253        lblReaded.Font = _fntReaded
254        lblReaded.ForeColor = _clReaded
255        lblFav.ForeColor = _clFav
256        lblOWL.ForeColor = _clOWL
257        lblDetail.Font = _fntDetail
258        lblSelf.BackColor = _clSelf
259        lblAtSelf.BackColor = _clAtSelf
260        lblTarget.BackColor = _clTarget
261        lblAtTarget.BackColor = _clAtTarget
262        lblAtFromTarget.BackColor = _clAtFromTarget
263
264        Select Case _MyNameBalloon
265            Case NameBalloonEnum.None
266                cmbNameBalloon.SelectedIndex = 0
267            Case NameBalloonEnum.UserID
268                cmbNameBalloon.SelectedIndex = 1
269            Case NameBalloonEnum.NickName
270                cmbNameBalloon.SelectedIndex = 2
271        End Select
272
273        CheckPostCtrlEnter.Checked = _MyPostCtrlEnter
274        CheckUseAPI.Checked = _useAPI
275        HubServerDomain.Text = _hubServer
276        BrowserPathText.Text = _browserpath
277        CheckboxReply.Checked = _MyCheckReply
278        CheckUseRecommendStatus.Checked = _MyUseRecommendStatus
279        CheckDispUsername.Checked = _MyDispUsername
280        CheckCloseToExit.Checked = _MyCloseToExit
281        CheckMinimizeToTray.Checked = _MyMinimizeToTray
282        Select Case _MyDispLatestPost
283            Case DispTitleEnum.None
284                ComboDispTitle.SelectedIndex = 0
285            Case DispTitleEnum.Ver
286                ComboDispTitle.SelectedIndex = 1
287            Case DispTitleEnum.Post
288                ComboDispTitle.SelectedIndex = 2
289            Case DispTitleEnum.UnreadRepCount
290                ComboDispTitle.SelectedIndex = 3
291            Case DispTitleEnum.UnreadAllCount
292                ComboDispTitle.SelectedIndex = 4
293            Case DispTitleEnum.UnreadAllRepCount
294                ComboDispTitle.SelectedIndex = 5
295            Case DispTitleEnum.UnreadCountAllCount
296                ComboDispTitle.SelectedIndex = 6
297        End Select
298        CheckSortOrderLock.Checked = _MySortOrderLock
299        CheckTinyURL.Checked = _MyTinyUrlResolve
300        Select Case _MyProxyType
301            Case ProxyTypeEnum.None
302                RadioProxyNone.Checked = True
303            Case ProxyTypeEnum.IE
304                RadioProxyIE.Checked = True
305            Case Else
306                RadioProxySpecified.Checked = True
307        End Select
308        Dim chk As Boolean = RadioProxySpecified.Checked
309        LabelProxyAddress.Enabled = chk
310        TextProxyAddress.Enabled = chk
311        LabelProxyPort.Enabled = chk
312        TextProxyPort.Enabled = chk
313        LabelProxyUser.Enabled = chk
314        TextProxyUser.Enabled = chk
315        LabelProxyPassword.Enabled = chk
316        TextProxyPassword.Enabled = chk
317
318        TextProxyAddress.Text = _MyProxyAddress
319        TextProxyPort.Text = _MyProxyPort.ToString
320        TextProxyUser.Text = _MyProxyUser
321        TextProxyPassword.Text = _MyProxyPassword
322
323        CheckPeriodAdjust.Checked = _MyPeriodAdjust
324
325        'TweenMain.SetMainWindowTitle()
326        'TweenMain.SetNotifyIconText()
327
328        TabControl1.SelectedIndex = 0
329
330    End Sub
331
332    Private Sub TimelinePeriod_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TimelinePeriod.Validating
333        Dim prd As Integer
334        Try
335            prd = CType(TimelinePeriod.Text, Integer)
336        Catch ex As Exception
337            MessageBox.Show("�X�V�Ԋu�ɂ͐��l�i0�܂���5�`600�j��肵�Ă��������B")
338            e.Cancel = True
339            Exit Sub
340        End Try
341
342        If prd <> 0 And (prd < 15 Or prd > 600) Then
343            MessageBox.Show("�X�V�Ԋu�ɂ͐��l�i0�܂���5�`600�j��肵�Ă��������B")
344            e.Cancel = True
345        End If
346    End Sub
347
348    Private Sub NextThreshold_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles NextThreshold.Validating
349        Dim thr As Integer
350        Try
351            thr = CType(NextThreshold.Text, Integer)
352        Catch ex As Exception
353            MessageBox.Show("臒l�ɂ͐��l�i1�`20�j��肵�Ă��������B")
354            e.Cancel = True
355            Exit Sub
356        End Try
357
358        If thr < 1 Or thr > 20 Then
359            MessageBox.Show("臒l�ɂ͐��l�i1�`20�j��肵�Ă��������B")
360            e.Cancel = True
361        End If
362    End Sub
363
364    Private Sub NextPages_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles NextPages.Validating
365        Dim thr As Integer
366        Try
367            thr = CType(NextPages.Text, Integer)
368        Catch ex As Exception
369            MessageBox.Show("�y�[�W���ɂ͐��l�i1�`20�j��肵�Ă��������B")
370            e.Cancel = True
371            Exit Sub
372        End Try
373
374        If thr < 1 Or thr > 20 Then
375            MessageBox.Show("�y�[�W���ɂ͐��l�i1�`20�j��肵�Ă��������B")
376            e.Cancel = True
377        End If
378    End Sub
379
380    Private Sub DMPeriod_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles DMPeriod.Validating
381        Dim prd As Integer
382        Try
383            prd = CType(DMPeriod.Text, Integer)
384        Catch ex As Exception
385            MessageBox.Show("�X�V�Ԋu�ɂ͐��l�i0�܂���5�`600�j��肵�Ă��������B")
386            e.Cancel = True
387            Exit Sub
388        End Try
389
390        If prd <> 0 And (prd < 15 Or prd > 600) Then
391            MessageBox.Show("�X�V�Ԋu�ɂ͐��l�i0�܂���5�`600�j��肵�Ă��������B")
392            e.Cancel = True
393        End If
394    End Sub
395
396    Private Sub ReadLogDays_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ReadLogDays.Validating
397        'Dim days As Integer
398        'Try
399        '    days = CType(ReadLogDays.Text, Integer)
400        'Catch ex As Exception
401        '    MessageBox.Show("�ǂݍ��ݓ��͐��l�i0�`7�j��肵�Ă��������B")
402        '    e.Cancel = True
403        '    Exit Sub
404        'End Try
405
406        'If days < 0 Or days > 7 Then
407        '    MessageBox.Show("�ǂݍ��ݓ��͐��l�i0�`7�j��肵�Ă��������B")
408        '    e.Cancel = True
409        'End If
410    End Sub
411
412    Private Sub StartupReadPages_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles StartupReadPages.Validating
413        Dim pages As Integer
414        Try
415            pages = CType(StartupReadPages.Text, Integer)
416        Catch ex As Exception
417            MessageBox.Show("�ǂݍ��݃y�[�W���ɂ͐��l�i1�`999�j��肵�Ă��������B")
418            e.Cancel = True
419            Exit Sub
420        End Try
421
422        If pages < 1 Or pages > 999 Then
423            MessageBox.Show("�ǂݍ��݃y�[�W���ɂ͐��l�i1�`999�j��肵�Ă��������B")
424            e.Cancel = True
425        End If
426    End Sub
427
428    Private Sub StartupReadReply_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles StartupReadReply.Validating
429        Dim pages As Integer
430        Try
431            pages = CType(StartupReadReply.Text, Integer)
432        Catch ex As Exception
433            MessageBox.Show("�ǂݍ��݃y�[�W���ɂ͐��l�i0�`999�j��肵�Ă��������B")
434            e.Cancel = True
435            Exit Sub
436        End Try
437
438        If pages < 0 Or pages > 999 Then
439            MessageBox.Show("�ǂݍ��݃y�[�W���ɂ͐��l�i0�`999�j��肵�Ă��������B")
440            e.Cancel = True
441        End If
442    End Sub
443
444    Private Sub StartupReadDM_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles StartupReadDM.Validating
445        Dim pages As Integer
446        Try
447            pages = CType(StartupReadDM.Text, Integer)
448        Catch ex As Exception
449            MessageBox.Show("�ǂݍ��݃y�[�W���ɂ͐��l�i1�`999�j��肵�Ă��������B")
450            e.Cancel = True
451            Exit Sub
452        End Try
453
454        If pages < 1 Or pages > 999 Then
455            MessageBox.Show("�ǂݍ��݃y�[�W���ɂ͐��l�i1�`999�j��肵�Ă��������B")
456            e.Cancel = True
457        End If
458    End Sub
459
460    Private Sub UReadMng_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
461        If UReadMng.Checked = True Then
462            StartupReaded.Enabled = True
463        Else
464            StartupReaded.Enabled = False
465        End If
466    End Sub
467
468    Private Sub btnFontAndColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUnread.Click, btnReaded.Click, btnDetail.Click
469        Dim Btn As Button = CType(sender, Button)
470        Dim rtn As DialogResult
471
472        FontDialog1.AllowVerticalFonts = False
473        FontDialog1.AllowScriptChange = True
474        FontDialog1.AllowSimulations = True
475        FontDialog1.AllowVectorFonts = True
476        FontDialog1.FixedPitchOnly = False
477        FontDialog1.FontMustExist = True
478        FontDialog1.ScriptsOnly = False
479        FontDialog1.ShowApply = False
480        FontDialog1.ShowEffects = True
481        FontDialog1.ShowColor = True
482
483        Select Case Btn.Name
484            Case "btnUnread"
485                FontDialog1.Color = lblUnRead.ForeColor
486                FontDialog1.Font = lblUnRead.Font
487            Case "btnReaded"
488                FontDialog1.Color = lblReaded.ForeColor
489                FontDialog1.Font = lblReaded.Font
490            Case "btnDetail"
491                FontDialog1.Font = lblDetail.Font
492                FontDialog1.ShowColor = False
493                FontDialog1.ShowEffects = False
494        End Select
495
496        rtn = FontDialog1.ShowDialog
497
498        If rtn = Windows.Forms.DialogResult.Cancel Then Exit Sub
499
500        Select Case Btn.Name
501            Case "btnUnread"
502                lblUnRead.ForeColor = FontDialog1.Color
503                lblUnRead.Font = FontDialog1.Font
504            Case "btnReaded"
505                lblReaded.ForeColor = FontDialog1.Color
506                lblReaded.Font = FontDialog1.Font
507            Case "btnDetail"
508                lblDetail.Font = FontDialog1.Font
509        End Select
510
511    End Sub
512
513    Private Sub btnColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelf.Click, btnAtSelf.Click, btnTarget.Click, btnAtTarget.Click, btnAtFromTarget.Click, btnFav.Click, btnOWL.Click
514        Dim Btn As Button = CType(sender, Button)
515        Dim rtn As DialogResult
516
517        ColorDialog1.AllowFullOpen = True
518        ColorDialog1.AnyColor = True
519        ColorDialog1.FullOpen = False
520        ColorDialog1.SolidColorOnly = False
521
522        Select Case Btn.Name
523            Case "btnSelf"
524                ColorDialog1.Color = lblSelf.BackColor
525            Case "btnAtSelf"
526                ColorDialog1.Color = lblAtSelf.BackColor
527            Case "btnTarget"
528                ColorDialog1.Color = lblTarget.BackColor
529            Case "btnAtTarget"
530                ColorDialog1.Color = lblAtTarget.BackColor
531            Case "btnAtFromTarget"
532                ColorDialog1.Color = lblAtFromTarget.BackColor
533            Case "btnFav"
534                ColorDialog1.Color = lblFav.ForeColor
535            Case "btnOWL"
536                ColorDialog1.Color = lblOWL.ForeColor
537        End Select
538
539        rtn = ColorDialog1.ShowDialog
540
541        If rtn = Windows.Forms.DialogResult.Cancel Then Exit Sub
542
543        Select Case Btn.Name
544            Case "btnSelf"
545                lblSelf.BackColor = ColorDialog1.Color
546            Case "btnAtSelf"
547                lblAtSelf.BackColor = ColorDialog1.Color
548            Case "btnTarget"
549                lblTarget.BackColor = ColorDialog1.Color
550            Case "btnAtTarget"
551                lblAtTarget.BackColor = ColorDialog1.Color
552            Case "btnAtFromTarget"
553                lblAtFromTarget.BackColor = ColorDialog1.Color
554            Case "btnFav"
555                lblFav.ForeColor = ColorDialog1.Color
556            Case "btnOWL"
557                lblOWL.ForeColor = ColorDialog1.Color
558        End Select
559    End Sub
560
561    Public Property UserID() As String
562        Get
563            Return _MyuserID
564        End Get
565        Set(ByVal value As String)
566            _MyuserID = value
567        End Set
568    End Property
569
570    Public Property PasswordStr() As String
571        Get
572            Return _Mypassword
573        End Get
574        Set(ByVal value As String)
575            _Mypassword = value
576        End Set
577    End Property
578
579    Public Property TimelinePeriodInt() As Integer
580        Get
581            Return _MytimelinePeriod
582        End Get
583        Set(ByVal value As Integer)
584            _MytimelinePeriod = value
585        End Set
586    End Property
587
588    Public Property DMPeriodInt() As Integer
589        Get
590            Return _MyDMPeriod
591        End Get
592        Set(ByVal value As Integer)
593            _MyDMPeriod = value
594        End Set
595    End Property
596
597    Public Property NextPageThreshold() As Integer
598        Get
599            Return _MynextThreshold
600        End Get
601        Set(ByVal value As Integer)
602            _MynextThreshold = value
603        End Set
604    End Property
605    Public Property MaxPostNum() As Integer
606        Get
607            Return _MyMaxPostNum
608        End Get
609        Set(ByVal value As Integer)
610            _MyMaxPostNum = value
611        End Set
612    End Property
613
614    Public Property NextPagesInt() As Integer
615        Get
616            Return _MyNextPages
617        End Get
618        Set(ByVal value As Integer)
619            _MyNextPages = value
620        End Set
621    End Property
622
623    Public Property LogDays() As Integer
624        Get
625            Return _MyLogDays
626        End Get
627        Set(ByVal value As Integer)
628            _MyLogDays = value
629        End Set
630    End Property
631
632    Public Property LogUnit() As LogUnitEnum
633        Get
634            Return _MyLogUnit
635        End Get
636        Set(ByVal value As LogUnitEnum)
637            _MyLogUnit = value
638        End Set
639    End Property
640
641    Public Property ReadPages() As Integer
642        Get
643            Return _MyReadPages
644        End Get
645        Set(ByVal value As Integer)
646            _MyReadPages = value
647        End Set
648    End Property
649
650    Public Property ReadPagesReply() As Integer
651        Get
652            Return _MyReadPagesReply
653        End Get
654        Set(ByVal value As Integer)
655            _MyReadPagesReply = value
656        End Set
657    End Property
658
659    Public Property ReadPagesDM() As Integer
660        Get
661            Return _MyReadPagesDM
662        End Get
663        Set(ByVal value As Integer)
664            _MyReadPagesDM = value
665        End Set
666    End Property
667
668    Public Property Readed() As Boolean
669        Get
670            Return _MyReaded
671        End Get
672        Set(ByVal value As Boolean)
673            _MyReaded = value
674        End Set
675    End Property
676
677    'Public Property ListLock() As Boolean
678    '    Get
679    '        Return _MyListLock
680    '    End Get
681    '    Set(ByVal value As Boolean)
682    '        _MyListLock = value
683    '    End Set
684    'End Property
685
686    Public Property IconSz() As IconSizes
687        Get
688            Return _MyIconSize
689        End Get
690        Set(ByVal value As IconSizes)
691            _MyIconSize = value
692        End Set
693    End Property
694
695    Public Property Status() As String
696        Get
697            Return _MyStatusText
698        End Get
699        Set(ByVal value As String)
700            _MyStatusText = value
701        End Set
702    End Property
703
704    Public Property UnreadManage() As Boolean
705        Get
706            Return _MyUnreadManage
707        End Get
708        Set(ByVal value As Boolean)
709            _MyUnreadManage = value
710        End Set
711    End Property
712
713    Public Property PlaySound() As Boolean
714        Get
715            Return _MyPlaySound
716        End Get
717        Set(ByVal value As Boolean)
718            _MyPlaySound = value
719        End Set
720    End Property
721
722    Public Property OneWayLove() As Boolean
723        Get
724            Return _MyOneWayLove
725        End Get
726        Set(ByVal value As Boolean)
727            _MyOneWayLove = value
728        End Set
729    End Property
730
731    Public Property FontUnread() As Font
732        Get
733            Return _fntUnread
734        End Get
735        Set(ByVal value As Font)
736            _fntUnread = value
737        End Set
738    End Property
739
740    Public Property ColorUnread() As Color
741        Get
742            Return _clUnread
743        End Get
744        Set(ByVal value As Color)
745            _clUnread = value
746        End Set
747    End Property
748
749    Public Property FontReaded() As Font
750        Get
751            Return _fntReaded
752        End Get
753        Set(ByVal value As Font)
754            _fntReaded = value
755        End Set
756    End Property
757
758    Public Property ColorReaded() As Color
759        Get
760            Return _clReaded
761        End Get
762        Set(ByVal value As Color)
763            _clReaded = value
764        End Set
765    End Property
766
767    Public Property ColorFav() As Color
768        Get
769            Return _clFav
770        End Get
771        Set(ByVal value As Color)
772            _clFav = value
773        End Set
774    End Property
775
776    Public Property ColorOWL() As Color
777        Get
778            Return _clOWL
779        End Get
780        Set(ByVal value As Color)
781            _clOWL = value
782        End Set
783    End Property
784
785    Public Property FontDetail() As Font
786        Get
787            Return _fntDetail
788        End Get
789        Set(ByVal value As Font)
790            _fntDetail = value
791        End Set
792    End Property
793
794    Public Property ColorSelf() As Color
795        Get
796            Return _clSelf
797        End Get
798        Set(ByVal value As Color)
799            _clSelf = value
800        End Set
801    End Property
802
803    Public Property ColorAtSelf() As Color
804        Get
805            Return _clAtSelf
806        End Get
807        Set(ByVal value As Color)
808            _clAtSelf = value
809        End Set
810    End Property
811
812    Public Property ColorTarget() As Color
813        Get
814            Return _clTarget
815        End Get
816        Set(ByVal value As Color)
817            _clTarget = value
818        End Set
819    End Property
820
821    Public Property ColorAtTarget() As Color
822        Get
823            Return _clAtTarget
824        End Get
825        Set(ByVal value As Color)
826            _clAtTarget = value
827        End Set
828    End Property
829
830    Public Property ColorAtFromTarget() As Color
831        Get
832            Return _clAtFromTarget
833        End Get
834        Set(ByVal value As Color)
835            _clAtFromTarget = value
836        End Set
837    End Property
838
839    Public Property NameBalloon() As NameBalloonEnum
840        Get
841            Return _MyNameBalloon
842        End Get
843        Set(ByVal value As NameBalloonEnum)
844            _MyNameBalloon = value
845        End Set
846    End Property
847
848    Public Property PostCtrlEnter() As Boolean
849        Get
850            Return _MyPostCtrlEnter
851        End Get
852        Set(ByVal value As Boolean)
853            _MyPostCtrlEnter = value
854        End Set
855    End Property
856
857    Public Property UseAPI() As Boolean
858        Get
859            Return _useAPI
860        End Get
861        Set(ByVal value As Boolean)
862            _useAPI = value
863        End Set
864    End Property
865
866    Public Property CheckReply() As Boolean
867        Get
868            Return _MyCheckReply
869        End Get
870        Set(ByVal value As Boolean)
871            _MyCheckReply = value
872        End Set
873    End Property
874
875    Public Property UseRecommendStatus() As Boolean
876        Get
877            Return _MyUseRecommendStatus
878        End Get
879        Set(ByVal value As Boolean)
880            _MyUseRecommendStatus = value
881        End Set
882    End Property
883
884    Public Property DispUsername() As Boolean
885        Get
886            Return _MyDispUsername
887        End Get
888        Set(ByVal value As Boolean)
889            _MyDispUsername = value
890        End Set
891    End Property
892
893    Public Property CloseToExit() As Boolean
894        Get
895            Return _MyCloseToExit
896        End Get
897        Set(ByVal value As Boolean)
898            _MyCloseToExit = value
899        End Set
900    End Property
901
902    Public Property MinimizeToTray() As Boolean
903        Get
904            Return _MyMinimizeToTray
905        End Get
906        Set(ByVal value As Boolean)
907            _MyMinimizeToTray = value
908        End Set
909    End Property
910    Public Property DispLatestPost() As DispTitleEnum
911        Get
912            Return _MyDispLatestPost
913        End Get
914        Set(ByVal value As DispTitleEnum)
915            _MyDispLatestPost = value
916        End Set
917    End Property
918
919    Public Property HubServer() As String
920        Get
921            Return _hubServer
922        End Get
923        Set(ByVal value As String)
924            _hubServer = value
925        End Set
926    End Property
927
928    Private Sub HubServerDomain_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles HubServerDomain.Validating
929        If HubServerDomain.Text.Trim = "" Then
930            MessageBox.Show("�󗓂ɂ͂ł��܂���f�t�H���g�l�utwitter.com�v���ݒ肳�����B", "�h���C���w�� MessageBoxButtons.OK, MessageBoxIcon.Warning)
931            HubServerDomain.Text = "twitter.com"
932        End If
933    End Sub
934
935    Public Property BrowserPath() As String
936        Get
937            Return _browserpath
938        End Get
939        Set(ByVal value As String)
940            _browserpath = value
941        End Set
942    End Property
943
944    Public Property TinyUrlResolve() As Boolean
945        Get
946            Return _MyTinyUrlResolve
947        End Get
948        Set(ByVal value As Boolean)
949            _MyTinyUrlResolve = value
950        End Set
951    End Property
952
953    Private Sub CheckUseRecommendStatus_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckUseRecommendStatus.CheckedChanged
954        If CheckUseRecommendStatus.Checked = True Then
955            StatusText.Enabled = False
956        Else
957            StatusText.Enabled = True
958        End If
959    End Sub
960
961    Public Property SortOrderLock() As Boolean
962        Get
963            Return _MySortOrderLock
964        End Get
965        Set(ByVal value As Boolean)
966            _MySortOrderLock = value
967        End Set
968    End Property
969
970    Public Property ProxyType() As ProxyTypeEnum
971        Get
972            Return _MyProxyType
973        End Get
974        Set(ByVal value As ProxyTypeEnum)
975            _MyProxyType = value
976        End Set
977    End Property
978
979    Public Property ProxyAddress() As String
980        Get
981            Return _MyProxyAddress
982        End Get
983        Set(ByVal value As String)
984            _MyProxyAddress = value
985        End Set
986    End Property
987
988    Public Property ProxyPort() As Integer
989        Get
990            Return _MyProxyPort
991        End Get
992        Set(ByVal value As Integer)
993            _MyProxyPort = value
994        End Set
995    End Property
996
997    Public Property ProxyUser() As String
998        Get
999            Return _MyProxyUser
1000        End Get
1001        Set(ByVal value As String)
1002            _MyProxyUser = value
1003        End Set
1004    End Property
1005
1006    Public Property ProxyPassword() As String
1007        Get
1008            Return _MyProxyPassword
1009        End Get
1010        Set(ByVal value As String)
1011            _MyProxyPassword = value
1012        End Set
1013    End Property
1014
1015    Public Property PeriodAdjust() As Boolean
1016        Get
1017            Return _MyPeriodAdjust
1018        End Get
1019        Set(ByVal value As Boolean)
1020            _MyPeriodAdjust = value
1021        End Set
1022    End Property
1023
1024    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
1025        Dim filedlg As New OpenFileDialog()
1026
1027        filedlg.Filter = "��s�`���t�@�C��(*.exe)|*.exe|���ׂẴt�@�C��(*.*)|*.*"
1028        filedlg.FilterIndex = 1
1029        filedlg.Title = "�u���E�U��肵�Ă�������"
1030        filedlg.RestoreDirectory = True
1031
1032        If filedlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
1033            BrowserPathText.Text = filedlg.FileName
1034
1035        End If
1036    End Sub
1037
1038    Private Sub RadioProxySpecified_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioProxySpecified.CheckedChanged
1039        Dim chk As Boolean = RadioProxySpecified.Checked
1040        LabelProxyAddress.Enabled = chk
1041        TextProxyAddress.Enabled = chk
1042        LabelProxyPort.Enabled = chk
1043        TextProxyPort.Enabled = chk
1044        LabelProxyUser.Enabled = chk
1045        TextProxyUser.Enabled = chk
1046        LabelProxyPassword.Enabled = chk
1047        TextProxyPassword.Enabled = chk
1048    End Sub
1049
1050    Private Sub TextProxyPort_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextProxyPort.Validating
1051        Dim port As Integer
1052        If TextProxyPort.Text.Trim() = "" Then TextProxyPort.Text = "0"
1053        If Integer.TryParse(TextProxyPort.Text.Trim(), port) = False Then
1054            MessageBox.Show("�|�[�g�ԍ��ɂ͐����l��肵�Ă��������B")
1055            e.Cancel = True
1056            Exit Sub
1057        End If
1058        If port < 0 Or port > 65535 Then
1059            MessageBox.Show("�|�[�g�ԍ��ɂ��`65535��肵�Ă��������B")
1060            e.Cancel = True
1061            Exit Sub
1062        End If
1063    End Sub
1064
1065    Private Sub MaxPostNum_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MaxPost.Validating
1066        Dim pstnm As Integer
1067        Try
1068            pstnm = CType(MaxPost.Text, Integer)
1069        Catch ex As Exception
1070            MessageBox.Show("1���ԓ�������ST�񐔂ɂ͐��l�i1�`999�j��肵�Ă��������B")
1071            e.Cancel = True
1072            Exit Sub
1073        End Try
1074
1075        If pstnm < 1 Or pstnm > 999 Then
1076            MessageBox.Show("1���ԓ�������ST�񐔂ɂ͐��l�i1�`999�j��肵�Ă��������B")
1077            e.Cancel = True
1078        End If
1079    End Sub
1080End Class
Note: See TracBrowser for help on using the browser.