زبان Visual Basic : تمامی مباحث و مسائل

[مهمان]

سلام
زبان visual basic هم زباني است که شرکت مايکروسافت به بازار عرضه کرد.
جالب هست بدونيد که کدهاي باز اين زبان روي اينترنت فوق العاده زياد هست :)

[Nesta]

آموزش برنامه نویسی ویزوال بیسیک
http://mymse.net/LearnPdf/vb6_ebook_farsi.pdf

[eshgi]

اگه مي شه يه 2 تا ساته خوب به ما معرفي كن البته با pm

[مهمان]

سلام
eshghi عزيز
بايد بگم که من توي تاپيکي که زديد سايت معرفي کردم.
www.pscode.com
www.codeproject.com

http://forum.p30world.com/viewtopic.php?t=9978

موفق باشيد :)

[eshgi]

آره

[Nesta]

سلام دوسته عزيز آقای eshgi لطفاً در دادن پست کمی بهتر جواب بدهيد آره زياد جالب نيست متشکر

[eshgi]

حتما سر وقت دربارش فکر می کنم
دست درد نکنه از پیشنهادت

[Nesta]

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

[double_n]

اینم یه اموزش البته با اجازه اساتید :wink:
http://home.ripway.com/2005-4/295269/VB1.pdf

[Nesta]

سلام
آقا دستت درد نکنه متشکر از فعالیت شما.

[double_n]

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

http://forum.p30world.com/viewtopic.php?t=10412

ممنون میشم :roll:

[Nesta]

سلام
دوست من من تا حالا ندیده بودم حمصهین اسمی‌ حالا باید برات بپرسم باشه .

[double_n]

ممنون میشم . . . اگه زحمتشو بکشی :P

[double_n]

اینم قسمت دوم سورس وی بی :
http://rapidshare.de/files/1959281/vb2.pdf.html

امیدوارم مفید باشه :wink:

[double_n]

اگه با لینک قبلی مشکل داشتید از اینجا بگیرید :
http://home.ripway.com/2005-4/295269/VB2.pdf

[ooje_asman]

با سلام آقا کسی نمی دونه چطو از دکمه ها می شه استفاده کرد مثلا با زدن اینتر روی یه کنترل کار خاصی انجام شود البته در .net

[Nesta]

سلام دوست من که اسمت رو یادم رفته دستت درد نکنه متشکر.

[ooje_asman]

خب اومدم اینجا : با سلام برنامه ای در vb.net که بتونه فایل های صوتی رو در بانک اکسس ذخیره کنه و شماره رکورد ذخیره را هم نشان بده مرسی

[ooje_asman]

با سلام آقا این setup .net هم خیلی اذیت داره ها من که نتونستم یکی رو به برنامه اضافه کنم گرچه .net رو به طور کامل نصب کردم

[Nesta]

سلام آقای اج متشکر از این که شما هم این قانون رو رعایت کردید.

[مهمان]

سلام
شما مي توانيد در event هايي مانند keydown و يا keyup از e.keycode استفاده نماييد.
مثلاً:

Private Sub Button1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyDown
If e.KeyCode = Keys.Enter Then
' your code
End If
End Sub

کد فوق چک مي کند که آيا کليد enter روي button1 فشرده شده است يا خير.
موفق باشيد.

[saamz]

كارلوس جون بيا كه اومدم!!
من يك پروژه براي دفتر تلفن دارم كه با پايگاه داده كار مي‌كنه. ولي هر كاري كردم نتونستم براي اين پرژه يك جستجو طراحي كنم. من مي‌خوام كه وقتي نام يك شخص را جستجو كردم ،فاميلي، تلفن و آدرس او براي من به نمايش در آيد
ممنون

[Nesta]

كارلوس جون بيا كه اومدم!!
من يك پروژه براي دفتر تلفن دارم كه با پايگاه داده كار مي‌كنه. ولي هر كاري كردم نتونستم براي اين پرژه يك جستجو طراحي كنم. من مي‌خوام كه وقتي نام يك شخص را جستجو كردم ،فاميلي، تلفن و آدرس او براي من به نمايش در آيد
ممنون
سلام دوست عزیز
از چه نو بانک اطلاعاتی‌ استفاده می‌کنید.؟و آیا با دستورت
SQL یا همون Query شما کار می‌کنین یا این که نه با ACCESS و Odbc یا Ado Conecction .
لطفا بیشتر توضیح بدین اگه با SQL کار کنی‌ .
البته اگه با دلفی‌ کار میکردی من راحت تر کمکت میکردم .
ولی‌ شما یک query در madual بگذارید و با یک خط کد SQL جستجو کنین که راحت تر هست .
:idea:

[saamz]

من با ويبي برنامه نويسي ميكنم و من تمام tableهايم را با اكسس درست كردم تمام برنامه‌ي من به خوبي كار مي‌كند ولي براي جستجوي آن كمي مشكل دارم حتي با دستورات Find Next و غيره هم امتحان كردم ولي هيچ جوابي نگرفتم.
من ويبي رو تازه توي مدرسه يادگرفتم و اين پروژه اخر سال من هستش به من كمك كنيد نمره بگيرم تازه از اين اصطلاحات شما هيچي بلد نيستم چرا چون كه خود معلم ما هم بلد نيست!!!! :mrgreen: اصلا يه جونمرد پيدا بشه الگوريتم برنامه رو بنويسه خير از جونيش ببينه :shock:
:mrgreen:

[Nesta]

سلام دوست عزیز من اینطوری میگم ببین میفهمی‌ .
ببین شما باید یک query یعنی‌ کنترل یا همون شی‌ query رو فرم بگذاری با یک datasourse حالا من در دلفی‌ اینطوری 100 درصد در ویبی‌ هم به همین شکل می‌شه.خوب زمانی‌ که شما این 2 تا شی‌ رو روی فرم گذاشتی‌ .
روی query یک کیلیک کن که select شه بد در property ها به دنبال sql بگرد خوب .
روی اون یعنی‌ اون تو این کد رو وارد کن مثلا:
شما میخوای بگی‌ که آقا اگه هر چی‌ تو edit1 وارد کردی یعنی‌ text اش در بانک بود بیاره قدم اول .
شما بگو در query :
select * from "folder\name_database"
خوب folder یعنی‌ چی‌ یعنی‌ شما در انجائی‌ که پروژه رو ذخیره کردی یک پوشه درست کن اسمش رو برای راحتی‌ کار database بگذار خوب بد نام همون databse که در اکسس درست کردی می‌شه مثلا:
select * from "database\tel"
این تا اینجا باید فهمید باشی‌.
خوب حالا زمانی‌ که در sql در query این کد رو نوشتی‌ شما حالا ok کن .
بیا روی فرم روی خود query 2 بار کیلیک کن یعنی‌ تا الان ما این کد رو فقط در properti یا خواص query نوشتیم درست حالا میخواهیم فیلد همون رو اضافه کنیم یا این که بیاریم .
2 بار روی query کیلیک کن یه پنجره کوچیک میاره خوب اونجا راست کیلیک کن و روی گزینه add all feild بزن که همه فیلد هرو بیاره .
بد که این کار رو انجام دادی پنجره کوچیک رو که مال query هست ببند .
در قسمت property یا همون خواص active رو true کن .
بد الان فرم داری که مثلا روش یک edit1 داری که مثلا نام فرد هستش که باید تو این edit وارد بشه خوب
پس باید یک دکمه رو فرم دشت باشی‌ شما که به نام جستجو باشه .که در دکمه 2 بار کیلیک کن و کودش رو این باید بنویسی‌ .
که اگه مثلا edit1.text هر چی‌ شد بگرد در بانک اگه بود نمایش بده اولا باید بگی‌ که کجا نمایش بده که اون یک بحث دیگه هست .
این کد رو باید در دکمه قرار بدی.
form1.query1.active:=true;
؛
query1.sql.add('select * from "database\tel" where name='+edit1.text+' ')؛
خوب این name که من نوشتم مثلا همون فیلد نام فرد در بانک شما هست.
فکر کنم تا حدودی فهمید باشی‌.

[saamz]

carlos جون اي ول برم ببينم چي ميشه. خبرش رو بهت مي دهم
:wink:

[Nesta]

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

[ooje_asman]

با سلام برنامه اي كه بتونه در اين صفحه اين قسمت رو فارسي كنه كه در نتيجه آن اعداد و ... فارسي مي شود مرسي
http://img276.echo.cx/img276/627/langu6hq.jpg (http://www.imageshack.us)

[ooje_asman]

