پیدا کردن نام از آدرس و اندازه تصویر و یه سوال دیگه ؟

1- چه جوری میشه با داشتن آدرس یه فایل ، نام اون فایل رو به دست آورد ؟
مثلا آدرس رو به رو : F:\Photo\black wallpapers (2)\Black (40).jpg
میخواهیم که Black (40).jpg رو به دست بیاوریم .
2- چه جوری میشه فهمید که اندازه یه عکس چقدره ؟ مثلا 1024 در 768
3- یه Panel رو فرم قرار بدید و سایزشو 134; 115 بدید . و یک پیکچر باکس توی پنل قرار بدید . و SizeMode پیکچر رو برابر StretchImage
قرار بدید و یک تکست باکس که آدرس یه عکس توش هست . میخوم که وقتی روی یه دکمه کلیک میکنم عکس درون پیکچر باکس برابر
با آدرسی باشه که توی تکست هست . که البته تا اینجا مشکلی نیست . ولی اگه اندازه یتصویر عمودی باشه میبینیم که تصویر بد جوری
نمایش داده میشه . من میخوام که وقتی روی دکمه کلیک شد اندازه ی پیکچر طوری بشه که تصویر به درستی توش دیده بشه . حالا ممکنه
تصویر مربعص باشه ، ممکنه مستطیل افقی باشه ، مکنه عکس کوچیک باشه و ... . ولی نمیخوام که اندازه پیکچر باکس طوری زیاد بشه که
از پنل بیرون بره . امید وارم که منظورم رو خوب رسونده باشم .

1 - كلاس path‌ يه تابع داره كه اين كارو مي كنه توي اين namespace ه system.path‌فكر كنم
2 - اول اونو لود كن توي يه متغير bitmap بعد داره عرض و طول و اين چيزا

نقل قول:

---

نوشته شده توسط L u K e ! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

1 - كلاس path‌ يه تابع داره كه اين كارو مي كنه توي اين namespace ه system.path‌فكر كنم
2 - اول اونو لود كن توي يه متغير bitmap بعد داره عرض و طول و اين چيزا

---

میشه به جایه اینکه فکر کنید .جواب سوال ها به شکل کد بذارید .
چیزی اصلا به نام system.path توی ویبی 2008 نیست .
خواهشا جواب ها رو به شکل کد بذارید که نه شما به مشکل بخورید نه من هی بیام بگم نمیشه .

سلام.

1:

کد:

---

MessageBox.Show(System.IO.Path.GetFileName("F:\Photo\black wallpapers (2)\Black (40).jpg"))

---

2:

کد:

---

MessageBox.Show(System.Drawing.Image.FromFile("F:\Photo\black wallpapers (2)\Black (40).jpg").Size.ToString())

---

3:
خاصیت SizeMode رو به Zoom تغییر بده.

موفق باشید:11:.

1- یه لیبل روی فرم قرار بدید و AutoSize اونو برابر True قرار بدید . Size رو هم برابر 103; 27 حالا یه متن طولانی مثل زیر از طریق بخش کد نویسی
بهش بدید :

کد:

---

Label1.text="Windows_7_wallpaper_5_-_Glass_and_gold_Seven.jpg"

---

میبینید که متن توی لیبل جا نمیشه . من میخوام اگه یه چنین حالیتی پیش اومد . متن درون لیبل شبیه زیر بشه .
Windows_7_wallpaper_5_-_Glass_and...
یعنی تا اونجایی رو که که میتونه توش چاپ کنه و به جای بقیه اش سه تا نقطه بزاره .


2- و اینکه وقتی خاصیت MultiSelect کنترل OpenFileDialog رو برابر True قرار میدیم . چه جوری میشه آدرس قایل های انتخابی رو توی
یه لیست باکس Add کرد . مثلا 10 تا فایل رو انتخاب کردیم . و اینکه آیا نحوه فلتر کردن اطلاعات هم مثل ویبی 2008 هست ؟

سلام.
1:
خاصیت AutoEllipsis رو برابر true قرار بدید.

2:

کد:

