'--------------------------------------------------------
' Copyright 2002, Anoop Sankar
'You may freely use, modify and distribute this source
'code, provided that you do not remove this message.
'But, you are NOT allowed to distribute the compiled
'version (.EXE,.DLL,.OCX etc etc.) of this program
'or any program which uses the below code without my
'consent.
'
'If you modified something, put your name below..
'
'Orginal Code : Anoop Sankar (anoops@gmx.net)
'Modified by : No one so far
'
'Last Update : Oct 25,2002
'Visit www.smilehouse.cjb.net for more source code
'-------------------------------------------------------
'
'Purpose of the project is to create a stand alone exe
'file from VB code. It doesn't do this directly, but uses
'a simple work around. I think this is quite a useful
'way to do this. If you think otherwise or if you have
'other methods, I would love to hear from you.
'
'The method is .. write to the end of a pre-created exe
'file, in binary mode.
'
'Check 'readme.html' for more details.
'
'-------------------------------------------------------
Private Sub cmdCompile_Click()
'This is were all the action takes place
On Local Error GoTo errTrap
Dim BeginPos As Long 'variable to store the start of data
Dim PropBag As New PropertyBag 'property bag to store the data
Dim varTemp As Variant 'for file writing
'Below section loads data into the property bag.
With PropBag
.WriteProperty "Caption", txtCaption.Text
.WriteProperty "Text", txtText.Text
.WriteProperty "Picture", imgPic.Picture
.WriteProperty "Protected", chkPass.Value
.WriteProperty "Password", txtPass.Text
'You may add your own propery using the syntax
'PropBag.WriteProperty "<property name>",<property value>
'As you might have noticed, property value can be anything
'string, picture, or numerical.
End With
'rdfce.ext is the template we use to create our exe.
'RDFCE = Renamed Dummy For Creating Executable ;-)
'(source of that file is included too)
'first copy that file to the user provided file name.
FileCopy App.Path & "\rdfce.ext", App.Path & "\" & txtExeFile.Text
'now open the file in binary mode
Open App.Path & "\" & txtExeFile.Text For Binary As #1
BeginPos = LOF(1) 'the point were we add extra data
varTemp = PropBag.Contents
Seek #1, LOF(1)
Put #1, , varTemp 'write data
Put #1, , BeginPos 'write starting point of extra data
Close #1
MsgBox "Exe File created without a problem", vbInformation, "Compilation Done"
Exit Sub
'Thats it! The exe is compiled.
'Read the prjExeDummy (prjRdfce.vbp) to find how the
'compiled exe works.
errTrap:
'to err is electronic
Msg = "There was an error during compilation" & vbCrLf
Msg = Msg & vbCrLf & Err.Description
MsgBox Msg, vbCritical, "Error"
End Sub
Private Sub Form_Load()
End Sub
Private Sub imgPic_Click()
End Sub
Private Sub Label2_Click(Index As Integer)
End Sub
Private Sub lblAddPic_Click()
On Local Error GoTo errTrap
ComDLG.CancelError = True
ComDLG.ShowOpen
imgPic.Picture = LoadPicture(ComDLG.FileName)
errTrap:
End Sub
Private Sub chkPass_Click()
On Local Error Resume Next
If chkPass.Value > 0 Then
txtPass.Enabled = True
txtPass.SetFocus
Else
txtPass.Enabled = False
End If
End Sub
xfin encontre un code, para crear .exe desde un formulario de vb, pero alguien me lo podria explicar xfaa
saludos..
Autor