با سلام آقا كسي از اين آقا رامبد ما خبري نداره ديدين بهش سلام برسونين و بهش بگيد بابا يه سرم بما بزن اگه خودشون اومدن اينم ببينن مرسي من برنامه رو كه نصب مي كنم بعد موقع اجرا اين خطا رو ميده ممنون مي شم http://img13.echo.cx/img13/3973/runtime2zi.jpg (http://www.imageshack.us)

[azghani]

سلام دوستان
از راهنمایی ها ممنون
حالا کسی می دونه چطوری رنگ فونت اندازه و نوع فونت Input box را می شه تغییر داد

[Nesta]

سلام آهای ooje_aseman لطفا شما می‌شه همه تصویر رو اینج نگذارید .
متشکر.

[saman_uv]

سلام آقا اين VB از صيغه بوده sticky نشده؟
يه سوالم داشتم براي اينكه محتويات فايل ليست باكس در داخل درايو ها رو پاك كنيم توي كامندباتون چي بايد بنويسيم؟

[SRMR]

سلام ببخشيد يه سوال داشتم
چطور ميشه با ويژوال بيسيك خود فرم رو پرينت كرد يعني در خود برنامه اين گنجانده شده باشد

[مهمان]

سلام
توسط کد زير مي توانيد فرم خود را پرينت کنيد:
FORMNAME.PrintForm
به جاي FORMNAME نام فرم خود را قرار دهيد.
موفق باشيد

[SRMR]

سلام
توسط کد زير مي توانيد فرم خود را پرينت کنيد:
FORMNAME.PrintForm
به جاي FORMNAME نام فرم خود را قرار دهيد.
موفق باشيد


سلام
امير جان دستت درد نكنه خيلي گير كرده بودم ممنون
:oops:

[SRMR]

ببخشيد 2 تا سوال ديگه داشتم
براي اين كه بخواهيم برنامه اي كه نوشته ايم مطلبي را طبق تاريخ و ساعت تعيين شده براي ما نشون بده و هشدار بده بايد چيكار كنم

2- براي بايگاني كردن اطلاعات بطوري كه بطور خودكار بعد از 1 سال كه شد اطلاعات بايگاني بشن بايد چي كار كنم
بهتر است از بانك اطلاعاتي استفاده كنم يا فايلينگ
ممنون اگر توضيح بدين
متشكر :oops:

[مهمان]

سلام

در مورد سوال اول:
بايد يک تايمر در برنامه داشته باشيد تا مثلا هر يک دقيقه يکبار شرايط را چک کند. اگر شرطي وجود داشت آنگاه پيغام را نمايش دهد.
تاريخ و ساعت را هم مي توانيد توسط توابع date و time بدست آوريد

در مورد سوال دوم:
براي بايگاني اطلاعاتي که شما مي خواهيد روي آن جستجو داشته باشيد ديتابيس گزينه بهتري مي باشد. هر بار که وارد برنامه مي شويد چک کنيد که يک سال شده است يا خير.
اگر يک سال شده بود که backup بگيريد.

[SRMR]

سلام

در مورد سوال اول:
بايد يک تايمر در برنامه داشته باشي و...

در مورد سوال دوم:
براي بايگاني اطلاعاتي که شما مي خواهيد روي و ...

امير جان دوباره ممنون :oops: :oops:

[SRMR]

سلام
يك سوال ؟ :?: :?:
چطور ميشه بانكي رو كه توسط اكسس نوشتيم رو به يك فرم يا تكست باكس هايي در فرم برنامه وصل و ارتباط بديم ا (( بانك نوشته شده توسط اكسس اكس پي است ))

ممنون اگر راهنمايي كنين چون من دراين مورد اطلاعات زيادي ندارم
متشكر :oops: :oops: :oops: :oops:

[Nesta]

سلام دوست عزیز .
شما ابتدا باید یک شی‌ query or table در فرم خود قرار بدی و اگه با query این کار رو بکنی‌ و یک خط دستور sql میتونی‌ تمامی‌ فیلد های بانک رو در آنجا add کنی‌ .
این تا اینجا .اگه با table این کار رو انجام بدی باید connection درست کنی‌ و یا ado به بانک ارتباط بدی .زمانی‌ که شما همه فیلد هاتو در یل لیست کوچکی‌ که در مثلا query دیدی .شما میتونی‌ به وسیله checkbox or editbox or edit میتونی‌ باهاش ارتباط برقرار کنی‌ .فقط باید ابتدا مسییری که بانک اطلاعاتی‌ که با پسوند مثلا mdb or db هست رو در query or table بهش بگی‌ بد فیلد هاتو اضافه کنی‌ یعنی‌ add to all .

[مهمان]

سلام
جناب Nesta من فکر مي کنم شما به سبک زبان دلفي توضيح داديد در حالي که اينجا تاپيک vb هست!!!

[Nesta]

سلام
جناب Nesta من فکر مي کنم شما به سبک زبان دلفي توضيح داديد در حالي که اينجا تاپيک vb هست!!!
سلام دوست عزیز حق با شماست .
ولی‌ ویبی‌ کار هائی‌ عزیزی مثل شما جواب ندادند و من مجبور شدم یک جوری بگم .
من تقسیری ندارم .
خوب شما به ایشون به زبان خودشون راهنمائی‌ کنین.شرمنده

[مهمان]

سلام نستا جان
همين که توضيح دادي ممنون
نيت شما خير بود
ولي من حدود 2 سال هست که تقريباً با وي بي کار نمي کنم
پس وي بي کار نيستم :mrgreen:

[Nesta]

سلام نستا جان
همين که توضيح دادي ممنون
نيت شما خير بود
ولي من حدود 2 سال هست که تقريباً با وي بي کار نمي کنم
پس وي بي کار نيستم :mrgreen:
سلام ولی‌ حرف های شما و طرفداری از این زبان جور دیگه میگفت .
آخه شما خیلی‌ این ویبی‌ رو سطح بالا میدونین که دلفی‌ یا زبان های دیگه رو کمتر از این میدونین البته حرف های شما گواه این حرف هست .خوب پس یک ویبی‌ کار بیاد جواب این دوست مارو بده .
:D

[SRMR]

سلام دوستان

از همه شما دوستان عزيز متشكرم
هيچ كس نمي تونه جواب سوال من رو بده . بد جوري گير كردم ممنون مي شم اگر كسي بلد هست , جوابم رو بده

:cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry:

[Nesta]

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

[SRMR]

مرسي netsa جان

[مهمان]

سلام
دوست عزيز شما مي توانيد از کنترل ADODC استفاده کنيد.
البته اين يک راه براي ايجاد ارتباط با ديتابيس مي باشد.
براي اين کار بايد اين کنترل را به ليست کامپوننتهاي خود اضافه نماييد.
يعني روي toolbox خود رايت کليک کرده و components را انتخاب کنيد و در آنجا Microsoft ADO Data Control 6.0 را تيک بزنيد و OK کنيد.
حال يک آيکون جديد در toolbox شما ايجاد شده است.
سپس يک کنترل از اين نوع را روي فرم خود قرار دهيد و در قسمت properties در بخش Custom برويد و دکمه ... را که در مقابل آن وجود دارد را کليک کنيد.
حال گزينه Build را کليک کنيد و Microsoft JET 4.0 و يا 3.51 را نتخاب کنيد.
در قسمت connection رفته و ديتابيس خود را انتخاب کنيد.
سپس هر دو پنجره را OK بزنيد.
به قسمت properties مربوط به ADODC برگشته و RecordSource را تغيير دهيد و بر اساس کاربرد خود تيبل خود را انتخاب کنيد.
حال TextBox ها را روي فرم قرار دهيد.
به قسمت Properties هر TextBox رفته و DataSource آن را با نام ADODC خود تنظيم کنيد.
و در قسمت DataFiles نام فيلد خود را انتخاب کنيد.
برنامه را که اجرا کنيد مي توانيد با استفاده از کليدهاي جهت دار به رکوردهاي بعدي و قبلي و آخري و اولي برويد.
موفق باشيد

[Nesta]

سلام دوست عزیز .
شما ابتدا باید یک شی‌ query or table در فرم خود قرار بدی و اگه با query این کار رو بکنی‌ و یک خط دستور sql میتونی‌ تمامی‌ فیلد های بانک رو در آنجا add کنی‌ .
این تا اینجا .اگه با table این کار رو انجام بدی باید connection درست کنی‌ و یا ado به بانک ارتباط بدی .زمانی‌ که شما همه فیلد هاتو در یل لیست کوچکی‌ که در مثلا query دیدی .شما میتونی‌ به وسیله checkbox or editbox or edit میتونی‌ باهاش ارتباط برقرار کنی‌ .فقط باید ابتدا مسییری که بانک اطلاعاتی‌ که با پسوند مثلا mdb or db هست رو در query or table بهش بگی‌ بد فیلد هاتو اضافه کنی‌ یعنی‌ add to all .
سلام امیر جان با این که ویبی‌ کم کار کردم ولی‌ زیاد هم بی‌ ربط نگفتم ها نه؟
به زبان دلفی‌ .دعوام کردی...
:lol: :cry:

