Changeset 178
- Timestamp:
- Mar 24, 2007, 12:08:26 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Include/windows/WindowHandle.sbp
r77 r178 57 57 End Function 58 58 59 Function BringToTop() As B OOL60 Return BringWindowToTop(hwnd) 59 Function BringToTop() As Boolean 60 Return BringWindowToTop(hwnd) As Boolean 61 61 End Function 62 62 … … 73 73 End Function 74 74 75 Const Function ClientToScreen(ByRef pt As POINTAPI) As B OOL76 Return _System_ClientToScreen(hwnd, pt) 77 End Function 78 79 Function Close() As B OOL80 Return CloseWindow(hwnd) 81 End Function 82 83 Function CreateCaret(hbmp As HBITMAP, width As Long, height As Long) As B OOL84 Return _System_CreateCaret(hwnd, hbmp, width, hegiht) 85 End Function 86 87 Function Destroy() As B OOL88 Return DestroyWindow(hwnd) 89 End Function 90 91 Function DrawMenuBar() As B OOL92 Return _System_DrawMenuBar(hwnd) 93 End Function 94 95 Function EnableScrollBar(SBFlags As DWord, arrows As DWord) As B OOL96 Return EnableScrollBar(hwnd, SBFlags, arrows) 97 End Function 98 99 Function Enable(enable As B OOL) As BOOL100 Return EnableWindow(hwnd, enable) 101 End Function 102 103 Function EndPaint(ByRef ps As PAINTSTRUCT) As B OOL104 Return _System_EndPaint(hwnd, ps) 105 End Function 106 107 Const Function EnumChilds(enumFunc As WNDENUMPROC, lp As LPARAM) As B OOL108 Return EnumChildWindows(hwnd, enumFunc, lp) 109 End Function 110 111 Function Flash(invert As B OOL) As BOOL112 Return FlashWindow(hwnd, invert) 75 Const Function ClientToScreen(ByRef pt As POINTAPI) As Boolean 76 Return _System_ClientToScreen(hwnd, pt) As Boolean 77 End Function 78 79 Function Close() As Boolean 80 Return CloseWindow(hwnd) As Boolean 81 End Function 82 83 Function CreateCaret(hbmp As HBITMAP, width As Long, height As Long) As Boolean 84 Return _System_CreateCaret(hwnd, hbmp, width, hegiht) As Boolean 85 End Function 86 87 Function Destroy() As Boolean 88 Return DestroyWindow(hwnd) As Boolean 89 End Function 90 91 Function DrawMenuBar() As Boolean 92 Return _System_DrawMenuBar(hwnd) As Boolean 93 End Function 94 95 Function EnableScrollBar(SBFlags As DWord, arrows As DWord) As Boolean 96 Return EnableScrollBar(hwnd, SBFlags, arrows) As Boolean 97 End Function 98 99 Function Enable(enable As Boolean) As Boolean 100 Return EnableWindow(hwnd, enable) As Boolean 101 End Function 102 103 Function EndPaint(ByRef ps As PAINTSTRUCT) As Boolean 104 Return _System_EndPaint(hwnd, ps) As Boolean 105 End Function 106 107 Const Function EnumChilds(enumFunc As WNDENUMPROC, lp As LPARAM) As Boolean 108 Return EnumChildWindows(hwnd, enumFunc, lp) As Boolean 109 End Function 110 111 Function Flash(invert As Boolean) As Boolean 112 Return FlashWindow(hwnd, invert) As Boolean 113 113 End Function 114 114 … … 121 121 End Function 122 122 123 Const Function GetClientRect(ByRef rc As RECT) As B OOL124 Return _System_GetClientRect(hwnd, rc) 123 Const Function GetClientRect(ByRef rc As RECT) As Boolean 124 Return _System_GetClientRect(hwnd, rc) As Boolean 125 125 End Function 126 126 … … 166 166 End Function 167 167 168 Const Function GetScrollInfo(fnBar As Long, ByRef si As SCROLLINFO) As B OOL169 Return GetScrollInfo(hwnd, fnBar, si) 170 End Function 171 172 Const Function GetSystemMenu(revert As B OOL) As HMENU168 Const Function GetScrollInfo(fnBar As Long, ByRef si As SCROLLINFO) As Boolean 169 Return GetScrollInfo(hwnd, fnBar, si) As Boolean 170 End Function 171 172 Const Function GetSystemMenu(revert As Boolean) As HMENU 173 173 Return GetSystemMenu(hwnd, revert) 174 174 End Function 175 175 176 Const Function GetUpdateRect(ByRef rc As RECT, erase As B OOL) As BOOL177 Return GetUpdateRact(hwnd, rc, erase) 178 End Function 179 180 Const Function GetUpdateRgn(hrgn As HRGN, erase As B OOL) As BOOL181 Return GetUpdateRgn(hwnd, hrgn, erase) 176 Const Function GetUpdateRect(ByRef rc As RECT, erase As Boolean) As Boolean 177 Return GetUpdateRact(hwnd, rc, erase) As Boolean 178 End Function 179 180 Const Function GetUpdateRgn(hrgn As HRGN, erase As Boolean) As Boolean 181 Return GetUpdateRgn(hwnd, hrgn, erase) As Boolean 182 182 End Function 183 183 … … 194 194 End Function 195 195 196 Const Function GetWindowPlasement(ByRef wndpl As WINDOWPLACEMENT) As B OOL197 Return GetWindowPlasement(hwnd, wndpl) 198 End Function 199 200 Const Function GetWindowRect(ByRef rc As RECT) As B OOL201 Return _System_GetWindowRect(rc) 202 End Function 203 204 Const Function GetText(ps As PSTR, maxCount As Long) As B OOL205 Return GetWindowText(ps, maxCount) 196 Const Function GetWindowPlasement(ByRef wndpl As WINDOWPLACEMENT) As Boolean 197 Return GetWindowPlasement(hwnd, wndpl) As Boolean 198 End Function 199 200 Const Function GetWindowRect(ByRef rc As RECT) As Boolean 201 Return _System_GetWindowRect(rc) As Boolean 202 End Function 203 204 Const Function GetText(ps As PSTR, maxCount As Long) As Boolean 205 Return GetWindowText(ps, maxCount) As Boolean 206 206 End Function 207 207 … … 218 218 End Function 219 219 220 Function HideCaret() As B OOL221 Return _System_HideCaret(hwnd) 222 End Function 223 224 Function InvalidateRect(ByRef rc As RECT, erace As B OOL) As BOOL225 Return _System_InvalidateRect(hwnd, rc, erace) 226 End Function 227 228 Function InvalidateRect(ByRef rc As RECT) As B OOL229 Return _System_InvalidateRect(hwnd, rc, TRUE) 230 End Function 231 232 Function InvalidateRgn(hrgn As HRGN, erace As B OOL) As BOOL233 Return _System_InvalidateRgn(hwnd, hrgn, erace) 234 End Function 235 236 Function InvalidateRgn(hrgn As HRGN) As B OOL237 Return _System_InvalidateRgn(hwnd, hrgn, TRUE) 238 End Function 239 240 Function Invalidate(erace As B OOL) As BOOL241 Return _System_InvalidateRect(hwnd, ByVal 0, erace) 242 End Function 243 244 Function Invalidate() As B OOL245 Return _System_InvalidateRect(hwnd, ByVal 0, TRUE) 246 End Function 247 248 Const Function IsChild(hwnd As HWND) As B OOL249 Return IsChild(This.hwnd, hwnd) 250 End Function 251 252 Const Function IsDialogMessage(ByRef msg As MSG) As B OOL253 Return IsDialogMessage(hwnd, msg) 254 End Function 255 256 Const Function IsIconic() As B OOL257 Return _System_IsIconic(hwnd) 258 End Function 259 260 Const Function IsWindow() As B OOL261 Return _System_IsWindow(hwnd) 262 End Function 263 264 Const Function IsEnabled() As B OOL265 Return IsWindowEnabled(hwnd) 266 End Function 267 268 Const Function IsUnicode() As B OOL269 Return IsWindowUnicode(hwnd) 270 End Function 271 272 Const Function IsVisible() As B OOL273 Return IsWindowVisible(hwnd) 274 End Function 275 276 Const Function IsZoomed() As B OOL277 Return IsZoomed(hwnd) 278 End Function 279 280 Function KillTimer(idEvent As ULONG_PTR) As B OOL281 Return KillTimer(idEvent) 282 End Function 283 284 Function LockUpdate() As B OOL285 Return LockWindowUpdate(hwnd) 220 Function HideCaret() As Boolean 221 Return _System_HideCaret(hwnd) As Boolean 222 End Function 223 224 Function InvalidateRect(ByRef rc As RECT, erace As Boolean) As Boolean 225 Return _System_InvalidateRect(hwnd, rc, erace) As Boolean 226 End Function 227 228 Function InvalidateRect(ByRef rc As RECT) As Boolean 229 Return _System_InvalidateRect(hwnd, rc, TRUE) As Boolean 230 End Function 231 232 Function InvalidateRgn(hrgn As HRGN, erace As Boolean) As Boolean 233 Return _System_InvalidateRgn(hwnd, hrgn, erace) As Boolean 234 End Function 235 236 Function InvalidateRgn(hrgn As HRGN) As Boolean 237 Return _System_InvalidateRgn(hwnd, hrgn, TRUE) As Boolean 238 End Function 239 240 Function Invalidate(erace As Boolean) As Boolean 241 Return _System_InvalidateRect(hwnd, ByVal 0, erace) As Boolean 242 End Function 243 244 Function Invalidate() As Boolean 245 Return _System_InvalidateRect(hwnd, ByVal 0, TRUE) As Boolean 246 End Function 247 248 Const Function IsChild(hwnd As HWND) As Boolean 249 Return IsChild(This.hwnd, hwnd) As Boolean 250 End Function 251 252 Const Function IsDialogMessage(ByRef msg As MSG) As Boolean 253 Return IsDialogMessage(hwnd, msg) As Boolean 254 End Function 255 256 Const Function IsIconic() As Boolean 257 Return _System_IsIconic(hwnd) As Boolean 258 End Function 259 260 Const Function IsWindow() As Boolean 261 Return _System_IsWindow(hwnd) As Boolean 262 End Function 263 264 Const Function IsEnabled() As Boolean 265 Return IsWindowEnabled(hwnd) As Boolean 266 End Function 267 268 Const Function IsUnicode() As Boolean 269 Return IsWindowUnicode(hwnd) As Boolean 270 End Function 271 272 Const Function IsVisible() As Boolean 273 Return IsWindowVisible(hwnd) As Boolean 274 End Function 275 276 Const Function IsZoomed() As Boolean 277 Return IsZoomed(hwnd) As Boolean 278 End Function 279 280 Function KillTimer(idEvent As ULONG_PTR) As Boolean 281 Return KillTimer(idEvent) As Boolean 282 End Function 283 284 Function LockUpdate() As Boolean 285 Return LockWindowUpdate(hwnd) As Boolean 286 286 End Function 287 287 … … 306 306 End Function 307 307 308 Function Move(x As Long, y As Long, width As Long, height As Long, repaint As B OOL) As BOOL309 Return MoveWindow(hwnd, x, y, width, height, repaint) 310 End Function 311 312 Function Move(x As Long, y As Long, width As Long, height As Long) As B OOL313 Return MoveWindow(hwnd, x, y, width, height, TRUE) 314 End Function 315 316 Function Move(ByRef rc As RECT, repeaint As B OOL) As BOOL308 Function Move(x As Long, y As Long, width As Long, height As Long, repaint As Boolean) As Boolean 309 Return MoveWindow(hwnd, x, y, width, height, repaint) As Boolean 310 End Function 311 312 Function Move(x As Long, y As Long, width As Long, height As Long) As Boolean 313 Return MoveWindow(hwnd, x, y, width, height, TRUE) As Boolean 314 End Function 315 316 Function Move(ByRef rc As RECT, repeaint As Boolean) As Boolean 317 317 With rc 318 Return MoveWindow(hwnd, .left, .top, .right - .left, .bottom - .top, repaint) 318 Return MoveWindow(hwnd, .left, .top, .right - .left, .bottom - .top, repaint) As Boolean 319 319 End With 320 320 End Function 321 321 322 Function Move(ByRef rc As RECT) As B OOL322 Function Move(ByRef rc As RECT) As Boolean 323 323 With rc 324 Return MoveWindow(hwnd, .left, .top, .right - .left, .bottom - .top, TRUE) 324 Return MoveWindow(hwnd, .left, .top, .right - .left, .bottom - .top, TRUE) As Boolean 325 325 End With 326 326 End Function 327 327 328 Function OpenClipboard() As B OOL329 Return OpenClipboard(hwnd) 330 End Function 331 332 Function OpenIcon() As B OOL333 Return OpenIcon(hwnd) 334 End Function 335 336 Function PostMessage(msg As DWord, wp As WPARAM, lp As LPARAM) As B OOL337 Return PostMessage(hwnd, msg, wp, lp) 338 End Function 339 340 Function PostMessage(msg As DWord) As B OOL341 Return PostMessage(hwnd, msg, 0, 0) 342 End Function 343 344 Function RedrawWindow(ByRef rcUpdate As RECT, hrgnUpdate As HRGN, flags As DWord) As B OOL345 Return RedrawWindow(hwnd, rcUpdatre, hrgnUpdate, flags) 346 End Function 347 348 Function ReleaseDC(hdc As HDC) As B OOL349 Return ReleaseDC(hwnd, hdc) 328 Function OpenClipboard() As Boolean 329 Return OpenClipboard(hwnd) As Boolean 330 End Function 331 332 Function OpenIcon() As Boolean 333 Return OpenIcon(hwnd) As Boolean 334 End Function 335 336 Function PostMessage(msg As DWord, wp As WPARAM, lp As LPARAM) As Boolean 337 Return PostMessage(hwnd, msg, wp, lp) As Boolean 338 End Function 339 340 Function PostMessage(msg As DWord) As Boolean 341 Return PostMessage(hwnd, msg, 0, 0) As Boolean 342 End Function 343 344 Function RedrawWindow(ByRef rcUpdate As RECT, hrgnUpdate As HRGN, flags As DWord) As Boolean 345 Return RedrawWindow(hwnd, rcUpdatre, hrgnUpdate, flags) As Boolean 346 End Function 347 348 Function ReleaseDC(hdc As HDC) As Boolean 349 Return ReleaseDC(hwnd, hdc) As Boolean 350 350 End Function 351 351 … … 358 358 End Function 359 359 360 Const Function ScreenToClient(ByRef pt As POINTAPI) As B OOL361 Return _System_ScreenToClient(hwnd, pt) 362 End Function 363 364 Function Scroll(dx As Long, dy As Long, ByRef rcScroll As RECT, ByRef rcClip As RECT, hrgnUpdate As HRGN, ByRef rcUpdate As RECT, flags As DWord) As B OOL365 Return ScrollWindowEx(hwnd, dx, dy, rcScroll, rcClip, hrgnUpdate, rcUpdate, flags) 360 Const Function ScreenToClient(ByRef pt As POINTAPI) As Boolean 361 Return _System_ScreenToClient(hwnd, pt) As Boolean 362 End Function 363 364 Function Scroll(dx As Long, dy As Long, ByRef rcScroll As RECT, ByRef rcClip As RECT, hrgnUpdate As HRGN, ByRef rcUpdate As RECT, flags As DWord) As Boolean 365 Return ScrollWindowEx(hwnd, dx, dy, rcScroll, rcClip, hrgnUpdate, rcUpdate, flags) As Boolean 366 366 End Function 367 367 … … 386 386 End Function 387 387 388 Function SetDlgItemText(idDlgItem As Long, psz As PCSTR) As B OOL389 Return SetDlgItemText(hwnd, idDlgItem, psz) 388 Function SetDlgItemText(idDlgItem As Long, psz As PCSTR) As Boolean 389 Return SetDlgItemText(hwnd, idDlgItem, psz) As Boolean 390 390 End Function 391 391 … … 402 402 End Function 403 403 404 Function SetForeground() As B OOL405 Return SetForegroundWindow(hwnd) 406 End Function 407 408 Function SetMenu(hmenu As HMENU) As B OOL409 Return _System_SetMenu(hwnd, hmenu) 404 Function SetForeground() As Boolean 405 Return SetForegroundWindow(hwnd) As Boolean 406 End Function 407 408 Function SetMenu(hmenu As HMENU) As Boolean 409 Return _System_SetMenu(hwnd, hmenu) As Boolean 410 410 End Function 411 411 … … 414 414 End Function 415 415 416 Function SetProp(psz As PCSTR, hData As HANDLE) As B OOL417 Return SetProp(hwnd, psz, hData) 418 End Function 419 420 Function SetProp(atom As ATOM, hData As HANDLE) As B OOL421 Return SetProp(atom As ULONG_PTR As PCSTR, hData) 422 End Function 423 424 Function SetScrollInfo(fnBar As Long, ByRef si As SCROLLINFO, redraw As B OOL) As BOOL425 Return SetScrollInfo(hwnd, fnBar, si, redraw) 426 End Function 427 428 Function SetScrollInfo(fnBar As Long, ByRef si As SCROLLINFO) As B OOL429 Return SetScrollInfo(hwnd, fnBar, si, TRUE) 416 Function SetProp(psz As PCSTR, hData As HANDLE) As Boolean 417 Return SetProp(hwnd, psz, hData) As Boolean 418 End Function 419 420 Function SetProp(atom As ATOM, hData As HANDLE) As Boolean 421 Return SetProp(atom As ULONG_PTR As PCSTR, hData) As Boolean 422 End Function 423 424 Function SetScrollInfo(fnBar As Long, ByRef si As SCROLLINFO, redraw As Boolean) As Boolean 425 Return SetScrollInfo(hwnd, fnBar, si, redraw) As Boolean 426 End Function 427 428 Function SetScrollInfo(fnBar As Long, ByRef si As SCROLLINFO) As Boolean 429 Return SetScrollInfo(hwnd, fnBar, si, TRUE) As Boolean 430 430 End Function 431 431 … … 438 438 End Function 439 439 440 Function SetContextHelpId(contextHelpId As DWord) As B OOL441 Return SetContextHelpId(hwnd, contextHelpId) 440 Function SetContextHelpId(contextHelpId As DWord) As Boolean 441 Return SetContextHelpId(hwnd, contextHelpId) As Boolean 442 442 End Function 443 443 … … 446 446 End Function 447 447 448 Function SetWindowPlacement(ByRef wndpl As WINDOWPLACEMENT) As B OOL449 Return SetWindowPlacement(hwnd, wndpl) 450 End Function 451 452 Function SetPos(hwndInsertAfter As HWND, x As Long, y As Long, cx As Long, cy As Long, flags As DWord) As B OOL453 Return SetWindowPos(hwnd, hwndInsertAfter, x, y, cx, cy, flags) 454 End Function 455 456 Function SetPos(hwndInsertAfter As HWND, ByRef rc As RECT, flags As DWord) As B OOL448 Function SetWindowPlacement(ByRef wndpl As WINDOWPLACEMENT) As Boolean 449 Return SetWindowPlacement(hwnd, wndpl) As Boolean 450 End Function 451 452 Function SetPos(hwndInsertAfter As HWND, x As Long, y As Long, cx As Long, cy As Long, flags As DWord) As Boolean 453 Return SetWindowPos(hwnd, hwndInsertAfter, x, y, cx, cy, flags) As Boolean 454 End Function 455 456 Function SetPos(hwndInsertAfter As HWND, ByRef rc As RECT, flags As DWord) As Boolean 457 457 With rc 458 Return SetWindowPos(hwnd, hwndInsertAfter, .left, .top, .right - .left, .bottom - .top, flags) 458 Return SetWindowPos(hwnd, hwndInsertAfter, .left, .top, .right - .left, .bottom - .top, flags) As Boolean 459 459 End With 460 460 End Function 461 461 462 Function SetRgn(hrgn As HRGN, redraw As B OOL) As BOOL463 Return SetWindowRgn(hwnd, hrgn, redraw) 464 End Function 465 466 Function SetRgn(hrgn As HRGN) As B OOL467 Return SetWindowRgn(hwnd, hrgn, TRUE) 468 End Function 469 470 Function SetText(psz As PCSTR) As B OOL471 Return SetWindowText(hwnd, psz) 472 End Function 473 474 Function ShowCaret() As B OOL475 Return _System_ShowCaret(hwnd) 476 End Function 477 478 Function ShowScrollBar(bar As DWord, show As B OOL) As BOOL479 Return ShowScrollBar(hwnd, bar, show) 480 End Function 481 482 Function ShowScrollBar(bar As DWord) As B OOL483 Return ShowScrollBar(hwnd, bar, TRUE) 484 End Function 485 486 Function Show(cmdShow As DWord) As B OOL487 Return ShowWindow(hwnd, cmdShow) 488 End Function 489 490 Function ShowAsync(cmdShow As DWord) As B OOL491 Return ShowWindowAsync(hwnd, cmdShow) 492 End Function 493 494 Function Update() As B OOL495 Return UpdateWindow(hwnd) 496 End Function 497 498 Function ValidateRect(ByRef rc As RECT) As B OOL499 Return _System_ValidateRect(hwnd, rc) 500 End Function 501 502 Function ValidateRgn(hrgn As HRGN) As B OOL503 Return _System_ValidateRgn(hwnd, hrgn) 504 End Function 505 506 Function Validate() As B OOL507 Return _System_ValidateRect(hwnd, ByVal 0) 462 Function SetRgn(hrgn As HRGN, redraw As Boolean) As Boolean 463 Return SetWindowRgn(hwnd, hrgn, redraw) As Boolean 464 End Function 465 466 Function SetRgn(hrgn As HRGN) As Boolean 467 Return SetWindowRgn(hwnd, hrgn, TRUE) As Boolean 468 End Function 469 470 Function SetText(psz As PCSTR) As Boolean 471 Return SetWindowText(hwnd, psz) As Boolean 472 End Function 473 474 Function ShowCaret() As Boolean 475 Return _System_ShowCaret(hwnd) As Boolean 476 End Function 477 478 Function ShowScrollBar(bar As DWord, show As Boolean) As Boolean 479 Return ShowScrollBar(hwnd, bar, show) As Boolean 480 End Function 481 482 Function ShowScrollBar(bar As DWord) As Boolean 483 Return ShowScrollBar(hwnd, bar, TRUE) As Boolean 484 End Function 485 486 Function Show(cmdShow As DWord) As Boolean 487 Return ShowWindow(hwnd, cmdShow) As Boolean 488 End Function 489 490 Function ShowAsync(cmdShow As DWord) As Boolean 491 Return ShowWindowAsync(hwnd, cmdShow) As Boolean 492 End Function 493 494 Function Update() As Boolean 495 Return UpdateWindow(hwnd) As Boolean 496 End Function 497 498 Function ValidateRect(ByRef rc As RECT) As Boolean 499 Return _System_ValidateRect(hwnd, rc) As Boolean 500 End Function 501 502 Function ValidateRgn(hrgn As HRGN) As Boolean 503 Return _System_ValidateRgn(hwnd, hrgn) As Boolean 504 End Function 505 506 Function Validate() As Boolean 507 Return _System_ValidateRect(hwnd, ByVal 0) As Boolean 508 508 End Function 509 509 … … 556 556 Sub ClientRect(ByRef rc As RECT) 557 557 Dim hasMenu As BOOL 558 If IsChild() = F ALSE And IsMenu() <> FALSEThen558 If IsChild() = False And IsMenu() <> False Then 559 559 hasMenu = TRUE 560 560 Else 561 561 hasMenu = FALSE 562 End If562 End If 563 563 AdjustWindowRectEx(rc, GetStyle(), hasMenu, GetExStyle()) 564 564 MoveWindow(rc) ' WindowRect = rc … … 612 612 End Sub 613 613 614 Const Function Enabled() As B OOL615 Return IsWindowEnabled(hwnd) 616 End Function 617 618 Sub Enabled(enable As B OOL)614 Const Function Enabled() As Boolean 615 Return IsWindowEnabled(hwnd) As Boolean 616 End Function 617 618 Sub Enabled(enable As Boolean) 619 619 EnableWindow(hwnd, enable) 620 620 End Sub … … 628 628 End Sub 629 629 630 Const Function Maximized() As B OOL631 Return IsIconic(hwnd) 632 End Function 633 634 Sub Maximized(maximized As B OOL)635 If maximized <> F ALSEThen630 Const Function Maximized() As Boolean 631 Return IsIconic(hwnd) As Boolean 632 End Function 633 634 Sub Maximized(maximized As Boolean) 635 If maximized <> False Then 636 636 ShowWindow(hwnd, SW_SHOWMAXIMIZED) 637 637 Else … … 640 640 End Sub 641 641 642 Const Function Minimized() As B OOL643 Return IsIconic(hwnd) 644 End Function 645 646 Sub Minimized(minimized As B OOL)647 If minimized <> F ALSEThen642 Const Function Minimized() As Boolean 643 Return IsIconic(hwnd) As Boolean 644 End Function 645 646 Sub Minimized(minimized As Boolean) 647 If minimized <> False Then 648 648 CloseWindow(hwnd) 649 649 Else … … 705 705 End Sub 706 706 707 Const Function Visible() As B OOL708 Return IsVisible(hwnd) 709 End Function 710 711 Sub Visible(visible As B OOL)712 If visible <> F ALSEThen707 Const Function Visible() As Boolean 708 Return IsVisible(hwnd) As Boolean 709 End Function 710 711 Sub Visible(visible As Boolean) 712 If visible <> False Then 713 713 ShowWindow(hwnd, SW_SHOW) 714 714 Else
Note:
See TracChangeset
for help on using the changeset viewer.