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

واضح آرشیو وب فارسی:سایت ریسک: rezapassword01-01-2008, 06:49 PMسلام اساتید حالتون خوبه اقامن برا برنامه ای که دارم مینویسم چند تا کد میخوام که اگه کمکم کنید ممنون میشم کد اول : میخوام وقتی روی یک دکمه کلیک شد یک فرم به اهستگی از بالا قسمت ساعت ویندوز ( سیستم ترای ) بالا بیاد و با کلیک بر روی دکمه 2 پایین بره کد دوم : دانلود از اینترنت مثل دانلود منیجر ها ( منضورم داشتن پروگرس بار هست ) کد سوم : چه طور فایلی با فرمت خاص بسازم برای خودم اختصاصی مثل .ggg که توش فایل متنی باشه کد چهارم : میخوام برنامه یه فایل متنی رو از مسیر خاص در فرم نمایش بده پیشا پیش سپاسگذارم از اساتید rezapassword02-01-2008, 09:56 AMعزیزی نیست جواب من بده عجله دارم والا _H2_02-01-2008, 10:45 AMسلام الآن VS ندارم و تازه ویندوز عوض کردم .... به همین دلیل فقط نمیتوانم کد خوبی بگذارم. 1) یک تایمر ناقابل که Location فرم را مدام تغییر دهد ووقتی به حد خاصی رسید فرم را مخفی کنید و به کمک NotifyIcon آیکونی در taskbar نشان دهید .... و باعکس .... 2) با اول VS را نصب کنم تا بعد ببینم چی میشه ... 3) با کمک کلاسس System.io.FileStream و ... میتوانید در هر فایل متنی برزید و یا بخوانید، پسوند و نام هم که به خودتان مربوط میشود و کافیست هرچه دوست دارید بدهید..... ولی اگر منظورتان دبل کلیک روی فایل و بازشدن برنامه شما باشد کمی فرق خواهد کرد .... 4) مثل همان بالا با کمک کلاسس فوق متن را بخوانید و در TextBox نمایش دهید.... خیلی ساده است بدون شک اگر جستجو کنید میتوانید نمونه کد خواندن و نوشتن متنی را بیابید، چون خودم یادم می آید دوستان کدش را گذاشته بودند. بای! rezapassword02-01-2008, 12:41 PMممنون که جواب دادی ولی تا نمونه کد نزاری من نمیفهمم shalineh02-01-2008, 04:51 PMکد اول : میخوام وقتی روی یک دکمه کلیک شد یک فرم به اهستگی از بالا قسمت ساعت ویندوز ( سیستم ترای ) بالا بیاد و با کلیک بر روی دکمه 2 پایین بره به پروژه ات 2 فرم اضافه کن. روی فرم اول دو تا Button و یک تایمر قرار بده. سپس به ترتیب کدها رو وارد کن: ابتدا در بخش تعاریف، عبارت مقابل رو بنویس: Dim Loading As Boolean سپس در روال کلیک Button1 کدهای زیر رو وارد کن: If Form2.Visible = True Then Exit Sub Form2.Show Form2.Top = My.Computer.Screen.WorkingArea.Height Form2.Left = My.Computer.Screen.WorkingArea.Width - Form2.Width Loading = True Timer1.Interval = 1 Timer1.Enabled = True در روال کلیک Button2 هم این کدها رو بنویس: If Form2.Visible = False Then Exit Sub Loading = False Timer1.Interval = 1 Timer1.Enabled = True در نهایت در روال رویداد Timer1_Tick این کدها رو بنویس: If Loading = True Then Form2.Top = Form2.Top - 10 If Form2.Top < My.Computer.Screen.WorkingArea.Height - Form2.Height Then Timer1.Enabled = False End If Exit Sub End If Form2.Top = Form2.Top + 10 If Form2.Top > My.Computer.Screen.WorkingArea.Height Then Form2.Close Timer1.Enabled = False End If برنامه رو اجرا کن و نتیجه رو ببین. درسته؟ shalineh02-01-2008, 05:12 PMکد دوم : دانلود از اینترنت مثل دانلود منیجر ها ( منضورم داشتن پروگرس بار هست ) کافیست در تابع My.Computer.Network.DownloadFile پارامتر ShowUI رو به True ست کنی. میبینی که یه پروگرس خوشگل در هنگام دانلود کردن ظاهر میشه ( بصورت پیش فرض در وسط فرم parent ). کد سوم : چه طور فایلی با فرمت خاص بسازم برای خودم اختصاصی مثل .ggg که توش فایل متنی باشه این کار ساده ترین عمل ممکن هست. مثلا کد زیر یه فایل متنی رو با پسوند مورد نظر و دلخواه در درایو C ایجاد میکنه: My.Computer.FileSystem.WriteAllText("c:MyFile.ggg", "My First Text", True)i یا IO.File.WriteAllText("c:MyFile.ggg", "My First Text")i کد چهارم : میخوام برنامه یه فایل متنی رو از مسیر خاص در فرم نمایش بده اینم مثل کد قبل ساده هست مثلا: Dim MyStr As String = My.Computer.FileSystem.ReadAllText("c:MyFile.ggg")i rezapassword02-01-2008, 10:59 PMسلام شالینه جان ممنون شما همیشه به من لطف داشتی و کمک کردی من از کد 2 خودم استفاده میکنم ولی میخوام که پوش و استاپ و دیگر چیز ها داشته باشه با یه پروگرس بار تر و تمیز از کد 4 هم چیزی نفهمدم کجا بزارمش ها در ضمن در کد 3 چه کار کنم که وقتی نوشته جدد رو از طریق یه تکس باکس وارد کردم کد قبلی پاک بشه اگه بازم کمک کنی بیشتر شرمنده میکنی قربانت رضا shalineh03-01-2008, 04:26 PMمن از کد 2 خودم استفاده میکنم ولی میخوام که پوش و استاپ و دیگر چیز ها داشته باشه با یه پروگرس بار تر و تمیز بسیار خب، پس باید یه دونه خودمون بسازیم. پس به ترتیبی که میگم عمل کن. ابتدا یه فرم ایجاد کن. روی فرم 4 عدد Label و 3 عدد Button و یک progressBar و در نهایت یک تایمر قرار بده. اسامی پیش فرض رو تغییر نده. کنترلها رو مانند شکل زیر روی فرم بچین: http://shalineh.parsaspace.com/p1.jpg در قسمت تعاریف کدهای زیر رو قرار بده: Private Downloaded As Double Private Temp_Downloaded As Double Dim Pause As Boolean = False در روال Form_Load این کدها رو بنویس: Button1.Text = "Start"i Button2.Text = "Pause"i Button3.Text = "Cancel"i Label1.Text = ""i Label2.Text = ""i Label3.Text = ""i Label4.Text = ""i در روال Form_FormClosing و Button3_Click کد End رو بنویس. در روال Button2_Click کد زیر رو بنویس: If Pause = False Then Pause = True Else Pause = False End If در روال Button1_Click هم این کد رو بنویس: Start_Download("shalineh.parsaspace.com/DT_Setup.exe", ProgressBar1, "c:DT_Setup.exe")i برای روال Timer_Tick هم این کدها رو بنویس: Temp_Downloaded = Downloaded / 1000 Downloaded = 0 Label4.Text = "Speed: " & Format(Temp_Downloaded, "#,###,###,###0.00") & " Kb/sec"i در نهایت تابع زیر رو به برنامه اضافه کن: !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! برنامه رو اجرا کن. مطابق شکل میبینی که برنامه داره کار میکنه: http://shalineh.parsaspace.com/p2.jpg shalineh03-01-2008, 04:34 PMاز کد 4 هم چیزی نفهمدم کجا بزارمش ها ببین. مثلا کد 4 رو در روال کلیک یک Button بصورت زیر قرار بده: ( روی فرم یک Button و یک TextBox قرار بده ) Textbox1.text=My.Computer.FileSystem.ReadAllText("c:MyFile.ggg" )i در ضمن در کد 3 چه کار کنم که وقتی نوشته جدد رو از طریق یه تکس باکس وارد کردم کد قبلی پاک بشه اون عبارت True رو که Bold کردم، به False تغییر بده: My.Computer.FileSystem.WriteAllText("c:MyFile.ggg ", "My First Text", True)i Change to this:i My.Computer.FileSystem.WriteAllText("c:MyFile.ggg ", "My First Text", False)i سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود

این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]

[مشاهده در: www.ri3k.eu]

[تعداد بازديد از اين مطلب: 307]