[مهمان]

سلام نستا جان
من دعوات نکردم فقط توضيحات شما دلفي بود.
اون دوستمون براي وي بي سوال کرده بود و دقيقا بايد اه آبجکتهاي مورد استفاده اشاره مي شد.
مثلا شما گفتيد آبجکت Query ولي در وي بي چنين چيزي نيست و براي اون دوستمون حتما سر در گمي به همراه مياورد.
به هر حال ممنون از راهنماييت

[Nesta]

سلام شوخی‌ کردم .می‌خواستم بگم که اگه بعضی‌ اوقات اینطوری مفهوم رو رسوندم .دیگه بدون چاره ای نداشتم .چون کسی‌ جواب نداده .دمت گرم.

[SRMR]

سلام دوستان عزيز دم همتون گرم
خيلي مي خوامتون
ممنون از راهنمايي هاتون

:oops: :oops: :oops: :oops:

[Nesta]

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

[SRMR]

بالا خره شما هم قصد کمک کردن رو داشتین
ممنون

[SRMR]

سلام دوستان دوباره مزاحم شدم
یه مشکل بسیار بزرگ برام پیش اومده
اون هم این که یک عکس هست هم اندازه A4 ولی هر کاری می کنیم که با
ویژوال این عکs را پرینت کنه نمیشه
البته با با دستور
form name .printform
اگر کار دیگه ای باید انجام بدم بگین لطفا
راستی می خواهم که درون عکسs یه چند خط توسط چند لیبل و تکس باکس پر شه
لطفا راهنمایی کنید خیلی گیر کردم
متشکرم

[SRMR]

هیچ کس جواب ما رو نمیده

[مهمان]

سلام
دوست عزيز شما عکس را به عنوان background فرم انتخاب مي کنيد يا توسط picturebox و يا image روي فرم قرار مي دهيد؟

[sa3er]

سلام دوستان دوباره مزاحم شدم
یه مشکل بسیار بزرگ برام پیش اومده
اون هم این که یک عکس هست هم اندازه A4 ولی هر کاری می کنیم که با
ویژوال این عکs را پرینت کنه نمیشه
البته با با دستور
form name .printform
اگر کار دیگه ای باید انجام بدم بگین لطفا
راستی می خواهم که درون عکسs یه چند خط توسط چند لیبل و تکس باکس پر شه
لطفا راهنمایی کنید خیلی گیر کردم
متشکرم

همانطور که PersianAmir اشاره فرمودند با استفاده از يک PictureBox اين کار به راحتی انجام می پذيره....

شما هر چی رو در داخل کنترل PictureBox ايجاد کنيد (اعم از textbox و label) با دستور زير به راحتی چاپ خواهند شد:

picture1 مثال هست اينجا:

Printer.Print Picture1
Printer.EndDoc

[SRMR]

من عکس روbackground فرم گذاشته ام
و می خواهم تمام صفحه یعنی A4 چاپ شه
یک جور حالت فاکتور هست

[مهمان]

من عکس روbackground فرم گذاشته ام
و می خواهم تمام صفحه یعنی A4 چاپ شه
یک جور حالت فاکتور هست

سلام
خب اگر تصوير background فرم مي باشد پس چه مشکلي وجود داره؟
هر چيزي هم که روي تصوير قرار بگيره چاپ ميشه.

[SRMR]

نه امیر جان من گفتم اندازه A4 در صورتی که فرم این اندازه نمی شه
هر کاری کردیم نشد که نشد
شما اگر راه حلی داری بگو
ممنون

[مهمان]

نه امیر جان من گفتم اندازه A4 در صورتی که فرم این اندازه نمی شه
هر کاری کردیم نشد که نشد
شما اگر راه حلی داری بگو
ممنون

سلام
resolution اسکن کردن A4 چند هست که توي يک فرم جا نميشه؟
اگر روي فرم نميشه بهتره از datareport استفاده کنيد.
و تصوير را روي datareport نمايش دهيد و پرينت بگيريد.

[Nesta]

سلام من یک سوال داشتم آقا crystal report می‌شه در ویبی‌ یا نه .
یعنی‌ کمپوننت هست که بشه باهاش کار کرد ؟
اگه بشه که اون بهتر هست امیر جان .البته من فوزولی‌ کردم اینجا ببخشید .

[SRMR]

طرز کار با Data Report را می شه بگین
ممنون

[مهمان]

سلام من یک سوال داشتم آقا crystal report می‌شه در ویبی‌ یا نه .
یعنی‌ کمپوننت هست که بشه باهاش کار کرد ؟
اگه بشه که اون بهتر هست امیر جان .البته من فوزولی‌ کردم اینجا ببخشید .

سلام نستا جان
اين حرفا چيه فضولي چيه عزيز!!!
با crystal report هم ميشه کار کرد.

[PROSPPECH]

سلام
این هم یه سایت پر از کدهای باز ویژوال بیسیک از پایه تا پیشرفته:http://www.freevbcode.com

[Nesta]

سلام
این هم یه سایت پر از کدهای باز ویژوال بیسیک از پایه تا پیشرفته:http://www.freevbcode.com
سلام متشکر از شما که در این قسمت هم فعالیت می‌کنید و کمک می‌کنید.
سپاسگزارم.

[sa3er]

moderator محترم اين بخش قصد ندارند اين Thread رو به صورت Sticky بکنند!؟
چون تمامی زبانها به غير از vb يک Sticky برای خود دارند پيشنهاد می کنم اينرو هم sticky فرماييد..

با تشکر.

راستی اين هم تمامی bookmark های من در رابطه با VB :
http://www.a1vbcode.com
http://www.acky.net/vb/vbmisc/
http://cuinl.tripod.com
http://www.allapi.net
http://www.freevbcode.com
http://www.mvps.org/btmtz
http://msdn.microsoft.com/code
http://www.planet-source-code.com
http://www.zonecorp.com/vb5/
http://www.searchvb.com
http://www.mvps.org/vbnet/code/shell/undocshelldlgs.htm
http://www.codeguru.com/vb/index.shtml
http://www.codeguru.com/vb/Files/index.shtml
http://www.vb2themax.com
http://www.vbaccelator.com
http://www.vbapi.com
http://www.vbbox.com
http://www.vbcity.com
http://www.vbcode.com
http://www.vbcodelibrary.co.uk
http://www.vbdesignteam.com
http://www.developersdex.com/vb
http://www.vbexplorer.com
http://www.vbforest.com
http://pub13.ezboard.com/bvisualbasicexplorer
http://www.vbForums.com
http://www.vbip.com
http://www.mvps.org/vbnet
http://www.vbonly.com
http://www.vbpage.com
http://www.vbsoftware.cl
http://www.vbsquare.com
http://www.vbthunder.com
http://cuinl.tripod.com
http://www.vbweb.co.uk
http://www.vb-web-directory.com
http://www.vbwire.com
http://www.vbWorld.com
http://msdn.microsoft.com/vbasic/downloads/addins.asp
http://www.mvps.org/vb/
http://www.visualbasicbooks.com

[SRMR]

از ساسر عزیز بابت BOOkMark ها تشکر می کنم
ممنون ساسر جان

[مهمان]

سلام
دوستان دو کتاب مناسب جهت کار با زبان vb معرفي مي کنم.
راهنماي جامع برنامه نويسان ويژوال بيسيک 6
نوشته Deitel & Deitel T.R.Nieto
مترجم مهندس بهرام پاشايي
کتاب فوق اطلاعات جامعي راجع به اين زبان مي دهد.

211 نکته براي برنامه نويسان Visual Basic
نوشته Deborah L.Cooper
مترجمان ابوالفضل سرداري - سيد حاتم مهدوي نور - محمد نژاد پور
کتاب فوق کار با توابع API همراه با مثالهاي کاربردي را ارائه مي دهد.

[بچه آبادان]

