چجوري ميشه درايوي كه ويندوز توش نصبه رو پيدا كرد

[Nakh0d4]

سلام
چجوري ميشه jتو vb.net درايوي كه ويندوز توش نصبه رو پيدا كرد و به پوشه temp ويندوز رفت و حتي در صورت نبود اين پوشه اونو ساخت
DRive Windows>:\Documents and Settings\<Name Of Computer>\Local Settings\Temp\<Name Of Folder>

[Nakh0d4]

حالا خوبه يه سوال ساده پرسيديما
اين سوالم اضافه شد
چگونه يه برنامه مثه Paint بنويسم كه ZoomInو ZoomOut داشته باشه

[Msba]

رفیق رو اعصابت مسلط باش!
برای بدست آوردن Temp از این استفاده کن:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

برای بدست آوردن ریشه ویندوز هم :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

برای Zoom کردن هم از کمپوننت استفاده کن برو کامپوننت های عکس رو از اینجا دانلود کن

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

موفق باشید.

[Nakh0d4]

Private Sub ButtoN_ZoomIn_p2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtoN_ZoomIn_p2.Click

zoomIn += 5
PictureBox_p2.Image = Image.FromFile("c:\hmlight.bmp")
Dim bm As New Bitmap(PictureBox_p2.Image, (Convert.ToInt32(PictureBox_p2.Width * zoomIn / 100)), (Convert.ToInt32(PictureBox_p2.Height * zoomIn) / 100))
Dim Converted As Graphics = Graphics.FromImage(PictureBox_p2.Image)
Converted.InterpolationMode = Drawing2D.InterpolationMode.Bicubic
PictureBox_p2.Image = Nothing
PictureBox_p2.Image = bm

End Sub

[MicrosoftH]

یک قسمت هست Environment نمیدونم دقیق پارامترش رو ولی MSDN نصب باشه خیلی خوبه Special Folder آدرس فولدر های ویندوز رو داره
Special Folder تو MSDN سرچ کن

[osmanjan]

اینم کل سورس اون چیزی که شما لازم داری
PublicClassForm1
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'بدست آوردن پوشه temp
MsgBox(My.Computer.FileSystem.SpecialDirectories.Temp)
　
EndSub
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'بدست آوردن پوشه ویندوز
MsgBox(Environment.SystemDirectory)
EndSub
PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'برای چک کردن وجود پوشه temp در ویندوز
MsgBox(My.Computer.FileSystem.DirectoryExists(My.Computer.FileSystem.SpecialDirectories.Temp))
　
EndSub
PrivateSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'اگر پوشه temp موجود نبود با این کد می تونی اونو درست کنی
IfMy.Computer.FileSystem.DirectoryExists(My.Computer.FileSystem.SpecialDirectories.Temp) = FalseThen
My.Computer.FileSystem.CreateDirectory(My.Computer.FileSystem.SpecialDirectories.Temp)
MsgBox("created!!!!")
Else
MsgBox("it is true")
Exit Sub
EndIf
　
EndSub
EndClass