"> استفاده از توابع API در اكسس | ام اس پی سافت

استفاده از توابع API در اکسس

data:image/jpg;base64,/9j/4AAQSkZJRgABAQAAAQABAAD/2wCEAAkGBhAQEBEQDw8PDw8QEBQPEBAUDw8ODw0QFBAVFBQQFRQXHCYeFxojGRQUHy8gIycpLCwsFR4xNTAqNSYrLCkBCQoKDgwOGg8PGiwgHh0qKSkpKSwqLSwsKS8sLCkpNCksLCkqLCksLCwsKS0pKSwsKSwsLCksLCwpKSwpLC0sKf/AABEIAMwAzAMBIgACEQEDEQH/xAAcAAABBQEBAQAAAAAAAAAAAAAAAgMEBQYHAQj/xABMEAABAwIBBQkKCgkFAQEAAAABAAIDBBEFBhIhMVEHIkFhcYGRobMTM1JUcnOxssHRFBUjMkKCkpSi0hckNDVTYsLh8BZDRJOj8SX/xAAaAQEAAgMBAAAAAAAAAAAAAAAAAQQCBQYD/8QAMBEAAgEDAQUHAwQDAAAAAAAAAAECAwQRMRITIUFRMkJxcpGhsQVSgSNiwdEUYYL/2gAMAwEAAhEDEQA/AO4oQkveACSQABckmwAGskoBSr8Wx+mpG51RMyPY0m73cjRpKwmVe6gbuhoLaLh1QRe/mwfWPMOFYCQvkcXyOc97tLnOJc5x4yUNpQ+nynxqcF05nR8S3XWC4padz9j5Hdzby5ouT0hZ+fdGr5bgyiAHUYomnN+1c9azrIE62BTg2cLOjDSPrxJtRjOIWzvhtQ9nhNlcAOUCxaonxvWeN1f3mf8AMnaeB995e/F7VKGEudpIDTsA18yFjdwXJEH43q/G6v7zP+ZHxvV+N1f3mf8AMriHJeV/zY3nmt6VJZkLVHVGelSYN0lrj2M98bVfjdX95n/Mj42q/G6v7zP+ZaUZAVXgDpPuS27ntT4LR9Y+5DHeUeq9jL/G9X43V/eZ/wAyPjer8bq/vM/5lrG7nNTsYPrFLG5vUbWdJQx3tDqvYyPxtV+N1f3mf8yPjar8bq/vM/5lsP0az+EzrShuaTeEzrQjfW/VGM+N6vxur+8z/mXoxytGqrqv++U+krZ/o0l8NnQfevf0ZS+GzoPvUDf2/VGKOU9cP+VOeWWT3qywrdKrKcjOPdmcLXuL+hx3w6TyLSfowf4cf2f7pyPcycNboj9T+6GEqtrJYbRaYDun0NTZj3/BpTozJSAwn+WTUeey14Kw/wDoIMaT3OB1hfTGz2haPJp96doFgGktAGgAA6AFBqrmjSUduk8rOC1QhCFAEIQgBcn3RcszO91HTu+QYc2Z4Pfng6WeSD0nkWx3QsoTSUhzDaac9yjPC243zxyDrIXGaeJDb/T7dP8AVl+P7FwwqZHEiKNSWtWRuxLY1aYdgpfZzrhp1Dhd/ZP4PhGeQ943v0W+FxniW9ocLjgYZqgtaGi+nU0e/iQr17iNJcdeSKvC8lC4AkdzZ1lT6upw6hFpXsD7XzPnyH6rdPSqLFsqqmrcYaMGGIaHSapCOM/Q5BpUKlyfij3zh3WQm5c7SL7be03KFTd1avGrLC6L+S3l3R2nRSUU0v8AM7NhZ0i5UQ5Z4mdUFHGNjjK89RXjgmJEPeNnRXdz4i35V4ofp0beSGQ+lyb/ANSYn4zAOSl95TDklQen+NR+1eg+cocT8cjHJSx+1Nux7EfHzzU8I9iaJTZUk7iku6vRDpxvEPH5eaKAexNvxiuOuvqOZsLfQ1NuTTihluaf2r0Qt2LVvj9V9qMf0pmTGKzx6r/7APYkvKjyFCd1D7V6Dc2UFaP+ZUnlld7FEdlPU/SnqTyVUw9q8qQq2VqE7EeiOlbm1dJK6pL5ZpG/B2ECSV8uaS6QG2cTbUtVka+9KDte/wBZYzcoO8rD4MLB1yla7IM/qTPLf66hmmveG3jrH4ZokIQoNSCEIQHHN0/EjNX9yB3tOwMA4M92/ceto5lnYGKTikjZqype5+a51RJYlu9IDyBcjVoAR8Gcy2cNB1EaWu5CpOsoQ2KcY9EOxhT8No+6PsfmjS73KExa7JbDc8tb4RznHYFJ6TkoxcnyNLgOHNY3u8lmtaCRfQGgDS7kCzuN4m+tmEbCWxjS1v8ADZwyuHhng2X23VhlxjjY8ylZ4IkkA4QDaOM8pBceJvGqvAYLMMjtL5Te/Dm8HvQ19CLlmvPV6f6RYQ07I2hjBZo6+M7SkSFOPemHuUlmKGnlR5CnnuUaRygsIaeUglD3JBchJ6SmyUFyQXIAc5IiifI7NjaXHh4A3lPAn6ChdO/NFwwfPds/lHGVtcNwlrAGMaAB/lztKxbKVe52OETL0+Sb3aZJLcTB7T7lMZkRGf4zvre4Law0TW8FztKeLVHE1UrqTepz6p3Pmkb0zN52v6iFl8XyMniuWfKtGsAFsg+rw8y6/V1AYOC/o4ysxUY/A92Z8Iic69g3Pbr2DgTJ7Uq9TUptyoWixDiYz1ZVsMg2/qMfG55/GVSx2g7s+No+WjLZLD5xDTY226VfZEfsEHI/tHKc5PO6ntRlLq18MvUIQhrQQhCA+d6rv83npO0cptLO5osDvTradLTzKHVd/m89J2jk/CsjsI6InxAOcLC1zpGscxXS8jacCN8p4d6DsA1rmlGd8F0aef4Pg8rxod8Hfbyn70HpIUFO+b3agu80jn9dXmqqJJf40pzeJl81g+yAtZGbANGoAAcgWLwZl5YxwA35mj+y1wkUlvZSSS5D5emnvSDImXyoSo4PZHqM96HyKO96GR65ySXJBekFyAWXJt7jqGknQBtJ1JJepmAwd0qGbGAv59Tes9Sg86s9iLZrsCwwRRtGs6ydrjrP+bFo6eHNHHwqJSRaQNisFgc1Vm2wSHlLSJFJ5I5jug4290pp2khrQDJb6ROpp4gNPOsNItfuhYc6OqMtt5MBp4M8CxHRZZCRZI6S12d0sG8yNxB08BY8kuiOZc6SW2u0nj1jmWzyXkDGmHUGkuaOJziSOklYzc7oHCJ8jhZsj7t42tbYu5L+haqju2ZjuAuLOkX9ix5mpuknlLkahCEKTWghCEB871R+Xm89J2jlIhKjVR+Xm89J2jk/CVkdhHRE6mdpC6Blk/Nwa20QNPPI0+xc7iOkLoO6C62Et43wDrB9igp3Xbpr9xhcDO/B4j6FoO6rOYW6zx5J9Ct+6qS8SnSpt8qYMqbdIgHXyJlz0hz0guQCy5JLkguSS5AKLloMiY7ySO8lvpKzRK1GQbt9KP5m+qVDKl2/02bukGkqSo9LwqQsTnZ6gvHBeoQxK7E8KjnYWSsa9p4CLhZ+Lc+pGuv3HO03s6Rz29BK2BC8sh7RqyisIro6GwzQA1o0aLatgsmatgBiA/iBWj1WSb6eNvg3cej/AOKBtNp5LsL1CFkVgQhCA+davv8AN56TtHJ+Epir7/N56TtHJ6IrI7COhLjOkLoO6D+6o/OwLnsWsLoeX37rj87AoKdz26fic9oXb/mKsu6KqpPncxU4OUl4eMiSXJF16gPbrxC8QBdJK9XhQg8KuMka4R1AaTYSgNHlg3A59IVO7QtfkZk/p+ESixI3gP0Gn6XKfRyqGVbucVTafM2sQ0g7VJsmYergCfBWJzk3xPLLxLsiyGORC8KWQmZpmtFyUJXEaqJLAlRcHiLnPlPDvRyDX/nEqvH8Tf3KR0QtmNvfYdQKvMBbalp+OCMnaSYwSUR7Ti4wz1ZPQhCkrAhCEB86Vvf5vPy9o5PRFM1p/WJ/Py9q5OxFZHYR0RLi1hdEy6/dcfnIFzqI6Qui5a6cKZ5cHpCFS57dPzHO6fWpYUWFulSmhC6KCUhrUoMQCUWTgjXoiQDVkEJ/uKk4bhTqiQMbcNFi9w4BsHGUMJzUI5Y/kzgRqJA9w+SadAOqRw/pH9l0aGEaGjUNfGUzQ0LYmCNgAsANGpo2KwYyywOdr13UllnoCF7dIc5CrqBco8laBwlRMUxNsTHOcbBouTxe9c8qsq6lxJa5rGknNGY0lo4Bc6yhcoW0quh0OfFAAfSTqWPyhy5YwFsREsmq/wDtsPGeHkCylbXzS98le8bCd70DQqypGhTg2VKyUeMjeYHUvkweplkcXPfO+7jr+gAOIcS3uB/stP5iLs2rnuA6MCk45pPWaujYYy0EI2RMHQwKWULzCjj9z+ESkIQoNaCEIQHznXftE/n5e1cnYima4/rE/n5e1cnYisjsI6IlxawujZX6cJZ5UHrBc4i1hdGyo04S3yoPWCFS67VPzIwMQUhqbY1PtahdFApYJQ1qWGoDwEoudqcDEEbASToAGkknUAhDeFlnkUL5HNjZpc7VsA4XHiC6HgeDtp4wBpcdNzrJOtxULJjABC3ukgvI7X7GDiHWVpI2cJ1rFmhu7nePC0QRx2Xrn2SnFUWUWL/B2NIbnlzs0C+aAbE3PQoKUIubwWctYAq6txdrRdzmtG0kD0rI1WOTv+kIxsaNPSdKrHsubuJcdpJJ61ODaU7B97gS8ocWM7s1pvG3Tfw3beQKlcxTHRppzFJtKdNU47KIL2qDWDenmVm9qr68b08oUnobHB9GAu45ZPXC6VR97Z5DfVC5ph2jARxySdqul0g+TZ5DfVChnP3un/Uv4HkIQoNaCEIQHzjXftE/n5e1cnIk1XH5efz8vauTkRWR2EdETItYXR8o9OEN5YPXaubw6wuk49+5+aDtGIVbrWHmRimNT7GLyNikMYhcEtYnAxLaxOBiAaIsLlaHJbAS4ieUW4WA/Rb4XKeoKJgWDmoeHOHyTTo2PcP6R1rdRRAANGodZ2qGai9ue5H8io2X4LAaANgTwCAF6oNM3kblWSyw0sj87/SVq5nrK5Tm7W+cHoKFu17a8TNmNJMamGNILFkdKQnMTT2Kc5iZexAVkjVWYkN5zhXEoVRi3zPrBAa6jH/4UQ2yP7YrpsbbADYAOpczptGB0/G9x/8Ady6a3UoZz17ovNL5R6hCFBrgQhCA+b64/Lz+fl7VyciTVafl5/Py9o5ORFZHYR0RMh1hdLxn9znyYO0YuZwHSOVdLxTTg7vIh7RiFW61h5kZaNikMYkxNUhjULgNYpFFQunf3Nt80fPcOAeCOMpEcTnuEbBdzuho4XHiW1wfC2wMAHzjpJ4STrceNQULu53a2Y6kmio2xtDGgCwsbagNgU1rbLxjLL15UHPyllnjn2UeWqAUPFMTbFa9yXXDQBcm3oVDPXSP4cwbBpd0+5C1RtpT4otq7Fmt1utxayeZUFZUGXgs0G+nWbeheiIDl26yUZinBtaVtCHF8WMFqQWKQWpBapLqkRXMTMjVMc1R5RoKGZUyqmxg7z6w9qt5XKlxk7weUPQUBtaVl8FoxtJ7d66UFz/CI87C6Aa72P8A7OXQVDOdvNF4y+QQhCg14IQhAfNtb3+bz8naOTkSZrT8vN56XtHJcblkdhHRE2A6RyrptfpwZ/mou0YuYU7t8OVdOqjfBpPMs6ntQq3Xc8yKKJugcidJtawJJNgBrJPAkwjQOQehWmAwh0+kXs3RxXNioPatPdwci7yewYRNz32MjtJPoaOIK/jYm4WdWpSFBzFSbk8sE3KdCcTc2pDzjqZjHTd8fK70BRAxO5RVkcTo3Svaxt3AEm1zbUNqhRYiZO8U9VPxtgcxh+vJmhSjeW7xTJOavCxesoK9+qCnpxtmnMjvsRAj8Sc+IH658QLRwtghjiH2n5xUmbrQXP04/AwWKvnxKBpsZo87wQ4Pf9ltyps1NhUffXGocP4s8k/4L5vUvY8sKeLeUlMBsbFE1nUBfqQzVWb7MX+eBCj7tJ3mkqpP5jF3Bn2pS1PtyarX/O+C04PhSPnePqsAb+JSvjPFJ+9UpYNr976xHoTjMmMQl79VtiB1hgc48mjN9JUZPOVxJdqUY+7IQyKp2aaitkdxMbHTt6Tc9aciw/CYjdsDJ3D6UhfUeuSFZ025/ADeWSaZ3Dd2aOrT1q5pcCpovmQxjjIzj0uuUyVZ3UOcpS9kUPdTM6MRx5sbHNDWtbZrRncFtAGta1CFBSrVlUwksJAhCEK4IQhAfNGI72onB4J5OuRxQx6v8ssjKqCSSd0ZLHOc4ubv2WzjY3GrRwGyyjZlkddTlGUU4vJbUT7yNHGurhmdhEjdsIH4wuR4Ic6ojbtJ6mkrs2FwNlojAX9zz2ZucAHFum97HXqQr3fCKfRozsLdAHCBZWGBygVIFxcsOi4voIOpSpMmqNovUVE820OlELDzRhqbpH4fHNGykihY8lwLmNu8jNvYvOk6tqg8a1wqkGoxfjyNnEnVHik9CW+cBQaJp5HCVFqZgExPXAJptNJJ/K3adfQhkoqPFlJi2PR08jHuGcd9mgAE6tenUo/+qqyf9npJXDgcQ63ToHWtbT4RCw53c2uk1Z7mhz+S51DkU1CxG4hFdjL6v+jENwrFpvnvjgHlC/4QfSn4tz/O01FXLIeENGaOlxPsWwQhDvavdwvBFFS5FUUf+yHna9zn9R0dSuIKVkYtGxjBsa0NHQE6hCtKpOfabYIQhDAEIQgBCEIAQhCAEIQgPCFj8o9y2hqyXsaaWY/TiADHHa6PUeax41sUIekKkqbzF4ONUG5fXUlbC+zKiAPN3sdYtBY4AuY7SNfBdbZmS1QRYSdyHLp/D71r0IXH9QrNY4ehko9zyIm808sh4rRj2nrUiqybpqZrXxRAPa4b8lznWOg6SeNaVNVFO2Rpa4XB5kK8rmrPtSZTtrtVtJtqUiOmkfr3g49J6OBTaegjj+a0Dj1npUhDCVToRoKFjNNrnadJUlCEPIEIQgBCEIAQhCAEIQgBCEIAQhCAEIQgBCEID//Z

