سورس کدهای ویژوال بیسیک

فش فشه

سلام. مرسی که راهنمایی کردی. میخوام بدونم مثلا برای جستوجو در مورد آپارتمان بر حسب کدوم مزیت جستوجو کنیم بهتره. مثلا برحسب اجاره یا بر حسب متراژ؟ مرسي ممنونم.

سلام.

همیشه برنامه ای می تواند حرفی برای گفتن پیدا کند که جستجوی خود را به یک یا دو مورد محدود نکند.

منظورم این است که در برنامه Combobox قرار بدهید و در آن مثلا اجاره و متراژ باشد هر گزینه ای که انتخاب شد جستجو را براساس آن انجام شود. (این مطلب به طور مفصل در در مقالات مشاور املاک شرح داده شده است.)

هوشمند

با سلام
من کدهای shutdown , Restart رو در vb می خواستم.
mer30

ابتدا تابع ExitWindowEx را به صورت زیر فراخوانی می کنیم:

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

حال ثوابت زیر را هم تعریف می کنیم: (یک برای خاموش و دو برای راه اندازی مجدد سیستم)

Private Const EWX_LOGOFF = 0

Private Const EWX_SHUTDOWN = 1

Private Const EWX_REBOOT = 2

Private Const EWX_FORCE = 4

و در رویداد کلیک دکمه بنویسید:

&ExitWindowsEx EWX_FORCE, 0

جواب سوال از دوست عزیز بدیهی:

برای ریستارت کردن اینجوری:
(ExitWindowsEx(EWX_LOGOFF + EWX_FORCE + EWX_REBOOT, 0
و برای خاموش کردن هم اینجوری:
(ExitWindowsEx(EWX_LOGOFF + EWX_FORCE + EWX_REBOOT + EWX_SHUTDOWN, 0

دوست خوبم سبحان راه حل بهتری ارائه نموده اند:

سلام دوست عزیز
در مورد رستارت و خاموش کردن راه ساده تری هم وجود دارد که پائین گذاشتم .
"shell "shutdown -r -t sec
r برای ریستارت و s برای خاموش کردن البته یا s یا r بدون پرانتز می گذاریم .
به جای کلمه sec هم زمان خاموش شدن پس از اجرای دستور بر حسب ثانیه است .

با تشکر از سبحان عزیز

امیر

چجوري ميشه مشخص كرد كه يه فرم در كجاي فرم ميدي (وسط؟ راست؟ چپ؟)قرار بگيره ؟؟

برای اینکه مشخص کنیم یک فرم Child در کجای فرم Parent قرار بگیره تنها راه حل استفاده از متدهای Left,Top و گاهی اوقات Width,Height می باشد. مثلا برای قرار گیری یک فرم در بالا سمت چپ باید دو متد Top,Left فرم مذکور را برابر 0 قرار بدهیم.(قرار گیری فرم فرزنددر وسط فرم والد را در مقالات برنامه نویسی بانک اطلاعاتی گفته ام.)

Top: فاصله از بالا

Left: فاصله از چپ

سبحان

در پایگاه داده اکسس در ویژوال چطور میشه جستجو کرد به طوری که تمام نتایج جستجو رو به طور یکدفعه و در جایی مثل دیتا گرید یا ام اس فلکس گرید بشود یکجا نشان داد .
ممنون میشوم اگه پاسخ بدین .

دکمه ی CTRL+T را با هم فشار دهید تا کادر Component ظاهر شود حال گزینه ی Microsoft Data Bound Grid Control 5.0 (SP3) را بزنید حال یک شئ Data بر روی فرم قرار دهید و یک عنصر DBGrid را هم به فرم بیافزائید.

یک جعبه متن هم برای جستجو قرار دهید. بعد از اینکه شئ Data1 را با بانک اطلاعاتی و جدول مورد نظر تنظیم کردید اکنون کد زیر را در رویداد Change شئ Text1 قرار دهید:

Dim x As String

x = Text1.Text

If Data1.Recordset.RecordCount > 0 Then

Data1.RecordSource = "SELECT * FROM Customers WHERE Name LIKE '" & x & "'" & "& '*'"

Data1.Refresh

End If

مرسی از این که همیشه به وبلاگ خودت سر می زنی.

امیر
چه طوری میشه در نوار ابزار بین دو کلید یک خط جدا کننده کشید بطور مثال در برنامه مشاور املاک بین وضعیت ساعت و پشتیبان گیری یه خط کشیدید. چجوری؟

نوار ابزار را انتخاب کنید در قسمت Properties روی Custom کلیک کنید به برگه ی Buttons بروید درآنجا روی Insert Button کلیک کنید حال بدون وارد کردن نام و اطلاعات دیگر لیست کشوئی کنار Style را پائین بکشید و گزینه ی

3 – tbrSeparator را برگزینید.

فش فشه

سلام. من دانش جو هستم و برای درس پروژه ام یه برنامه املاک در دست احداث دارم. میخوام این برنامتونو ببینم که ازش استفاده کنم. اگه راهنماییم کنی ممنونتون میشم.

سلام دوست عزیز اگر در رابطه با نرم افزاری که می خواهید طراحی کنید به مشکل خوردید ما در خدمت شما هستیم.