الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

خلق فولدر وتنزيل صورة في Vb.net

بدأه akeelmaroof في 9 أبريل 2009 · 1 رد · 549 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

في vb.net2003 عندي form أريد عند تحميله يخلق لي folder في pathمعين ويحمل اسم = أل textالموجود في textbox1بشكل اتوماتيكي دون فتح dialog box بشرط أن لا يكون هذا الفولدر سبق اختلاقه

و ثانيا أريد تنزيل صورة في نفس هذا الفورم موجودة في الفولدر الذي اختلقناه في بداية الكلام واضعه في picture boxوتحمل هذه الصورة في الفولدر اسم = ألtext الموجود في textbox2 في نفس الفورم

#2

مرحباً أخي الكريم,

أسئلتك ليست واضحة جيداً, اعذرني عن عدم إجابتها بشكل كامل, أرجو منك محاولة إعادة صياغة الغير مجاب,

إنشاء Folder أو Directory على الشكل التالي:

 

Imports [color= #990000;]System[color= #339933;].IO

 

    [color= #000000; font-weight: bold;]Private Sub CreateDirectory[color= #009900;](ByVal Path [color= #b1b100;]As String[color= #009900;])

        [color= #b1b100;]If Path [color= #339933;]<> [color= #0000ff;]"" Then MsgBox[color= #009900;]([color= #0000ff;]"The directory path can not be null."[color= #009900;]) [color= #339933;]: [color= #990000;]Exit Sub

        [color= #b1b100;]If Directory[color= #339933;].Exists[color= #009900;](Path[color= #009900;]) Then MsgBox[color= #009900;]([color= #0000ff;]"Sorry, the given directory path is existing."[color= #009900;]) [color= #339933;]:
[color= #990000;]Exit Sub

        Try

            Directory[color= #339933;].CreateDirectory[color= #009900;](Path[color= #009900;])

        Catch ex [color= #b1b100;]As Exception

            MsgBox[color= #009900;](ex[color= #339933;].Message[color= #009900;])

        [color= #990000;]End Try

    [color= #990000;]End Sub

HowToCreateDirectories.zip

أما بالنسبة للصورة فمالذي تقصده بمغزى السؤال ؟

يمكنك إما إضافة صورة إلى Resources وذلك عن طريق فتح خصائص المشروع ومن ثم الانتقال إلى Resources Page عن طريق النقر أو اختيار اللسان Resources ومن ثم من أعلى الصفحة انقر على AddExisting File وقم باختيار ماتريده في مربح حوار فتح الملفات .

أو عن طريق استخدامك ملف خارجي,

بالنسبة للأوامر البرمجية, فالـ( Resources ) يمكن الوصول إليها عن طريق اسم الفضاء My على هذا الشكل My.Resources .

أما الملفات الخارجية فيمكنك الوصول إليها عن طريق استدعاء كائن الصورة واستخدام العملية FromFile على هذا الشكل Dim MyFlower As Image = Image.FromFile( "C:\Flower.jpg" ) .

بالتوفيق

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

مواضيع مشابهة