PDA

View Full Version : commondialog



ali-software
چهارشنبه 24 تیر 1388, 14:37 عصر
چه طوری از commondialog برای save کردن ازش استفاده کرد.

VB.SOS
چهارشنبه 24 تیر 1388, 15:57 عصر
سلام
با فراخوندن متد ShowSave اين كارو انجام بدين. مسير مشخص شده تو FileName مشخص ميشه

alih110
چهارشنبه 24 تیر 1388, 17:12 عصر
یه نگاه به این تاپیک بنداز .:کف: :کف:

ذخیره و فراخوانی سایت بدون common dialog OCX

http://barnamenevis.org/forum/showthread.php?t=168350

butterfly8528
چهارشنبه 24 تیر 1388, 17:26 عصر
بفرما عزیز .


On Error Resume Next
CommonDialog1.Filter = "text Files (*.txt)|*.txt"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As 1
Print #1, Text4.Text
Close #1

سوالی بود در خدمتم .

sanaz2007
پنج شنبه 25 تیر 1388, 07:38 صبح
این نمونه رو نگاه کنید

mmssoft
پنج شنبه 25 تیر 1388, 20:49 عصر
برای این کار می تونی از کد زیر استفاده کنی که یک تصویر رو انتخاب می کنی و بعد اون تصویر توی Image قرار میگیره :



On Error Resume Next
CommonDialog1.Filter = "JPG Files (*.jpg)|*.jpg|(*.jpeg)|*.jpeg|(*.jpe)|*.jpe"
CommonDilog1.ShowOpen
If Trim(CommonDialog1.FileName) = "" Then
Exit Sub
Else
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End If


کد زیر هم محتویات درون یک Image رو در یک مسیر ذخیره می کنه :



On Error Resume Next
CommonDialog1.Filter = "JPG Files (*.jpg)|*.jpg|(*.jpeg)|*.jpeg|(*.jpe)|*.jpe"
CommonDilog1.ShowSave
Image1.SavePicture(CommonDialog1.FileName"