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

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

پیشا پیش سپاسگذارم از اساتید

عزیزی نیست جواب من بده عجله دارم والا

سلام
الآن VS ندارم و تازه ویندوز عوض کردم .... به همین دلیل فقط نمیتوانم کد خوبی بگذارم.
1) یک تایمر ناقابل که Location فرم را مدام تغییر دهد ووقتی به حد خاصی رسید فرم را مخفی کنید و به کمک NotifyIcon آیکونی در taskbar نشان دهید .... و باعکس ....

2) با اول VS را نصب کنم تا بعد ببینم چی میشه ...

3) با کمک کلاسس System.io.FileStream و ... میتوانید در هر فایل متنی برزید و یا بخوانید، پسوند و نام هم که به خودتان مربوط میشود و کافیست هرچه دوست دارید بدهید.....
ولی اگر منظورتان دبل کلیک روی فایل و بازشدن برنامه شما باشد کمی فرق خواهد کرد ....

4) مثل همان بالا با کمک کلاسس فوق متن را بخوانید و در TextBox نمایش دهید.... خیلی ساده است

بدون شک اگر جستجو کنید میتوانید نمونه کد خواندن و نوشتن متنی را بیابید، چون خودم یادم می آید دوستان کدش را گذاشته بودند.
بای!

ممنون که جواب دادی ولی تا نمونه کد نزاری من نمیفهمم

کد اول : میخوام وقتی روی یک دکمه کلیک شد یک فرم به اهستگی از بالا قسمت ساعت ویندوز ( سیستم ترای ) بالا بیاد و با کلیک بر روی دکمه 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

برنامه رو اجرا کن و نتیجه رو ببین. درسته؟

کد دوم : دانلود از اینترنت مثل دانلود منیجر ها ( منضورم داشتن پروگرس بار هست )
کافیست در تابع 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

سلام شالینه جان ممنون
شما همیشه به من لطف داشتی و کمک کردی
من از کد 2 خودم استفاده میکنم
ولی میخوام که پوش و استاپ و دیگر چیز ها داشته باشه با یه پروگرس بار تر و تمیز
از کد 4 هم چیزی نفهمدم کجا بزارمش ها
در ضمن در کد 3 چه کار کنم که وقتی نوشته جدد رو از طریق یه تکس باکس وارد کردم کد قبلی پاک بشه
اگه بازم کمک کنی بیشتر شرمنده میکنی
قربانت رضا

نقل قول:

---

من از کد 2 خودم استفاده میکنم
ولی میخوام که پوش و استاپ و دیگر چیز ها داشته باشه با یه پروگرس بار تر و تمیز

---

بسیار خب، پس باید یه دونه خودمون بسازیم. پس به ترتیبی که میگم عمل کن.
ابتدا یه فرم ایجاد کن. روی فرم 4 عدد Label و 3 عدد Button و یک progressBar و در نهایت یک تایمر قرار بده. اسامی پیش فرض رو تغییر نده. کنترلها رو مانند شکل زیر روی فرم بچین:

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

در قسمت تعاریف کدهای زیر رو قرار بده:

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

در نهایت تابع زیر رو به برنامه اضافه کن:

کد:

---

Public Function Start_Download(ByVal sURL As String, ByVal pProgress As ProgressBar, ByVal Filename As String) As Boolean
        Dim URLReq As Net.HttpWebRequest
        Dim URLRes As Net.HttpWebResponse
        Dim FileStreamer As New IO.FileStream(Filename, IO.FileMode.Create)
        Dim bBuffer(999) As Byte
        Dim iBytesRead As Integer
        Label1.Text = "Frome: " & sURL
        Label2.Text = "To: " & Filename
        Application.DoEvents()
        Try
            URLReq = System.Net.WebRequest.Create(sURL)
            URLRes = URLReq.GetResponse
            Dim sChunks As IO.Stream = URLReq.GetResponse.GetResponseStream
            pProgress.Value = 0
            pProgress.Maximum = URLRes.ContentLength
            Timer1.Enabled = True
            Do
                If Pause = True Then
                  Timer1.Enabled = False
                    GoTo Pausing
                Else
                    Timer1.Enabled = True
                End If
                iBytesRead = sChunks.Read(bBuffer, 0, 1000)
                Downloaded += iBytesRead
                Label3.Text = "Downloaded " & Format(ProgressBar1.Value / 1024, "#,###,###,###0.00") & _
 " Kb From " & Format(ProgressBar1.Maximum / 1024, "#,###,###,###0.00") & " kb"
                Application.DoEvents()
                If pProgress.Value + iBytesRead <= pProgress.Maximum Then
                    pProgress.Value += iBytesRead
                Else
                    pProgress.Value = pProgress.Maximum
                End If
                FileStreamer.Write(bBuffer, 0, iBytesRead)
Pausing:
                Application.DoEvents()
            Loop Until iBytesRead = 0
            pProgress.Value = pProgress.Maximum
            Label4.Text = ""
            Downloaded = 0
            Timer1.Enabled = False
            sChunks.Close()
            FileStreamer.Close()
            Return True
        Catch
            MsgBox(Err.Description)
            Timer1.Enabled = False
            Return False
        End Try
 End Function

---

برنامه رو اجرا کن. مطابق شکل میبینی که برنامه داره کار میکنه:

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

نقل قول:

---

از کد 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