Printable View
توي اين انجمن درباره همه چي بحث شده الا كامپوننت نويسي با Vb6 كه من خيلي باهاش حال مي‌كنم. :7:
نمي‌دونم دليلش چيه ولي فكر كنم بخاطر اين باشه كه هيچ منبع درست و حسابي براي ياد گرفتن اين موضوع وجود نداره (شايدم من نديدم). و هر كسي كه بخواد اينو ياد بگيره بايد فقط روي پشت‌كار خودش حساب كنه. :17:
حالا مي‌خواستم بگم كه دوستان همكاري كنن تا يه منبع خوب براي اين موضوع اينجا درست كنيم. هر كي چيزي از كامپوننت نويسي بلده، بسم ا... . :12:
حرفت کاملا بجاستدر مورد vb6 من کتابی ندیدم و نشنیدم آما در vb5 یک کتاب باحالی با نام Developing ActiveX Componentswith Visual Basic 5.0 بود که برای شروع مناسب بود ( الان هم شاید تو اینترنت گیر بیاد).واسه vb.net هم مایکروسافت کتابی بنام OOP: Building Reusable Components with Microsoft Visual Basic .NET منتشر کرده که همه چیز داره اگه بصورت حرفه ای دنبالش هستید جستجو کنید حتما گیرتون مییاد
خوب دوستاني كه تازه مي‌خوان وارد اين مقوله بشن بهتره كه اول اين فايل رو دانلود كنن تا با مقدمات آشنا بشن.
بهتره بگم كه اينو من ننوشتم و نويسندش يكي ديگست و من فقط بعضي جاهاش كه غلط املايي و از اينجور چيزا داشته رو اصلاح كردم. :31:کد:http://ulfsoft.persiangig.com/Zip/OCX.rar
حجم فايل : 228KB
پسورد : P30World
مثل اينكه اين مبحث طرفدار نداره؟ نه؟ :41:
ولي من نااميد نمي‌شم. :31:
فعلا اين فايل رو دانلود كنيد.
اين قسمتي از MSDN هست كه درباره ActiveX توضيح داده. البته ترجمه شده (توسط سايت mazsoft).
حجم : 88KBکد:http://ulfsoft.persiangig.com/Zip/activex.rar
پسورد : P30World
کامپوننت نویسی خوبه. ولی وقتی این همه کامپوننت حرفه ای توی نت پیدا میشه، بهتر نیست تمرکز خود رو روی نوشتن برنامه های کاربردی بذاریم؟
شما همه چيز رو نمي‌تونيد توي نت پيدا كنيد، چون هر لحظه ممكنه به يه كامپوننتي احتياج پيدا كني كه تا حالا نوشته نشده.
اونوقته كه بايد خود آدم دست به كار بشه.
يا اينكه كامپوننت مورد نظرتون رو پيدا مي‌كنيد، ولي بعد متوجه مي‌شيد كه يه چيزايي كم داره.
در ضمن اين همه كامپوننت‌هاي حرفه‌اي كه توي نت پيدا مي‌شه رو آدما نوشتن.
منم با اين قضيه مخالف نيستم كه وقتي يه چيزي آماده هست من نبايد برم عين همونو دوباره بنويسم. هدف اين بحث اينه كه ياد بگيريم چيزاي جديد بنويسيم.
سلام
آقا من یکی که پا به پات میام
...خیلی دنبال کامپوننت نویسی می گشتم اما پیدا نکردم که بلاخره
:angry:بگزریم در ضمن درست نیست کسی رو از کارش منصرف یا نا امید کردنقل قول:
...به هر حال
با آرزوی موفقیت شما دوست عزیز
آقا خوب چرا ادامه نمیدی
در ضمن اون دو تا فایلت رو نتونستم دانلود کنم
ببخشيد. وقت نداشتم اين چند روزنقل قول:
آقا خوب چرا ادامه نمیدی
در ضمن بقيه هم بايد كمك كنن. من كه تنهايي نمي‌تونم همه چيز رو ياد بدم (منم كه حرفه‌اي نيستم)
خوب بگو مشكلش چي بود، من تست كردم مشكلي نداشت!نقل قول:
در ضمن اون دو تا فایلت رو نتونستم دانلود کنم
دقیقا نمیدونم
ولی
میدونی!
فکر کنم کانکشنم مشکل داشت چون بعدا یکیشو گرفتم
ولی جا نزن ادامه بده مثل یک مرد منم حواتو دارم
و بجای اینکه دانلود بزاری آموزش بده ( لطفا )
خیلی جالب بود ولی کم نبود؟
سلام.
من برگشتم.
اين بار مي‌خوام يه ترفند يادتون بدم.
چند وقت پيش مي‌خواستم يه كامپوننت بنويسم كه وقتي ماوس روي اون قرار مي گرفت بايد تغيير شكل مي‌داد (مثلا برجسته مي‌شد)
يه چيزي تو مايه‌هاي ODPB Button كه دكمه‌هاي سيستم عامل‌هاي مختلف رو تو خودش داره.
حالا مشكل من اينجا بود كه نمي‌تونستم به برنامه بفهمونم كه الان ماوس روي كنترل من هست يا نه ؟!
بعد از كلي ور رفتن و مطالعه يه راه حل پيدا كردم:
توضيح كد:کد:Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub UserControl_Initialize()
Timer1.Enabled = True
Timer1.Interval=10
End Sub
Private Sub Timer1_Timer()
Dim pt As POINTAPI
Dim r As RECT
GetCursorPos pt
GetWindowRect UserControl.hWnd, r
If pt.X <= r.Right And pt.X >= r.Left And pt.Y <= r.Bottom And pt.Y >= r.Top Then
'ماوس روي كنترل است
Else
'ماوس روي كنترل نيست
End If
End Sub
تابع GetCursorPos مختصات ماوس و تابع GetWindowRect مختصات گوشه‌هاي (بالا، پايين، چپ و راست) كنترل رو به ما مي‌ده.
ما به يه Timer هم نياز داريم كه قسمت چك كردن رو توي اون بنويسيم. Interval تايمر رو هم روي 10 قرار مي‌ديم تا هر يك صدم ثانيه چك كنه كه ماوس روي كنترل قرار داره يا نه.
خوب اينم از اين.
در ضمن نيايد بگيد كه اين چه جور آموزشي بود ديگه، چونكه مطمئنم خيليا اينو بلد نيستن.
(اگه بلد بودي چرا اون موقع كه من اين مشكل رو داشتم و توي انجمن مطرح كردم جوابمو ندادي [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] )
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام و خسته نباشید
امیدوارم در اداره این تاپیک موفق باشید.
ممنون که به فکر پیشرفت دوستان هستید./