با سلام خدمت اساتيد بزرگوارم من براي كارهاي اداري بوسيله اكسس يه برنامه درست كردم كه از نظر فرمهاي ورودي اطلاعات و جستجو ها همچنين گزارشات چاپ كاملا جوابگوي كار مورد نظر است اما مشكل اينجاست كه اين برنامه اجرايي نيست و به اكسس متكي است ميخواهم برنامه را توسط وي بي پكيج كنم و مستقل و اجرايي براي نصب روي هر سيستمي با وي بي هم در حد خيلي كمي اشنايي دارم اگر كمكم كنيد و روش آنرا بطور كامل توضيح دهيد يك عمر مديون شما خواهم بود حتم دارم با توجه به استفاده بسيار زياد بانكهاي اطلاعاتي گروه زيادي از اين مطلب استفاده خواهند برد در هر صورت ما قدر دان زحمات و تلاشهايي كه در اين سايت داريد بوده و خواهيم بود ارادتمند شما :oops: :oops: :?: :?: :?: :?: :cry: :cry: :cry:

[saman_uv]

سلام فکر نمیکنم بشه فایل بانک اطلاعاتی حتما باید تو کامپیوتر باشه

[Nesta]

[quote="sa3er"]moderator محترم اين بخش قصد ندارند اين Thread رو به صورت Sticky بکنند!؟
چون تمامی زبانها به غير از vb يک Sticky برای خود دارند پيشنهاد می کنم اينرو هم sticky فرماييد..

با تشکر.

سلام ساسر جان هنوز که نداریم مدیر که شما فرمودید ستیکی‌ کنند و گر نه حرف شما کاملا منطقی‌ هست /

[SRMR]

امیر جان دستت درد نکنه این کتاب ها که معرفی کردی بدرد کار من هم می خوره

[مهمان]

با سلام خدمت اساتيد بزرگوارم من براي كارهاي اداري بوسيله اكسس يه برنامه درست كردم كه از نظر فرمهاي ورودي اطلاعات و جستجو ها همچنين گزارشات چاپ كاملا جوابگوي كار مورد نظر است اما مشكل اينجاست كه اين برنامه اجرايي نيست و به اكسس متكي است ميخواهم برنامه را توسط وي بي پكيج كنم و مستقل و اجرايي براي نصب روي هر سيستمي با وي بي هم در حد خيلي كمي اشنايي دارم اگر كمكم كنيد و روش آنرا بطور كامل توضيح دهيد يك عمر مديون شما خواهم بود حتم دارم با توجه به استفاده بسيار زياد بانكهاي اطلاعاتي گروه زيادي از اين مطلب استفاده خواهند برد در هر صورت ما قدر دان زحمات و تلاشهايي كه در اين سايت داريد بوده و خواهيم بود ارادتمند شما :oops: :oops: :?: :?: :?: :?: :cry: :cry: :cry:

سلام دوست گرامي
چنين چيزي که فايل اکسس را تبديل به فايل اجرايي نمايد نداريم
چون خود اکسس پس از ورود اطلاعات حجمش بالا ميره و اصلا هيچ فايل اجرايي قابليت چنين چيزي نداره
يادگيري vb براي رفع اين مشکل زياد هم مشکل نيست
موفق باشيد

[bithiah]

با سلام خدمت اساتيد بزرگوارم من براي كارهاي اداري بوسيله اكسس يه برنامه درست كردم كه از نظر فرمهاي ورودي اطلاعات و جستجو ها همچنين گزارشات چاپ كاملا جوابگوي كار مورد نظر است اما مشكل اينجاست كه اين برنامه اجرايي نيست و به اكسس متكي است ميخواهم برنامه را توسط وي بي پكيج كنم و مستقل و اجرايي براي نصب روي هر سيستمي با وي بي هم در حد خيلي كمي اشنايي دارم اگر كمكم كنيد و روش آنرا بطور كامل توضيح دهيد يك عمر مديون شما خواهم بود حتم دارم با توجه به استفاده بسيار زياد بانكهاي اطلاعاتي گروه زيادي از اين مطلب استفاده خواهند برد در هر صورت ما قدر دان زحمات و تلاشهايي كه در اين سايت داريد بوده و خواهيم بود ارادتمند شما :oops: :oops: :?: :?: :?: :?: :cry: :cry: :cry:
مي شه لطف كنين و بگين براي برقراري ارتباط از ويژوال بيسيك با ژايگاه داده اكسس تون از چه شيء يا لايبراري استفاده كردين؟
اگه لایبراری DAO يا ADO باشه یا از اشیاء اونا كه با راحتي با نصب پكيج mdac(Microsoft Data Access Components ) براحتی روی دستگاه موردنظرتون برنامه تون کار می کنه. مثل کاری که من می کنم.
آخرین ورپن این پیکیج رو می تونین از سایت مایکروسافت دانلود کنین یا اگه خواستین براتون می فرستم.

[مهمان]

سلام

خانم bithiah ايشون از vb استفاده نکردند.
برنامه ايشون تحت همون access نوشته شده و در داخل خود access برنامه را اجرا مي نمايند.
بنابراين بايد هر دفعه اکسس را باز نمايند و برنامه خود را از آنجا اجرا نمايند.

[NewTech]

با سلام...
من مي خوام تمام اطلاعات يه فايل MP3 از قبيل مدت زمان، نام خواننده(Artist)، نوع موسيقي(Genre) و...(همانطور كه در مديا پلير در صورت وجود مشخص هستد) در ويژوال بيسيك استخراج كنم. با استفاده FileSystemObject و عنصر فايل نمي شه تمام مواردي رو كه من مد نظر دارم نمايش داد.
لطفا به من توضيح بديد چه جوري ميشه از طريق ويژوال بيسيك اين اطلاعت رو نمايش بدم.


در صمن ، به خاطر اينكه قوانين رو نقض كردم معذرت مي خوام.

[Arasx]

سلام دوست عزیز.من چند سال هست که با وی بی کار میکنم و متاسفانه برای
ارتباط بین اکسس اکسپی و ویبی ابزار خوبی پیدا نکردم بنابراین بانک خود را با اکسس 98 یا vb data manager طراحی میکنم .سپس با کمک کنترل data وتنظیم خاصیت databasename
به فایل مورد نظرطرف اول اتصال رو ایجاد میکنم.
سپس در تکست باکس خواص datasource & datafield را به کنترل و فیلد موردنظر تغییر میدم.حتما خاصیت recordsource را در کنترل دیتا به فیلد مورد نظر تغییر بده..موفق باشی :idea: .

[Arasx]

ببخشيد اين ژيغام اشتباهي ارسال شد..

[مهمان]

سلام
يک کد جالب براي کساني که با vb6 کار مي کنند پيدا کردم که اينجا قرار مي دهم.
اين کد باعث ميشه که محيط vb6 به صورت tab بشود و کار کردن با چندين فايل در وي بي ساده مي شود.

http://www.planet-source-code.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=60321&strZipAccessC ode=tp%2FC603213851

[bithiah]

با سلام خدمت دوستان انجمن برنامه نویسی
در مورد DAO با یه مشکل مواجه شده ام و لطف می کنین اگه جوابمو بدین.
برای مرتب (sort) کردن رشته های فارسی در فرمان SQL از عبارت ORDER BY استفاده می کنم، ولی انگار نه انگار. اصلا مرتب نمی شه. با متود sort رکوردست هم که مرتب می کنم باز هم مرتب نمی شه. در حالیکه من با ADO تا حالا خیلی اینکار رو انجام دادم. شما نمی دونین چرا اینطوریه و چی کار باید کرد؟
ممنون

[bithiah]

سلام
يک کد جالب براي کساني که با vb6 کار مي کنند پيدا کردم که اينجا قرار مي دهم.
اين کد باعث ميشه که محيط vb6 به صورت tab بشود و کار کردن با چندين فايل در وي بي ساده مي شود.

http://www.planet-source-code.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=60321&strZipAccessC ode=tp%2FC603213851
PersianAmir عزيز دستت درد نكنه. با اين كد كار همه برنامه نويسهاي VB خيلي خيلي راحت تر مي شه. پيشنهاد مي كنم هيچ كس از دستش نده.
واقعا ممنون.

[pascal]

آقا کسی بلده چطور میشه با ویژوال برنامه ای نوشت که شماره تلفن بگیره

[bithiah]

آقاي پاسكال ببينين نمونه كد زير بدردتون مي خوره:

http://a1001.persiangig.com/vb/TelDialOut1.zip

جواب منم كه هيچ كي نمي ده. ولي من بازم منتظرم... :|

[Nesta]

آقاي پاسكال ببينين نمونه كد زير بدردتون مي خوره:

http://a1001.persiangig.com/vb/TelDialOut1.zip

