کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی
کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی

UPDOWN CONTROL در InputBox




Dim nmh As NMHDR

Dim nmp As NMUPDOWN

1400UpDownControlId


 Case WM_NOTIFY

چون کنترل ساخته شده پیامی را دریافت نمی کند از طریق parent  خود در نتیجه 

     

   If wParam = 1400 Then nmh.code = (-722) ' UDN_DELTAPOS

      

   

    SetWindowTextA Et, nmh.hwndFrom & " ID: " & nmh.idFrom & "/  code ...." & nmh.code & "... Wparam: " & wParam

    

    

    If nmh.code = (-722) Then

     

 ( CopyMemory nmp, ByVal lParam, Len(nmp

      nmp.hdr = nmh     ' No Need'

      SetWindowTextA hwnd, "Delta : " & nmp.iDelta & "  Pos : " & nmp.iPos

     End If

   (CopyMemory lParam, nmp, Len(nmp



iPos

Type: int

Signed integer value that represents the up-down control's current position.

iDelta

Type: int

Signed integer value that represents the proposed change in the up-down control's position.





Static ddd

If nmp.iDelta = 1 Then ddd = ddd - 1 Else ddd = ddd + 1

      nmp.iPos = ddd

      SetWindowTextA hwnd, "Delta : " & nmp.iDelta & "  Pos : " & nmp.iPos

     End If

in case wm_destroy nmp.ipos=0:ddd=0'






UDM_SETRANGE message


Sets the minimum and maximum positions (range) for an up-down control


Parameters

wParam

Must be zero

lParam

The LOWORD is a short that specifies the maximum position for the up-down control, and the HIWORD is a short that specifies the minimum position





case WM_VSCROLL

delta=LOWORD(SendDlgItemMessage(dlg, IDC_SPIN1,UDM_GETPOS,0,0))

SetDlgItemText(dlg,IDC_DTRANS,mystring 




WM_VSCROLL

wparam

The HIWORD specifies the current position of the scroll box

The LOWORD specifies a scroll bar value that indicates the user's scrolling request.
SB_BOTTOM
SB_TOP


lParam

If the message is sent by a scroll bar control, this parameter is the handle to the scroll bar control. If the message is sent by a standard scroll bar, this parameter is NULL.




با WS_TABSTOP  فوکس میگیرد ( کیبورد)  ولی برای اجرای دستور توسط پیام  WM_COMMAND باید از lparam  آن استفاده کرد که هندل پنجره  ایجاد شده است .

 


 Case WM_COMMAND    '   wm-command

     "!!!..." & ( If lParam = hbtn Then MsgBox "Clicked " & GetWindowText(hbtn

        Select Case wParam

          Case 2

            

        End Select




با توجه باینکه WS_TABSTOP تنظیم شده لذا باتن JK توسط کلید TAB کیبورد فوکس خواهد گرفت و در شکل زیر نقطه چین هایی که در مستطیل آن باتن مشخص است نشاندهنده ی فوکس گرفتن است .









نظرات 0 + ارسال نظر
برای نمایش آواتار خود در این وبلاگ در سایت Gravatar.com ثبت نام کنید. (راهنما)
ایمیل شما بعد از ثبت نمایش داده نخواهد شد