---

        Dim cc As New OpenFileDialog()
        cc.Multiselect = True
        cc.ShowDialog()

        For Each s In cc.FileNames
            MessageBox.Show(s)
        Next

---

سوالتونو متوجه نشدم.

منظورم این بود که مثلا کنترل دیالوک فقط فایل هایی با پسوند خاص رو نشون بده . که دیگه نمیخواد خودم فهمیدم .
من یه کامپوننت دارم درست میکنم ولی خطای زیر رو میده و نمیدونم برای چی :

کد:

---

Value cannot be null.
Parameter  path

---

و توی قسمت Error List نوشته خط 42 خطا از اونجا است . کد خط 42 این طوریه :

کد:

---

Me.JvD_Image1.Location = New System.Drawing.Point(432, 88)

---

البته این کد در قسمت Designer.vb فرم هست .
البته یه جا هم خطا رو اینطور نوشته :

کد:

---

Value cannot be null. Parameter name: path
   
Instances of this error (1) 
 
1.  Show Call Stack 
 
at System.ComponentModel.ReflectPropertyDescriptor.SetValue(Object component, Object value)
at System.ComponentModel.Design.Serialization.CodeDomSerializerBase.DeserializePropertyAssignStatement
(IDesignerSerializationManager manager, CodeAssignStatement statement, CodePropertyReferenceExpression propertyReferenceEx,
Boolean reportError)
at System.ComponentModel.Design.Serialization.CodeDomSerializerBase.DeserializeAssignStatement(IDesignerSerializationManager
manager, CodeAssignStatement statement)
at System.ComponentModel.Design.Serialization.CodeDomSerializerBase.DeserializeStatement(IDesignerSerializationManager
manager, CodeStatement statement)

---

کسی نمیدونه این خطا برای چیه و چه جوری حل میشه؟

سلام.
شما یکی از مقدار های کنترل رو خالی گذاشتین ببینین کدوم مقداره و اونو از حالت null در بیارین تا در دیزاین نمایش داده بشه.
موفق باشید:11:.

ممنون از راهنماییتون .
قبلا گفتید چه جوری میشه فهمید که سایز یه تصویر چه قدره . حالا میخوام بدونم چه جوری میشه فهمید که حجم تصویر و تاریخ ساخت اون
و یه سری از این جور اطلاعات رو به دست آورد .
و اینکه من یه کامپوننت درست کردم . می خوام که وقتی روی یه دکمه کلیک کردم 15 تا از این کامپوننتم درون یه پنل قرار بگیره به شکلی
که اگه رسید به انتهای پنل بیاد و در پایین قرار بگیره . مثلا یه پنجره ویندوز رو فرض کنید که اندازه اش کوچک هست و اگه فایل ها زیاد باشه
چی میشه مثل همون . و وقتی که این 15 تا ایجاد شد وقتی روی یکی شد کلیک کردم و یا ماوس رو روش نگه داشتم معلوم باشه که روی
کدوم کلیک کردم . این رو هم بگم که توی کامپوننت من لیبل هم وجود داره . و میخوام که وقتی روی لیبل کلیک میشه انگار روی فرم کامپوننت
کلیک شده و این طور نباشه که حتما روی فرم کامپوننت باید کلیک کنیم .
و چند تا سوال اینترنتی :
1- چه جوری میشه فهمید که آیا به اینترنت وصل هستیم یا نه . ( ممکنه توی سیستم چند تا کانکشن وجود داشته باشه )
2- آیا این روش فقط برای دیال آپ هست یا نه میشه برای ADSL هم استفادش کرد ؟
3- چه جوری میشه فهمید که چند دقیقه هست که متصل هستیم ؟ (باید تایمر بزارم ؟ یا خودش داره )
4- چه جوری میشه که فقط UserName ای رو که باهاش متصل شدیم به دست آورد ؟
5- آیا میشه کاری کرد که مثلا در زمان های خاصی نزاریم که کسی به اینترنت وصل بشه ؟
6- چه جوری میشه اتصال رو قطع کرد ؟ ( مثلا به اینترنت وصلیم و بعد از 30 دقیقه بعد با یه پیغام Yes و No بیاد و با انتخاب بله اینترنت خودس قطع بشه )
7- چه جوری میشه کاری کرد که بعضی از کلمه ها را نشه نوشت . (مثلا همون فلتر خودمون )
8- وقتی که با اینترنت متصل هستیم چه دکمه هایی رو فشرده ایم .
9- و اینکه این راه هایی که میشه باهاش فهمید فقط توی ویندوز ایکس پی جواب میده یا نه ، توی ویندوز 7 هم جواب میده ؟
10- و هر اطلاعات دیگه ای راجع به اینترنت که خودتون میدونید

