موضوعات متفرقه را در این قسمت مطرح کنید
موضوعات متفرقه را در این قسمت مطرح کنید
در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
************************************************** ******************************************
اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی
این کد رو امتحان کنید
PUBLIC frm
frm = CreateObject("TForm")
frm.Visible = .T.
DEFINE CLASS TForm As Form
PROTECTED mClip
ADD OBJECT cmdClip As TCommand
ADD OBJECT cmdRestore As TCommand
PROCEDURE Load
THIS.decl && declare external functions
ENDPROC
PROCEDURE Init
STORE .F. TO THIS.MaxButton, THIS.MinButton
STORE 300 TO THIS.Width, THIS.Height
THIS.Caption = "Clipping mouse cursor area"
THIS.BorderStyle = 2
THIS.AutoCenter = .T.
THIS.cmdClip.Caption = "Clip"
THIS.cmdRestore.Caption = "Restore"
* saving initial clipping area
lpRect = REPLI (Chr(0), 16)
= GetClipCursor (@lpRect)
THIS.mClip = lpRect
THIS.Resize
ENDPROC
PROCEDURE Destroy
THIS.restoreInitStatus
ENDPROC
PROCEDURE Resize
lnTop = MAX(5, THIS.Height - THIS.cmdClip.Height - 5)
STORE lnTop TO THIS.cmdClip.Top, THIS.cmdRestore.Top
THIS.cmdRestore.Left = THIS.Width - THIS.cmdRestore.Width - 10
THIS.cmdClip.Left = THIS.cmdRestore.Left - THIS.cmdClip.Width - 2
ENDPROC
PROCEDURE clip
* lock the mouse cursor within the form area
MOUSE AT THIS.top, THIS.left PIXELS && put cursor inside the form
* give VFP a moment to update mouse position in its internal data
= INKEY (0.1)
lpPoint = REPLI (Chr(0), 8) && buffer for a POINT structure
= GetCursorPos (@lpPoint) && retrieve absolute mouse position
LOCAL absX, absY, lcCaptionHeight, lcFrameWidth,;
lcFrameHeight, lcRect
absX = ThisForm.buf2dword (SUBSTR(lpPoint, 1,4))
absY = ThisForm.buf2dword (SUBSTR(lpPoint, 5,4))
* retrieve some sizes to be used in calculating the area
lcCaptionHeight = GetSystemMetrics ( 4) && size of normal caption area
lcFrameWidth = GetSystemMetrics (32) && resiz.window frame width
lcFrameHeight = GetSystemMetrics (33) && resiz.window frame height
lcRect = REPLI (Chr(0), 16) && buffer for RECT structure
* set the RECT by the form position, and size
THIS.num2rect (absX, absY,;
absX + THIS.Width + lcFrameWidth,;
absY + THIS.Height + lcCaptionHeight + lcFrameHeight,;
@lcRect)
= ClipCursor (lcRect) && locked!
ENDPROC
PROCEDURE restoreInitStatus
= ClipCursor (THIS.mClip)
ENDPROC
PROCEDURE cmdClip.Click
ThisForm.clip
ENDPROC
PROCEDURE cmdRestore.Click
ThisForm.restoreInitStatus
ENDPROC
FUNCTION buf2dword (lcBuffer)
#DEFINE m0 256
#DEFINE m1 65536
#DEFINE m2 16777216
RETURN;
Asc(SUBSTR(lcBuffer, 1,1)) + ;
Asc(SUBSTR(lcBuffer, 2,1)) * m0 +;
Asc(SUBSTR(lcBuffer, 3,1)) * m1 +;
Asc(SUBSTR(lcBuffer, 4,1)) * m2
ENDFUNC
FUNCTION num2buf
PARAMETERS lnValue
#DEFINE m0 256
#DEFINE m1 65536
#DEFINE m2 16777216
LOCAL b0, b1, b2, b3
b3 = Int(lnValue/m2)
b2 = Int((lnValue - b3 * m2)/m1)
b1 = Int((lnValue - b3*m2 - b2*m1)/m0)
b0 = Mod(lnValue, m0)
RETURN Chr(b0)+Chr(b1)+Chr(b2)+Ch r(b3)
PROCEDURE num2rect (lnLeft, lnTop, lnRight, lnBottom, lcBuffer)
lcBuffer = THIS.num2buf(lnLeft) + THIS.num2buf(lnTop)+;
THIS.num2buf(lnRight) + THIS.num2buf(lnBottom)
ENDFUNC
PROCEDURE decl
DECLARE INTEGER ClipCursor IN user32 STRING lpRect
DECLARE INTEGER GetCursorPos IN user32 STRING @ lpPoint
DECLARE INTEGER GetClipCursor IN user32 STRING @ lpRect
DECLARE INTEGER GetSystemMetrics IN user32 INTEGER nIndex
ENDPROC
ENDDEFINE
DEFINE CLASS TCommand As CommandButton
Width = 60
Height = 25
ENDDEFINE
در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
************************************************** ******************************************
اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی
اینم یکی دیگه
LOCAL oForm
oForm = CreateObject("Tform")
oForm.Show(1)
* end of main
DEFINE CLASS Tform As Form
Width=350
Height=160
BorderStyle=2
MaxButton=.F.
MinButton=.F.
Autocenter=.T.
Caption="Magnifier"
hForm=0
hDC=0
ADD OBJECT chMagnify As CheckBox WITH Value=.F.,;
Left=20, Top=20, Autosize=.T., Caption="Activate Magnifier"
ADD OBJECT chInvert As CheckBox WITH Value=.F.,;
Left=20, Top=56, Autosize=.T., Caption="Invert colors"
ADD OBJECT lbl1 As Label WITH;
Left=190, Top=20, Autosize=.T., Caption="Scale:"
ADD OBJECT cmbScale As ComboBox WITH Style=2,;
Left=240, Top=20, Width=70, Height=21
ADD OBJECT cmdClose As CommandButton WITH Cancel=.T.,;
Left=140, Top=112, Width=70, Height=27, Caption="Close"
PROCEDURE Init
ThisForm.decl
PROCEDURE Activate
IF THIS.hForm = 0
THIS.hForm = GetFocus()
THIS.hDC = GetDC(THIS.hForm)
ENDIF
PROCEDURE Release
IF THIS.hDC <> 0
= ReleaseDC(THIS.hForm, THIS.hDC)
ENDIF
PROCEDURE cmdClose.Click
ThisForm.Release
PROCEDURE cmbScale.Init
WITH THIS
.AddItem("Normal")
.AddItem("x 2")
.AddItem("x 3")
.AddItem("x 4")
.ListIndex=3
ENDWITH
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
ThisForm.Magnify
PROCEDURE chMagnify.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
ThisForm.Magnify
PROCEDURE chInvert.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
ThisForm.Magnify
PROCEDURE lbl1.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
ThisForm.Magnify
PROCEDURE cmbScale.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
ThisForm.Magnify
PROCEDURE cmdClose.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
ThisForm.Magnify
PROCEDURE Magnify
#DEFINE SRCCOPY 0xCC0020
#DEFINE NOTSRCCOPY 0x00330008
#DEFINE cnDstWidth 600
#DEFINE cnDstHeight 140
IF ThisForm.chMagnify.Value
LOCAL cBuffer, nX, nY, hDstWin, hDstDC,;
nMode, nSrcWidth, nSrcHeight, nScale
hDstWin = GetActiveWindow()
hDstDC = GetWindowDC(hDstWin)
cBuffer = Repli(Chr(0), 8)
= GetCursorPos(@cBuffer)
= ScreenToClient(THIS.hForm, @cBuffer)
nX = buf2dword(SUBSTR(cBuffer, 1,4))
nY = buf2dword(SUBSTR(cBuffer, 5,4))
nScale = ThisForm.cmbScale.ListIndex
nSrcWidth = INT(cnDstWidth/nScale)
nSrcHeight = INT(cnDstHeight/nScale)
nMode = Iif(ThisForm.chInvert.Value, NOTSRCCOPY,SRCCOPY)
= StretchBlt(hDstDC, 10, 100, cnDstWidth, cnDstHeight,;
THIS.hDC,;
nX-nSrcWidth/2,;
nY-nSrcHeight/2,;
nSrcWidth, nSrcHeight, nMode)
ReleaseDC(hDstWin, hDstDC)
ENDIF
PROCEDURE decl
DECLARE INTEGER GetActiveWindow IN user32
DECLARE INTEGER GetCursorPos IN user32 STRING @lpPoint
DECLARE INTEGER GetWindowDC IN user32 INTEGER hwnd
DECLARE INTEGER GetDC IN user32 INTEGER hwnd
DECLARE INTEGER ReleaseDC IN user32 INTEGER hwnd, INTEGER hdc
DECLARE INTEGER ScreenToClient IN user32 INTEGER hWnd, STRING @lpPoint
DECLARE INTEGER GetFocus IN user32
DECLARE INTEGER StretchBlt IN gdi32;
INTEGER hdcDest, INTEGER nXOriginDest, INTEGER nYOriginDest,;
INTEGER nWidthDest, INTEGER nHeightDest,;
INTEGER hdcSrc, INTEGER nXOriginSrc, INTEGER nYOriginSrc,;
INTEGER nWidthSrc, INTEGER nHeightSrc, INTEGER dwRop
ENDDEFINE
FUNCTION buf2dword(lcBuffer)
RETURN Asc(SUBSTR(lcBuffer, 1,1)) + ;
BitLShift(Asc(SUBSTR(lcBuffer, 2,1)), 8) +;
BitLShift(Asc(SUBSTR(lcBuffer, 3,1)), 16) +;
BitLShift(Asc(SUBSTR(lcBuffer, 4,1)), 24)
در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
************************************************** ******************************************
اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی
اینم برای ارتباط با سایت news2news.com
البته باید online باشید
PUBLIC objForm
objForm = CreateObject("Tform")
objForm.Visible = .T.
* end of main
DEFINE CLASS Tform As Form
#DEFINE ccBaseAddr "http://www.news2news.com/vfp/"
#DEFINE ccCgiAddr "http://www.news2news.com/cgi-bin/w32query.php?quser=guest&"
Caption=" VFP code samples on " + ccBaseAddr
Width=760
Height=500
Autocenter=.T.
ShowTips=.T.
csList="cs" + SUBSTR(SYS(2015),3,10)
ADD OBJECT pframe As Tframe WITH Left=6, Top=5, Width=748, Height=440
ADD OBJECT lblUrl As Label WITH Left=12, Top=460, Autosize=.T.,;
ForeColor=Rgb(0,0,192), FontUnderline=.T.,;
TooltipText="Click to open"
PROCEDURE Init
DECLARE INTEGER ShellExecute IN shell32;
INTEGER, STRING, STRING, STRING, STRING, INTEGER
DECLARE INTEGER URLDownloadToCacheFile IN urlmon;
INTEGER lpUnkcaller, STRING szURL, STRING @szFileName,;
INTEGER dwBufLength, INTEGER dwReserved, INTEGER pBSC
THIS.pframe.Resize
THIS.PopulateList
PROCEDURE Destroy
THIS.pframe.pgList.lst.RowsourceType = 0
IF USED(THIS.csList)
USE IN (THIS.csList)
ENDIF
procedure resize
* Thanks Bruce :)
with this
stor .Width - 12 to .pframe.Width
stor .Height - 60 to .pframe.Height
stor .Height - 40 to .lblUrl.Top
endWith
PROCEDURE pframe.pgList.lst.InteractiveChange
ThisForm.lblUrl.Caption = ThisForm.GetUrl()
PROCEDURE lblUrl.MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord
= ShellExecute(0, "open", ThisForm.GetUrl(), "", "", 3)
PROCEDURE pframe.pgExample.Activate
ThisForm.DisplayExample
PROCEDURE pframe.pglist.lst.DblClick
ThisForm.pframe.ActivePage = 2
FUNCTION GetUrl
RETURN ccBaseAddr + "?example=" + ALLT(THIS.pframe.pgList.lst.Value)
PROCEDURE PopulateList
LOCAL cRequest, cTargetFile
cRequest = ccCgiAddr + "qtarget=examples&qmode=list"
cTargetFile = THIS.RemoteToLocal(cRequest)
IF Not EMPTY(cTargetFile)
CREATE CURSOR (THIS.csList) (id N(5), name C(200))
APPEND FROM (cTargetFile) TYPE DELIM WITH ,
WITH THIS.pframe.pgList.lst
.RowsourceType = 2
.Rowsource = THIS.csList
.ColumnWidths="40,500"
IF .listCount > 0
.listIndex = 1
ENDIF
.InteractiveChange
ENDWITH
ENDIF
PROCEDURE DisplayExample
LOCAL cRequest, cTargetFile
cRequest = ccCgiAddr + "qtarget=examples&qmode=source&qindex=" +;
ALLTRIM(ThisForm.pframe.pgList.lst.Value)
cTargetFile = THIS.RemoteToLocal(cRequest)
IF Not EMPTY(cTargetFile)
WITH ThisForm.pframe.pgExample.txtSource
.Value = FILETOSTR(cTargetFile)
.Refresh
ENDWITH
ENDIF
FUNCTION RemoteToLocal(cRequest)
LOCAL nResult, cTargetFile
cTargetFile = Repli(Chr(0), 250)
WAIT WINDOW NOWAIT "Downloading remote file..."
nResult = URLDownloadToCacheFile(0, cRequest, @cTargetFile,;
Len(cTargetFile), 0,0)
WAIT CLEAR
DOEVENTS
RETURN STRTRAN(cTargetFile, Chr(0), "")
ENDDEFINE
DEFINE CLASS Tframe As PageFrame
ADD OBJECT pgList As TpageList WITH Caption="List of examples"
ADD OBJECT pgExample As TpageExample WITH Caption="Source Code"
PROCEDURE Resize
WITH THIS.pgList
.lst.Width = THIS.Width - 14
.lst.Height = THIS.height - .lst.Top - 50
ENDWITH
WITH THIS.pgExample
.txtSource.Width = THIS.Width - 14
.txtSource.Height = THIS.height - .txtSource.Top - 50
ENDWITH
ENDDEFINE
DEFINE CLASS TpageList As Page && Page object
ADD OBJECT lst As ListBox WITH Left=5, Top=5, FontName="Arial",;
FontSize=10, ColumnCount=2, BoundColumn=1
ENDDEFINE
DEFINE CLASS TpageExample As Page && Page object
ADD OBJECT txtSource As EditBox WITH Left=5, Top=5,;
FontName="Courier New", FontSize=9, ForeColor = RGB(0,96,128)
ENDDEFINE
در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
************************************************** ******************************************
اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی
:cake: :gift: :flower: :flower: :flower: :kiss: :kiss: :kiss: :kiss:
:kiss:
در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
************************************************** ******************************************
اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی
ضمن سلام
من میخواستم از داخل برنامه regional setting و number را number style بصورت فارسی (hindi) درآورم
چون برای ثبت اطلاعات و چاپ آن به اعداد فارسی نیاز دارم
البته از فونتهای فارسی نیز استفاده کرده ام ولی متاسفانه اعداد نمایش جالبی ندارد
و از right to left=.T. ولی در ورود اعداد در textbox از وسط شروع به ثبت میشود
و چون در بعضی از ویندوز ها 98 که بصورت دستی این کار انجام نیشود با یکبار خاموش و روشن شدن بصورت اولیه برمیگردد
اساتید جواب چی شد :cry:
من معمولا این کارو نمیکنم و از فونت badr در پارسا 99 یا B badr در فارسی ساز پارسا 2001 استفاده میکنم
در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
************************************************** ******************************************
اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی
برای این فونت بعضی از اعداد جالب نیست مثلا عدد صفر و ....
واگر که این کار انجام گیرد از فونتهای بین المللی استفاده میکنیم و در ورودی و گزارشات جالبتر خواهد بود
اگر امکانی هست همکاری فرمائید
اعداد فارسی اصلا حالب نیستند متاسفانه!
____________________________
همه چیز را همگان دانند و همگان هنوز از مادر زاده نشده اند. (بزرگمهر حکیم)
شما می تونید با یک فونت ادیتور به جای عددهای انگلیسی فارسیش رو بگذارید و استفاده کنید که فکر کنم قبلا یکی از دوستان این کار رو کرده بود و یک فایل به اسم kodak درست یادم نیست گذاشته همینجا برایس استفاده :wink:
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
با سلام و تشکر
میفرماپید که برای این موضوع راهی نیست
اگر برایتان امکان دارد ادرسهایی که بشود اینگونه موارد را بدست اورد را بدهید چون اینگونه موارد باعث کارایی بهتر فاکس برای کاربران میگردد
یا اینکه شماها که میتوانید موضوع را از منابع تامین کننده اینگونه موارد بخواهید
متاسفانه من هم چند وقتی است بدنبال این موضوع هستم ولی پیدا نکرده ام . البته به تازگی یکنفر قطعه کدی برایم فرستاده که اگر تست کردم و جواب داد در همین قسمت قرارش میدهم. البته خیلی تکنیکی نیست ولی اگر جواب بدهد شاید چاره دیگری نباشد.
سلام
یک راهی هست ولی امتحانش نکردم چون من بیشتر از فونتهای استاندارد ویندوز استفاده میکنم و بیشتر در xp کار می کنم
میشه از نرم افزارهای مثلا font Editor استفاده کنید و فونتهای مورد نظرتان را ویرایش کنید و صفر را به هر شکلی که بخواهید می توانید ان را تغییر دهید
مشکل من اینجاست که من میخواهم هم در ورود و هم در گزارشات عدد فارسی باشد و همانطوریکه میدانید حجم اعداد فارسی مقداری کوچکتر از اعداد انگلیسی است مثلا اگر یک تکست باکس برای پنج رقم فارسی در نظر بگیریم
زمانی که عدد فارسی است که کاملا درست ولی وقتی که انگلیسی میشود فضا کم است
با سلام خدمت شما اقا کیا
اگر فضولی نباشد میشود بپرسم که چرا این موضوعات ؛موضوع مهم؛ را باز کردید
و فرموده اید که فقط در همین فرومها سپوال و جواب صورت گیرد
این دسته بندی برای سهولت دسترسی همه دوستان به اطلاعات این فروم بوده و بنا به تقاضای دوستان به این شکل دسته بندی شده
البته من از دوستان راجع به دسته بندی موضوعات سوال کردم و کسی از دوستان نسبت به این نوع طبقه بندی (فعلی)انتقادی نداشت
درج کلمه "موضوع مهم" در کنار مباحث هم به این خاطر است که این قسمتها همیشه در دسته بندی موضوعات بعنوان موضوعات مهم تر در قسمت بالائی فروم قرار بگیرند تا دسترسی دوستان به آنها آسانتر باشد
البته باب انتقاد و پیشنهاد برای تمام دوستان و اساتید باز است و هرکس نظری داشته باشد با دیده منت و بعد از کسب نظر موافق سایر دوستان در این قسمت لحاظ میشود
شاید باور نکنید من خودم چند وقته که دنبال یکی از موضوعاتی میگردم که برای یکی از دوستان پست کردم ولی هنوز نتونستم بفهمم که اونو توی چه قسمتی پست کردم
و این فقط به خاطر آشفتگی بود که با ایجاد کردن موضوعات مختلف و بعضا بی ربط به متن سوال حاصل شده بود و بنا به پیشنهادات دوستان مقررشد تا تمام مباحث موضوع بندی شوند
البته من هم سعی کردم تا نحوه انتخاب موضوعات و چیدمان و آرایش آنها را از سایت universalthread الگو برداری کنم تا خطای کمتری به چشم بخورد
در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
************************************************** ******************************************
اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی
با سلام و تشکر
تمام مواردی که ذکر میکنم فقط جنبه پیشنهادی دارد
ببینید شما اگر بعنوان یک فرد معمولی وارد صفحه اصلی برنامه نویس شوید سرگروه موضوعات مثلا ویژوال بیسیک با مثلا چند مبحث دلفی با چند مبحث یا فاکس با 310 مبحث و .............
متوجه میشوید که دلفی تعداد مباحث بیشتری دارد و از آن میشود تغریبا نتیجه گرفت که پس تعداد افرادی که حداقل برنامه نویسی را دوست دارند و دنبال طرح سپوال و جواب هستند در مبحث دلفی بیشترند و همانطویکه میدانید با این اقدام جدید تعداد مباحث فاکس ثابت میماند
موضوع بعدی اگر ما در یک زمینه خاص سپوالی داشته باشیم سپوالات مطرح شده را مرور و بعضا به جواب مورد نظر خود میرسیم و اگر مورد نیازمان پیدا نشد انگاه اقدام به طرح آن مینماپیم
همانطوریکه میدانید تعداد مباحث قابل روپیت در هر صفحه چندین برابر تعداد سپوال و جوابهایی است که در یک صفحه جا میگیرد البته اگر جوابها فقط چند خط باشد نه چند صفحه و .......
و با گذشت زمان و مطرح نمودن سپوال و جوابها بر تعداد صفحات هر مبحث افزوده و این خود مشکلات خاص خودش را دارد
حال اگر شما بتوانید این موارد را در موضوعات جدید طوری بگنجانید که حداقل در هر مبحث بشود مبحث جدیدی مرتبط با همان مبحث اصلی را مطرح کرد خیلی عالی خواهد بود
در نگاه اول نظر شما قابل تعمق است ولی این را عرض کنم که پراکندگی موضوعات و تعدد موضوعات دلیل بر این نیست که تعداد بیشتری به آن زبان برنامه نویسی علاقه بیشتری دارند و بعضا مشاهده میشود که بعضی از پستها فقط یک جواب دارند و اونهم جوابی نیست که علمی بوده باشد بلکه اصطلاحا یک آف تاپیک است که اصلا ارزش علمی ندارد و سایر کاربران برای خالی نبودن عریضه اقدام به پست آنها میکنند
توضیحا عرض کنم که روزانه تعداد زیادی از پستهای نامربوط . تکراری. آف تاپیک. غیر علمی . غیر اخلاقی .و ...... توسط مدیران بخشها به بخش "مدیران" و بخش "سطل آشغال" منتقل میشود که تاکنون این مورد در این فروم مشاهده نشده است و هر کدام از دوستان این فروم خود به منزله یک مدیر نظارت کامل بر پستهای خود دارند
هر چند بنده اعتقاد دارم که تعداد کاربران محیطهای برنامه نویسی vb و delphi از فاکس پرو بیشتر است(که دلایل این موضوع قبلا در همین فروم مورد بحث قرار گرفته) لکن هر زبان برنامه نویسی موضوعات متمرکزی دارد که بعنوان قابلیتهای همان زبان مورد بحث میباشد و کم و بیش در تمام زبان های نسل سوم مشاهده میگردد
موضوعاتی از قبیل برنامه نویسی وب بیس . تهیه ریپورت . کلاسها . اکتیویکسها . فرمها . و ... اغلب از موضوعات رایج و بحث بر انگیز هر زبان برنامه نویسی است که ب کرات مورد سوال و جواب قرار میگیرد
به هر حال بنده از نظر جنابعالی نهایت استفاده را خواهم برد و خیلی دوست دارم تا کلیه دوستان این فروم هم در مورد پیشنهاد جنابعالی اظهار نظر نمایند تا تغییرات احتمالی مورد نظر دوستان را اعمال نمائیم
نکته آخر اینکه باب انتقاد و پیشنهاد در این فروم و صد البته مجموعه برنامه نویس کاملا باز بوده و هریک از مدیران میبایست از نظرات سازنده تمام اعضا (کمال استفاده برای پربارتر کردن مجموعه) استفاده نمایند
و اینکه بنده هیچگونه ارجحیتی نسبت به سایر دوستان ندارم مگر سابقه قبلی که باعث گردیده تا از طرف مدیریت محترم سایت (حاج مهدی گل) به این مسئولیت گماشته شوم
در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
************************************************** ******************************************
اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی
دوست گرامیمتوجه میشوید که دلفی تعداد مباحث بیشتری دارد و از آن میشود تغریبا نتیجه گرفت که پس تعداد افرادی که حداقل برنامه نویسی را دوست دارند و دنبال طرح سپوال و جواب هستند در مبحث دلفی بیشترند و همانطویکه میدانید با این اقدام جدید تعداد مباحث فاکس ثابت میماند
ببینید در بخش … مشاهده شده که یک موضوع چندین بار تکرار شده است و این امر باعث افزایش مباحث شده که نتیجه ان نارضایتی کاربران و عدم دسترسی به موضوعات مورد نظر می شود اگر نظم خاصی به بخش ها سرایت شود قطعا دسرسی و بهره برداری بیشتر خواهد شد و امار پستها و ایجاد موضوعات تکراری هم نسبتا کاهش می شود
یک سوال ایا در بخشی که 56 صفحه یا بیشتر داشته باشد می توان موضوع مورد نظر در کمترین زمان دسترسی داشته باشید :?:
اگرکل بخشها بهمین سبک ایجاد شوند دسترسی و استفاده از موضوعات خیلی راحت تر و پرثمرترخواهد بود :)
ما ایرانیا همیشه به ظاهر نگاه میکنیم نه به باطن :wink:
امیدوارم دوستان نارحت نشده باشند :oops:
با تشکر
اگر تعداد پستها دراین طرح جدید بسیار زیاد شود مثلا 20 یا حتی 100 صفحه
واگر فردی تازه به این بخش سر بزند یعنی قبلا موضوعات را دنبال نکرده باشد به نظر شما جالب است 100 صفحه را مطالعه کند تا مبحث مورد نظر خود را پیدا کند ؟؟؟؟
این طرح به شرطی قابلیت که مدنظر آقای حیدر کیا را دارد که بتواند درداخل مبحث موضوعات مهم یک طبقه جدید هم ایجاد گردد تازیر مجموعه موضوعات اصلی شود که فکر نمی کنم فعلا دراین سایت امکان پذیر باشد
قبلا هم گفته بودم نظر شخصی من این است که این موضوعات مهم به نکات کلیدی وتازه ها پرداخته شود تا تعداد پستها کمتر ومطالعه آنها مفید تر باشد یعنی بخش جهت خبرهاونتایج بحثهای معمولی گردد.
با تشکر از استاد محترم جناب آقای حیدرکیا
با سلام
من برنامه ای نوشته ام با کپی نمودن آن در برخی از کامپیوتر ها اجرا نمیگردد خطای program error
میگیرد و با نصب office آن خطا بر طرف میگردد
البته سه فایل dll مورد نیاز اجرای فاکس را نیز در همان شاخه کپی نموده ام
چه فایلی کسر میباشد
فکر کنم باید فایل کتابخانه ویژوال سی را هم کپی کنید . یعنی msvcrt.dll
ببخشید msvcr70.dll :oops:
با تشکر
من میخواهم اطلاعات ویندوز را به داس تبدیل کنم
ابزاری برای این موضوع دارید
بنده خیر
با سلام
من از فایل dll برای اجرا استفاده کردم که این مشکل در بعضی از کامپیوترها هست
فایلهای dll به شرح زیر میباشد
Msvcr70.dll
Vfp7r.dll
Vfp7renu.dll
فایل کسری که با نصب office نصب میگردد چیست
بستگی داره به اینکه در برنامه شما چی وجود داشته باشه مثلا Rtf یا MsGraph یا ... همه با نصب Office انجام میشه.
____________________________
همه چیز را همگان دانند و همگان هنوز از مادر زاده نشده اند. (بزرگمهر حکیم)
البته یادم رفت Office فایلهای Runtime بیسیک را هم نصب میکند. ولی فایلهای شما برای فاکس کامله.
____________________________
همه چیز را همگان دانند و همگان هنوز از مادر زاده نشده اند. (بزرگمهر حکیم)
با سلام و تشکر
فعلا با نصب office این مشکل را حل میکنم
ولی برای تبدیل اطلاعات ویندوز به داس ابزاری هست :kaf:
میخواهم بانکهای دلفی را به فاکس تبیل نمایم ولی با import ویژوال فاکس ورژنهای 7و8و9 همگی فایلهای دلفی 3.5 و 4 را تبدیل منماید و بالاتر از انرا خطا میگیرد
لطفا راهنماپی فرماپید
با استفاده از InterBase و خود دلفی چرا انجام نمیدهید؟
____________________________
همه چیز را همگان دانند و همگان هنوز از مادر زاده نشده اند. (بزرگمهر حکیم)
با سلام و تشکر
متاسفانه با دلفی و interbase کار نکردم
اگر امکان دارد توضیحاتی در باره ان بفرماپید
با سلام و عرض تبریک عید فطر
یک موضوع جالب(حداقل برای من)
چرا و برای چی اسم این برنامه ما رو فاکس(روباه) گزاشتن؟؟؟؟؟؟
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
چون روباه باهوشترین و زیرکترین حبوانات مشهوره و فاکس پرو از از پدرش Foxbase اسم خودشو به ارث برده. و اگه یه نگاهی به فاکس پرو بیاندازید می بینید خیلی هم باهوشه واقعاً!!! شاید به خاطر تکنولوژی Rushmore. اصلا کسی سرعت هاردش را توی داس و ویندوز مقایسه کرده؟ ببینه چقدر داس توی حافظه مخفی هارد بد عمل میکنه نسبت به ویندوز؟ البته تقصیر هم نداره فقط 640 کیلوبایت در اختیار داره. خب توی اون زمان با این امکانات کم فقط فاکس پرو بود که خوب کار میکرد و هنوز هم به نظر من از خیلی نرم افزارهای دیگه بهتر و ارحجتره.
یکی از خوبیهای فاکس هم اینه که احتیاج به ODBC نداره! و همین باعث سرعتش در پردازش بانکها میشه.
____________________________
همه چیز را همگان دانند و همگان هنوز از مادر زاده نشده اند. (بزرگمهر حکیم)
هر کاری رو در کوتاهترین زمان و با کمترین پیچیدگی و بهترین شکل ممکن انجام میده
در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
************************************************** ******************************************
اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی
با سلام
من میخواهم سایز فایل pdf را توسط فاکس بدست آورم البته بدون استفاده از ()fopen
خب با تابع Adir انجام بده.
____________________________
همه چیز را همگان دانند و همگان هنوز از مادر زاده نشده اند. (بزرگمهر حکیم)
با سلام خدمت دوستان من می خواهم لیست ابجکت استفاده شده در یک فرم را بدست آورم (مثلا لیست label ها را داشته باشم که به هنگام تغییر فونت فرم بتوان اتوماتیک نام و تعداد label ها را بدست آورد و فونت آنها را نیز تغییر داد) و یا امکان این مطلب در فاکس وجود دارد که همانند دلفی به هنگام تغییر فونت و بقیه مشخصات از خاصیت وراثت استفاده کرد و خصلت فونت کلیه آبجکت ها ی استفاده شده در فرم تغییر پیدا کنند