نمونه برنامه های VB6 -آموزش از روی مثال

[saeedsmk]

دستت درد نکنه

 

[Mehdi]

من يدونه Tutorial درباره نحوه كار با ساكت ها نوشتم نميدونم ديديد يا نه
اگه خواستيد لينك ميدم
فكر ميكنم چيز كامليه چون نحوه ساختن تروجان رو گفتم

 

[darklord]

خواهش میکنم.

مهدی جان لینکش رو حتما بزار...

 

[balabala]

خواهش میکنم.

مهدی جان لینکش رو حتما بزار...

عالی بود، تشکر
یواش یواش داره برای خودش وردی میشه!

 

[Mehdi]

متاسفانه باید لینک رو اینجوری بدم
http://iranvig.com/modules.php?name=News&file=article&sid=1047&mode=&order=0&thold=0

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

 

[darklord]

PDF بازنگری اول برنامه MyNotes :

http://www.darklord.persiangig.com/document/VB6-part1.1-MyNote-[BSD].rar

 

[black_jack_of_black_city]

دم همتون گرم خسته نباشین

 

[balabala]

بزودی در این تاپیک نمونه برنامه جدید ارائه خواهد شد.

 

[javad2000]

ببخشيد بنده از ويندوز Me استفاده مي كنم كه فارسي ساز هم روش نصب شده و براي فارسي نويسي در برنامه هايي نظير Word و Excel هيچ مشكلي ندارم، اما هر چه مي كنم، در ويژوال بيسيك، نه مي توانم فارسي بنويسم، نه اصلاً گزينه Right-to-left هيچ يك از Object ها را مي توانم به True تبديل كنم.

لطفاً اگر كسي علت را مي داند، راهنمايي كند.
با تشكر

 

[balabala]

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

 

[Atoon]

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

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

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

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then SendKeys "{TAB}": KeyAscii = 0
End Sub





متشکرم.:happy:

 

[saeedsmk]

سلام خوب هستيد
از كد زير استفاده كن

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then Text2.SetFocus
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then command1.SetFocus
End Sub

Private Sub command1_click()
....
....
....
 text1.SetFocus
End Sub

 

[Atoon]

سلام خوب هستيد
از كد زير استفاده كن ...
[/code]

دست شما درد نکنه . خیلی ممنونم.:happy: :lol:

 

[asandownload]

جالب بود بازم از اين كارها بكنيد

 

[balabala]

جالب بود بازم از اين كارها بكنيد

ممنون


.

 

[darklord]

چه عجب این تاپیک دوباره اومد بالا... !

 

[Mehdi]

من حدود 70 تا برنامه نوشته بودم قبلا که همشون تو یه سایت دیگست ,
اینجا لیست کنم هم زیاد طول میکشه
این سایت رو که دیدید www.iranvig.com تو اینجا هست , برنامه های مختلفی گزاشتم , جوون بودیم نوشتیم,
کنترل ویندوز , پسورد سندر یاهو مثل مجیک پی اس , برنامه اسمایلی مثل qsmile البته به کاملی اون نیست ,
برنامه کنترل کافی نت , و کلی برنامه دیگه که یادم رفته

 

[Ali4455]

سلام
مي خواستم بدانم آيا راهي وجود دارد كه بتوان دكمه هاي Message Box مثل Ok,Cancel,Yes,No,... را در vb 6 فارسي كرد. ممنون مي شوم راهنمايي كنيد.

 

[rami]

سلام
چطوری می تونیم برنامه ای رو که نوشتیم بصورت EXE سیو کنیم؟
من که چند بار امتحان کردم Make ... EXE تو منوی File قابل استفاده نبود (خاکستری شده بود )

 

[balabala]

سلام
مي خواستم بدانم آيا راهي وجود دارد كه بتوان دكمه هاي Message Box مثل Ok,Cancel,Yes,No,... را در vb 6 فارسي كرد. ممنون مي شوم راهنمايي كنيد.

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

سلام
چطوری می تونیم برنامه ای رو که نوشتیم بصورت EXE سیو کنیم؟
من که چند بار امتاحان کردم Make ... EXE تو منوی File قابل استفاده نبود (خاکستری شده بود )

مگه ممکنه؟ :blink: