Click here to Skip to main content
12,501,830 members (50,807 online)
Click here to Skip to main content

Stats

8.8K views
81 downloads
5 bookmarked
Posted

Declarations Generator

, 29 Jun 2010 GPL3
A tool which helps in generating codes for events/properties, so that users of your classes can use events/properties of embedded classes
DeclarationsGenerator 0.0.0.3
EventsDeclarationsGenerator
bin
Debug
DeclarationsGenerator.exe
Release
DeclarationsGenerator.vbproj.user
Forms
Icons
AssemblyImg.bmp
ClassImg.bmp
Module & Classes
My Project
Application.myapp
Temp
Tutorial
EventsPropertiesDeclarationsGenerator.gif
Tutorial AR.doc
Tutorial ENG.doc
EventsDeclarationsGenerator.suo
Imports System.IO
Public Class AboutBox

    Private Sub AboutBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim AppInf = My.Application.Info
        Dim ApplicationTitle = If(AppInf.Title <> "", _
                                  AppInf.Title, _
                                  Path.GetFileNameWithoutExtension(AppInf.AssemblyName))

        Me.Text = String.Format("About {0}", ApplicationTitle)


        Me.txt_Version.Text = AppInf.Version.ToString
        Me.txt_Description.Text = AppInf.Description

    End Sub

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


    Private Sub btn_EngTutorial_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_EngTutorial.Click
        Dim Target As String = ""
        Target = FilesDealer.GetFilePath("choose the place to save the tutorial file to", _
                                         "MS Word (*.doc)|*.doc ")
        If Target <> "" Then
            My.Computer.FileSystem.WriteAllBytes(Target, My.Resources.Tutorial_ENG, False)
        End If

    End Sub

    Private Sub btn_TutorialAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_TutorialAR.Click
        Dim Target As String = ""
        Target = FilesDealer.GetFilePath("choose the place to save the tutorial file to", _
                                         "MS Word (*.doc)|*.doc ")
        If Target <> "" Then
            My.Computer.FileSystem.WriteAllBytes(Target, My.Resources.Tutorial_AR, False)
        End If
    End Sub
End Class

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The GNU General Public License (GPLv3)

Share

About the Author

vbnetskywalker
Software Developer
Syrian Arab Republic Syrian Arab Republic
The more I learn the more I see my ignorance.

You may also be interested in...

Pro
Pro
| Advertise | Privacy | Terms of Use | Mobile
Web02 | 2.8.160919.1 | Last Updated 29 Jun 2010
Article Copyright 2010 by vbnetskywalker
Everything else Copyright © CodeProject, 1999-2016
Layout: fixed | fluid