ايجاد پارامتر براي برنامه و بكارگيري آن در ويندوز (بصورت ابتدايي)

[ROSTAM2]

اينبار قراره برنامه اي بسازيم شبيه NotePade كه فقط فايل متني txt. رو بتونيم باهاش باز كنيم و تنها كارايي پارامترهادر يك برنامه مد نظر ماست

اين برنامه توسط پارامترها رنگ فونت TextBox را تغيير داده و اطلاعات فايل متني را در آن نمايش مي دهد (همين)

http://axgig.com/images/31400881101821796382.jpg

ابتدا از طريق Project Properties --> Application TabPage --> Application Events

http://axgig.com/images/88969304492048143960.jpg

(MyApplicationEvents) را از قسمت Objects انتخاب و از قسمت Procedures رويداد Startup را انتخاب كنيد:

http://axgig.com/images/21858984467548735767.jpg

http://axgig.com/images/44361781756810572342.jpg

و اين كد ها را در اين رويداد بنويسيد:


Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupE ventArgs) Handles Me.Startup
Dim Path As String = "", Parameter As String = ""
If e.CommandLine.Count >= 1 Then
Path = e.CommandLine(0)
End If
If e.CommandLine.Count >= 2 Then
Parameter = e.CommandLine(1)
End If
With Form1
Select Case Parameter
Case "/blf", "/BlF", "/BLF"
.TextBox1.ForeColor = Color.DarkBlue
Case "/grnf", "/GrnF", "/GRNF"
.TextBox1.ForeColor = Color.DarkGreen
End Select
If Len(Path) = 0 Then Exit Sub
.Text = "ROSTAM NotePad [" + Path + "]"
.TextBox1.Text = IO.File.ReadAllText(Path)
End With
End Sub


پارامترهايي كه ما قيد كرده ايم قابل تغييرند يعني هر چي دلت بخواد و كارايي اون ها هم همينطوره

مثال: ما از پارامتر grnf/ استفاده مي كنيم كه رنگ متن را به سبز سير مي تغييراند...

براي بكار گيري وارد رجيستري شده (از طريق RegEdit)

كليد txtfile را از طريق Find بيابيد و زير كليد Shell را از زيرمجموعه آن انتخاب و Expand كنيد

راست كليك روي كليد Shell و New --> Key را كليك كنيد نام كليد جديد را بنا به نوع باز شدن برنامه تعيين كنيد و در مقدار (Default) متن كوتاهي براي آن تعيين كنيد:

http://axgig.com/images/52057922286421215546.jpg

حالا براي همين كليد جديد زير كليد جديدي ايجاد كرده و نام آن را Command بگذاريد:

http://axgig.com/images/60929733510708118834.jpg

در مقدار (Default) ابتدا آدرس برنامه در دابل كوتيشن نوشته و سپس با يك فاصله بنويسيد "L%" و پس از آن با يك فاصله پارامتر مد نظر را بنويسيد


"X:\VB 9 New Projects\OpenProgram Via Parameter\OpenProgram Via Parameter\bin\Debug\OpenProgram Via Parameter.exe" "%L" /grnf


خوش باشيد....