Printable View
هرکس جواب این سوالات را به هم بده بازی فکروبکر که خودم ساختم رو براش می فرسم
1) چگونه می توان یک شاخه از ویندوز را با کلیک بر روی یک باتم باز کرد؟
2)چگونه میتوان با کلیک بر روی یک گزینه یک فایل را اجرا کرد؟
3)چگونه می توان با رفتن موس روی یک گزینه یک صدا اجرا شود (منظورم افکت صوتی است) ؟
با تشکر از همه دوستان
جواب سوال 1:
(استفاده از یک تابع API)
این قسمت رو در یک ماژول Paste کنین:
و این قسمت رو در فرمتون یا همون جایی که می خواین یک فولدر رو با مسیر Directory باز کنین:کد:Declare Function ShellExecute 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
Public Const SW_SHOWNORMAL = 1
----------------------------------------------------------------------------------------------------------------------کد:ShellExecute 0, "Open", Directory, vbNullString, vbNullString , SW_SHOWNORMAL
جواب سوال 2:
اگه منظورتون از گزینه، OptionButton یا CommandButton ه، کافیه توی رویداد کلیک اون تایپ کنین: (ProgramName اسم برنامه ایه که مسیر Default ویندوزه و یا آدرس کامل برنامه ایه که می خواین اجراش کنین)
مثلا برای اجرای ماشین حساب ویندوز کافیه دستور زیر رو تایپ کنین:کد:Shell ProgramName, vbNormalFocus
----------------------------------------------------------------------------------------------------------------------کد:Shell "calc.exe", vbNormalFocus
جواب سوال 3:
(استفاده از یک تابع API)
این قسمت رو در یک ماژول Paste کنین:
و در رویداد MouseOver گزینه موردنظرتون دستور زیر رو تایپ کنین:(SoundFilePath مسیر کامل یه فایل با فرمت Wav هست)کد:Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long
کد:sndPlaySound SoundFilePath
با سلام دوست عزیز
ممنون از خانم که جوابتون را بصورت کامل دادن ولی شما نباید برای اینکه جوابتون رو بگیرین بگید اگر جواب بدین براتون بازی فکر بکرم را می فرستم
ممنون
البته ناگفته نماند اگه من جواب دادم فقط بخاطر این بود که جواب هر سه تا سوال رو می تونستم بدم، وگرنه هیچ احتیاجی به قرار دادن جایزه نبود و من هم اصلا احتیاجی به اون ندارم.نقل قول:
نوشته شده توسط تکنیک برتر
اولا دستت درد نکنه که کامل جوابم رو داده بودی حالا اگه دوست داشتی ای میلی چیزی بزار تا برات بازی فکر و بکر رو بفرستم اگه نخواستی ام لا مانع
البته چند تا سوال دیگه هم داشتم اگه بلد بودی جواب بده
1) چگونه می توان با کلیک بر روی علامت ضرب در گوشه پنجره ، برنامه به System Tray برود؟
2) با توجه به سوال 3 قبلی چگونه می توان با رفتن موس روی فرم فایل در حال اجرا قطع شود؟
پیشا پیش از شما دوستان عزیز تشکر می کنم
اول حواب سوال دومتون:
این رو در یک ماجول Paste کنین و از توابع TrayAdd، TrayModifyو TrayDelete برای کار با System Tray استفاده کنین:
در مورد سوال اول، برای این کار نباید از تابع Shell استفاده کنین. توضیحات بیشتر رو بعدا براتون می ذارم...کد:Option Explicit
'[Tray Constants]
Const NIF_MESSAGE As Long = &H1 'Message
Const NIF_ICON As Long = &H2 'Icon
Const NIF_TIP As Long = &H4 'TooTipText
Const NIM_ADD As Long = &H0 'Add to tray
Const NIM_MODIFY As Long = &H1 'Modify
Const NIM_DELETE As Long = &H2 'Delete From Tray
'[Type NotifyIconData For Tray Icon]
Private Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type
'[Return Events]
Public Enum TrayRetunEventEnum
MouseMove = &H200 'On Mousemove
LeftUp = &H202 'Left Button Mouse Up
LeftDown = &H201 'Left Button MouseDown
LeftDbClick = &H203 'Left Button Double Click
RightUp = &H205 'Right Button Up
RightDown = &H204 'Right Button Down
RightDbClick = &H206 'Right Button Double Click
MiddleUp = &H208 'Middle Button Up
MiddleDown = &H207 'Middle Button Down
MiddleDbClick = &H209 'Middle Button Double Click
End Enum
'[Modify Items]
Public Enum ModifyItemEnum
ToolTip = 1 'Modify ToolTip
Icon = 2 'Modify Icon
End Enum
'[API]
Private TrayIcon As NOTIFYICONDATA
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
'[Add to Tray]
Public Sub TrayAdd(hwnd As Long, Icon As Picture, _
ToolTip As String, ReturnCallEvent As TrayRetunEventEnum)
With TrayIcon
.cbSize = Len(TrayIcon)
.hwnd = hwnd
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallBackMessage = ReturnCallEvent
.hIcon = Icon
.szTip = ToolTip & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, TrayIcon
End Sub
'[Remove From tray]
Public Sub TrayDelete()
Shell_NotifyIcon NIM_DELETE, TrayIcon
End Sub
'[Modify the tray]
Public Sub TrayModify(Item As ModifyItemEnum, vNewValue As Variant)
Select Case Item
Case ToolTip
TrayIcon.szTip = vNewValue & vbNullChar
Case Icon
TrayIcon.hIcon = vNewValue
End Select
Shell_NotifyIcon NIM_MODIFY, TrayIcon
End Sub
با سلام ممنون خانم جوابتون را داد دوست گلم اگر بگردی پیدا می شه من یه نمونه گزاشته بودم ممنون
دستت درد نکنه که جوابارو سریع برام می فرستی ولی این دفعه مثل اینکه یه جورایی جوابها رو اشتباه دادی
حالا کاری نداریم اگه جوابهای جدید رو پیدا کردی لطف کن و بنویس و در ضمن یه توضیحی هم راجع به این نوشته های بالا و توابعی که گفتی بده
من با همین کد تا بحال سه چهار تا برنامه نوشتم که فرم اصلی اونا رو در موقع لازم به System Tray می فرستم.
برای فرستادن فرم به سیستم تری، از TrayAdd استفاده کن. بهتره اون رو توی Sub Main بذاری، فرمی رو که می خوای بفرستی به تری لود کنی و خاصیت Visible اون رو False کنی.
برای تغییر Tooltip یا Icon اون فرمی که فرستادی به تری، از TrayModify استفاده کن.
در پایان اجرای برنامه برای برداشتن آیکون برنامه از سیستم تری، از TrayDelete استفاده کن.
خوب حالا اگه باز هم سوالی مونده در خدمتم.
چه طوری درایوهای شبکه رو به برنامه معرفی کنیم
من يکبار کارهايي را که انجام دادم بازگو مي کنم به من بگو مشکل از کجاست
1) از کدهاي بالا کپي گرفته و در يک ماجول pase کردم
2) بر روي تنها فورمم (Form1) يک Command موقت ساختم ، و بر روي رويداد Click آن کدهاي زير را نوشتم
Dim A
Dim s As Long
A = TrayAdd (s, Form1.Icon, Hello, LeftUp)
3) با اجرا شدن برنامه و کليک بر روي Command پيغام خطاي زير داده مي شود و به TrayAdd گير مي دهد
Expected Function or variable
سلام عزیز شما جایی دیگر سوال را مطرح کنید am
و اینکه جواب درسته
ببین شاید برای شما یه خورده ایراد داشته باشه یه خورده صبر کنین برایتان سورس کامل پیدا کنم
دوست عزیز ahmad_r
این کد رو دانلود کنین:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اینه هم جالبه:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
دو تا سئوال جدید برام پیش اومده که اگر بتونی جوابشو بهم بدی معلوم میشه ماهری (البته تاکنون هم معلوم شده ....)
1) چگونه در موقع اجرای برنامه یک آبجکت (مثل shap) را در برنامه ایجاد کرد؟
2) چگونه در موقع اجرای برنامه یک کد برنامه را به برنامه اضافه کرد و یا در قسمتی از کدها تغییر ایجاد کرد؟
در ضمن سوال اول برایم مهم تر است اگر وقت نداشتی جواب هر دو را حالا بدهی جواب اولی را زودتر قرار بده
(البته کدهای قبلی را امتحان نکردم و لی امیدوارم درست باشد)
با تشکر از شما دوست عزیز
دوست عزیز
بهتره برای سوالاتتون که هر کدوم یه مبحث جداگانه هستند و ارزش باز کردن تاپیک جدید رو هم دارند، یه عنوان گویا انتخاب کنین و تاپیک جدید بزنین. همچنین لازم نیست کسی رو برای جواب دادن به سوالاتتون به مبارزه دعوت کنین. :happy:
در مورد حرفه ای بودن هم باید بگم من اگه استادان قبول کنند، فقط شاگردم. :)
سوال اولتون در یک کلام یعنی: نحوه لود کردن کنترلها در زمان اجرا و می تونین از این آدرسها چهار نمونه کد خوب بگیرین:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اگه سوالی هم براتون پیش اومد حتما بپرسین.
در مورد سوال دوم هم باید بگم این یکی از سوالای خودمه البته خیلی وقت پیش. اون موقع نمی دونم چی شد که یادم رفت بیشتر دنبال جوابش بگردم. حالا بازم سعی می کنم، اگه جوابی پیدا کردم همینجا می ذارم.
اولندش چشم از این به بعد برای موضوعات مهم یک تاپیک جدید باز می کنم
دومندش ما با کسی جنگ نداریم تا گفت و گو هست چرا جنگ کنیم فقط از مهارت شما خوشمان آمده است
سومندش تا وقتی کد ها را امتحان کنم خداحافظ انشاءالله که مشکلی پیش نمی آید
با تشکر
دوست عزیز ممنون که به بنده لطف دارین.
در مورد سوال دومتون اگه لطف کنین و بگین برای چی می خواین توی کد تغییر بدین ممکنه بتونم براتون یه سر نخی پیدا کنم، وگرنه تا بحال روش خوب و عملی برای انجام اینکار پیدا نکردم.
به عنوان مثال در یک خط برنامه مثل form1.enable = true تورو به فالس تبدیل شود و یا ابتدای خط ' قرار گیرد و خط غیر فعال شودنقل قول:
نوشته شده توسط bithiah
البته اگه نشدم توری نیست چون این کد را برای جای خاصی نمی خوام بلکه می خوام یاد بگیرم
یه تشکر دیگه به شما بدهکارم چون در مورد کد های قبلی به جوابام رسیدم و مشکلی نبود فقط یک سوال جزیی دیگر دارم که ارزش تاپیک جدید را ندارد و آن این است که آیا یک Shape مثل دایره رویداد DragDrop را نمی تواند داشته باشد؟ اگر جواب مثبت است آیا گزینه ای هست که شبیه کامند و اینها نباشد (رنگ و لعاب دار باشد) و این رویداد را داشته باشد
با تشکر فراوان
در مورد سوالتون راجع به Shape، درسته این کنترل رویداد DragDrop نداره. من نمی دونم شما می خواین کجا ازش استفاده کنین، ولی OptionButton رو هم دست کم نگیرین. البته اگه Style ش رو از Standard به Graphical تغییر بدین.
این کنترل رویداد DragDrop هم داره.
سلام احمد جان خواهشا این بازی رو برام بفرست چون یکشنبه امتحانش رو داریم.
ممنون
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]