[محمد]

كيف معرفه صيغه ملف بى مجرد وضع مساره فى 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]

[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

بالتوفيق

[sooriaty03]

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]

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

[محمد]

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

بالتوفيق

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