Text Editor فروم کدها رو به هم می ریزه.

[javad2000]

سلام
من این کد رو از محیط vb 2005 کپی کردم و اینجا گذاشتم. نگاه کنید چی به سرش اومده:





PublicClass Form1
Inherits System.Windows.Forms.Form
PrivateDeclareFunction SystemParametersInfo Lib"user32"Alias"SystemParametersInfoA" (ByVal uAction AsInteger, ByVal uParam AsInteger, ByVal lpvParam AsString, ByVal fuWinIni AsInteger) AsInteger
PrivateConst SPI_SETDESKWALLPAPER AsShort = 20
PrivateConst SPIF_UPDATEINIFILE AsShort = 1
PublicEnum WallPaperStyle AsInteger
Tiled
Centered
Stretched
EndEnum
Sub SetWallPaper(ByVal FilePath AsString, ByVal UpdateRegistry AsBoolean, ByVal wpStyle As WallPaperStyle)
Dim upd AsShort
If UpdateRegistry Then
upd = SPIF_UPDATEINIFILE
Else
upd = 0
EndIf
Dim key As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("Control Panel\Desktop", True)
Try
SelectCase wpStyle
Case WallPaperStyle.Stretched
key.SetValue("WallpaperStyle", "2")
key.SetValue("TileWallpaper", "0")
Case WallPaperStyle.Centered
key.SetValue("WallpaperStyle", "1")
key.SetValue("TileWallpaper", "0")
Case WallPaperStyle.Tiled
key.SetValue("WallpaperStyle", "1")
key.SetValue("TileWallpaper", "1")
EndSelect
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, FilePath, upd)
Catch ex As Exception
'MsgBox(ex.Message)
EndTry
EndSub
Function GetWallPaper() AsString
Try
ReturnMy.Computer.Registry.GetValue _
("HKEY_CURRENT_USER\Control Panel\DeskTop", "WallPaper", "")
Catch ex As Exception
Return""
'MsgBox(ex.Message)
EndTry
EndFunction
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim A AsNew OpenFileDialog
A.ShowDialog()
Me.SetWallPaper(A.FileName, True, WallPaperStyle.Stretched)
EndSub
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox(GetWallPaper)
EndSub
EndClass

[oxygenws]

من که درست می بینم، مشکلش چیه؟!!

[omid_Ahmadi]

من هم درست میبینم، مشکلی نداره به جز اینکه Indent گذاری ها به هم ریخته.

[Mohammad_Mnt]

فکر کنم تمام Tab ها حذف شدن

[PC2st]

کلمات کلیدی بهم چسبیدند، مثلا PrivateConst بجای Private Const...


من این کد رو از محیط vb 2005 کپی کردم و اینجا گذاشتم
کد رو در Notepad کپی و بعدش در اینجا paste شون کنید.
.
.
.
چه خوب میشد که قابلیت استایل برای بلاک code وجود نداشت :-)

[javad2000]

کلمات کلیدی بهم چسبیدند، مثلا PrivateConst بجای Private Const...


کد رو در Notepad کپی و بعدش در اینجا paste شون کنید.
.
.
.
چه خوب میشد که قابلیت استایل برای بلاک code وجود نداشت :-)
بلی. ای کاش آرایش های معمول Text Editor روی کدها اعمال نمی شد.
آخه حتی اگه از NotePad هم Copy/Paste کنم باز هم کاراکترهای DblSpace یا همون Tab ها حذف میشن.
نمیشه کاریش کرد؟

[PC2st]

نمیشه کاریش کرد؟
وقتی میخواید کدهاتون رو در محیطهای مختلف کپی/پیست کنید، بهتره در محیط کدنویسی بجای Tab ها از چهارتا Space استفاده کنید، مثلا وقتی در محیط VS.NET کلید Tab رو بزنید، چهارتا Space ایجاد میشه و این خوبه :-)

برای VB.NET از منوی Tools گزینه Options رو انتخاب کنید و به کلید زیر بروید:
Text Editor -> Basic -> Tabs
و گزینه Insert Spaces رو انتخاب کنید.

حالا بعد از کپی/پیست شدن از Notepad به فروم، کدها به زیبایی نمایش داده میشوند.