Printable View
دوستان میخوام وقتی رو کلید 1 کلیک شد یه عکس که مربوط به همون کلیده به مد ت 10 ثانیه ( البته این دیگه کار تایمره ) در مرکز صفحه نمایش د اده بشه و بعد محو بشه :18:
راستی این کار رو میخوام در تعداد مثلا 140 تا کلید بکنم یه راحی رو بگید که قاط نزنم
اگه میشه کد و مراحل رو برام بزارید
تا یادم نرفته 2 کد نا قال رو میخوام
1 - ساخت چند نیو فولدر پشت هم ( c:\aaa\ddd\fff\ggg)
2 - وقتی رو یه کلید کیلک شد محتویات اون کلید ( یه متنی که ما بهش از قبل دادیم ) در حافظه کلیپ برد کپ بشه
ممنون
یا علی:11:
مخوای عکس آهسته نمایش داده بشه یا نه ؟ منضورم اینه که عکس از حالت شبه به حالت واضح نمایش داده بشه ؟؟نقل قول:
1-System.IO.Directory.CreateDirectory("c:\a")
2- System.Windows.Forms.Clipboard.GetText
بله دوست من
ممنون از پاسخ گویی
پس چی شد ر فقا
سلام
واقعاً +GDI داخلی دات نت کارها را خیلی راحت و لذت بخش میکند !
برای رسم تصویر بدین شکل بهتر است از پارامتر gamma استفاده کنید و آنترا در تایمری تغییر دهید.
مثلاً تابع زیر با فواصل 10 میلی ثانیه و پله های یک صدم تصویر را ترسیم میکند که در نهایت فکر کنم همان جلوه ای شود که شما میخواهید.
برای تست یک فرم خالی بیاورید و رویداد Paint را چنین تکمیل کنید.کد:Public Shared Sub Draw(ByVal graphic As System.Drawing.Graphics, ByVal image As System.Drawing.Image)
Dim destrect As New System.Drawing.Rectangle(0, 0, image.Width, image.Height)
Using att As New System.Drawing.Imaging.ImageAttributes
For gamma As Single = 0.01F To 1.0F Step 0.01F
att.SetGamma(gamma)
graphic.DrawImage(image, destrect, 0, 0, image.Width, image.Height, GraphicsUnit.Pixel, att)
System.Threading.Thread.Sleep(10)
Next
End Using
End Sub
(1-فقط جهات تست جلوه فوق 2-مسیر تصویر اصلاح شود.)
بدیهی است که ریسمان اجرای فرمان تا پایان پیدا نکردن حلقه بلوکه میشود و باید در استفاده احتیاط کرد و در صورت نیاز از چند ریسمانی استفاده کرد تا با قفل شدن UI برخورد نکنیم.کد:Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Using img As System.Drawing.Image = System.Drawing.Image.FromFile("C:\Users\Admin\Pictures\2ec3meg.jpg")
Draw(e.Graphics, img)
End Using
End Sub
و هر کاری کنید تا روند ساده تر شود، مثلاً آرایه ای از Image ها ایجاد کنید تا هربار نیازی به لود و... نباشد.
نقل قول:
1 - ساخت چند نیو فولدر پشت هم ( c:\aaa\ddd\fff\ggg)
کد:
For i = 1 To 6
My.Computer.FileSystem.CreateDirectory("c:\NewFolder" & i)
Next
تگ (Tag) کنترل مورد نظر رو برابر متنی که میخوای تو کلیپ برد کپی بشه قرار بده و از تابع زیر استفاده کن.نقل قول:
2 - وقتی رو یه کلید کیلک شد محتویات اون کلید ( یه متنی که ما بهش از قبل دادیم ) در حافظه کلیپ برد کپ بشه
کد:
Dim i As Integer
My.Computer.Clipboard.SetText(Control.Tag)
End Sub
سلام دوستان
خیلی خلی ممنون
اقا قبول دارم که تو برنامه نویسی خیلی خنگم
شالینه جان
کد د ومت رو نتونستم استفاده کنم
باز ممنونم اگه کمکم کنی
اچ تو جان کار پیچیده شد
میشه یه برنماه نمونه بزاری
همه شما نمیخوای به من حالی کین هم راحت تریو هم من بهتر میفهمم چی شد
ممنون از شما م
اساتید من تا کی صبر کنم
این کد ها رو از کجا پیدا کنم
سلام
دو روزپیش میخواستم نمونه ای بگذارم که اینترنتمان ترکید.
ولی در کل برادر! بد نیست خودمان هم کمی روی کدها تست کنید و فعال باشید، تا همیشه منتظر دانلود پروژه باشید.....!
نمونه جاری هیچ چیز خاصی ندارد، Copy و Paste شده همان کدهای فوق است، برای کپی متن هم از همان Tag استفاده شد که کاربر shalineh نمونه کدش را دادند...
rapidshare.com/files/87211321/rezapassword.zip.html
نقل قول:
برای رسم تصویر بدین شکل بهتر است از پارامتر gamma استفاده کنید و آنترا در تایمری تغییر دهید.
مثلاً تابع زیر با فواصل 10 میلی ثانیه و پله های یک صدم تصویر را ترسیم میکند که در نهایت فکر کنم همان جلوه ای شود که شما میخواهید
با ارزه پوزش نميشه زياد رو اين روش حساب کرد
چون اولا هميشه بايد تو paint event استفاده بشه و ثانيا کلی اجرا رو کند ميکنه
کاش يتوری ميشد مثلا تو mouse over استفادش کرد