نقل قول:

---

نوشته شده توسط shadmehrshadow1 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ممنون از راهنماییتون .
قبلا گفتید چه جوری میشه فهمید که سایز یه تصویر چه قدره . حالا میخوام بدونم چه جوری میشه فهمید که حجم تصویر و تاریخ ساخت اون
و یه سری از این جور اطلاعات رو به دست آورد .
و اینکه من یه کامپوننت درست کردم . می خوام که وقتی روی یه دکمه کلیک کردم 15 تا از این کامپوننتم درون یه پنل قرار بگیره به شکلی
که اگه رسید به انتهای پنل بیاد و در پایین قرار بگیره . مثلا یه پنجره ویندوز رو فرض کنید که اندازه اش کوچک هست و اگه فایل ها زیاد باشه
چی میشه مثل همون . و وقتی که این 15 تا ایجاد شد وقتی روی یکی شد کلیک کردم و یا ماوس رو روش نگه داشتم معلوم باشه که روی
کدوم کلیک کردم . این رو هم بگم که توی کامپوننت من لیبل هم وجود داره . و میخوام که وقتی روی لیبل کلیک میشه انگار روی فرم کامپوننت
کلیک شده و این طور نباشه که حتما روی فرم کامپوننت باید کلیک کنیم .
و چند تا سوال اینترنتی :
1- چه جوری میشه فهمید که آیا به اینترنت وصل هستیم یا نه . ( ممکنه توی سیستم چند تا کانکشن وجود داشته باشه )
2- آیا این روش فقط برای دیال آپ هست یا نه میشه برای ADSL هم استفادش کرد ؟
3- چه جوری میشه فهمید که چند دقیقه هست که متصل هستیم ؟ (باید تایمر بزارم ؟ یا خودش داره )
4- چه جوری میشه که فقط UserName ای رو که باهاش متصل شدیم به دست آورد ؟
5- آیا میشه کاری کرد که مثلا در زمان های خاصی نزاریم که کسی به اینترنت وصل بشه ؟
6- چه جوری میشه اتصال رو قطع کرد ؟ ( مثلا به اینترنت وصلیم و بعد از 30 دقیقه بعد با یه پیغام Yes و No بیاد و با انتخاب بله اینترنت خودس قطع بشه )
7- چه جوری میشه کاری کرد که بعضی از کلمه ها را نشه نوشت . (مثلا همون فلتر خودمون )
8- وقتی که با اینترنت متصل هستیم چه دکمه هایی رو فشرده ایم .
9- و اینکه این راه هایی که میشه باهاش فهمید فقط توی ویندوز ایکس پی جواب میده یا نه ، توی ویندوز 7 هم جواب میده ؟
10- و هر اطلاعات دیگه ای راجع به اینترنت که خودتون میدونید

---

سلام:18:.

oh my GOD

دوست من بهتون پیشنهاد میکنم بجای این همه سوال برید کتاب آموزشی بخونید اینطوری یاد گرفتن برنامه نویسی واستون گروون تموم میشه ها:10:.

شما رکورد سوال کنندها توی دات نت رو شکستید...تبریک:27:.

با کلاس زیر میتونید مشخصات یک فایل رو بدست بیارید:

کد:

---

Dim fl As New System.IO.FileInfo("C:\A.jpg")

---

برای استفاده:
مشخصات فایل:

کد:

---

fl.Attributes

---

زمان ساخت:

کد:

---

fl.CreationTime

---

حذف فایل:

کد:

---

fl.Delete()

---

کپی فایل:

کد:

---

fl.CopyTo("آدرس")

