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

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

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

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

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

مه آلودگی یا تاری پشت پنجره

hRgnBlur

The region within the client area where the blur behind will be applied. A NULL value will apply the blur behind the entire client area







Gdi32




R=ClientRect
rgn=CreateRoundRectRgn(R.Left, R.Top, R.Right
(R.Bottom, 20, 20,
(SetWindowRgn(Handle, rgn, True
???InvalidateRect

----------#########------------------

Const DC_ACTIVE=1
Const DC_NOTACTIVE=2
Const DC_ICON=4
Const DC_TEXT=8
Const DFC_BUTTON=4
Const DFC_POPUPMENU=5
Const DFCS_BUTTON3STATE=16
Const DT_CENTER=1
Const DC_GRADIENT=32
Const SM_FULLSCREEN=65535

SetRect R,0,0, Me.Width,30
DrawCaption Me.Handle,GetWindowDC(Me.Handle),R,DC_ACTIVE Or DC_ICON Or DC_TEXT Or DC_GRADIENT)

SetRect R, 0, 29, Me.Width, 30
DrawEdge GetWindowDC(Me.Handle),R,EDGE_ETCHED,BF_RECT

SetRect R,0,0, Me.Width,30
DrawFocusRect GetWindowDC(Me.Handle),R

SetRect R,0,0,Me.Width,30
DrawFrameControl GetWindowDC(Me.Handle),R,DFC_BUTTON
(DFCS_BUTTON3STATE,

SetRect R,0,0,Me.Width,30
DrawText GetDC(Me.Handle),"Hello World !",Len("Hello World !"),R,DT_CENTER)


#######--------######--------------


hBitmap = LoadImage
GetObject hBitmap,Len(BitmapInf),BitmapInf
(hDC=GetDC(hDlg
(hMemDCSrc=CreateCompatibleDC(hDC 
(hMemDCDst=CreateCompatibleDC(hDC
(hNewBitmap=CreateCompatibleBitmap(hDC,BitmapInf.bmWidth,BitmapInf.bmHeight

(hBitmap=SelectObject(hMemDCSrc,hBitmap
hNewBitmap=SelectObject(hMemDCDst, hNewBitmap

("hTheme=OpenThemeData(hDlg,"Button
'draw the button background
rc.top = 0
rc.left = 0
rc.right=BitmapInf.bmWidth
rc.bottom=BitmapInf.bmHeight
DrawThemeBackground hTheme,hMemDCDst,BP_PUSHBUTTON,
?PBS_NORMAL,rc,NULL 
FillRect hMemDCDst,rc,CreateSolidBrush '
((RGB(255,255,255)
CloseThemeData hTheme
SetWindowTheme GetDlgItem(hDlg, rcCtrl,"",NULL 

 draw the bitmap ignoring background colour' 

TransparentBlt hMemDCDst,0,0,BitmapInf.bmWidth,BitmapInf.bmHeight,hMemDCSrc,0,0,BitmapInf.bmWidth,width
BitmapInf.bmHeight,
(GetSysColor(COLOR_3DFACE 

BitBlt hDC,0,0,BitmapInf.bmWidth,BitmapInf.bmHeight,hMemDCDst,0,0,SRCCOPY




SM_CYCAPTION=4
SM_CYMENUSIZE=55
The width of a button in a window caption or title bar ' 
.in'pixels
SM_CXSIZE=30
The height of a button in a window caption or title bar '
.in pixels
SM_CYSIZE=31
(GetSystemMetrics(nIndex

intptrWindowTheme=openThemeData(CloseWindowButton.Handle,"Window") drawThemeBackground(intptrWindowTheme,GetHdc,ThemeWindowParts.WP_CLOSEBUTTON,CloseButtonState,New RECT(New Rectangle(0, 0,CloseWindowButton.Width, CloseWindowButton.Height)),IntPtr.Zero

 : Close Button Style 
CBS_DISABLED, CBS_HOT, CBS_NORMAL
CBS_PUSHED,

enum {
  CBS_NORMAL = 1,
  CBS_HOT = 2,
  CBS_PUSHED = 3,
  CBS_DISABLED = 4
};

WP:Window Part 



using System; 
 
namespace Microsoft.Samples 
    public class Constants 
    { 
        public const int AUTOSUGGEST = 0x10000000,  
            AUTOSUGGEST_OFF = 0x20000000,  
            AUTOAPPEND = 0x40000000,  
            AUTOAPPEND_OFF = (unchecked((int)0x80000000)); 
 
        public const int ARW_BOTTOMLEFT = 0x0000, 
            ARW_BOTTOMRIGHT = 0x0001, 
            ARW_TOPLEFT = 0x0002, 
            ARW_LEFT = 0x0000, 
            ARW_TOPRIGHT = 0x0003, 
            ARW_RIGHT = 0x0000, 
            ARW_HIDE = 0x0008, 
            ARW_UP = 0x0004, 
            ARW_DOWN = 0x0004, 
            ACM_OPENA = (0x0400+100), 
            ACM_OPENW = (0x0400+103), 
            ADVF_NODATA = 1
            ADVF_ONLYONCE = 2
            ADVF_PRIMEFIRST = 4;            public const int BCM_GETIDEALSIZE = 0x1601,              BI_RGB = 0,              BS_PATTERN = 3,              BITSPIXEL = 12,              BDR_RAISEDOUTER = 0x0001,              BDR_SUNKENOUTER = 0x0002,              BDR_RAISEDINNER = 0x0004,              BDR_SUNKENINNER = 0x0008,              BDR_RAISED = 0x0005,              BDR_SUNKEN = 0x000a,              BF_LEFT = 0x0001,              BF_TOP = 0x0002,              BF_RIGHT = 0x0004,              BF_BOTTOM = 0x0008,              BF_ADJUST = 0x2000,              BF_FLAT = 0x4000,              BF_MIDDLE = 0x0800,              BFFM_INITIALIZED = 1,              BFFM_SELCHANGED = 2,              BFFM_SETSELECTION = 0x400+103,              BFFM_ENABLEOK = 0x400+101,              BS_PUSHBUTTON = 0x00000000,              BS_DEFPUSHBUTTON = 0x00000001,              BS_MULTILINE = 0x00002000,              BS_PUSHLIKE = 0x00001000,              BS_OWNERDRAW = 0x0000000B,              BS_RADIOBUTTON = 0x00000004,              BS_3STATE = 0x00000005,              BS_GROUPBOX = 0x00000007,              BS_LEFT = 0x00000100,              BS_RIGHT = 0x00000200,              BS_CENTER = 0x00000300,              BS_TOP = 0x00000400,              BS_BOTTOM = 0x00000800,              BS_VCENTER = 0x00000C00,              BS_RIGHTBUTTON = 0x00000020,              BN_CLICKED = 0,              BM_SETCHECK = 0x00F1,              BM_SETSTATE = 0x00F3,              BM_CLICK    = 0x00F5;            public const int CDERR_DIALOGFAILURE = 0xFFFF,              CDERR_STRUCTSIZE = 0x0001,              CDERR_INITIALIZATION = 0x0002,              CDERR_NOTEMPLATE = 0x0003,              CDERR_NOHINSTANCE = 0x0004,              CDERR_LOADSTRFAILURE = 0x0005,              CDERR_FINDRESFAILURE = 0x0006,              CDERR_LOADRESFAILURE = 0x0007,              CDERR_LOCKRESFAILURE = 0x0008,              CDERR_MEMALLOCFAILURE = 0x0009,              CDERR_MEMLOCKFAILURE = 0x000A,              CDERR_NOHOOK = 0x000B,              CDERR_REGISTERMSGFAIL = 0x000C,              CFERR_NOFONTS = 0x2001,              CFERR_MAXLESSTHANMIN = 0x2002,              CC_RGBINIT = 0x00000001,              CC_FULLOPEN = 0x00000002,              CC_PREVENTFULLOPEN = 0x00000004,              CC_SHOWHELP = 0x00000008,              CC_ENABLEHOOK = 0x00000010,              CC_SOLIDCOLOR = 0x00000080,              CC_ANYCOLOR = 0x00000100,              CF_SCREENFONTS = 0x00000001,              CF_SHOWHELP = 0x00000004,              CF_ENABLEHOOK = 0x00000008,              CF_INITTOLOGFONTSTRUCT = 0x00000040,              CF_EFFECTS = 0x00000100,              CF_APPLY = 0x00000200,              CF_SCRIPTSONLY = 0x00000400,              CF_NOVECTORFONTS = 0x00000800,              CF_NOSIMULATIONS = 0x00001000,              CF_LIMITSIZE = 0x00002000,              CF_FIXEDPITCHONLY = 0x00004000,              CF_FORCEFONTEXIST = 0x00010000,              CF_TTONLY = 0x00040000,              CF_SELECTSCRIPT = 0x00400000,              CF_NOVERTFONTS = 0x01000000,              CP_WINANSI = 1004;                    public const int cmb4 = 0x0473,              CS_DBLCLKS = 0x0008,              CS_DROPSHADOW = 0x00020000,              CF_TEXT = 1,              CF_BITMAP = 2,              CF_METAFILEPICT = 3,              CF_SYLK = 4,              CF_DIF = 5,              CF_TIFF = 6,              CF_OEMTEXT = 7,              CF_DIB = 8,              CF_PALETTE = 9,              CF_PENDATA = 10,              CF_RIFF = 11,              CF_WAVE = 12,              CF_UNICODETEXT = 13,              CF_ENHMETAFILE = 14,              CF_HDROP = 15,              CF_LOCALE = 16,              CLSCTX_INPROC_SERVER    = 0x1,              CLSCTX_LOCAL_SERVER     = 0x4,              CW_USEDEFAULT = (unchecked((int)0x80000000)),              CWP_SKIPINVISIBLE = 0x0001,              COLOR_WINDOW = 5,              CB_ERR = (-1),              CBN_SELCHANGE = 1,              CBN_DBLCLK = 2,              CBN_EDITCHANGE = 5,              CBN_EDITUPDATE = 6,              CBN_DROPDOWN = 7,              CBN_CLOSEUP  = 8,              CBN_SELENDOK = 9,              CBS_SIMPLE = 0x0001,              CBS_DROPDOWN = 0x0002,              CBS_DROPDOWNLIST = 0x0003,              CBS_OWNERDRAWFIXED = 0x0010,              CBS_OWNERDRAWVARIABLE = 0x0020,              CBS_AUTOHSCROLL = 0x0040,              CBS_HASSTRINGS = 0x0200,              CBS_NOINTEGRALHEIGHT = 0x0400,              CB_GETEDITSEL = 0x0140,              CB_LIMITTEXT = 0x0141,              CB_SETEDITSEL = 0x0142,              CB_ADDSTRING = 0x0143,              CB_DELETESTRING = 0x0144,              CB_GETCURSEL = 0x0147,              CB_INSERTSTRING = 0x014A,              CB_RESETCONTENT = 0x014B,              CB_FINDSTRING = 0x014C,              CB_SETCURSEL = 0x014E,              CB_SHOWDROPDOWN = 0x014F,              CB_GETITEMDATA = 0x0150,              CB_SETITEMHEIGHT = 0x0153,              CB_GETITEMHEIGHT = 0x0154,              CB_GETDROPPEDSTATE = 0x0157,              CB_FINDSTRINGEXACT = 0x0158,              CB_SETDROPPEDWIDTH = 0x0160,              CDRF_DODEFAULT = 0x00000000,              CDRF_NEWFONT = 0x00000002,              CDRF_SKIPDEFAULT = 0x00000004,              CDRF_NOTIFYPOSTPAINT = 0x00000010,              CDRF_NOTIFYITEMDRAW = 0x00000020,              CDRF_NOTIFYSUBITEMDRAW = CDRF_NOTIFYITEMDRAW,              CDDS_PREPAINT = 0x00000001,              CDDS_POSTPAINT = 0x00000002,              CDDS_ITEM = 0x00010000,              CDDS_SUBITEM = 0x00020000,              CDDS_ITEMPREPAINT = (0x00010000|0x00000001),              CDDS_ITEMPOSTPAINT = (0x00010000|0x00000002),              CDIS_SELECTED = 0x0001,              CDIS_GRAYED = 0x0002,              CDIS_DISABLED = 0x0004,              CDIS_CHECKED = 0x0008,              CDIS_FOCUS = 0x0010,              CDIS_DEFAULT = 0x0020,              CDIS_HOT = 0x0040,              CDIS_MARKED = 0x0080,              CDIS_INDETERMINATE = 0x0100,              CDIS_SHOWKEYBOARDCUES = 0x0200,              CLR_NONE = unchecked((int)0xFFFFFFFF),              CLR_DEFAULT = unchecked((int)0xFF000000),              CCS_NORESIZE = 0x00000004,              CCS_NOPARENTALIGN = 0x00000008,              CCS_NODIVIDER = 0x00000040,              CBEM_INSERTITEMA = (0x0400+1),              CBEM_GETITEMA = (0x0400+4),              CBEM_SETITEMA = (0x0400+5),              CBEM_INSERTITEMW = (0x0400+11),              CBEM_SETITEMW = (0x0400+12),              CBEM_GETITEMW = (0x0400+13),              CBEN_ENDEDITA = ((0-800)-5),              CBEN_ENDEDITW = ((0-800)-6),              CONNECT_E_NOCONNECTION = unchecked((int)0x80040200),              CONNECT_E_CANNOTCONNECT = unchecked((int)0x80040202),              CTRLINFO_EATS_RETURN    = 1,              CTRLINFO_EATS_ESCAPE    = 2,              CSIDL_DESKTOP                    = 0x0000,        // <desktop>              CSIDL_INTERNET                   = 0x0001,        // Internet Explorer (icon on desktop)              CSIDL_PROGRAMS                   = 0x0002,        // Start Menu\Programs              CSIDL_PERSONAL                   = 0x0005,        // My Documents              CSIDL_FAVORITES                  = 0x0006,        // <user name>\Favorites              CSIDL_STARTUP                    = 0x0007,        // Start Menu\Programs\Startup              CSIDL_RECENT                     = 0x0008,        // <user name>\Recent              CSIDL_SENDTO                     = 0x0009,        // <user name>\SendTo              CSIDL_STARTMENU                  = 0x000b,        // <user name>\Start Menu              CSIDL_DESKTOPDIRECTORY           = 0x0010,        // <user name>\Desktop              CSIDL_TEMPLATES                  = 0x0015,              CSIDL_APPDATA                    = 0x001a,        // <user name>\Application Data              CSIDL_LOCAL_APPDATA              = 0x001c,        // <user name>\Local Settings\Applicaiton Data (non roaming)              CSIDL_INTERNET_CACHE             = 0x0020,              CSIDL_COOKIES                    = 0x0021,              CSIDL_HISTORY                    = 0x0022,              CSIDL_COMMON_APPDATA             = 0x0023,        // All Users\Application Data              CSIDL_SYSTEM                     = 0x0025,        // GetSystemDirectory()              CSIDL_PROGRAM_FILES              = 0x0026,        // C:\Program Files              CSIDL_PROGRAM_FILES_COMMON       = 0x002b;        // C:\Program Files\Common            public const int DUPLICATE = 0x06,              DISPID_UNKNOWN = (-1),              DISPID_PROPERTYPUT = (-3),              DISPATCH_METHOD = 0x1,              DISPATCH_PROPERTYGET = 0x2,              DISPATCH_PROPERTYPUT = 0x4,              DV_E_DVASPECT = unchecked((int)0x8004006B),              DISP_E_MEMBERNOTFOUND = unchecked((int)0x80020003),              DISP_E_PARAMNOTFOUND = unchecked((int)0x80020004),              DISP_E_EXCEPTION = unchecked((int)0x80020009),              DEFAULT_GUI_FONT = 17,              DIB_RGB_COLORS = 0,              DRAGDROP_E_NOTREGISTERED = unchecked((int)0x80040100),              DRAGDROP_E_ALREADYREGISTERED = unchecked((int)0x80040101),              DUPLICATE_SAME_ACCESS = 0x00000002,              DFC_CAPTION = 1,              DFC_MENU = 2,              DFC_SCROLL = 3,              DFC_BUTTON = 4,              DFCS_CAPTIONCLOSE = 0x0000,              DFCS_CAPTIONMIN = 0x0001,              DFCS_CAPTIONMAX = 0x0002,              DFCS_CAPTIONRESTORE = 0x0003,              DFCS_CAPTIONHELP = 0x0004,              DFCS_MENUARROW = 0x0000,              DFCS_MENUCHECK = 0x0001,              DFCS_MENUBULLET = 0x0002,              DFCS_SCROLLUP = 0x0000,              DFCS_SCROLLDOWN = 0x0001,              DFCS_SCROLLLEFT = 0x0002,              DFCS_SCROLLRIGHT = 0x0003,              DFCS_SCROLLCOMBOBOX = 0x0005,              DFCS_BUTTONCHECK = 0x0000,              DFCS_BUTTONRADIO = 0x0004,              DFCS_BUTTON3STATE = 0x0008,              DFCS_BUTTONPUSH = 0x0010,              DFCS_INACTIVE = 0x0100,              DFCS_PUSHED = 0x0200,              DFCS_CHECKED = 0x0400,              DFCS_FLAT = 0x4000,              DT_LEFT = 0x00000000,              DT_RIGHT = 0x00000002,              DT_VCENTER = 0x00000004,              DT_SINGLELINE = 0x00000020,              DT_NOCLIP = 0x00000100,              DT_CALCRECT = 0x00000400,              DT_NOPREFIX = 0x00000800,              DT_EDITCONTROL = 0x00002000,              DT_EXPANDTABS  = 0x00000040,              DT_END_ELLIPSIS = 0x00008000,              DT_RTLREADING = 0x00020000,              DT_WORDBREAK = 0x00000010,              DCX_WINDOW = 0x00000001,              DCX_CACHE = 0x00000002,              DCX_LOCKWINDOWUPDATE = 0x00000400,              DI_NORMAL = 0x0003,              DLGC_WANTARROWS = 0x0001,