تاپيك سوالات و جواب ها در VB.Net

[Netsky]

با عرض سلام و خسته نباشيد خدمت تمامي دوستان عزيز و بزرگوار .
بنده چند مدت پيش تاپيكي رو ايجاد كردم كه قرار بود داخلش يه كار گروهي انجام بشه ولي بنا به دلايلي نشد . حالا تصميم گرفتم با ايجاد كردن اين تاپيك يه معذرت خواهي از تمامي دوستاني كه در اين مدت به اون تاپيك توجه داشتن به عمل بيارم . اين تاپيك حقيقتا جزوي از اون پروژه بود و به دليل اينكه اون پروژه نيمه تموم باقي موند ، بنده تصميم گرفتم سوالات و جوابهايي رو كه براي اون بخش از برنامه آماده كرده بودم رو در اين تاپيك بگذارم تا هر دوستي كه جواب سوالي رو نميدونست بتونه انشالله از داخل اين تاپيك پيدا كنه . البته هدف اين بوده كه سوالاتي كه به دفعات پرسيده ميشه در اين تاپيك جمع آوري بشه تا حداقل شاهد كمتر شدن سوالات تكراري هم باشيم .

ولي قبل از اينكه تاپيك رو شروع كنيم ، به اين چندتا نكته توجه كنيد :
1- اين تاپيك محلي براي قرار گيري سوالات و جوابهاي مربوط به زبان VB.Net ميباشيد . اين سوالات ميتوانند از بين تاپيك هاي همين سايت و يا سايت هاي ديگر باشند ( احيانا اگر از سايت هاي ديگر سوال و جوابي پيدا كرديد ، لينك آن سايت را حتما قرار دهيد ) . البته ميتوانند زاده ذهن شما نيز باشند . يعني ميتوانيد خودتان سوال در نظر گرفته و سپس به آنها جواب دهيد .
2- از طرح كردن سوال و جواب براي مباحث بسيار پيش پا افتاده خودداري كنيد . به عنوان مثال :

سوال : چگونه ميتوانم تكست باكس را فقط خواندني كنم ؟
جواب : خاصيت Read Only تكست باكس خود را برابر True قرار دهيد .
3- هر سوال و جوابي كه در پست شما فرستاده ميشود بايد دقيقا مشخص كنيد كه كدام قسمت سوال و كدام قسمت جواب ميباشيد . به عنوان مثال :

سوال : چگونه ميتوانم تاريخ را از ميلادي به شمسي تبديل كنم ؟
جواب : شما ميتوانيد از كد زير براي انجام اينكار استفاده كنيد :
.......
4- كدهاي خود را در تگ Code قرار دهيد تا از بهم ريختن كد جلوگيري شود . به عنوان مثال :


Messagebox.show("Welcome")
5- از پرسيدن سوال در تاپيك خودداري كنيد . براي بدست آوردن جواب خود ابتدا جستجو كرده و در صورت بدست نيامدن نتيجه مورد نظر يك تاپيك جداگانه ايجاد كنيد .
6- در صورتي كه سوالي در مورد يك كد داشتيد ، با استفاده از پيام خصوصي با فرد ارسال كننده كد صحبت كنيد .
7- ضمنا از وارد شدن به بحث هاي حاشيه اكيدا خودداري كنيد و بحث هاي خود را در يك تاپيك جداگانه مطرح كنيد .
8- از ارسال پست هاي حاوي تشكر نيز خودداري كنيد و بجاي اين كار دكمه تشكر را بفشاريد .
9- از ارسال پست هايي حاوي جملات زير امتنا كنيد :

اينو كه همه بلدن .
سوال و جوابهاتون خيلي مبتديه .
خواهشن يكي فلان كد رو برام توضيح بده .
و امثالهم ......

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

[Netsky]

اين يك پست آموزشي است
سوال : چطور ميتوانم برنامه خود را به منظور اجراي اتوماتيك پس از بالا آمدن ويندوز تنظيم كنم؟
جواب : شما ميتوانيد برنامه خود را از طريق رجيستري ويندوز به منظور راه اندازي اتوماتيك به ثبت برسانيد .


Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Run", Application.ProductName, Application.ExecutablePath)
توضيح : ابتدا بايد نيم اسپيس Microsoft.Win32 تعريف شود .

[Netsky]

سوال : آيا ميتوان بدون اينكه .Net Framework در سيستم مقصد وجود داشته باشد ، برنامه اي را كه با دات نت نوشته ام ، اجرا كنم ؟
جواب : شما ميتوانيد بوسيله برنامه هايي نظير Xenocode اين كار را انجام دهيد .

[Netsky]

جواب : چگونه ميتوانم يك فايل متني بسازم و درون آن متن مورد نظرم را بنويسم ؟
جواب : براي انجام اينكار شما ميتوانيد از كلاس StreamWriter استفاده كنيد .


Dim Writer As StreamWriter = File.AppendText("C:\My Text.txt")
With Writer
.WriteLine("Hello")
.WriteLine("Im a Text File")
.Flush()
.Close()
End With

توضيح : ابتدا بايد نيم اسپيس System.IO تعريف شود .

[Netsky]

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


Dim Reader As StreamReader = File.OpenText("C:\My Text.txt")
MessageBox.Show(Reader.ReadToEnd())

توضيح : ابتدا بايد از نيم اسپيس System.IO استفاده شود .

[mvb_mehran]

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

[Netsky]

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

5- از پرسيدن سوال در تاپيك خودداري كنيد . براي بدست آوردن جواب خود ابتدا جستجو كرده و در صورت بدست نيامدن نتيجه مورد نظر يك تاپيك جداگانه ايجاد كنيد .
واقعا شما پست اول رو خوندي ؟؟؟ :عصبانی:
خواهشا پستت رو پاك كن .

[Netsky]

سوال : چگونه ميتوانم آيكون برنامه خودم را كنار ساعت ويندوز نشان دهم ؟
جواب : به منظور انجام اينكار شما بايد از كنترل NotifyIcon موجود در خود ويژوال استديو استفاده كنيد .


NotifyIcon1.Icon = Me.Icon
توضيح : اين كد بايد در رويداد Form_Load نوشته شود .

[Netsky]

سوال : چگونه ميتوانم تكست باكس را عددي كنم . يعني از ورود مقادير حروفي جلوگيري كنم ؟
جواب : براي انجام اين كار بايد به محض ورود مقادير حروفي تكست باكس هندل تكست باكس را فعال كنيد تا از ورود اينگونه مقادير جلوگيري شود . البته بايد شرطي را در كد قائل شويم تا از عملكرد كليد Backspace جلوگيري نشود .


If Not IsNumeric(e.KeyChar) And e.KeyChar <> Convert.ToChar(Keys.Back) And e.KeyChar <> Convert.ToChar(Keys.Delete) Then
e.Handled = True
End If

توضيح : اين كد بايد در رويداد Key_Press تكست باكس مورد نظر وارد شود .