تعداد کنترل های روی فرم = controlcount
نحوه دسترسی
for i=1 to thisform.controlcount
messagebox(Thisform.controls[i].name&# 41;
endfor
تعداد کنترل های روی فرم = controlcount
نحوه دسترسی
for i=1 to thisform.controlcount
messagebox(Thisform.controls[i].name&# 41;
endfor
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
سلام
با روال Setall در فرم میتوان نیز به این منظور شما رسید. شما می توانید با این دستور تمام کنترلهای دارای مشخصه ذکر شده را تغییر دهید. Setall از مشخصه های کنترلهایی است که میتواند در خود کنترلی دیگر جای دهد.
شما در فاکس برای وراثت از کلاس استفاده کنید. یا ویژوال یا دستوری. منظور اینه که هر کنترلی بسته به اینکه از چه کلاسی باشه از وراثت استفاده می کنه بر عکس دلفی که از وراثت خود فرم استفاده میکنه.
____________________________
همه چیز را همگان دانند و همگان هنوز از مادر زاده نشده اند. (بزرگمهر حکیم)
جناب آقای توکل
با سلام و تشکر از لطف شما بسیار بسیار ........... سپاسگزارم :موفق:
البته با توجه به توضیحات جناب حسینی عزیز من ادامه دادم. تا توضیحات کامل بشه. البته من زیاد دلفی نمیدونم چون سی بلدم لازم ندیدم دلفی را دنبال کنم و فقط در حد آشنایی بلد شده ام.
کمک به یکدیگر در اینجا وظیفه است قربان. اگر باز هم بلد باشیم کمک میکنیم.
____________________________
همه چیز را همگان دانند و همگان هنوز از مادر زاده نشده اند. (بزرگمهر حکیم)
با تشکر از پاسخ آقا رضا و آقای بی نیازی
آیا تاکنون با این مشکل برخورد کرده اید که برنامه به هنگام طراحی و یا در داخل محیط فاکس درست کار کند ولی بعد از درست کردن exe با مشکل مواجه شود (مثلا در فرم ها ی من که از editbox استفاده کردم بعد از درست کردن exe خط اسکرول جهت پیمایش عمودی متن نمی آید ولی با کرسر درست عمل می کند یعنی اینکه آن ابجکت درست عمل می کند ولی خط اسکرول نمایش داده نشده)
من هم چند مورد داشته ام و مجبور شدم کلک رشتی بزنم . :(نوشته شده توسط javad_hosseiny
من از کنترلهای فاکس استفاده نمیکنم چون توی فارسی مشکل داره. مشکل کنترلهای فاکس را در قسمت Frm20.dll مطرح کرده ام که چرا کنترلهای فاکس درست نیستند.
____________________________
همه چیز را همگان دانند و همگان هنوز از مادر زاده نشده اند. (بزرگمهر حکیم)
یک نکته جالب از فوروم universalthreade
STRTOFILE(FILETOSTR("avatar.zip"), "c:\ali.zip")
این کد فایلی رو که داخل فایل اجرایی قرار دادین رو در میاره و ذخیره می کنه مثلا در مثال بالا یک فایل فشرده به اسم ali
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
چطوری اینجوری میشه؟
____________________________
همه چیز را همگان دانند و همگان هنوز از مادر زاده نشده اند. (بزرگمهر حکیم)
یعنی حتی فایلهایی گرافیکی رو که تو فایل اجرایی هستند رو میشه درآورد
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
سلام
من انجام دادم نشد که؟؟؟؟
____________________________
همه چیز را همگان دانند و همگان هنوز از مادر زاده نشده اند. (بزرگمهر حکیم)
من فایلی رو در قسمت other files اضافه کردم و البته بصورت include و انجام شد
من انجام دادم نشد که؟؟؟؟
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
نمیدونم این سئوال رو من خیلی وقت پیش کرده بودم و خط دستور زیر رو به من گفتند.
البته من هم نمیدونم چه جوری میشه که اینجوری میشه ولی خداییش خیلی خوب میشه.
فرض کنید فایل test.dll رو بصورت test.dl_ در قسمت text files پروژتون قرار دادین . برای کپی اون در مسیر defpath میتونین دستور زیر رو اجرا کنین.
lcDllName = "test.dll"
=STRTOFILE(FILETOSTR(STRTRAN(lcDllName , ".dll", ".dl_")), defpath + lcDllName)
اینا همش قدرت خداست :wink:
[b]سلام بر شما
آیا میشود فایلهای ایجاد شده با پسوند fxp را دوباره به prg تبدیل کرد ؟!!
رهرو
جای دیگه هم جوابتون را داده ام. اما بله میشه با ریفاکس. اگه هم نداری توی همین بخش بگرد پیداش میکنی :wink:
____________________________
همه چیز را همگان دانند و همگان هنوز از مادر زاده نشده اند. (بزرگمهر حکیم)
چطوری میشه یک bmp رو از حافظه پاک کرد؟
مظورم اینه که من به یک image یک bmp می دم اما بعد که یک فایل دیگه رو ولی به همون اسم کپی می کنم و دوباره خاصیت picture رو تنظیم می کنم باز هم همون فایلی هست که پاک شده و وجود فیزیکی نداره
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
:sorry:
در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
************************************************** ******************************************
اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی
باید یه نصویر دیگه رو به Image نسبت بدین و بعد دوباره همون عکس قبلی رو
با سلام و تسلیت ایام سوگواری امام حسین(ع) و یاران با وفایش
من یک برنامه نوشته ام که در شبکه و توسط چند کاربر اطلاعات بایستی ثبت گردد و اطلاعات ورودی مشابه هم و دریک جدول ثبت میگردد حال میخواهم که به محض ورود هر رکورد و ذخیره نمودن توسط هریک از کاربران برای کاربران دیگر در همان لحظه قابل روپیت باشد یا اصطاحا فرم ورودی هر کاربر refresh شود برای کاربران در حال کار
در فرمها چگونه میشود از دستور CHRSAW([nSeconds]) استفاده کرد
آقایان لطفا کمک نمائید
برای این قصد هیچ راهی جز refresh نمودن فرم نیست حالا شما باید از یک برنامه جانبی استفاده کنید مثلا با winsock یک برنامه بنویسید برای هر کاربر و لیست همه کاربرا و اسامی کامپیوترشون رو داشته باشید بعد با پروتکل UDP برای همه یک پیغام بفرستین در طرف گیرنده هم هر وقت پیغام دریافت شد فرم اکتیو رو رفرش کنهحال میخواهم که به محض ورود هر رکورد و ذخیره نمودن توسط هریک از کاربران برای کاربران دیگر در همان لحظه قابل روپیت باشد
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
آقا بسیار سپاسگزارم
ولی حیف شد
من در فرمها از گرید نیز اسفاده کردم برای نمایش اطلاعات و با کلیک روی ان فرم refresh میشود میخواستم که این کار بصورت اتومات و در لحظه ثبت انجام شود البته برای سایر کاربران چون برای کاربری که این ردیف را ثبت کرده باز هم فرم refresh میگردد
حال اگر زحمتی نیست در خصوص استفاده فرمان CHRSAW در کجا و کدام کنترل فرم
بایستی بکار گرفت
اگر شما هم مثال رو در علپ دیده باشید فکر کنم برای fox داس استفاده شه شما برای فرم خاصیت keypreview رو .t. کنید و بعد در واقعه keypress شما می تونید کلیدهای فشار داده شده رو تشخیص بدیندر خصوص استفاده فرمان CHRSAW
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
من بسیار متشکرم از لطف شما
هدف من از اینکه میخواهم از فرمان CHRSAW استفاده کنم این است که بعد از هر چند ثانیه فرم refresh شود
خوب یک تایمر بزارید
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
باز هم ممنون از عنایت شما
همانطور که مستحضرید تایمر به ازاء زمانی که میدهی مدام در حال کار است ولی فرمان CHRSAW اگر کاربر مدتی کاربر کار نکند فعال میگردد
شما باید این رو چک کنید و الا به خودی خود اجرا نمیشه ! تو هلپ که اینطور نوشتهاگر کاربر مدتی کاربر کار نکند فعال میگردد
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
بسیار متشکرم فعلا طبق فرمایش شما با تایمر گرید را ریفرش میکنم و انشاءالله که مشکلی پیش نخواهد آمد
سلام
دوستان اگر در پنجره command کلید ctrl+p را بزنید پنجره print فعال میشوم آیا دستوری هست که بتوان با آن پنجره print را فعال نمود .
البته برای page setup sys 1037 هست ولی برای print ندیدم.
متشکرم
set printer on prompt
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
سلام
ممنونم ولی وقتی یک فایل txt را با modify file test.txt باز میکنیم سپس از این command استفاده میکنیم
options فعال نمیشه و محتوای فایل هم پرینت نمیشه در صورتی که با کلید CTLR+p پرینت انجام میشه !
یا علی
سلام
دیگه نمیدونم
ولی من با sys(1037) فکر کنم بود اگر propertis رو بزنیم مشخصات چاپگر رو میاره و قابل تغییرند مثل options من امتحان کردم
در ضمن اگر بخواهید پروی در چاپ بگیرید می تونید با دستور زیر وقتی کاربر چاپ رو زد اول پنچره انتخاب چاپگر و تنظیماتش بیاد :
preview form sample to printer prompt preview
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
من میخواهم فاصله تعداد (روز) بین دو تاریخ شمسی را درست بدست آورم چون با تابع
CTOD(dat2)-CTOD(dat1) میلادی را تبدیل میکند و چند روزی اختلاف دارد
شما از کلاسی که آقا کیا در مبحث برنامه های کاربردی گزاشتن استفاده کنید
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
ممنون و متشکر :موفق:
یک کار جالب : تشخیص نصب بودن sql server روی سیستم
objWMI = GetObject("winmgmts:\\")
cCadWMI = "Select * from Win32_Service Where Name = 'MSSQLServer'"
oBServ = objWMI.ExecQuery(cCadWMI)
If oBServ.Count > 0 Then
For Each objSer in oBServ
? "SQL Server is " + objSer.State + "."
Next
Else
? "SQL Server no esta instalado en este computador."
EndIf
منبع : www.davphantom.net
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
ایندفعه 2 کار جالب : تشخیص نصب بودن theme ویندوز و فعال یا غیر فعال کردن اون
Declare Integer EnableTheming In "UxTheme.dll" Integer nEnable
=EnableTheming(.F.)
Inkey(5, "H")
=EnableTheming(.T.)
Declare Integer IsThemeActive in "UxTheme.dll" () As Long
nRet = IsThemeActive()
? "Themes: " + Iif(nRet = 0, "No activos","Activos")
منبع : www.davphantom.net
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
سلام
چطوری میشه این فرمولها رو عین تو کتابها تو فاکس نشان داد؟
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
سلام
قابل ویرایش باشه یا نه؟
یه راه داره:
از نرم افزار Office قسمت Equation استفاده کنید.
____________________________
همه چیز را همگان دانند و همگان هنوز از مادر زاده نشده اند. (بزرگمهر حکیم)