جهت استفاده از توابع API ویندوز در قسمتهای مختلف یک برنامه به زبان اکسس یا ویژوال بیسیک باید الگوی تابع مورد نظر را در یک ماژول به صورت Public تعریف نمایید در این الگو شما نام تابع و نام کتابخانه DLL که تابع مورد نظر در آن تعریف شده را همراه با پارامترهای ورودی/خروجی آن مشخص کنید . همچنین میتوانید از یک نام دلخواه برای فراخوانی تابع استفاده کنید در اینصورت باید نام اصلی یا مستعار تابع در کتابخانه مربوطه اش را بعد از عبارت Alias مشخص کنید.
به عنوان مثال ShellExecuteA یکی از توابع کتابخانه ای ویندوز است که با همین نام در کتابخانه shell32.dll تعریف شده است. با این تابع شما قادر خواهید بود یک فایل دلخواهتان را در محیط برنامه ای که ویندوزتان برای آن پسوندفایل رجیستر شده، باز کنید مثلا یک فایل PDF‌ را در محیط آکروبات.
برای استفاده از این تابع الگوی آنرا به شکل زیر در یک ماژول تعریف نمایید

Public Declare Function ShellExecuteA Lib “shell32.dll” (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String,
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

اگر بخواهید از این تابع با نام apiShellExecute در برنامه تان استفاده کنید باید به جای الگوی فوق، الگوی زیر را در ماژول استفاده کنید.

Public Declare Function apiShellExecute Lib “shell32.dll” Alias “ShellExecuteA” (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

حال تابعی به نام ShellExecuteA یا apiShellExecute در قسمتهای مختلف برنامه قابل فراخوانی است. در این مرحله باید تابع را با پارامترهای مناسب صدا زد. مثلا به شکل زیر:

Dim Lret As Long, LshowHow As Long
Dim stFile As String
LshowHow = 1
stFile = “C:\WO-Status Count8605.pdf”
Lret = ShellExecuteA (hWndAccessApp, vbNullString, stFile, vbNullString, vbNullString, LshowHow )

یا

Lret = apiShellExecute (hWndAccessApp, vbNullString, stFile, vbNullString, vbNullString, LshowHow )
  • پسورد: www.mspsoft.com
مسعود شریفی پور

از سال 88 که با برنامه نویسی آشنا شدم خیلی علاقه مند بودم یک بستر آموزشی بسازم در فضای وب و به انتشار آموزش های در این زمینه بپردازم.حالا یک تیم داریم و با قدرت رو به جلو حرکت میکنیم.

نوشته‌های مرتبط

دیدگاه‌ها

*
*

این سایت از اکیسمت برای کاهش هرزنامه استفاده می کند. بیاموزید که چگونه اطلاعات دیدگاه های شما پردازش می‌شوند.

کدیشن ! مارکت پروژه های برنامه نویسی راه اندازی شدیه توکه پا بریم ببینم