Printable View
با سلام خدمت دوستان متخصص
در درجه اول اگر کسی از دوستان ocx تغییر رنگ کلیه فرمهای یک Project را داره بنده را بی نصیب نذاره ، قابل ذکر است که چند نمونه در نت پیدا کردم که قابل دانلود نبود.
در درجه دوم لطفا بفرمایید با دستور For each چگونه می شود خاصیت(properties) فرمها را تغییر داد ، بعنوان مثال بتوان با قرار دادن این لوپ در یک کامند و اجرای کامند رنگ پس زمینه کلیه فرمهای project را تغییر داد .
با تشکر
CommonDialog بهترین ActiveX برای برنامه نویس و هم کاربر...نقل قول:
در درجه اول اگر کسی از دوستان ocx تغییر رنگ کلیه فرمهای یک Project را داره بنده را بی نصیب نذاره ، قابل ذکر است که چند نمونه در نت پیدا کردم که قابل دانلود نبود.
کلا فکر نکنم با For بشه این کارو کرد چون فرم یک شی هست و VB چنین ارجایی رو قبول نمیکنه مثلا:نقل قول:
در درجه دوم لطفا بفرمایید با دستور For each چگونه می شود خاصیت(properties) فرمها را تغییر داد ، بعنوان مثال بتوان با قرار دادن این لوپ در یک کامند و اجرای کامند رنگ پس زمینه کلیه فرمهای project را تغییر داد .
fori= 1 to 5
"form"& i.backcolor=vbred
next i
[
دوست عزیز دستور For Each به منظور اجرای حلقه برای اشیا قابل استفاده است که در VBA از این دستور استفاده می شود ولی فکر کنم در دستورات vb6 چنین موردی موجود نیست.نقل قول:
نوشته شده توسط ms2222
به هر حال منظور من تغییر برخی از خاصیت های فرم های داخل یک پروجکت می باشد که توسط این حلقه این کار سریعتر انجام می شود فقط نحوه استفاده از این حلقه را برای فراخوانی فرمها نمی دانم مثال زیر نمونه ای است از استفاده از این حلقه:
Dim Found, MyObject, MyCollection
Found = False
For Each MyObject In MyCollection
If MyObject.Text = "Hello" Then
Found = True
Exit For
End If
Next
دوست عزیز اگر منظورت comdlg32.ocx است هر چقدر از جاهای مختلف این فایل را دانلود میکنم تحت لایسنس می باشد و هنگام ساخت object پیغام زیر را می دهد:
Activex component can't created objects
اگر کسی از دوستان رجیستر شده این فایل را داره لطفا اطلاع بدهد.
نه ، منظور من Microsoft Common Dialog Control6 بود برات یه نمونه ضمیمه کردم...نقل قول:
دوست عزیز اگر منظورت comdlg32.ocx است هر چقدر از جاهای مختلف این فایل را دانلود میکنم تحت لایسنس می باشد و هنگام ساخت object پیغام زیر را می دهد:
(امیدوارم منظورتون رو بد متوجه نشده باشم.)
اولا تشکر از اینکه سوالها را جواب می دهید.نقل قول:
نوشته شده توسط ms2222
دومن دوست عزیز این comdlg32.ocx همان Microsoft Common Dialog Control6 می باشد که به همان علت که این اکتیو ایکس در سیستم من اجازه ساخت یک آبجکت از نوع common dialog را نداد به همان علت هم برنامه شما ارور داد.
البته دوست عزیز منظور من از این تاپیک این بود که قصد دارم با استفاده از اکتیو ایکس خاصی امکان تغییر رنگ و فونت کلیه فرمهای داخل برنامه ام را در اختیار کاربر قرار دهم تا کاربر تنها با انتخاب رنگ و ... از یک پالت بتواند کلیه فرمهای برنامه را تغییر دهد. که البته این تغییر برای فرمهای باز نشده هم ذخیره و قابل استفاده باشد.
با تشکر مجدد.
منظورتون رو متوجه نمیشم...نقل قول:
البته دوست عزیز منظور من از این تاپیک این بود که قصد دارم با استفاده از اکتیو ایکس خاصی امکان تغییر رنگ و فونت کلیه فرمهای داخل برنامه ام را در اختیار کاربر قرار دهم تا کاربر تنها با انتخاب رنگ و ... از یک پالت بتواند کلیه فرمهای برنامه را تغییر دهد. که البته این تغییر برای فرمهای باز نشده هم ذخیره و قابل استفاده باشد.
با تشکر مجدد.
حالا اینکه CMD رو سیستم شما اجرا نمیشه یک بحث دیگست...
اما شما با CMD میتوانید با چند خط کد نویسی ساده به کاربر این اجازه رو بدید که فرم ها را به دلخواه خودش در بیاره و شما هم با چند خط این تغییرات را در یک فایل ذخیره کنید...
در برنامه ای که منم براتون ضمیمه کردم نیازی نیست حتما فرم ها رو باز کنید !نقل قول:
که البته این تغییر برای فرمهای باز نشده هم ذخیره و قابل استفاده باشد.
Cmd رو که ضمیمه کردم رو در System32 کپی کنید و از لیست Component ها با استفاده از دکمه browse انتخاب کنید احتمالا مشکلتون حل میشه.