---

وجود داشتن:

کد:

---

fl.Exists

---

حجم:

کد:

---

fl.Length

---

و
.
.

نقل قول:

---

که اگه رسید به انتهای پنل بیاد و در پایین قرار بگیره . مثلا یه پنجره ویندوز رو فرض کنید که اندازه اش کوچک هست و اگه فایل ها زیاد باشه

---

خاصیت AutoScroll پنل رو True کنید.

نقل قول:

---

و وقتی که این 15 تا ایجاد شد وقتی روی یکی شد کلیک کردم و یا ماوس رو روش نگه داشتم معلوم باشه که روی

---

حتماً با رویداد ها که آشنایی دارید؟
مثلاً کلیک:

کد:

---

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    End Sub

---

رویداد کلیک همه کنترل ها رو به شکل بالا تغییر بده...
مثلا به این صورت:

کد:

---

AddHandler Button2.Click, AddressOf But_Click

---

حالا میخوای متوجه بشی که رو کدوم کلیک کردی از آبجکت sender استفاده کن.

کد:

---

Dim ctrl As Control = CType(sender, Control)
MessageBox.Show(ctrl.Name)

---

نقل قول:

---

این رو هم بگم که توی کامپوننت من لیبل هم وجود داره . و میخوام که وقتی روی لیبل کلیک میشه انگار روی فرم کامپوننت

---

رویداد همه کنترل های موجود در کامپوننتتونو برابر کنرل اصلی بزار به روش بالا.

1.dll زیر رو لود کن:

کد:

---

    <DllImport("wininet.dll")>
    Private Shared Function InternetGetConnectedState(ByVal lpdwFlagsAs As Integer, ByVal dwReserved As Integer) As Integer

    End Function

---

استفاده:

کد:

---

MsgBox(InternetGetConnectedState(0, 0))

---

اگه مقدار 1 بود شما وصل هستید در غیر این صورت وصل نیستید.
2.امتحان نکردم فکر کنم واسه همه باشه.
در مورد اینترنت همینو میدونستم :31:.
9- توی همه ویندوز ها میشه.
موفق باشید:10:.

واقعا رکورد رو شکستم . خوب بالا خره یه بارم که شده تونستم رکورد چیزی رو بشکنم. هورااا:19:
ببین من یه کد دارم نمیدونم که مال اینترنت هست یا نه کلا برای هر شبکه ای :

کد:

---

        Select Case My.Computer.Network.IsAvailable
            Case True
                Label1.Text = "connect to internet"
            Case False
                Label1.Text = "disconnect"
            End Select

---

از بقیه هم خواهش میکنم که اگه جواب بقیه سوال ها رو میدونن بگن.
مخصوصا که اگه کسی ADSL داره چک کنه ببینه جواب میده یا نه .

شما کتاب آموزشی که این چیز ها رو که که من میخوام توش باشه و یا اینکه این همه جامع و کامل باشه رو میشناسید.

وقتی حجم فایل رو به دست بیاریم بر حسب بایت هستش من میخوام طوری بدست بیارم مثل ویندوز .روی یه فایل کلیک راست کنید و بعد
Properties حالا حجم رو میبینید مثلا 92.4 KB . فکر کنم این طوری به دست بیاد :

کد:

---

F_Size = (File.Length) / (1024.2702702702702)

---

F_Size یه متغیر هست . ولی وقتی جواب به دست بیاد خیلی طولانی میشه .مثلا 92.40404040440 . چیکار کنمش .
بله Autoscroll رو میدونم . میشه بگید با چه کدی زیادش کنم اون کنترل رو و در کنار هم قرارشون بدم .

نقل قول:

---

رویداد همه کنترل های موجود در کامپوننتتونو برابر کنرل اصلی بزار به روش بالا.

---

کدوم روش بالا. میشه مثل کد بزاری . کد رو تو رویداد کلیک کنترل بزارم .
یه کامپوننت درست کن و توش یه لیبل هم بزار و امتحان کن ببین کار میکنه .
ممنون میشم اگه جواب رو به صورت کد کامل بزاری .

کسی بلد نیست. یکی جواب بده.:41:

