تشخیص format فایل در یوزر فرم

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • younes672

    • 2015/03/24
    • 75
    #1

    [حل شده] تشخیص format فایل در یوزر فرم

    سلام و عرض ادب محضر دوستان عزیز

    در تکست باکس 1 فایل از سیستم بهمراه format فراخوانی می شود لطفا جهت انتقال format به تکست باکس 2 راهنمایی بفرمایید.
    فایل های پیوست شده
    برچسب ها: هیچ‌کدام
    • majid_mx4

      • 2012/06/25
      • 699
      #2
      سلام

      به قسمت آخر دستورات خودتان این دستور را اضافه کنید

      کد:
      TextBox2.Text = Mid(TextBox1.Text, InStr(1, TextBox1.Text, ".") + 1, 20)
      که میشود
      کد:
      Private Sub CommandButton1_Click()

Dim cou As Integer
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
cou = Application.FileDialog(msoFileDialogOpen).Show
If cou <> 0 Then
    strPatch = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
    TextBox1 = strPatch
    
End If
TextBox2.Text = Mid(TextBox1.Text, InStr(1, TextBox1.Text, ".") + 1, 20)


End Sub
      موفق باشید میر

        کامنت

        • younes672

          • 2015/03/24
          • 75
          #3
          نوشته اصلی توسط majid_mx4
          سلام

          به قسمت آخر دستورات خودتان این دستور را اضافه کنید

          کد:
          TextBox2.Text = Mid(TextBox1.Text, InStr(1, TextBox1.Text, ".") + 1, 20)
          که میشود
          کد:
          Private Sub CommandButton1_Click()

Dim cou As Integer
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
cou = Application.FileDialog(msoFileDialogOpen).Show
If cou <> 0 Then
    strPatch = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
    TextBox1 = strPatch
    
End If
TextBox2.Text = Mid(TextBox1.Text, InStr(1, TextBox1.Text, ".") + 1, 20)


End Sub
          موفق باشید میر
          سپاسگزارم

            کامنت

            قبلی template بعدی
            چند لحظه..