Ejemplo n.º 1
0
 private void BtnClose_Click(object sender, EventArgs e)
 {
     if (FarsiBox.AskQuestion("آیا از بسته شدن فرم مطمئن هستید؟", "بستن فرم") == DialogResult.Yes)
     {
         this.ButtonClick?.Invoke(this, e);
     }
 }
Ejemplo n.º 2
0
 private void BtnDelete_Click(object sender, EventArgs e)
 {
     if (FarsiBox.AskQuestion("آیا از حذف رکورد جاری مطمئن هستید؟", "حذف رکورد") == DialogResult.Yes)
     {
         this.ButtonClick?.Invoke(this, e);
     }
 }
Ejemplo n.º 3
0
        public static void ToExcel <T>(this List <T> list, string path)
        {
            #region [ تعریفات ]

            if (path.IsNullOrEmpty())
            {
                throw new Exception(CommonConsts.Messages.Exception.InvalidObject);
            }

            if (list == null)
            {
                throw new Exception(CommonConsts.Messages.Exception.InvalidObject);
            }


            Excel.Application excelApp      = null;
            Excel.Workbooks   workBooks     = null;
            Excel._Workbook   workBook      = null;
            Excel.Sheets      sheets        = null;
            Excel._Worksheet  workSheet     = null;
            Excel.Range       range         = null;
            Excel.Font        font          = null;
            object            optionalValue = Missing.Value;

            string strHeaderStart = "A2";
            string strDataStart   = "A3";
            #endregion

            #region [ پردازش ]

            try
            {
                #region [ ایجاد ]

                excelApp  = new Excel.Application();
                workBooks = (Excel.Workbooks)excelApp.Workbooks;
                workBook  = (Excel._Workbook)(workBooks.Add(optionalValue));
                sheets    = (Excel.Sheets)workBook.Worksheets;
                workSheet = (Excel._Worksheet)(sheets.get_Item(1));

                #endregion

                #region [ هدر ]

                Dictionary <string, string> objHeaders = new Dictionary <string, string>();

                PropertyInfo[] headerInfo = typeof(T).GetProperties();


                foreach (var property in headerInfo)
                {
                    var attribute = property.GetCustomAttributes(typeof(DisplayNameAttribute), false)
                                    .Cast <DisplayNameAttribute>().FirstOrDefault();
                    objHeaders.Add(property.Name, attribute == null ? property.Name : attribute.DisplayName);
                }


                range = workSheet.get_Range(strHeaderStart, optionalValue);
                range = range.get_Resize(1, objHeaders.Count);

                range.set_Value(optionalValue, objHeaders.Values.ToArray());
                range.BorderAround(Type.Missing, Excel.XlBorderWeight.xlThin, Excel.XlColorIndex.xlColorIndexAutomatic, Type.Missing);

                font                 = range.Font;
                font.Bold            = true;
                range.Interior.Color = Color.LightGray.ToArgb();

                #endregion

                #region [ نوشتن دیتا در سلول ها ]


                int count = list.Count;
                object[,] objData = new object[count, objHeaders.Count];

                for (int j = 0; j < count; j++)
                {
                    var item = list[j];
                    int i    = 0;
                    foreach (KeyValuePair <string, string> entry in objHeaders)
                    {
                        var y = typeof(T).InvokeMember(entry.Key.ToString(), BindingFlags.GetProperty, null, item, null);
                        objData[j, i++] = (y == null) ? "" : y.ToString();
                    }
                }


                range = workSheet.get_Range(strDataStart, optionalValue);
                range = range.get_Resize(count, objHeaders.Count);

                range.set_Value(optionalValue, objData);
                range.BorderAround(Type.Missing, Excel.XlBorderWeight.xlThin, Excel.XlColorIndex.xlColorIndexAutomatic, Type.Missing);

                range = workSheet.get_Range(strHeaderStart, optionalValue);
                range = range.get_Resize(count + 1, objHeaders.Count);
                range.Columns.AutoFit();

                #endregion

                #region [ ذخیره فایل ]


                if (!path.IsNullOrEmpty())
                {
                    workBook.SaveAs(path);
                }

                excelApp.Visible = true;

                #endregion

                #region Release objects

                try
                {
                    if (workSheet != null)
                    {
                        System.Runtime.InteropServices.Marshal.ReleaseComObject(workSheet);
                    }
                    workSheet = null;

                    if (sheets != null)
                    {
                        System.Runtime.InteropServices.Marshal.ReleaseComObject(sheets);
                    }
                    sheets = null;

                    if (workBook != null)
                    {
                        System.Runtime.InteropServices.Marshal.ReleaseComObject(workBook);
                    }
                    workBook = null;

                    if (workBooks != null)
                    {
                        System.Runtime.InteropServices.Marshal.ReleaseComObject(workBooks);
                    }
                    workBooks = null;

                    if (excelApp != null)
                    {
                        System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp);
                    }
                    excelApp = null;
                }
                catch (Exception ex)
                {
                    workSheet = null;
                    sheets    = null;
                    workBook  = null;
                    workBooks = null;
                    excelApp  = null;
                    ex.LogToTextFile("ToExcel");
                }
                finally
                {
                    GC.Collect();
                }

                #endregion
            }
            catch (Exception ex)
            {
                ex.LogToTextFile("ToExcel");
                FarsiBox.ShowInformation(ex.Message, "خطا", true);
            }
            finally
            {
                GC.Collect();
            }

            #endregion
        }