hesabixBox/FrmAboutHesabix.vb

Public NotInheritable Class FrmAboutHesabix

    Private Sub FrmAboutHesabix_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' تنظیم عنوان فرم
        Me.Text = "درباره نرم‌افزار Box"

        ' تنظیم اطلاعات برنامه
        Me.VersionLabel.Text = String.Format("نسخه: {0}", My.Application.Info.Version.ToString)
        Me.CompanyLabel.Text = String.Format("شرکت: {0}", My.Application.Info.CompanyName)
        Me.CopyrightLabel.Text = My.Application.Info.Copyright
        
        ' تنظیم توضیحات برنامه
        Me.DescriptionTextBox.Text = "حسابیکس باکس یک سرویس تحت ویندوز است که برای مدیریت چاپ فاکتورها و ارتباط با API حسابیکس طراحی شده است. این نرم‌افزار امکان چاپ خودکار فاکتورها، مدیریت چاپگرها و ارتباط مستقیم با سیستم حسابیکس را فراهم می‌کند."

        ' تنظیم اطلاعات تماس
        Me.WebsiteLabel.Text = "وب‌سایت: hesabix.ir"
        Me.EmailLabel.Text = "ایمیل: support@hesabix.ir"

        ' تنظیم ویژگی‌های برنامه
        Me.Feature1Label.Text = "• مدیریت چاپگرها"
        Me.Feature2Label.Text = "• ارتباط با API حسابیکس"
        Me.Feature3Label.Text = "• چاپ خودکار فاکتورها"
        Me.Feature4Label.Text = "• رابط کاربری فارسی"
        
        ' تنظیم رنگ‌ها و استایل‌ها
        ApplyModernStyling()
    End Sub

    Private Sub ApplyModernStyling()
        ' تنظیم رنگ‌های مدرن برای فرم
        Me.BackColor = Color.White
        
        ' تنظیم فونت‌ها و راست‌چین بودن
        Me.TitleLabel.Font = New Font("Tahoma", 18, FontStyle.Bold)
        Me.TitleLabel.TextAlign = ContentAlignment.MiddleRight
        
        Me.SubtitleLabel.Font = New Font("Tahoma", 10, FontStyle.Regular)
        Me.SubtitleLabel.TextAlign = ContentAlignment.MiddleRight
        
        Me.VersionLabel.Font = New Font("Tahoma", 10, FontStyle.Regular)
        Me.VersionLabel.TextAlign = ContentAlignment.MiddleRight
        
        Me.CompanyLabel.Font = New Font("Tahoma", 10, FontStyle.Regular)
        Me.CompanyLabel.TextAlign = ContentAlignment.MiddleRight
        
        Me.CopyrightLabel.Font = New Font("Tahoma", 9, FontStyle.Regular)
        Me.CopyrightLabel.TextAlign = ContentAlignment.MiddleRight
        
        Me.DescriptionTextBox.Font = New Font("Tahoma", 9, FontStyle.Regular)
        Me.DescriptionTextBox.TextAlign = HorizontalAlignment.Right
        
        Me.FeaturesTitleLabel.Font = New Font("Tahoma", 12, FontStyle.Bold)
        Me.FeaturesTitleLabel.TextAlign = ContentAlignment.MiddleRight
        
        Me.Feature1Label.Font = New Font("Tahoma", 9, FontStyle.Regular)
        Me.Feature1Label.TextAlign = ContentAlignment.MiddleRight
        
        Me.Feature2Label.Font = New Font("Tahoma", 9, FontStyle.Regular)
        Me.Feature2Label.TextAlign = ContentAlignment.MiddleRight
        
        Me.Feature3Label.Font = New Font("Tahoma", 9, FontStyle.Regular)
        Me.Feature3Label.TextAlign = ContentAlignment.MiddleRight
        
        Me.Feature4Label.Font = New Font("Tahoma", 9, FontStyle.Regular)
        Me.Feature4Label.TextAlign = ContentAlignment.MiddleRight
        
        Me.WebsiteLabel.Font = New Font("Tahoma", 9, FontStyle.Regular)
        Me.WebsiteLabel.TextAlign = ContentAlignment.MiddleRight
        
        Me.EmailLabel.Font = New Font("Tahoma", 9, FontStyle.Regular)
        Me.EmailLabel.TextAlign = ContentAlignment.MiddleRight
        
        Me.OKButton.Font = New Font("Tahoma", 10, FontStyle.Bold)
    End Sub

    Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
        Me.Close()
    End Sub

    Private Sub WebsiteLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WebsiteLabel.Click
        Try
            System.Diagnostics.Process.Start("https://hesabix.ir")
        Catch ex As Exception
            MessageBox.Show("خطا در باز کردن وب‌سایت: " & ex.Message, "خطا", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub EmailLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EmailLabel.Click
        Try
            System.Diagnostics.Process.Start("mailto:support@hesabix.ir")
        Catch ex As Exception
            MessageBox.Show("خطا در باز کردن ایمیل: " & ex.Message, "خطا", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

End Class