---------- Post added at 11:13 AM ---------- Previous post was at 11:12 AM ----------

کسی بلد نیست .یکی جواب بده:41:

سلام.
کد زیر چک میکنه به اینترنت وصل هستی یا نه true یا false برمیگردونه.

کد:

---

My.Computer.Network.IsAvailable

---

نقل قول:

---

وقتی حجم فایل رو به دست بیاریم بر حسب بایت هستش من میخوام طوری بدست بیارم مثل ویندوز .روی یه فایل کلیک راست کنید و بعد

---

F_Size رو از نوع long یا int قرار بدین.

نقل قول:

---

کدوم روش بالا. میشه مثل کد بزاری . کد رو تو رویداد کلیک کنترل بزارم .

---

:19:

من اون بالا گفتم که چطور رویداد یکی از کنترل ها رو برابر مثلاً But_Click کنید.
حالا هر کنترلی که میخواید But_Click بشه رو به این صورت:

کد:

---

AddHandler Button2.Click, AddressOf But_Click
AddHandler Button3.Click, AddressOf But_Click
AddHandler Button4.Click, AddressOf But_Click
AddHandler Button5.Click, AddressOf But_Click
AddHandler Button6.Click, AddressOf But_Click
AddHandler Button7.Click, AddressOf But_Click
AddHandler Button8.Click, AddressOf But_Click

---

موفق باشید:10::25:.

شاید بد نبود به این سوال هم پاسخ میدادی.

نقل قول:

---

بله Autoscroll رو میدونم . میشه بگید با چه کدی زیادش کنم اون کنترل رو و در کنار هم قرارشون بدم .

---

و یه کد کامل میذاشتید که همه رو می داشت .

ممنون از راهنماییتون . ولی نمیدونم که وقتی کدی رو میذارید خودتون امتحانش میکنید یا نه ؟!!
مثلا برای یه فایلی اندازه 94745 رو میده اگه ما متغیر رو از نوع Long یا Integer بزاریم جواب 92 میده . در حالی که توی ویندوز جواب
92.5 رو میده . !!!:41:

سلام.

نقل قول:

---

بله Autoscroll رو میدونم . میشه بگید با چه کدی زیادش کنم اون کنترل رو و در کنار هم قرارشون بدم .

---

متوجه نشدم!

نقل قول:

---

ممنون از راهنماییتون . ولی نمیدونم که وقتی کدی رو میذارید خودتون امتحانش میکنید یا نه ؟!!
مثلا برای یه فایلی اندازه 94745 رو میده اگه ما متغیر رو از نوع Long یا Integer بزاریم جواب 92 میده . در حالی که توی ویندوز جواب
92.5 رو میده . !!! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

---

خوب این کدها نیازی به امتحان نداره.
اگه میخواهید کمی اعشار هم بزارید از همون double استفاده کنید.
به این صورت:

کد:

---

MsgBox(Math.Round(94745 / 1024, 2))

---

عدد 2 تعداد اعشار رو مشخص میکنه.

موفق باشید:11:.

نقل قول:

---

متوجه نشدم!

---

گفتم همون اول . مثل ویندوز که یه فولدر پر عکس رو نگاه کن چه جوریه . میخوام پیکچر باکس هایی رو مثل اون زیاد کنم .

سلام.
از کنترل TableLayoutPanel استفاده کنید.

چه جوری از TableLayoutPanel استفاده کنم ؟
چه جوری میتونم کنترلی رو که خودم درست کردم رو اونطوری که گفتم توش اضافه کنم .
به نظرم بهتر ه شما یه پروژه بسازید و برای دانلود بزارید . یه پروژه کامپوننت بسازید که توش یه لیبل باشه . و از کنترل TableLayoutPanel
در یک فرم برای زیاد کردن کنترل استفاده کنید . به شکلی وقتی زیاد شد بشه فهمید روی کدوم کلیک شده . مثلا اگه روی لیبل یکی از کنترل ها
کلیک شد با یه پیغام معلوم کنه که روی کدومش کلیک شده . این طوری هم من و هم شما زودتر به نتیجه میرسیم.