اذهب الي المحتوي
أوفيسنا

ARAB101

عضو جديد 01
  • Posts

    4
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    1

كل منشورات العضو ARAB101

  1. وعليكم السلام هل هذا المطلوب؟ test.rar
  2. وعليكم السلام ورحمة الله وبركاته ضع هذا الكود في وحدة نمطية : Public Sub GetImaage() Dim filelocation As String Dim diagfile As FileDialog Set diagfile = Application.FileDialog(msoFileDialogSaveAs) diagfile.title = "حفظ ملف الصورة كـ ...." diagfile.InitialFileName = "*.bmp" If diagfile.Show Then filelocation = diagfile.SelectedItems(1) Dim scandiag As Object Dim image As Object Set scandiag = CreateObject("wia.commondialog") Set image = CreateObject("wia.imagefile") Set image = scandiag.showAcquireimage() image.savefile filelocation End If End Sub وهذا الكود في الزر داخل النموذج : Call GetImaage بالتوفيق
  3. العناصر يقصد بها الأدوات المضمنة في النموذج (ازرار،مربعات نص،قوائم .....الخ) ، ويبدو أن النموذج لديك مليئ بها . على العموم هو اقتراح فقط وليست بمشكلة تستلزم الحل. Option Explicit ضعها هنا :
  4. وعليكم السلام إمسح ماهو موجود في هذا الحقل ثم حفظ :
×
×
  • اضف...

Important Information