جواب منم كه هيچ كي نمي ده. ولي من بازم منتظرم... :|
سلام خانم به دلیل برخی‌ از مسائل ممکن هست که اینجا فعلا دیر پاسخ داده بشه که من از شما شرمنده هستم. :oops: :oops:

[hamed_110]

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

حلقه تکرار For:
از این حلقه برای تکرار عملیات خاصی به تعداد مشخص انجام می شود.
For Counter = Start_Value To End_Value
[Step Step_Count]
بلاکی از یک یا چند دستور ویژوال بیسیک
Next [Counter
Counter شمارنده حلقه
Start_Value مقدار اولیه شمارنده
End_Value مقدار پایانی شمارنده
ابتدا متغییر counter برابر Start_Value قرار می گیرد و دستورات یک بار اجرا می شوند سپس counter به اندازه Step_Count افزایش یافته و دوباره دستورات اجرا می شوند و این عمل تا وقتی که به End_Value برسیم تکرار می شود
نکته:
گر Step_Count ذکر نشود مقدار پیش فرض آن یک می باشد.
می توان Counter جلوی Next را ننوشت ولی به دلیل ناخوانایی برنامه در حلقه های تودرتو این کار توصیه نمی شود
مثال:
Dim i, Sum As Integer
For i = 0 To 100
Sum = Sum + i
Next i
Text1.Text = Sum
در این مثال مجموع اعداد بین 0 تا 100 محاسبه شده و در آخر مقدار آن در جعبه متن قرار داده می شود

Dim i, Sum As Integer
For i = 1 To 10 Step 2
Sum = Sum + i
Next i
Text1.Text = Sum

[bithiah]

مي شه بگين مشكل از كجاست؟ هرچند كه من هيچ كاره ام اما لااقل بدونم كي به كيه و سر چي و كي داره مشكل ايجاد مي كنه... :roll:

[sa3er]

آقا کسی بلده چطور میشه با ویژوال برنامه ای نوشت که شماره تلفن بگیره

سلام؛
شما بايد از کنترل MSComm جهت اين امر استفاده کنيد.
در يافت مثال نمونه از:
!!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!!

با سلام...
من مي خوام تمام اطلاعات يه فايل MP3 از قبيل مدت زمان، نام خواننده(Artist)، نوع موسيقي(Genre) و...(همانطور كه در مديا پلير در صورت وجود مشخص هستد) در ويژوال بيسيك استخراج كنم. با استفاده FileSystemObject و عنصر فايل نمي شه تمام مواردي رو كه من مد نظر دارم نمايش داد.
لطفا به من توضيح بديد چه جوري ميشه از طريق ويژوال بيسيك اين اطلاعت رو نمايش بدم.


دريافت مثال نمونه از:
!!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!!

با سلام خدمت دوستان انجمن برنامه نویسی
در مورد DAO با یه مشکل مواجه شده ام و لطف می کنین اگه جوابمو بدین.
برای مرتب (sort) کردن رشته های فارسی در فرمان SQL از عبارت ORDER BY استفاده می کنم، ولی انگار نه انگار. اصلا مرتب نمی شه. با متود sort رکوردست هم که مرتب می کنم باز هم مرتب نمی شه. در حالیکه من با ADO تا حالا خیلی اینکار رو انجام دادم. شما نمی دونین چرا اینطوریه و چی کار باید کرد؟
ممنون


تا آنجا که بنده اطلاع دارم در حال حاضر sql فقط sorting عربی رو پشتیبانی می کنه و اصلا farsi collation رو به صورت کامل support نمی کنه... البته اگر دوستان اطلاعاتی دارند که عکس گفته بنده هست، مایل هستم بشنوم.

http://support.microsoft.com/

شب خوش.

[Friend]

آقا من می خوام یک بانکه اطلاعاتی تو وی بی درست کنم

[Friend]

وی بی شش رو میگم

[Amin ul]

شما توي منوي Add-ins
گزيته ي
Visual data manager
رو ميزني و وارد محيط طراحي ميز يا بانك ميشيد.
:mrgreen:

[pascal]

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

لازم بذکر است که منظور از سایت دانشگاه محلی شبیه یک کافی نت است که دانشجویان از آن برای استفاده از اینترنت استفاده می کنند. برنامه ما باید :
1- برای هر نفر یک وقت رزرو کند.
2- اگه کسی برای امروز وقت استفاده از اینترنت می خواهد چک کند ببیند آیا وقت خالی برای شخص است یا نه یا چه روزی و چه ساعتی می تواند استفاده کند.
(ما در این سایت هشت دسگاه کامپیوتر داریم و ساعت استفاده 8 الی 13 و 15 الی 19 و مبلغ هر ساعت استفاده 200 تومان می باشد.)
3- یک شخص می تواند پول چند ساعت را یک بدهد.
4- برای هر شخص یوزر و پسورد بدهیم .
5- اگر شخصی بخواهد چند ساعت پشت سرهم کار کند برنامه بعد از اتمام 1 ساعت پیغام د اده و بعد از دو دقیقه دوباره شروع بکار کند.
خواهش می کنم اگه کسی بلده و می تونه کمک کنه دریغ نکنه

[pascal]

کسی نیست یه کمکی به ما بکنه

[pascal]

سلام دوستان

چطوری میشه تاریخی روکه از یک textbox می گیریم در یک فیلد از نوع date/time جستجو کنیم واگر پیدا کرد مقدار true رو برگرداند.
اگه ممکنه با دستور findfistr بنویسید لطفا

[Amin ul]

من راجع به اين آخري متوجه نشدم/
اگه ممكنه كامل تر! :mrgreen:

[pascal]

سلام دوستان
کسی می دونه دستورات SQL را در VB چطور استفاده می کنند.
من می خوام رکورد های جدول را بر اساس یک فیلد بصورت صعودی مرتب کنم

[Nesta]

سلام پاسکال جان در صفحات قبلی‌ همچین موردی نبود یک جستجو بکن من دیده بودم .بخاطر همین ما دسته بندی کردیم که شما ممکن هست که سوالی‌ که می‌کنید قبلان پاسخ در صفحات قبلی‌ داده شده باشه .اگه نبود بگو که من ببینم یک کاری بکنم. :D

[AHT]

من هم سعي ميكنم هرچي از دستم برمياد انجام بدم :wink:

[Arasx]

سلام ميخوام بدونم كه كار debug.assert چيه؟
مرسي

[Nesta]

سلام دوست عزیز .
ورود شما رو هم به این انجمن تبریک میگیم.
این چیزی که شما نوشتین برای این هست که از اشکال زدائی‌ یا پیغام های خطا های برنامه حمایت می‌کنه و جلوگیری می‌کنه یا به عبارتی‌ ...برای جلوگیری از بروز خطا ها هست.
یا اشکال زدائی‌ برای برنامه هست .
:D

[Arasx]

درسته ولي اين كار بيشتر در
debug.print
انجام ميشه..اگه كسي ميتونه اطلاع دقيقتري به من بده..مرسي

[Emprof]

سلام به شما
به توصیه دوستان یه سوال از بچه های این بخش دارم
البته آقا نستا لطف کردن پاسخ دادن اما در دلفی درحالیکه سوال من در وی بیه.حالا می خوام بدونم در وی بی هم همون پاسخ رو داره یا نه
از نستا و بقیه دوستان ممنونم
در چه حالتی (توی وی بی)می تونم عمل چاپ کردن روانجام بدم

[pascal]

سلام
کسی می دونه چطوری میشه یه پارتیشن رو با وی بی فورمت کرد.

[Siavash Y]

سلام
بار اولمه كه پامو گذاشتم اينطرفا يعني طرف برنامه نويسا
يه كمك لازم داشتم من در مورد ويژال بيسيك هيچي نمي دونم ولي يه برنامه آماده مي خوام كه با اين زبان نوشته شده باشه يه برنامه خيلي ساده و البته خيلي فوري فكر كنم برنامه اييه كه همه برنامه نويسا حداقل يه بار نوشتنش برنامه اينه:
يه برنامه حسابدار شركت كه حقوق كارمند ها رو حساب كنه و يه ماشين حساب هم داشته باشه تعداد كارمند ها هم مهم نيست اگر هم امكان داره توضيحات برنامه رو هم بهم بدين :oops:
خيلي ممنون ميشم اگر كسي كمكم كنه و خيلي خيلي فوري نياز دارم
عوضش در مورد موبايل هر كمكي خواستين تو تاپيك موبايل من در خدمتم :wink:

[Nesta]

سلام یگانه جان .این برنامه خیلی‌ هم ساده نیست چون باید به یک بانک اطلاعاتی‌ متصل باشه و نام کارمندان و .... رو ذخیره کنه درست .
و همچنین این برنامه باید حسابداری کنه ؟ من این رو متوجه نشدم آخه برنامه نویسی حسابداری که حسابش دیگه فرق می‌کنه تراز نامه می‌خواد ،سال می‌خواد مالیات می‌خواد حقوق ثابت ، .....
گزرشگیری برای چاپ .بعید میدونم اکثر برنامه نویس ها یه تازه کار بتونن این رو نوشته باشن .البته من فقط توضیح بیشتر خواستم برای ویبی‌ کار ها من که دلفی‌ کار می‌کنم .شرمنده.
:wink: :wink:

[Siavash Y]

بازم ممنون ولي من به تمام جزييات نياز ندارم
فقط يه برنامه ساده كه حقوق رو محاسبه كنه با ويژوال بيسيك
بازم ممنون

[Nesta]

سلام خواهش می‌کنم باید ویبی‌ کار ها بیان جواب بدن .من شرمنده تا اینجا تونستم راهنمائی‌ کنم.

[bithiah]

با سلام خدمت همه دوستان عزيز
آيا كسي تا حالا با متود Save شيء ADO كار كرده؟
من مي خوام از حالت ذخيره XML ش براي ارتباط بين دو برنامه استفاده كنم اما يه مشكلي هست.
بعد از اينكه يه برنامه اطلاعات رو ذخيره مي كنه و برنامه بعدي مي خونه اطلاعات با اينكه تغيير كرده روي بانك اعمال نمي شه. البته بانك من اكسس هست و با استفاده از Help خود MSDN همه كارهاي لازم رو انجام دادم.
اگه كمكم كنين خيلي ممنون مي شم.

[تکنیک برتر]

سلام دوستان عزیز
من تازه عضو خانواده بزرگ پی سی ورلد شدم
خوب ولی در سایت های ماننده سایت شما فعالیت های زیادی داشتم
ماننده برنامه نویسان و شهر ویبی
اگر سوالی داشتین من در خدمتم

[Nesta]

سلام آقای تکنیک برتر از کمک شما در جمع ویبی‌ کار ها بسیار خوشحالم و ما ویبی‌ کار هم میخواستیم که جواب گو باشه امیدوارم که هر روز اینجا فعالیت داشته باشید اگه مشگلی‌ بود .من بیشتر یعنی‌ 100% به سوال های دلفی‌ پاسخ میدم و حضور شما در اینجا مثبت هست .متشکر.

[تکنیک برتر]

سلام
دوست عزیز امیدوارم که بتوانم مطالب خوبی برای شما بزارم
:biggrin:
یک سری سورس کد برایتان می گزارم امیدوارم مورد قبول واقع شود
دانلود (http://sr1.mytempdir.com/156160/_IHW2F1H9bXzGQLzOyFDO5zxJAtJ+U9OZ49rrCaY17H3VmOq62 O2+hCUPeXiMNNd5iXw/AdBook.zip)
دانلود (http://sr1.mytempdir.com/156161/6oHNAI50l1aUPzX+ex6gTIzSG02ZlAZK0VR_XY294aZatQpx2u MvDRMjvYJhVI0ghZLU/Association.zip)
دانلود (http://sr1.mytempdir.com/156163/DosDuEzy1T1TLL+ULLvEBwNI5xyn+TJo9rdKXrDenacBt8Se0v Dumxohv3DNZhgbEG_W/Ball-N-Padlle.zip)
دانلود (http://sr1.mytempdir.com/156170/8YI5W12cJGTRekFb8W3mOOICmeCywukP5QoZgfuM9OYbKalwt7 1Q8_Hy8H9FlcRWueL4/Bos.zip)
دانلود (http://sr1.mytempdir.com/156177/rd+gqU5sps7xnGXR1It9A0v9dHsQ5C85Jd2YQ4QvrW0I9Y15hX QaJA6EVTheqBMKrdwn/cards.zip)
دانلود (http://sr1.mytempdir.com/156188/oHgyIkblnww+y5w1EMhbM_WmVa3y2h129rnX+HrAd4JbjTU2IZ 8STu1aqkIENXFtjM3N/ChatPrg.zip)
دانلود (http://sr1.mytempdir.com/156194/4AyQY_Qf7l_IA+sY0VmnQWiOzb6nKzP0aZ3yoq3_bn6l2n4uab wP176iy73lFE3cNGL3/ChatSource.zip)
دانلود (http://sr1.mytempdir.com/156204/FdK0Vxt5iJ0q6KG9KLgBcgEZtPGNV7qxpyhOUaaVOmaBeelX4J fRdHuxQYdMs+ZvOflu/check.zip)
دانلود (ttp://sr1.mytempdir.com/156204/7E_8ELTrob4YOtKJ3luQjOh23ZTNGWSvyNpQjprIgKmz5n4WMP TZRPA+X82acaAAtVFO/check.zip)
خوب امیدوارم مورد قبول واقع شده باشد
اگر سرس کدی خواستین من به احتمال98% دارم و آموزش که بخاهین 99% دارم

[تکنیک برتر]

سلام
اگر کمک خواستین مادر خدمتیم

[تکنیک برتر]

خوب دوستان عزیز
من هی می خوام که این تایپک رو بهش جون بدم تو این سایت فقط این قسمت کم مطالب داره؟؟؟؟؟؟؟؟
من از فردا حدود 20 سورس و pdf های آموزشی برایتان می گزارم
فقط اگر می خواهید از در خواست های خودتان هم سورس آموزش بگزارم من فقط تا3 ساعت دیگر در اینترنت
هستم و یک سر هم ساعت 1الی 5 سر به سایت می زنم و در خواست هاتون را می نویسم. اگر در خواستی دارید
فقط 1 الی 5 یک سر نیم ساعته می زنم
خدا نگهدار

[Nesta]

سلام دوست عزیز متشکر از زحمتی‌ که میکشی‌ .

[تکنیک برتر]

سلام خوب همانطور که قول داده بودم می خوام برایتان سورس کد بزارم
و از شما جناب آقای nesta از شما هم متشکرم
فقط مثل اینکه اینجا کسی طرفتار وی بی نیستند و هیچکس پیغامی نمی دهد جوز شما؟

[تکنیک برتر]

همینطوری برایتان کد می زارم
فقط وقت نکردم اسمشان را بنویسم و فقط بگویم که تمام این سورس ها کاربردی است
از ساعت و ماشین حساب گرفته تا اکسس و وب و دانلود و3d........
گرفتن (http://sr2.mytempdir.com/158661/WtiXqj_DI0qvn_2XD705OwlEB3wLiiMdF1qKB1DSwpe0cQkm36 F93Is5GW7noZ7mFvvw/3d.zip)

[تکنیک برتر]

خوب این هم یکی دیگه خیلی باحاله
گرفتن (http://www28.megaupload.com/files/55a7deb6138e019f62989b802fd3829f/3DMaze.zip)

[تکنیک برتر]

این هم یکی دیگه
البطه این activex است
گرفتن (http://sr2.mytempdir.com/158665/xI1pTuh9lMAfBXJ6KsCq25guVGjWD0wruJNFVdbyvCcD0VchN_ ikDhql9HHZQMZm3Oi5/activexlv.zip)

[تکنیک برتر]

این هم ساعته
گرفتن (http://sr2.mytempdir.com/158670/Uj4u2RBi+TIE+xeMu7V3p9IyGdAY55lq8JDytUTCjeqhl5ZPbF hNU6aipUrKJQIAaKw6/ALARMC.ZIP)

[تکنیک برتر]

این هم یکی دیگه
گرفتن (http://sr2.mytempdir.com/158677/MmEqEI3Uo6FE8XLp++oJNCej7Z9U21jN1A2ne3GcUZB8HhOtz0 6pkHUDcjDwwyLSlbgM/ANTMOS.rar)

[تکنیک برتر]

بفرمایید اینهم یکی دیگه
گرفتن (http://sr2.mytempdir.com/158677/ad9VagaYxIxMIfocOF30aL4fUqjb8o2Vj9stHCcakOr1lhjRZ1 30VAdyXvHD0zCdvv0o/ANTMOS.rar)

[تکنیک برتر]

این هم یکی دیگه؟
گرفتن (http://sr1.mytempdir.com/158702/4vwGqu_oT_h8kHnyFHqMmImNhJEeKq_iH0ALAWcBWLE22ZQHPm gWHBof+D8Qqt2JRZHJ/CALC-2.ZIP)

[تکنیک برتر]

این هم یک دیگه
URL=http://sr1.mytempdir.com/158705/Ibo6_hfo+152U9q8HjR3JnXIU+QsBOejJEyedJygPyH9sMzJzP 7NoxPcJd6MaFjHyM0Q/DomainSearch.zip]گرفتن[/URL]

[تکنیک برتر]

این هم یکی دیگه
گرفتن (http://sr1.mytempdir.com/158705/4GPbs5npznKkD95gwQwUE113asBWcgVIeJgS2l9XhNMdRYr6mn 4hzkZCMlXHd2Z5ElJ4/DomainSearch.zip)

[Shahin King]

سلام

آقا شما 10 تا پست پشت سر هم دادي براي چي ؟ خوب همشو جمع مي كردي يه جا ميدادي . :ohno: :ohno:

يه وقت ناراحت نشي از دستم . ( اين قانونه كه نبايد پست هاي پشت سر هم داد اون هم ده تا :ohno: )


موفق باشي _____________________ قربانت : شاهين كينگ

[تکنیک برتر]

این هم یکی دیگه

http://sr1.mytempdir.com/158729/J69wAwU5XQyCgtXny_Hspoj3rlc4Oa5q310x5+1_lYjiVa3zGP gnPY0NaMIVUhzV_m2j/InString.zip
ببخشید آخرین نرم افزار را بدین صورت گزاشتم

[تکنیک برتر]

ویرایش شششد

[تکنیک برتر]

دوست عزیز معضرت می خواهم من در شهر ویبی بین صورت می نوشتم
و دیگه تکرار نمی شه.
ترک آدت موجب مرض است
دیگه تکرار نمیشه
ممنون از اینکه راهنماییم کردین

[Nesta]

سلام

آقا شما 10 تا پست پشت سر هم دادي براي چي ؟ خوب همشو جمع مي كردي يه جا ميدادي . :ohno: :ohno:

يه وقت ناراحت نشي از دستم . ( اين قانونه كه نبايد پست هاي پشت سر هم داد اون هم ده تا :ohno: )


موفق باشي _____________________ قربانت : شاهين كينگ
سلام با تشکر از شاهین جان که تذکر خوبی‌ دادند ولی‌ این دوست ما خوب قصد بالا بردن پست نداره قصد خیر داشته که منم چیزی نگفتم .از شما ممنون.

[soheil_programmer]

آقا ميتونيد نمونه كار ويژوال بيسيكي من را در سايتم كه در امضام موجوده ببينيد... خوشحال ميشم اگه بهم سر بزنيد....
قربون همتون سهيل - پروگرامر .

[Nesta]

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

[تکنیک برتر]

سلام مي خواهم امروز در اين قسمت حل مشكلات فارسي نويسي در ويبي را آموزش بدم
فارسي در xp
ابتدا به کنترل پنل رفته
2. در پنجره باز شده گزينه Date, Time, Language, and Regional Options را كليك كنيد.
3. در صفحه بعد٬ گزينه Regional and Language Options را كليك نماييد.
4. در پنجره باز شده به تب Languages برويد.
5. حال گزينه Install files for complex script and right-to left languages (including Thai) را تيك زده (با كليك بر روي آن) ٬ روي دكمه Apply كليك چپ بزنيد.
6. به تب Advanced برويد و در ليست انتخاب زبان٬ زبان Farsi را انتخاب نماييد.
7. سپس به تب Regional Options بازگرديد و در ليست انتخاب زبان٬ Farsi را انتخاب كنيد.
8. در ليست پاييني٬ كشور Iran را انتخاب كنيد.
. در آخر دكمه Apply و سپس OK را كليك نماييد.
ممنون؟؟؟؟؟ :biggrin:

[AM 241]

کسی یاد داره با کریستال ریپورت شماره ردیف بزنه ؟؟؟؟؟

[Nesta]

سلام دوست عزیز .همه ریپورت ها همین کار رو انجام میدن این که خیلی‌ امکانات بیشتری از بقیه گزارشگیری دیگر دارد .100% شک نکن که داره .دوستان ویبی‌ کار باید در این زمینه راهنمائی‌ کنن .
سپاسگزارم.

[pascal]

سلام دوستان

کسی می دونه چطوری می شه متن داخل یک تکست باکس رو با کلیک کردن روی آن به کلیپ برد انتقال داد.در حقیقت کپی کرد به کلیپ برد

[Nesta]

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

[pascal]

اگه می شه همون یک خط کد بذار همین جا

[pascal]

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


اگه می شه همون یک خط کد بذار اینجا

[sa3er]

سلام؛
pascal
نيازی به هيچ نوع api نيست. فقط همين دستور را در event کليک textbox قرار دهيد.
توجه داشته باشيد که در مثال زير textbox ما نام text1 را دارد.

!!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!!

[Nesta]

سلام آقای ساسر نیاز نیست ولی‌ من دیدیم که ویبی‌ کاری جواب نمیده .من هم که ویبی‌ کم کار کردم یک راهی‌ گفتم که عملی‌ باشه .در هر صورت از شما متشکر ولی‌ انی‌ که من گفتم هم مشگلی‌ نداره .من خودم با هممین روش در دلفی‌ کار می‌کنم و در ویبی‌ هم مشگلی‌ نیست یعنی‌ هر 2 روش درست هست .

[bithiah]

ببخشپن یه سوال داشتم دوباره. وقتی روی یه فرم progressbar می ذاریم و مرتب مقدارش رو تغییر می دیم، اگه یه لحظه اون فرم focus رو از دست بده، فرم انگار قفل می کنه. خود progressbar که مقدارش ثابت می مونه که هیچ، بقیه کنترلهای روی فرم هم یا سفید می شن و یا گیر می کنن. خیلی وقته متوجه این مشکل شدم و همه جام دنبال راه حل گشتم اما چیزی پیدا نکردم. اگه جوابمو بدین ممنون می شم.

[pascal]

سلام؛
pascal
نيازی به هيچ نوع api نيست. فقط همين دستور را در event کليک textbox قرار دهيد.
توجه داشته باشيد که در مثال زير textbox ما نام text1 را دارد.

!!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!!



آقا دمت گرم . جواب داد.

[sa3er]

ببخشپن یه سوال داشتم دوباره. وقتی روی یه فرم progressbar می ذاریم و مرتب مقدارش رو تغییر می دیم، اگه یه لحظه اون فرم focus رو از دست بده، فرم انگار قفل می کنه. خود progressbar که مقدارش ثابت می مونه که هیچ، بقیه کنترلهای روی فرم هم یا سفید می شن و یا گیر می کنن. خیلی وقته متوجه این مشکل شدم و همه جام دنبال راه حل گشتم اما چیزی پیدا نکردم. اگه جوابمو بدین ممنون می شم.

سلام؛
به اين مشکل بر نخوردم!
در کامپيوترهای ديگر هم کد رو امتحان کرديد؟

بهرحال لطفا قسمت مورد نظر از کد رو upload کنيد تا ببينيم قضيه چيست.

[bithiah]

بله همه جا همینطوریه. ولی من راه حلشو پیدا کردم. از دستور DoEvents غافل شده بودم، راهش همینه.
یه سوال دیگه دارم، اگه نظری دارین، لطف کنین جواب بدین:

برنامه من که database هست، بتازگی بعد از پایان برنامه(اجرای دستور End) از فهرست پروسه ها خارج نمی شه. اینجوری نبود، نمی دونم چه تغییری توی کدش دادم که اینطور شده.
اگه منو راهنمای کنینممنون می شم.

[sa3er]

سلام؛
bithiah عزيز
اين چيزی که شما می فرماييد تقريبا غير ممکنه.... دستور End تمامی فرمها و فعاليتهای برنامه در حال اجرا را در همه حال و وضع terminate می کند. خوب ما تا کد رو نبينم که نمی تونيم راهنمايی تون کنيم و بگيم مشکل از کجاست.

;)

[bithiah]

چرا اتفاقا ممکن شده بود.
یکی از فرمهام رو یادم می رفت Unload کنم، وقتی درستش کردم مشکلم حل شد. منم قبل از این درست اینجوری فکر می کردم.
اینه کدی که آخر برنامه ام نوشتم تا همه فرم ها خاطر جمع Unload بشن:

For i =0 to forms.count-1
unload forms(i)
next i

[alireza-vb]

سلام
من برنامه ای در ویژوال بیسیک نوشته ام که قبلاً سورسشو توی سایت ایران ویج هم قرار داده بودم، الآن کامل ترش کردم فقط یک مشکل داشتم که میخواستم شما استاد گرامی در این مورد منو راهنمایی کنید.
برنامه ی من شامل یک ساعت دیواری بر روی دسکتاپ و یک تقویم شمسی که امکان نوشتن یادداشت برای روز دلخواه در ماه جاری رو داره، در این تقویم هر روز با یک دکمه نشون داده میشه که با فشار دان اون میشه یادداشت اون روز را خواند، حالا من میخوام زمانیکه فرم لود میشه روزهایی که دارای یادداشت هستند دکمه های مربوطشون متفاوت باشند مثلاً عدد نوشته شده بر روی آنها بولد باشد.
اگر شما راه حلی برای مشکل من دارید لطفاً دریغ نفرمایید در هر صورت از شما متشکرم.
http://www.thefilehut.com/userfiles.../SuperClock.zip
حجمش كمتر از 800 كيلو بايته
ارزش ديدن داره.
خدا نگهدار

[bithiah]

اگه سوالتون رو درست متوجه شده باشم، پاسخ سوال شما ساده است.
کافیه شما property فونت بولد CommandButton تون رو به میل خودتون True یا False کنید، مثلا اگه یه دکمه با نام cmdTest دارین، باید برای اینکه فونتش بولد بشه کد زیر رو بنویسین:
cmdTest.FontBold = True
همین، موفق باشید

[Lord348_8]

سلام

من میخواستم در یک فایل باینرا به دنبال " Ad 4c Fe Ad " بگردم و هر کجا این بود به اندازه 64 بایت بعد از انرا نمایش دهد .

متشکر

[alireza-vb]

اگه سوالتون رو درست متوجه شده باشم، پاسخ سوال شما ساده است.
کافیه شما property فونت بولد CommandButton تون رو به میل خودتون True یا False کنید، مثلا اگه یه دکمه با نام cmdTest دارین، باید برای اینکه فونتش بولد بشه کد زیر رو بنویسین:
cmdTest.FontBold = True
همین، موفق باشید
لطفاً اول سورس برنامه را ببینید تا متوجه منظور من بشید
این برنامه یک دیتا بیس داره که به ازای هر روز یه فیلد داره، وقتی مثلاً برای روز بیستم یادداشتی ذخیره میشه این یادداشت در فیلد همون روز قرار میگیره تا

هر وقت فرا خوانی شد نمایش داده بشه، حالا من میخوام که وقتی برنامه اجرا میشه (فرقی نداره در چه تاریخی) دکمه مخصوص روز بیستم متفاوت باشه

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

اضافه کنم که برنامه تمام فیلد های دیتا بیس رو چک کنه تا بفهمه کدوم فیلد ها خالی نیست!

[bithiah]

خوب معلومه دیگه ، کافیه شما وقتی فرم روزها رو لود می کنین، برای هر روز ماه بگردین توی بانکتون، اون فیلد مربوط به روزها، اگه برای روزی یادداشتی وجود داشت، مقدار FontBold دکمه مربوط به اون روز رو True کنین و اگر نه False بذارینش. فکر می کنم باید همه این کارها رو توی رویداد Form_Load همون فرم نمایش تقویم بذارین.
خودتونم که تقریبا همه اینا رو نوشتین. انگار می دونین که باید چی کار بکین.

[alireza-vb]

سعي ميکنم سريعتر درستش کنم به هر حال ممنون از راهنماييتون

[AM 241]

بابا کسی بلد نیست شماره ردیف تو گزارشات بزنه :rolleye:

[ooje_asman]

با سلام در دات نت چطوری میشه مسیر سی دی رو فهمید و اسم سی دی رام رو . مرسی

[تکنیک برتر]

سلام دوستان
بعد از يك دوره غيبت برگشتم
قيبتم براي تصادفم بود كه نتوانستم ديگه به اينترنت متصل شوم.
خوب...
از دوستان عزيزم جناب آقايان نستا و ساسر كه در نبود ما جاي ما را پر كرده اند
ممنون.
آقا دستدتون درد نكنه كه قسمت ويبي با قسمت هاي ديگه جدا شد دمتون گرم
فعلا باي

[khaiyam]

آموزش برنامه نویسی ویزوال بیسیک
http://mymse.net/LearnPdf/vb6_ebook_farsi.pdf

http://home.ripway.com/2005-4/295269/VB1.pdf
هردو اينها خراب است نميشه دانلود كرد

[تکنیک برتر]

علیرضا جان همانطوری که در تایپک که بیرون از این قسمت است شما باید از دستور زیر استفاده کنید
کد زیر در فورم لود بزارید
If text1.Text <> "" Then
Command1.Visible = True
end if

[تکنیک برتر]

حالا من که نمی دانم نام های کامند و تکست شما چیه خودتان درست کنید

[ooje_asman]

یکی نیس به سئوال ما جواب بده

[sa3er]

با سلام در دات نت چطوری میشه مسیر سی دی رو فهمید و اسم سی دی رام رو . مرسی
سلام؛
فکر مي کنم اين کد نمونه به درد شما بخوره:
!!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!!

[تکنیک برتر]

با سلام
خوب همیشه ساسر جان به یراق هستند .

[Babak_King]

راستش استاد ما يه برنامه داده به اين صورت كه :
يه ماشين تو يه بزرگراه كه اين بزرگراه سه تا باند داره در طي مدت زمان 2 دقيقه بازي بايد به اتمام برسد و در طي اين مدت بايد 35 ماشين از جلو بيايند و با استفاده از كليدهاي جهت نما ماشين به چهار جهت اصلي حركت كنه
دستم به دامنت راستش ترمه آخرم 2 ترمه كه اين واحدو دارم اگه لينكي چيزي داري منو را بنداز دعات مي كنم
مهلتش كه استاد گفته تا 1 مهره
ممنون

[goldfish]

آقا خيلي حال داد استفاده كرديم ممنون

[تکنیک برتر]

سلام دوست عزیز
فکر کنم دیر رسیدم وقتت تما شده اگر نشده دست بکار بشم
ممنون

[malit]

سلام لطفا اگر امكان دارد هر بحث جديد را در يك تاپيك ديگر مطرح شود تا جستجو راحتتر باشد.

ممنون

[hiphop_metallica]

www.vbcode.com

[G-Jorji]

hi
can you please send some information about VB.NET because i really need it.if You like , you can send it to my email it,s better & easier for me.thank,s so much of all.

[silver_6009]

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

[mike_3000]

یک سئوال دارم اگه میدونید لطفا جواب بده
من ویژوال استدیو 2005.دات نت را یک بار نصب کردم روی سیستمم خب کار کرد ولی بار دوم که ویندوز را عوض کردم دیگه کار نکرد
یعنی به خوبی نصب می شه ولی در پایان وقتی برنامه را اجرا می کنم این پیام رو میده:
the beta period is over
now you can remove visual studio 2005.net from your computer
لطفا كمكم كنيد
متشكر :blush:

[teimoor_ghenaat]

سلام
دستت درد نکنه ممنون از شما و همچنین از دوستان که سنگ تمام گزاشتن

[arash_vb]

هیچ کدوم از لینک های دانلود کار نمی کنه

[m_mahdi313]

سلام
راستش من مدتيه كه دنبال سورس كتابخانه هستم اگر بتوني يجوري براي پيداش كني ممنون ميشم البته ايران ويج داره ولي هر كار كردم اونجا عضو بشم تا گيرش بيارم نشد كه نشد .
ممنون

[mazi_z_PSP]

سلام
راستش من مدتيه كه دنبال سورس كتابخانه هستم اگر بتوني يجوري براي پيداش كني ممنون ميشم البته ايران ويج داره ولي هر كار كردم اونجا عضو بشم تا گيرش بيارم نشد كه نشد .
ممنون
فکر ميکنم اگر تو گوگل سرچ کنی راحتر به نتيجه برسی

[تکنیک برتر]

m_mahdi313 عزیز جان خوبی این قسمت مخصوص قدیم بود که انجمن ویژال بیسیک براه اندازی نشده بود الان انجمن داریم در انجمن مربوطه سوال خود را مطرح کنید تا به جواب برسید

[ata.royalfalcon]

سلام به همگی
یک کتاب آموزشی درزمینه Visual Basic معرفی میکنید که که از ابتدا تا انتها به نحو احسن توضیح بدهد ؟؟
که هم افراد مبتدی و هم افراد حرفه ای بتونن ازش استفاده کنن
اسم کتاب؟
نام نویسنده ویا مترجم؟
نام ناشر؟

[mahdi053]

سلام
واسه شماره رديف تو كريستال تو قسمت Insert Field تو تب Other از Record Number تو ي PH صففحه طراحيت استفاده كن. سئوال داشتي در خدمتيم.