ورود / ثبت نام
0
0

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

364 بازدید

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
آیا این مطلب را می پسندید؟
https://www.mspsoft.com/?p=1196
اشتراک گذاری:
واتساپتوییترفیسبوکپینترستلینکدین
مسعود شریفی پور
از سال 88 که با برنامه نویسی آشنا شدم خیلی علاقه مند بودم یک بستر آموزشی بسازم در فضای وب و به انتشار آموزش های در این زمینه بپردازم.حالا یک تیم داریم و با قدرت رو به جلو حرکت میکنیم.
مطالب بیشتر
برچسب ها:

نظرات

0 نظر در مورد استفاده از توابع API در اکسس

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *

هیچ دیدگاهی نوشته نشده است.