با سلام ببخشيد اين سوالا زياد هست:
1) چه جوري مي تونم كاري بكنم كه مثلا وقتي كاربر كليدي رو خارج از فرم و زماني كه فرم فعال نيست زد مثلا فرمي باز شه.
2) چه شكلي ميشه در تسكبار(كنار ساعت و ...) يه آيكون براي برنامه ايجاد كنم؟؟
3)بعد هم يه سوال در مورد ديتا بيس داشتم و اينكه چه جوري ميشه داده ها رو كه از وي بي گرفتيم تو جايي ذخيره كرد (مثلا mdb)؟؟البته مي دونم آسون نيست ولي اگر لينكي به مقاله اي يا .... بديد ممنون مي شم.
4)مي خواستم بدونم اگر بخوام در يك rich text که در اون کاربر چیزی نوشته کلمه ای را که کاربر می نویسه جستجو بشه مثل جستجو تو ورد و...
در کل بازم ببخشید سوال زیاده و من هم بی تجربه!! :(
با تشکر
جواب سوال اولت اينه : تابع RegisterHotKey
جواب سوالدومت اينه : تابع Shell_NotifyIcon
سلام دوست عزيز اگر ميشه درباره چگونه استفاده كردن از اين توابع يه كوچولو توضيح بدي ممنونت مي شم!
رو سوال سوم هم فكر كن....
البته من تو كار با اين API خیلی با تجربم وگرنه با همون جواب شما کارم راه می افتاد.
در کل این کل زور زدنم بود:
کد:
Public Declare Function RegisterHotKey Lib "user32" Alias "RegisterHotKey" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
خوب حالا بايد چي كار كنم؟؟
با تشكر :wink:
يه ماچ بگو دمت گرم بابا دمت گرم.....
خدا خيرت بده گلي....
بابا بقيه هم يه كمكي به من بكنن سوال 3 رو يه كاريش بكنن...
دمه همه ايران ويجي ها گرم :P
سلام!
منظورت از سوال 3 اينه كه مثلا يه سري اطلاعات رو از كاربر بگيري و يه جايي ذخيره كني؟ مثلا تو بانك اكسس.آره؟
خوب اگه اينو بخواي بايد بانك اطلاعاتي ياد بگيري. همين جوري با يه دستور نميشه كه اينجا جوابت رو بگيري. مقاله زياد هست. هم تو سايت هم جاهاي ديگه.
اين سايت هم سورس كدهاي خوبي داره. باهاشون كلنجار بري و از يكي 2 تا كتاب هم يكم مطلب بخوني راه ميفتي.
www.planetsourcecode.com
البته همه اينا رو گفتم بازم آخرش ميگم اگه منظورت همين بودا. (شايد من اصلا سوال رو نفهميدم)
سلام
در مورد سوال سومت: اين آدرس وبلاگ يك از دوستان عزيز من هست كه مقاله خوبي در اون موجوده
http://VBLog.PersianBlog.com
در مورد سوال چهارمت: اگر اشتباه نكرده باشم شي RichText داراي متد Find هست اگر نيست خودت مي توني يكي براش بنويسي:
کد:
Private Sub FindInRichText(strSearchText AS string)
Dim iFoundText as Integer
iFoundText=instr(rchText.Text,strSearchText)
if iFoundText=0 then
Msgbox "Not Found"
Else
msgbox "Found on " & iFoundText
Endif
...
End Sub
:wink:
واقعا دست همه دوستان درد نكنه همه مشكلات برطرف شد ولي 3 تا سوال ديگه داشتم حالا نگيد پسره چه قدر پرو!!
1) براي اينكه بفهميم درايو ويندوز يارو كدومه بايد از تابع getwindowsdir... یا شبیه این استفاده کرد اگر بشه طرز استفاده از این تابع رو بگید یا اگر مثالی باشه که نور علی نور!!
2)برای گرفتن یه کپی از برنامه هنگامیکه برنامه اجرا شده باید چی کار کرد؟؟
یعنی یه جور دوباره سورس رو کامپایل کرد جایه دیگه یا از همون فایل کپی گرفت؟؟؟
3)آيا میشه یه فایل اکسس رو کاری کرد که نشه با اکسس باز بشه و داده های اون رو خوند در صورتی که با برنامه وی بی بشه با اطلاعاتش کارکرد؟؟؟(یعنی مقدار اضافه و یا کم کرد؟؟)
ممنون دوست عزيز در مورد پسورد گذاشتن سوال داشتم اينكه براي ست كردن پسورد براي وي بي بايد چي كار كرد؟؟ :?:
و اينكه من يه تابع براي كپي كردن پيدا كردم ولي باهاش نتونستم كاركنم :roll:
کد:
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
حالا من براي بقيش يعني آدرس فايل و مقصد مشكل ندارم و فقط مونده كپي كردن! اگر بشه طرز كارش رو بگيد ممنون مي شم!! :wink:
با تشكر از همه ايران ويجي ها
دوست عزيز سعي كن موضوعات ديگه رو در پست
جديد بيان كني
اينم جواب سوالت :
پارامترهاي تابع رو برات توضيح ميدم :
lpExistingFileName : مكان فايل مبدا
lpNewFileName : مكان فايل مقصد با همان نام يا نام دلخواه
bFailIfExists : مقدارش 0 يا 1 مي تونه باشه كه اگر 0 باشه
؛ اگر فايل انتخاب شده مبدا قبلا در مقصد وجود داشته باشد
بدون گرفتن تاييد از كاربر فايل را جايگزين مي كند ولي اگر 1 باشد
عمل جايگزيني انجام نمي شود