Changeset 34581

Show
Ignore:
Timestamp:
07/23/09 18:04:58 (4 years ago)
Author:
kiri_feather
Message:

正しくソートされないバグ修正

Location:
lang/vb2005/Tween/trunk/Tween
Files:
3 modified

Legend:

Unmodified
Added
Removed

  • lang/vb2005/Tween/trunk/Tween/Resources/ChangeLog.txt

    r34547 r34581  
    1616-自発言を既読にする設定追加 
    1717-フォロー数、フォロワー数、発言数、location、bioを表示するメニュー追加 
     18-正しくソートされないバグ修正 
    1819***Ver 0.6.0.0(2009/7/10) 
    1920-短縮URLの解決をした際、URLが正しく開けなくなる問題に対応 

  • lang/vb2005/Tween/trunk/Tween/StatusDictionary.vb

    r34460 r34581  
    15641564    Public Function Compare_ModeData_Ascending(ByVal x As Long, ByVal y As Long) As Integer 
    15651565        Dim result As Integer = String.Compare(_statuses.Item(x).Data, _statuses.Item(y).Data) 
    1566         If result = 0 Then result = CType(x - y, Integer) 
     1566        If result = 0 Then result = x.CompareTo(y) 
    15671567        Return result 
    15681568    End Function 
    … …  
    15711571    Public Function Compare_ModeData_Descending(ByVal x As Long, ByVal y As Long) As Integer 
    15721572        Dim result As Integer = String.Compare(_statuses.Item(y).Data, _statuses.Item(x).Data) 
    1573         If result = 0 Then result = CType(y - x, Integer) 
     1573        If result = 0 Then result = y.CompareTo(x) 
    15741574        Return result 
    15751575    End Function 
    … …  
    15771577    ' ステータスID比較　昇順 
    15781578    Public Function Compare_ModeId_Ascending(ByVal x As Long, ByVal y As Long) As Integer 
    1579         Return CType(x - y, Integer) 
     1579        Return x.CompareTo(y) 
    15801580    End Function 
    15811581 
    15821582    ' ステータスID比較　降順 
    15831583    Public Function Compare_ModeId_Descending(ByVal x As Long, ByVal y As Long) As Integer 
    1584         Return CType(y - x, Integer) 
     1584        Return y.CompareTo(x) 
    15851585    End Function 
    15861586 
    … …  
    15881588    Public Function Compare_ModeName_Ascending(ByVal x As Long, ByVal y As Long) As Integer 
    15891589        Dim result As Integer = String.Compare(_statuses.Item(x).Name, _statuses.Item(y).Name) 
    1590         If result = 0 Then result = CType(x - y, Integer) 
     1590        If result = 0 Then result = x.CompareTo(y) 
    15911591        Return result 
    15921592    End Function 
    … …  
    15951595    Public Function Compare_ModeName_Descending(ByVal x As Long, ByVal y As Long) As Integer 
    15961596        Dim result As Integer = String.Compare(_statuses.Item(y).Name, _statuses.Item(x).Name) 
    1597         If result = 0 Then result = CType(y - x, Integer) 
     1597        If result = 0 Then result = y.CompareTo(x) 
    15981598        Return result 
    15991599    End Function 
    … …  
    16021602    Public Function Compare_ModeNickName_Ascending(ByVal x As Long, ByVal y As Long) As Integer 
    16031603        Dim result As Integer = String.Compare(_statuses.Item(x).Nickname, _statuses.Item(y).Nickname) 
    1604         If result = 0 Then result = CType(x - y, Integer) 
     1604        If result = 0 Then result = x.CompareTo(y) 
    16051605        Return result 
    16061606    End Function 
    … …  
    16091609    Public Function Compare_ModeNickName_Descending(ByVal x As Long, ByVal y As Long) As Integer 
    16101610        Dim result As Integer = String.Compare(_statuses.Item(y).Nickname, _statuses.Item(x).Nickname) 
    1611         If result = 0 Then result = CType(y - x, Integer) 
     1611        If result = 0 Then result = y.CompareTo(x) 
    16121612        Return result 
    16131613    End Function 
    … …  
    16161616    Public Function Compare_ModeSource_Ascending(ByVal x As Long, ByVal y As Long) As Integer 
    16171617        Dim result As Integer = String.Compare(_statuses.Item(x).Source, _statuses.Item(y).Source) 
    1618         If result = 0 Then result = CType(x - y, Integer) 
     1618        If result = 0 Then result = x.CompareTo(y) 
    16191619        Return result 
    16201620    End Function 
    … …  
    16231623    Public Function Compare_ModeSource_Descending(ByVal x As Long, ByVal y As Long) As Integer 
    16241624        Dim result As Integer = String.Compare(_statuses.Item(y).Source, _statuses.Item(x).Source) 
    1625         If result = 0 Then result = CType(y - x, Integer) 
     1625        If result = 0 Then result = y.CompareTo(x) 
    16261626        Return result 
    16271627    End Function 

  • lang/vb2005/Tween/trunk/Tween/Tween.vbproj

    r34547 r34581  
    323323  --> 
    324324  <PropertyGroup> 
    325     <PostBuildEvent>"C:\Program Files\Microsoft Visual Studio 8\SDK\v2.0\Bin\sgen.exe" /f /a:"$(TargetPath)"</PostBuildEvent> 
     325    <PostBuildEvent>"C:\Program Files\Microsoft.NET\SDK\v2.0\Bin\sgen.exe" /f /a:"$(TargetPath)"</PostBuildEvent> 
    326326  </PropertyGroup> 
    327327</Project>