Custom Query (162 matches)
Results (85 - 87 of 162)
Ticket | Resolution | Summary | Owner | Reporter |
---|---|---|---|---|
#104 | fixed | Thisの値がおかしい | ||
Description |
Dim obj As MyObject obj.Method() Class MyObject m_Value As Long Public Sub Method() Dim obj = This debug End Sub End Class グローバルとローカルのobjで、なぜかm_Valueの値が異なっている。 |
|||
#103 | fixed | DateTimeクラスの再実装 | ||
Description |
AddYearあたりがスマートでなかったり、仕様変更のためにした応急処置が使えなくなってきたので再実装する。 Function kindFromBinary(dateData As Int64) As DateTimeKind dateData = (dateData >> 62) And &H03 If dateData = &H01 Then Return DateTimeKind.Local ElseIf dateData = &H02 Then Return DateTimeKind.Unspecified ElseIf dateData = &H03 Then Return DateTimeKind.Utc Else ' どれにも該当しなかったときはどうなるんでしょうか?? Return DateTimeKind.Local End If End Function 必ずどれかに該当する仕様になるはずですが、コンストラクタでコンストラクタを呼んでいることが原因で、該当しない状態が出てきてしまっています。 |
|||
#102 | fixed | 代入時に基底クラスへ変換できない | ||
Description |
関数呼出時や初期化時では問題ありませんが、後から代入するときには下のようにエラーになります。 Class Base End Class Class Derived Inherits Base End Class Dim d = New Derived Dim b = d As Base 'Ok Dim o = d As Object 'Ok Dim b2 As Base Dim o2 As Object b2 = d 'キャスト演算子がオーバーロードされていません。 o2 = d '〃 b2 = d As Base '"Operator As" は定義されていません。 o2 = d As Object '〃 |
Note:
See TracQuery
for help on using queries.