Changeset 599 for trunk/ab5.0/ablib/src/Classes/ActiveBasic
- Timestamp:
- Aug 20, 2008, 3:37:44 AM (16 years ago)
- Location:
- trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Control.ab
r575 r599 123 123 .x, .y, .cx, .cy, .hwndParent, .hMenu, .hInstance, .lpCreateParams) 124 124 If hwnd = 0 Then 125 ActiveBasic.Windows.Throw ByWindowsError(GetLastError())125 ActiveBasic.Windows.ThrowWithLastError(GetLastError()) 126 126 End If 127 127 -
trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/Windows.ab
r575 r599 110 110 111 111 /*! 112 @brief GetLastErrorのエラー値を基に例外を投げる。 113 @date 2008/07/13 112 @brief Windowsのエラー値を基に例外を投げる 114 113 @param[in] dwErrorCode Win32エラーコード 115 114 @throw WindowsException 常に投げられる。 116 @auther Egtra 115 @date 2008/07/13 116 @auther Egtra 117 117 */ 118 Sub Throw ByWindowsError(dwErrorCode As DWord)118 Sub ThrowWithErrorCode(dwErrorCode As DWord) 119 119 Throw New WindowsException(HRESULT_FROM_WIN32(dwErrorCode)) 120 120 End Sub 121 121 122 /*! 123 @brief 内部でGetLastErrorを呼んで、その値を基に例外を投げる。 124 @throw WindowsException 常に投げられる。 125 @date 2008/08/26 126 @auther Egtra 127 */ 128 Sub ThrowWithLastError() 129 ThrowWithErrorCode(GetLastError()) 130 End Sub 122 131 /*! 123 132 @brief HRESULT値を基に例外を投げる。
Note:
See TracChangeset
for help on using the changeset viewer.