منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعده - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعده (/showthread.php?tid=7719)

مساعده - محمد - 23-02-13

كيف معرفه صيغه ملف بى مجرد وضع مساره فى ListBox
يعنى لو فى ListBox
إقتباس :C:\Users\Name\Desktop\a.exe
لو تم الضغط عيه يتم كتب فى TextBox .exe لو ملف exe يكتب exe لو اخير يكتب صيغه شكرآ
او لو ListBox فيه
إقتباس :C:\Users\Name\Desktop\b.exe
يظهر رساله مكتوب فيه .exe
او listbox فيه
إقتباس :c.exe
يظهر رساله مكتوب فيه .exe
اريد كود شبيه لى هذا مثلآ او اى شيء
إقتباس : Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ListBox1.SelectedIndex = "." & ".exe" Then
TextBox1.Text = ".exe"
End If
End Sub


مساعده - Sajad - 23-02-13

[COLOR="#800000"]السلام عليكم

تفضل:

PHP كود :
Private Sub ListBox1_MouseClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseClick
        MessageBox.Show(IO.Path.GetExtension(ListBox1.Text))
    End Sub 

هذا الكود تضعه في حدث الClick للLixtbox

بالتوفيق ان شاءالله[/COLOR]

مساعده - sooriaty03 - 23-02-13

وعليكم السلام ورحمة الله وبركاته
أخي الكريم
تفضل هذا هو الكود المطلوب
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ListBox1.SelectedIndex > -1 Then
            TextBox1.Text = System.IO.Path.GetExtension(ListBox1.SelectedItem)
        End If
    End Sub


بالتوفيق

مساعده - sooriaty03 - 23-02-13

sajad كتب :[COLOR="#800000"]السلام عليكم

تفضل:

PHP كود :
Private Sub ListBox1_MouseClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseClick
        MessageBox.Show(IO.Path.GetExtension(ListBox1.Text))
    End Sub 

هذا الكود تضعه في حدث الClick للLixtbox

بالتوفيق ان شاءالله[/COLOR]

عفوا لم أنتبه أخي على ردك
يعطيك العافية
وجزاك الله خيرا

مساعده - محمد - 23-02-13

sajad كتب :[COLOR="#800000"]السلام عليكم

تفضل:

PHP كود :
Private Sub ListBox1_MouseClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseClick
        MessageBox.Show(IO.Path.GetExtension(ListBox1.Text))
    End Sub 

هذا الكود تضعه في حدث الClick للLixtbox

بالتوفيق ان شاءالله[/COLOR]
جزاك الله الف خير و جعله فى مزان حسناتك
sooriaty03 كتب :وعليكم السلام ورحمة الله وبركاته
أخي الكريم
تفضل هذا هو الكود المطلوب
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ListBox1.SelectedIndex > -1 Then
            TextBox1.Text = System.IO.Path.GetExtension(ListBox1.SelectedItem)
        End If
    End Sub


بالتوفيق

جزاك الله الف خير و جعله فى مزان حسناتك