فرامین SQL

کلاس های سیستم ( ویندوز )

System Classes

ShowPopup در اکسس

Private Sub Song_List_MouseUp(Button As Integer, Shift As Integer, X As Single,

(Y As Single

ساخت شورتکات منو توسط تابع با پوزیشن msoBarPopup

SetUpContextMenu

If Button = acRightButton Then

CommandBars("MyListControlContextMenu").ShowPopup

End If

End Sub

Unordered List And Ordered List در HTML

Rixh Text

اضافه کردن منو

hMenu=GetMenu(Me.Handle)

menuItemCount=GetMenuItemCount(hMenu) 

hSubMenu=GetSubMenu(hMenu, 0) 

subMenuItemCount=GetMenuItemCount(hSubMenu) 

Dimmii As MENUITEMINFO 

With mii 

.cbSize=Len(mii) 

.fMask=MIIM_FTYPE Or MIIM_STATE Or MIIM_ID Or MIIM_STRING 

.fType=MFT_STRING 

.fState=MFS_ENABLED 

.wID = 0

.hSubMenu=0

.hbmpChecked=0

.hbmpUnchecked=0 

.dwItemData=9 

.dwTypeData="My Menu Item" 

' the name of your custom menu item End With

 InsertMenuItem(hSubMenu, subMenuItemCount + 1, True, mii) 

DrawMenuBar(Me.Handle)

غیرفعال کردن آیدی منو

WM_INITMENUPOPUP=&H117
WM_RBUTTONDOWN=&H204


TPM_LEFTBUTTON = 0
TPM_RIGHTBUTTON = 2
TPM_LEFTALIGN = 0
TPM_CENTERALIGN = 4
TPM_RIGHTALIGN = 8
TPM_TOPALIGN = 0
TPM_VCENTERALIGN = 16
TPM_BOTTOMALIGN = 32
TPM_HORIZONTAL = 0
TPM_VERTICAL = 64

MF_BYCOMMAND = 0
MF_BYPOSITION = 1024
MF_SEPARATOR = 2048
MF_ENABLED = 0
MF_GRAYED = 1
MF_DISABLED = 2
MF_STRING = 0
MF_BITMAP = 4
MF_POPUP = 16
MF_UNHILITE = 0
MF_HILITE = 128
MF_SYSMENU = 8192
MF_HELP = 16384
MF_RIGHTJUSTIFY = 16384

Public Function WndProc

   Case WM_RBUTTONDOWN

hMenuPopUp = CreatePopupMenu

             "AppendMenuA hMenuPopUp, MF_STRING, IDM_CONTEXT_LINE, "Line

             "AppendMenuA hMenuPopUp, MF_STRING, IDM_CONTEXT_RECTAN, "Rectangle

            " AppendMenuA hMenuPopUp, MF_STRING, IDM_CONTEXT_CIRCLE, "Circle

             AppendMenuA hMenuPopUp, MF_SEPARATOR, 0, vbNullString

             "AppendMenuA hMenuPopUp, MF_STRING, IDM_CONTEXT_HELP, "Help

&EnableMenuItem hMenuPopUp, 1000, 1

TrackPopupMenu hMenuPopUp, TPM_RIGHTALIGN + TPM_RIGHTBUTTON, pt.x, pt.y, 0, lhwnd, rc

برای تغییر LayOut  پاپ آپ منو  باید از مسیج   WM_INITMENUPOPUP و  کلاس آن  که 32768# است و با تابع FindWindowA میتوان هندل آن را بدست آورد استفاده کرد ، برای اینکه درجایی که کرسر هست بازشود باید از تابع GetCursorPos بهره برد و x و y آنرا در Track گذاشت .

case WM_RBUTTONDOWN:
          
            HMENU hPopupMenu = CreatePopupMenu();
            InsertMenu(hPopupMenu, 0, MF_BYPOSITION + MF_STRING, ID_CLOSE, L"Exit");
            InsertMenu(hPopupMenu, 0, MF_BYPOSITION + MF_STRING, ID_EXIT, L"Play");
            SetForegroundWindow(hWnd);
            TrackPopupMenu(hPopupMenu, TPM_BOTTOMALIGN + TPM_LEFTALIGN, 0, 0, 0, hWnd, NULL);
          



 

اضافه کردن آیتم به منوی سیستم ContextMenu

EnableMenuItem در VB

(WndProc(ref Message m

    if  m.Msg = WM_INITMENUPOPUP

  (((int)m.LParam & 0x10000) != 0) 

   (EnableMenuItem(WParam,SC_MOVE,MF_DISABLED

End If

   

   

Repainting در فرم اکسس فقط در حالت View

Handle Menu در VB

Private Const windowsMenuClassName As String= "#32768

(externalMenu=FindWindowEx(GetDesktopWindow,0,windowsMenuClassName,VbNullString

(PostMessage(externalMenu,WM_CLOSE, 0,0

End If 

End Sub

()Private  Sub Timer1_Timer 


    Dim hMenuWnd As  Long
   
(hMenuWnd = FindWindow ("# 32768", vbNullString    
    
   If hMenuWnd <> 0 Then
    
      (( Me.Caption = CStr (SendMessage
 (hMenuWnd, MN_GETHMENU, 0, 0
      
    End  If
    
End  Sub

برداشتن منو بار

Remove window's current menu

SetMenu lHwnd,0

Ribbon

                                                           office_standards/ms-customui

iribbonui-members-office

Ribbon Attributes

Access_-_Ribbons:Ribbon_Attributes

File Tab And BackStage

Visible=False/True

customize-ribbon-to-suppress-backstage-with-access-2013

</ribbon>

<backstage>

<tab  id="btab1" label="Tab Label 1. ">

<firstColumn>

<taskGroup id="MytskGroup1"

شورت کات منو در اکسس

ماکرو Before Change و SetLocalVar

ساخت   متغیر ( Variable ) موقتی  و تنظیم آن به مقدار مشخص شده  

Remarks

The SetField action cannot be used outside of an CreateRecord or EditRecord data block

The CreateRecord data block can only be used in the After Insert, After Update, and After Update data macro events

ساخت رکورد Create Record

EVENT MACRO

بعد از تغییر رکورد اتفاق می افتد طبق گفته از Update در If میشود استفاده کرد برای اینکه تعیین کند آیا فیلد موردنظر ( داخل پرانتز و دابل کوتیشن )  تغییر نموده  . در مثال بیان شده 

درمثال بالا اگر فیلد Meter_Value در جدول اول تغییر کرد یوزری که باعث این عمل شده به جدول دوم اضافه میشود و یوزر در فیلد And_User قرار خواهد گرفت ... تابع ENVIRON را سرچ کنید البته در شبکه باید سرچ کنید میشود با این تابع گرفت یا خیر .

:environment variables
LLUSERSPROFILE
APPDATA
AVENGINE
CLIENTNAME
CommonProgramFiles
COMPUTERNAME
ComSpec
FP_NO_HOST_CHECK
HOMEDRIVE
HOMEPATH
INCLUDE
INOCULAN
LIB
LOGONSERVER
NUMBER_OF_PROCESSORS
OS
Path
PATHEXT
PROCESSOR_ARCHITECTURE
PROCESSOR_IDENTIFIER
PROCESSOR_LEVEL
PROCESSOR_REVISION
ProgramFiles
SESSIONNAME
SystemDrive
SystemRoot
TEMP
TMP
USERDOMAIN
USERNAME
USERPROFILE
VS71COMNTOOLS
WecVersionForRosebud.FF0

Device Context

BMP_file_format

 Picture Property Doffice.11

stdole.SavePicture

The IDispatch interface ID is defined as a GUID with the value of {00020400-00000000-C000-000000000046}

H20400&

HC0&

H46&

GUID.htm&id

نوشتن ولیو در رجیستری

Set the registry flag to display Hidden and System files in Windows Explorer

WScript.Shell

 _"myKey="HKCU\Software\Microsoft\Windows

"\CurrentVersion\Explorer\Advanced\Hidden\"

"WshShell.RegWrite myKey,1,"REG_DWORD

"WScript.Shell"

Methods
   .AppActivate      'Activate running command.
   .Run              'Run an application
   .TileVertically   'Tile app windows
   .RegRead          'Read from registry
   .RegDelete        'Delete from registry
   .RegWrite         'Write to the registry

"Shell.Application"

Methods
   .CanStartStopService("ServiceName")   'Can the current user start/stop the named service?
   .CascadeWindows      'Arrange app windows
   .EjectPC             'Eject PC from a docking station
   .Explore(FolderPath) 'Open a folder
   .FileRun             'Open the File-run dialogue
   .GetSystemInformation("PhysicalMemoryInstalled")  'Physical memory installed, in bytes.
   .IsServiceRunning("ServiceName")  'Check if a Windows service is running
   .MinimizeAll         'Minimize everything
   .NameSpace("C:\\")   'Create an object reference to a folder
   .ServiceStart("ServiceName", true)  'Start a windows service
   .ServiceStop("ServiceName", true)   'Stop a windows service
   .SetTime             'Open the set time GUI
   .ShellExecute        'Run a script or application
   .ShutdownWindows
   .TileHorizontally   'Tile app windows
   .TileVertically     'Tile app windows
   .ToggleDesktop      'Show/Hide Desktop
   .TrayProperties     'Display the Taskbar/Start Menu Properties
   .UndoMinimizeAll    'Un-Minimize everything

Show/Hide Tools Pane در Adobe Reader

Right Click

Shift+F10

SendKeys("+{F10}") 'for a right click

Mouse Hook

در سیستم 64 بیت

Public Function LowLevelMouseProc(ByVal nCode As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr

If nCode > 0 Then

    Select Case wParam

         Case WM_NCDESTROY, WM_DESTROY

             UnhookWindowsHookEx hhk

         Case WM_RBUTTONDOWN, WM_RBUTTONUP

           LowLevelMouseProc = 1

        Exit Function

         Case Else

          ( LowLevelMouseProc = CallNextHookEx(hhk, nCode, wParam, lParam

     End Select

 End If

CallNextHookEx hhk, nCode, wParam, lParam

End Function

set-a-mouse-hook-with-win32api

FIFA 2020

ما  اعلام می کنیم که نامه های تاریخ 9 و 16 جولای را دریافت کرده و تایید می کنیم که موضوع بحث شده را متوجه شدیم.
با این وجود، باید مطلع شوید که براساس تصمیم مجمع فیفا در 16 مارس 2018، بازی های رسمی فیفا نمی توند در عراق برگزار شود مگر اینکه ارزیابی میزان مخاطرات توسط فیفا به طور موقت اجازه این کار را بدهد. اما این امکان در حال حاضر وجود ندارد. ریسک های امنیتی هنوز خیلی بالاست و اخیرا بیش  از اینکه بهتر شود، وخیم تر شده است.

بازی های مقدماتی جام جهانی 2022 نیز طبق قوانین و اساسنامه های فیفا باید برگزار شود بنابراین عراق باید برای بازی های خانگی خود در مقدماتی جام جهانی 2022  ورزشگاهی خارج از خاک خود را معرفی کند. لطفا فیفا و ای اف سی را از تصمیم خود تا قبل از یکم آگوست مطلع سازید.

پیام اعلام راست کلیک توسط User به پنجره Right Clicked

Public Function MouseHookProc(ByVal nCode As Long,ByVal wParam As LongPtr,ByVal lParam As LongPtr) As LongPtr

      Dim MyMouseHookStruct As New

 ()MOUSEHOOKSTRUCT

Dim ret As Integer = 0

If (nCode < 0) Then

,Return CallNextHookEx(hHook, nCode, wParam

 (lParam

End If

If wParam = WM_RBUTTONDOWN Or wParam = WM_RBUTTONUP Then

Return -1

End If

,Return CallNextHookEx(hHook, nCode, wParam

 (lParam

End Function

پیام ارسالی زمان حرکت ماوس در محیط NonClient و خارج از آن

NonClient Mouse Message ch07d.htm