Find all our projects in development below.
All source code is GNU General Public License (GPL)
Browsing MainForm.frm (108.93 KB)
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form MainForm
BorderStyle = 1 'Fixed Single
Caption = "eBay Auction Builder"
ClientHeight = 5535
ClientLeft = 45
ClientTop = 330
ClientWidth = 9735
Icon = "MainForm.frx":0000
MaxButton = 0 'False
ScaleHeight = 5535
ScaleWidth = 9735
StartUpPosition = 2 'CenterScreen
Begin VB.Frame Frame3
Caption = "Web Links"
Enabled = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3615
Left = 120
TabIndex = 57
Top = 1080
Visible = 0 'False
Width = 1815
Begin VB.Label HyperlinkLabel
Caption = "Bug Reports"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 7
Left = 600
MousePointer = 99 'Custom
TabIndex = 75
Tag = "http://www.geocities.com/eBayAuctionBuilder/bugreports.htm"
Top = 1920
Width = 885
End
Begin VB.Label BulletLabel
Caption = "�"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 7
Left = 360
TabIndex = 74
Top = 1920
Width = 75
End
Begin VB.Label HyperlinkLabel
Caption = "Sell Item Page"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 6
Left = 600
MousePointer = 99 'Custom
TabIndex = 73
Tag = "http://pages.ebay.com/sell/index.html"
Top = 2880
Width = 1020
End
Begin VB.Label HyperlinkLabel
Caption = "Homepage"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 5
Left = 600
MousePointer = 99 'Custom
TabIndex = 72
Tag = "http://www.ebay.com/"
Top = 2640
Width = 765
End
Begin VB.Label BulletLabel
Caption = "�"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 6
Left = 360
TabIndex = 71
Top = 2880
Width = 75
End
Begin VB.Label BulletLabel
Caption = "�"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 5
Left = 360
TabIndex = 70
Top = 2640
Width = 75
End
Begin VB.Label Label34
Caption = "eBay:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 69
Top = 2280
Width = 495
End
Begin VB.Label BulletLabel
Caption = "�"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 4
Left = 360
TabIndex = 68
Top = 1680
Width = 75
End
Begin VB.Label BulletLabel
Caption = "�"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 3
Left = 360
TabIndex = 67
Top = 1440
Width = 75
End
Begin VB.Label BulletLabel
Caption = "�"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 2
Left = 360
TabIndex = 66
Top = 1200
Width = 75
End
Begin VB.Label BulletLabel
Caption = "�"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 1
Left = 360
TabIndex = 65
Top = 960
Width = 75
End
Begin VB.Label BulletLabel
Caption = "�"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 0
Left = 360
TabIndex = 64
Top = 720
Width = 75
End
Begin VB.Label HyperlinkLabel
Caption = "Online Help"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 4
Left = 600
MousePointer = 99 'Custom
TabIndex = 63
Tag = "http://www.geocities.com/eBayAuctionBuilder/help.htm"
Top = 1680
Width = 825
End
Begin VB.Label HyperlinkLabel
Caption = "Contact"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 3
Left = 600
MousePointer = 99 'Custom
TabIndex = 62
Tag = "http://www.geocities.com/eBayAuctionBuilder/contact.htm"
Top = 1440
Width = 555
End
Begin VB.Label HyperlinkLabel
Caption = "FAQ"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 2
Left = 600
MousePointer = 99 'Custom
TabIndex = 61
Tag = "http://www.geocities.com/eBayAuctionBuilder/faq.htm"
Top = 1200
Width = 315
End
Begin VB.Label HyperlinkLabel
Caption = "Download"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 1
Left = 600
MousePointer = 99 'Custom
TabIndex = 60
Tag = "http://www.geocities.com/eBayAuctionBuilder/download.htm"
Top = 960
Width = 720
End
Begin VB.Label HyperlinkLabel
Caption = "Homepage"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 0
Left = 600
MousePointer = 99 'Custom
TabIndex = 59
Tag = "http://www.geocities.com/eBayAuctionBuilder/"
Top = 720
Width = 780
End
Begin VB.Label Label27
Caption = "eBay Auction Builder:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 58
Top = 360
Width = 1575
End
End
Begin VB.CommandButton Command15
Caption = "&Help"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1320
TabIndex = 3
ToolTipText = "Show the eBay Auction Builder help file"
Top = 5055
Width = 1095
End
Begin VB.Frame Frame2
Caption = "Add-&ins"
Enabled = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2055
Left = 120
TabIndex = 21
Top = 1080
Visible = 0 'False
Width = 1815
Begin VB.CheckBox Check6
Caption = "Other..."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 26
Top = 1680
Width = 1335
End
Begin VB.CheckBox Check5
Caption = "Billpoint Logo"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 24
Top = 960
Width = 1335
End
Begin VB.CheckBox Check4
Caption = "eBay Power Sellers Logo"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 25
Top = 1200
Width = 1335
End
Begin VB.CheckBox Check3
Caption = "BidPay Logo"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 23
Top = 600
Width = 1335
End
Begin VB.CheckBox Check2
Caption = "PayPal Logo"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 22
Top = 240
Width = 1335
End
End
Begin VB.Frame Frame1
Enabled = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1455
Left = 120
TabIndex = 27
Top = 3240
Visible = 0 'False
Width = 1815
Begin VB.CommandButton Command14
Caption = "Save Proje&ct..."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 29
ToolTipText = "Save a project"
Top = 840
Width = 1335
End
Begin VB.CommandButton Command13
Caption = "Load Pro&ject..."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 28
ToolTipText = "Load a saved project"
Top = 360
Width = 1335
End
Begin VB.CommandButton Command12
Caption = "Load Project..."
Height = 375
Left = 240
TabIndex = 44
Top = 2400
Width = 1335
End
Begin VB.CommandButton Command11
Caption = "Save Project..."
Height = 375
Left = 240
TabIndex = 43
Top = 2880
Width = 1335
End
End
Begin VB.PictureBox LogoPicture
Height = 855
Left = 120
Picture = "MainForm.frx":0E42
ScaleHeight = 795
ScaleWidth = 1800
TabIndex = 42
TabStop = 0 'False
ToolTipText = "eBay Auction Builder"
Top = 120
Width = 1860
End
Begin VB.CommandButton Command1
Cancel = -1 'True
Caption = "Cancel"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 2
Top = 5055
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "< &Back"
Enabled = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 7320
TabIndex = 1
Top = 5055
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "&Next >"
Default = -1 'True
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 1
Left = 8520
TabIndex = 0
Top = 5055
Width = 1095
End
Begin VB.PictureBox PictureContainer
BorderStyle = 0 'None
Height = 4695
Index = 0
Left = 2040
ScaleHeight = 4695
ScaleWidth = 7575
TabIndex = 45
TabStop = 0 'False
Top = 120
Width = 7575
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Welcome to Jason's PC eBay Auction Builder v"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 240
TabIndex = 56
Top = 120
Width = 3300
End
Begin VB.Label Label2
Caption = "Follow the steps and hit Next when you are ready to continue."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 55
Top = 4080
Width = 4695
End
Begin VB.Label Label3
Caption = "Press Next to continue..."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 54
Top = 4320
Width = 3615
End
Begin VB.Label Label6
Caption = "With this program you can create better and more professional looking eBay auctions."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 53
Top = 480
Width = 6255
End
Begin VB.Label Label5
Caption = "Copyright � 1999 - 2001 Jason's PC Software"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 52
Top = 1200
Width = 3615
End
Begin VB.Label Label8
Caption = "Contact: jasonspc69@hotmail.com"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 51
Top = 1440
Width = 3615
End
Begin VB.Label Label9
Caption = "Website:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 50
Top = 1680
Width = 615
End
Begin VB.Label Label10
Caption = "http://www.geocities.com/eBayAuctionBuilder/"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 960
MousePointer = 99 'Custom
TabIndex = 49
ToolTipText = "Click to visit"
Top = 1680
Width = 3375
End
Begin VB.Label Label11
Caption = $"MainForm.frx":1651
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 240
TabIndex = 48
Top = 2280
Width = 4815
End
Begin VB.Label Label12
Caption = "eBay is a Registered Trademark � of eBay Inc. All Rights Reserved."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 47
Top = 3360
Width = 5055
End
Begin VB.Label Label13
Caption = "Jason's PC Software is in no way affiliated or endorsed by eBay Inc."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 46
Top = 3120
Width = 5055
End
End
Begin VB.PictureBox PictureContainer
BorderStyle = 0 'None
Height = 4695
Index = 2
Left = 2040
ScaleHeight = 4695
ScaleWidth = 7575
TabIndex = 40
TabStop = 0 'False
Top = 120
Width = 7575
Begin VB.CheckBox Check7
Caption = "&Stay Open After Finish is Pressed"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 33
Top = 4280
Width = 2775
End
Begin VB.CommandButton Command8
Caption = "&Preview..."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5760
TabIndex = 32
ToolTipText = "Preview the auction in your web browser"
Top = 4200
Width = 1695
End
Begin VB.TextBox Text8
BeginProperty Font
Name = "Courier New"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3135
Left = 120
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 31
ToolTipText = "Warning: Do not edit unless you know what you are doing!"
Top = 960
Width = 7335
End
Begin VB.Label Label22
Caption = "&Auction (Includes HTML source code):"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 30
Top = 600
Width = 3135
End
Begin VB.Label Label16
Caption = "Step 2: Revising and finalizing the auction"
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 41
Top = 120
Width = 7575
End
End
Begin VB.PictureBox PictureContainer
BorderStyle = 0 'None
Height = 4695
Index = 1
Left = 2040
ScaleHeight = 4695
ScaleWidth = 7575
TabIndex = 34
TabStop = 0 'False
Top = 120
Width = 7575
Begin VB.CommandButton Command10
Height = 315
Left = 7080
Picture = "MainForm.frx":1716
Style = 1 'Graphical
TabIndex = 16
ToolTipText = "Clean the layout dropdown list"
Top = 3330
Width = 375
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
ItemData = "MainForm.frx":19D8
Left = 5160
List = "MainForm.frx":19FA
Style = 2 'Dropdown List
TabIndex = 15
Top = 3330
Width = 1815
End
Begin VB.CheckBox Check1
Caption = "Add the &user customization feature to this auction"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1080
TabIndex = 14
Top = 4320
Value = 1 'Checked
Width = 3975
End
Begin VB.TextBox Text1
Alignment = 2 'Center
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 6360
MaxLength = 2
TabIndex = 18
Text = "1"
Top = 3720
Width = 615
End
Begin MSComDlg.CommonDialog CommonDialog3
Left = 6480
Top = 120
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
Filter = "eBay Auction Layouts (*.eal)|*.eal|All Files (*.*)|*.*"
End
Begin VB.CommandButton Command9
Caption = "Sa&ve..."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6360
TabIndex = 20
ToolTipText = "Save the current auction layout"
Top = 4200
Width = 1095
End
Begin VB.CommandButton Command3
Caption = "L&oad..."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5160
TabIndex = 19
ToolTipText = "Load a saved auction layout"
Top = 4200
Width = 1095
End
Begin MSComDlg.CommonDialog CommonDialog2
Left = 6000
Top = 120
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 5520
Top = 120
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
End
Begin VB.CommandButton Command7
Caption = "&Save..."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 13
ToolTipText = "Save the description"
Top = 3600
Width = 855
End
Begin VB.CommandButton Command6
Caption = "&Remove"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 9
ToolTipText = "Remove the selected picture"
Top = 1920
Width = 855
End
Begin VB.CommandButton Command5
Caption = "&Add..."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 8
ToolTipText = "Add a picture"
Top = 1440
Width = 855
End
Begin VB.CommandButton Command4
Caption = "&Load..."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 12
ToolTipText = "Load a text file"
Top = 3120
Width = 855
End
Begin MSComctlLib.ListView ListView1
Height = 1455
Left = 1080
TabIndex = 7
Top = 1080
Width = 3855
_ExtentX = 6800
_ExtentY = 2566
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 2
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "Picture Caption"
Object.Width = 3318
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "Picture Location (URL)"
Object.Width = 3316
EndProperty
End
Begin VB.TextBox Text10
BeginProperty Font
Name = "Courier New"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1575
Left = 1080
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 11
Top = 2640
Width = 3855
End
Begin VB.TextBox Text9
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1080
MaxLength = 100
TabIndex = 5
Top = 600
Width = 3855
End
Begin VB.PictureBox Picture2
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "Times New Roman"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2655
Left = 5160
ScaleHeight = 2595
ScaleWidth = 2235
TabIndex = 35
TabStop = 0 'False
Tag = "3"
ToolTipText = "Click an object to change its properties"
Top = 600
Width = 2295
Begin VB.Image Image2
Height = 240
Left = 240
Picture = "MainForm.frx":1A4F
Stretch = -1 'True
ToolTipText = "Click an object to change its properties"
Top = 1680
Width = 240
End
Begin VB.Image Image1
Height = 240
Left = 240
Picture = "MainForm.frx":1E14
Stretch = -1 'True
ToolTipText = "Click an object to change its properties"
Top = 960
Width = 240
End
Begin VB.Line Line13
BorderColor = &H00000000&
X1 = 120
X2 = 2040
Y1 = 480
Y2 = 480
End
Begin VB.Line Line10
BorderColor = &H00000000&
X1 = 600
X2 = 600
Y1 = 480
Y2 = 2400
End
Begin VB.Line Line16
BorderColor = &H00000000&
X1 = 120
X2 = 2040
Y1 = 2400
Y2 = 2400
End
Begin VB.Label Label19
Alignment = 2 'Center
BackColor = &H00FFC0C0&
Caption = "Description"
BeginProperty Font
Name = "Times New Roman"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 1695
Left = 720
TabIndex = 38
Tag = "3"
ToolTipText = "Click an object to change its properties"
Top = 600
Width = 1215
End
Begin VB.Line Line15
BorderColor = &H00000000&
X1 = 120
X2 = 2040
Y1 = 120
Y2 = 120
End
Begin VB.Label Label18
Alignment = 2 'Center
BackColor = &H00FFC0C0&
Caption = "Title"
BeginProperty Font
Name = "Times New Roman"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 240
TabIndex = 37
Tag = "5"
ToolTipText = "Click an object to change its properties"
Top = 195
Width = 1695
End
Begin VB.Line Line12
BorderColor = &H00000000&
X1 = 2040
X2 = 2040
Y1 = 2400
Y2 = 120
End
Begin VB.Line Line11
BorderColor = &H00000000&
X1 = 120
X2 = 120
Y1 = 2400
Y2 = 120
End
Begin VB.Line Line2
BorderColor = &H00000000&
X1 = 120
X2 = 600
Y1 = 1440
Y2 = 1440
End
Begin VB.Label Label17
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BeginProperty Font
Name = "Times New Roman"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 1680
Left = 180
TabIndex = 36
Tag = "3"
ToolTipText = "Click an object to change its properties"
Top = 600
Width = 375
End
End
Begin MSComDlg.CommonDialog CommonDialog4
Left = 6960
Top = 120
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
Filter = "eBay Auction Projects (*.eap)|*.eap|All Files (*.*)|*.*"
End
Begin VB.Label Label7
Caption = "Bord&er Width:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5160
TabIndex = 17
Top = 3780
Width = 1095
End
Begin VB.Label Label4
Caption = "&Pictures:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 6
Top = 1080
Width = 735
End
Begin VB.Label Label24
Caption = "&Description:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 10
Top = 2640
Width = 855
End
Begin VB.Label Label23
Caption = "&Title:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 4
Top = 645
Width = 495
End
Begin VB.Label Label20
Caption = "Step 1: Building the auction"
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 39
Top = 120
Width = 7455
End
End
Begin VB.Frame Frame4
Caption = "Information"
Enabled = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3615
Left = 120
TabIndex = 76
Top = 1080
Visible = 0 'False
Width = 1815
Begin VB.Line Line3
BorderColor = &H00808080&
X1 = 1680
X2 = 120
Y1 = 2640
Y2 = 2640
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
X1 = 1680
X2 = 120
Y1 = 2655
Y2 = 2655
End
Begin VB.Label Label15
Alignment = 2 'Center
Caption = "To see how your auction will look, click the Preview button."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 120
TabIndex = 78
Top = 2760
Width = 1575
End
Begin VB.Label Label14
Alignment = 2 'Center
Caption = $"MainForm.frx":21D9
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2295
Left = 120
TabIndex = 77
Top = 360
Width = 1575
End
End
Begin VB.Line Line6
BorderColor = &H00FFFFFF&
X1 = 9600
X2 = 120
Y1 = 4935
Y2 = 4935
End
Begin VB.Line Line5
BorderColor = &H00808080&
X1 = 9600
X2 = 120
Y1 = 4920
Y2 = 4920
End
Begin VB.Menu ListViewPopupMenu
Caption = "ListViewPopupMenu"
Visible = 0 'False
Begin VB.Menu MoveUpMenu
Caption = "Move &Up"
End
Begin VB.Menu MoveDownMenu
Caption = "Move &Down"
End
End
Begin VB.Menu Popupmenu1
Caption = "Popupmenu1"
Visible = 0 'False
Begin VB.Menu ChangeFontMenu
Caption = "Change &Font"
End
Begin VB.Menu ChangeBackColor
Caption = "Change &Background"
End
Begin VB.Menu ChangeBorderColor
Caption = "Change B&order Color"
Visible = 0 'False
End
Begin VB.Menu Blank1
Caption = "-"
End
Begin VB.Menu AlignmentMenu
Caption = "Font Alignment"
Begin VB.Menu LeftMenu
Caption = "&Left"
End
Begin VB.Menu CenterMenu
Caption = "&Center"
End
Begin VB.Menu RightMenu
Caption = "&Right"
End
End
End
End
Attribute VB_Name = "MainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Ver As String
Dim SelectedObject As Object
Dim CurrentPic As Integer
Dim bNoBorderCheck As Boolean
Dim bIsLoading As Boolean
Dim bAllowExit As Boolean
Dim bSkipLoad As Boolean
Dim LayoutList() As String
Dim ExternalFile As String
Dim LP_LayoutIndex As Integer
Dim LP_LayoutFile As String
Private Const RegAppRoot = "Software\eBay Auction Builder\"
Private Const RegLayoutList = RegAppRoot + "Layouts\"
Private Const RegAddins = RegAppRoot + "Addins\"
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const BS_CENTER = &H300
Private Const GWL_STYLE = (-16)
Function BuildDescriptionCell() As String
BuildDescriptionCell = IIf(Label19.Font.Bold, "<B>", "") + IIf(Label19.Font.Strikethrough, "<S>", "") + IIf(Label19.Font.Italic, "<I>", "") + IIf(Label19.Font.Underline, "<U>", "") + _
"<FONT FACE=" + Quote + Label19.Font.Name + Quote + " COLOR=%TEXTCOLOR3% SIZE=" + Label19.Tag + ">" + Replace(Text10.Text, vbCrLf, "<BR>" + vbCrLf) + "</FONT>" + IIf(Label19.Font.Underline, "</U>", "") + _
IIf(Label19.Font.Italic, "</I>", "") + IIf(Label19.Font.Strikethrough, "</S>", "") + IIf(Label19.Font.Bold, "</B>", "")
End Function
Function InsertAddins(HTML_Buffer As String) As String
Dim HTML_Addins_Buffer As String
Dim TmpStr As String
HTML_Addins_Buffer = ""
If Check2.Value = 1 Then HTML_Addins_Buffer = GetResourceAsString("ADDINS", 1)
If Check3.Value = 1 Then HTML_Addins_Buffer = HTML_Addins_Buffer + GetResourceAsString("ADDINS", 2)
If Check5.Value = 1 Then
TmpStr = GetResourceAsString("ADDINS", 3)
TmpStr = Left(TmpStr, Len(TmpStr) - 2)
HTML_Addins_Buffer = HTML_Addins_Buffer + TmpStr
End If
If Check4.Value = 1 Then HTML_Addins_Buffer = HTML_Addins_Buffer + GetResourceAsString("ADDINS", 4)
If Check6.Value = 1 Then HTML_Addins_Buffer = HTML_Addins_Buffer + OtherAddinForm.Text1.Text
If HTML_Addins_Buffer <> "" Then HTML_Addins_Buffer = "<!-- Begin Auction Add-ins -->" + vbCrLf + HTML_Addins_Buffer + vbCrLf + "<!-- End Auction Add-ins -->" + vbCrLf
InsertAddins = Replace(HTML_Buffer, "%ADDINS%", HTML_Addins_Buffer)
End Function
Function LoadProject(File As String) As Boolean
On Error Resume Next
Dim VarValue As String
Dim VarValue2 As String
Dim FileBuffer As String
Dim LayoutFile As String
Dim bItemFound As Boolean
Dim LayoutStart As Long
Dim LayoutEnd As Long
Dim LI As Object
Dim i As Integer
Dim FNum As Integer
FNum = FreeFile
VarValue = Getstr("EAP_VERSION", File)
If VersionDiff("1.0", VarValue & ".0.0", True) Then
LoadProject = False
Exit Function
End If
VarValue = Getstr("Title", File)
Text9.Text = VarValue
VarValue = Getstr("Description", File)
Text10.Text = Replace(VarValue, Chr(10), vbCrLf)
VarValue = Getstr("TotalPictures", File)
ListView1.ListItems.Clear
If Val(VarValue) > 0 Then
For i = 1 To Val(VarValue)
VarValue = Getstr("Picture[" & i & "].Location", File)
If VarValue <> "" Then
Set LI = ListView1.ListItems.Add()
LI.Text = Getstr("Picture[" & i & "].Caption", File)
LI.SubItems(1) = VarValue
Set LI = Nothing
End If
Next i
End If
VarValue = Getstr("PayPal", File)
If Val(VarValue) < 0 Or Val(VarValue) > 1 Then
Check2.Value = 0
Else
Check2.Value = Val(VarValue)
End If
VarValue = Getstr("BidPay", File)
If Val(VarValue) < 0 Or Val(VarValue) > 1 Then
Check3.Value = 0
Else
Check3.Value = Val(VarValue)
End If
VarValue = Getstr("Billpoint", File)
If Val(VarValue) < 0 Or Val(VarValue) > 1 Then
Check5.Value = 0
Else
Check5.Value = Val(VarValue)
End If
VarValue = Getstr("PowerSellers", File)
If Val(VarValue) < 0 Or Val(VarValue) > 1 Then
Check4.Value = 0
Else
Check4.Value = Val(VarValue)
End If
bIsLoading = True
VarValue = Getstr("Other", File)
If Val(VarValue) < 0 Or Val(VarValue) > 1 Then
Check6.Value = 0
Else
Check6.Value = Val(VarValue)
End If
bIsLoading = False
VarValue = Getstr("OtherText", File)
OtherAddinForm.Text1.Text = Replace(VarValue, Chr(10), vbCrLf)
OtherAddinForm.Text1.SelStart = 0
VarValue = Getstr("AddCustomizeFeature", File)
If Val(VarValue) < 0 Or Val(VarValue) > 1 Then
Check1.Value = 0
Else
Check1.Value = Val(VarValue)
End If
VarValue = Getstr("LayoutIndex", File)
VarValue2 = Getstr("LayoutName", File)
LP_LayoutFile = ""
If Val(VarValue) >= 10 And VarValue2 <> "" Then
bNoBorderCheck = True
LayoutFile = App.Path
If Right(LayoutFile, 1) <> "\" Then LayoutFile = LayoutFile + "\"
LayoutFile = LayoutFile + VarValue2 + ".eal"
Open File For Input As #FNum
FileBuffer = Input(LOF(FNum), FNum)
Close #FNum
Open LayoutFile For Output As #FNum
LayoutStart = InStr(FileBuffer, "LayoutFile={" + vbCrLf)
If LayoutStart > 0 Then LayoutEnd = InStr(LayoutStart + 1, FileBuffer, vbCrLf + "LayoutFile=}")
If Err Or (LayoutStart = 0 Or LayoutEnd = 0) Then
Combo1.ListIndex = 0
MsgBox "Error: Unable to load the layout associated with this project.", vbExclamation
Close #FNum
GoTo SkipEAL
End If
Print #FNum, "// Jason's PC eBay Auction Builder v" & Ver & " Layout"
Print #FNum, ""
Print #FNum, "EAL_VERSION=" & Ver
Print #FNum, ""
Print #FNum, Mid(FileBuffer, LayoutStart + 14, LayoutEnd - (LayoutStart + 14))
Close #FNum
If LoadLayout(LayoutFile) Then
bItemFound = False
If Combo1.ListCount >= 10 Then
For i = 10 To Combo1.ListCount - 1
If Combo1.List(i) = VarValue2 Then
bItemFound = True
Exit For
End If
Next i
End If
bSkipLoad = True
If bItemFound = False Then
Combo1.AddItem VarValue2
ReDim Preserve LayoutList(UBound(LayoutList) + 1)
LP_LayoutIndex = UBound(LayoutList)
LP_LayoutFile = LayoutFile
Combo1.ListIndex = Combo1.NewIndex
Else
LP_LayoutIndex = i
LP_LayoutFile = LayoutFile
Combo1.ListIndex = i
End If
bSkipLoad = False
Else
Combo1.ListIndex = 0
MsgBox "Error: Unable to load the layout associated with this project.", vbExclamation
End If
bNoBorderCheck = False
ElseIf Val(VarValue) >= 0 And Val(VarValue) < 10 Then
Combo1.ListIndex = Val(VarValue)
Else
Combo1.ListIndex = 0
End If
SkipEAL:
LoadProject = True
End Function
Sub CenterFrameCaption(FrameObj As Frame)
SetWindowLong FrameObj.hWnd, GWL_STYLE, GetWindowLong(FrameObj.hWnd, GWL_STYLE) Or BS_CENTER
End Sub
Public Function GetCmdLineValue(Str As String, Cmd As String) As String
Dim Str2 As String
Dim bCmdFound As Boolean
Dim i As Integer
Dim i2 As Integer
i = 0
i2 = 1
Str2 = LCase(Str)
bCmdFound = False
GetCmdLineValue = ""
If InStr(Str2, Cmd) = 0 Then i2 = 0
Do Until i2 = 0
If Mid(Str2, i + 1, Len(Cmd)) = Cmd Then bCmdFound = True: Exit Do
i = InStr(i + 1, Str2, " ")
i2 = i
Loop
If bCmdFound Then
i = i + Len(Cmd) + 1
Str2 = Mid(Str, i)
If Left(Str2, 1) = Chr(34) And InStr(2, Str2, Chr(34)) > 0 Then Str2 = Mid(Str2, 2, InStr(2, Str2, Chr(34)) - 2)
GetCmdLineValue = Str2
End If
End Function
Function LoadLayout(File As String, Optional bValidate As Boolean = True) As Boolean
Dim VarValue As String
VarValue = Getstr("EAL_VERSION", File)
If VersionDiff("1.0", VarValue & ".0.0", True) And bValidate Then
LoadLayout = False
Exit Function
End If
VarValue = Getstr("BorderColor", File)
Line2.BorderColor = Val(VarValue)
Line10.BorderColor = Val(VarValue)
Line11.BorderColor = Val(VarValue)
Line12.BorderColor = Val(VarValue)
Line13.BorderColor = Val(VarValue)
Line15.BorderColor = Val(VarValue)
Line16.BorderColor = Val(VarValue)
VarValue = Getstr("BorderWidth", File)
If Val(VarValue) < 1 Or Val(VarValue) > 20 Then
Text1.Text = "1"
Else
Text1.Text = VarValue
End If
VarValue = Getstr("TitleBackColor", File)
Label18.BackColor = Val(VarValue)
VarValue = Getstr("TitleForeColor", File)
Label18.ForeColor = Val(VarValue)
VarValue = Getstr("TitleFontName", File)
Label18.Font.Name = VarValue
VarValue = Getstr("TitleFontBold", File)
Label18.Font.Bold = CBool(Val(VarValue))
VarValue = Getstr("TitleFontItalic", File)
Label18.Font.Italic = CBool(Val(VarValue))
VarValue = Getstr("TitleFontUnderline", File)
Label18.Font.Underline = CBool(Val(VarValue))
VarValue = Getstr("TitleFontStrikethrough", File)
Label18.Font.Strikethrough = CBool(Val(VarValue))
VarValue = Getstr("TitleFontSize", File)
If Val(VarValue) < 1 Or Val(VarValue) > 6 Then
Label18.Tag = "5"
Else
Label18.Tag = VarValue
End If
VarValue = Getstr("TitleFontAlignment", File)
If VarValue = "" Or (Val(VarValue) < 0 Or Val(VarValue) > 2) Then
Label18.Alignment = 2
Else
Label18.Alignment = Val(VarValue)
End If
VarValue = Getstr("PictureBackColor", File)
Label17.BackColor = Val(VarValue)
VarValue = Getstr("PictureForeColor", File)
Label17.ForeColor = Val(VarValue)
VarValue = Getstr("PictureFontName", File)
Label17.Font.Name = VarValue
VarValue = Getstr("PictureFontBold", File)
Label17.Font.Bold = CBool(Val(VarValue))
VarValue = Getstr("PictureFontItalic", File)
Label17.Font.Italic = CBool(Val(VarValue))
VarValue = Getstr("PictureFontUnderline", File)
Label17.Font.Underline = CBool(Val(VarValue))
VarValue = Getstr("PictureFontStrikethrough", File)
Label17.Font.Strikethrough = CBool(Val(VarValue))
VarValue = Getstr("PictureFontSize", File)
If Val(VarValue) < 1 Or Val(VarValue) > 6 Then
Label17.Tag = "3"
Else
Label17.Tag = VarValue
End If
VarValue = Getstr("PictureFontAlignment", File)
If VarValue = "" Or (Val(VarValue) < 0 Or Val(VarValue) > 2) Then
Label17.Alignment = 2
Else
Label17.Alignment = Val(VarValue)
End If
VarValue = Getstr("DescriptionBackColor", File)
Label19.BackColor = Val(VarValue)
VarValue = Getstr("DescriptionForeColor", File)
Label19.ForeColor = Val(VarValue)
VarValue = Getstr("DescriptionFontName", File)
Label19.Font.Name = VarValue
VarValue = Getstr("DescriptionFontBold", File)
Label19.Font.Bold = CBool(Val(VarValue))
VarValue = Getstr("DescriptionFontItalic", File)
Label19.Font.Italic = CBool(Val(VarValue))
VarValue = Getstr("DescriptionFontUnderline", File)
Label19.Font.Underline = CBool(Val(VarValue))
VarValue = Getstr("DescriptionFontStrikethrough", File)
Label19.Font.Strikethrough = CBool(Val(VarValue))
VarValue = Getstr("DescriptionFontSize", File)
If Val(VarValue) < 1 Or Val(VarValue) > 6 Then
Label19.Tag = "5"
Else
Label19.Tag = VarValue
End If
VarValue = Getstr("DescriptionFontAlignment", File)
If VarValue = "" Or (Val(VarValue) < 0 Or Val(VarValue) > 2) Then
Label19.Alignment = 2
Else
Label19.Alignment = Val(VarValue)
End If
LoadLayout = True
End Function
Function VersionDiff(sVersion As String, sOldVersion As String, Optional bReverse As Boolean) As Boolean
Dim VerArray() As String
Dim OldVerArray() As String
VerArray = Split(sVersion & ".0", ".", 3)
OldVerArray = Split(sOldVersion & ".0", ".", 3)
VersionDiff = False
If sVersion <> sOldVersion And sVersion <> "" And sOldVersion <> "" Then
If bReverse Then
If Val(OldVerArray(0)) <= Val(VerArray(0)) And _
Val(OldVerArray(1)) <= Val(VerArray(1)) And _
Val(OldVerArray(2)) <= Val(VerArray(2)) Then VersionDiff = True
Else
If Val(VerArray(0)) <= Val(OldVerArray(0)) And _
Val(VerArray(1)) <= Val(OldVerArray(1)) And _
Val(VerArray(2)) <= Val(OldVerArray(2)) Then VersionDiff = True
End If
End If
End Function
Function BuildHTML() As String
Dim HTML_Buffer As String
Dim HTML_Desc_Buffer As String
Dim HTML_Auction_Buffer As String
Dim HTML_Temp_Array() As String
Dim Quote As String
Dim i As Long
Const HTML_Header = "<!-- Begin Auction Description -->" + vbCrLf + "</BLOCKQUOTE><BR>" + vbCrLf
Const HTML_Footer = vbCrLf + "<CENTER><SMALL>This HTML page was automatically generated using " + vbCrLf + _
"<A HREF='http://www.geocities.com/eBayAuctionBuilder/' TARGET='_blank'>eBay Auction Builder</A> from" + vbCrLf + _
"<A HREF='http://www.geocities.com/eBayAuctionBuilder/' TARGET='_blank'>Jason's PC Software.</A></SMALL></CENTER>" + vbCrLf + _
"%ADDINS%<!-- This description was created using Jason's PC eBay Auction Builder v%PROG_VERSION% -->" + vbCrLf + _
"<!-- End Auction Description -->"
Quote = Chr(34)
HTML_Buffer = BuildAuctionBase
HTML_Desc_Buffer = Replace(HTML_Buffer, "%BACKCOLOR1%", LongToHTML(Label18.BackColor))
HTML_Desc_Buffer = Replace(HTML_Desc_Buffer, "%BACKCOLOR2%", LongToHTML(Label17.BackColor))
HTML_Desc_Buffer = Replace(HTML_Desc_Buffer, "%BACKCOLOR3%", LongToHTML(Label19.BackColor))
HTML_Desc_Buffer = Replace(HTML_Desc_Buffer, "%TEXTCOLOR1%", LongToHTML(Label18.ForeColor))
HTML_Desc_Buffer = Replace(HTML_Desc_Buffer, "%TEXTCOLOR2%", LongToHTML(Label17.ForeColor))
HTML_Desc_Buffer = Replace(HTML_Desc_Buffer, "%TEXTCOLOR3%", LongToHTML(Label19.ForeColor))
HTML_Desc_Buffer = Replace(HTML_Desc_Buffer, "%BRDRCOLOR%", LongToHTML(Line10.BorderColor))
HTML_Desc_Buffer = Replace(HTML_Desc_Buffer, "%BRDRWIDTH%", Text1.Text)
HTML_Desc_Buffer = Replace(HTML_Desc_Buffer, "%PROG_VERSION%", Ver)
If Check1.Value = 0 Then
BuildHTML = HTML_Header + HTML_Desc_Buffer + Replace(HTML_Footer, "%PROG_VERSION%", Ver)
Exit Function
End If
HTML_Auction_Buffer = GetResourceAsString("TEXT", 1)
HTML_Auction_Buffer = Replace(HTML_Auction_Buffer, "%BACKCOLOR1%", LongToHTML(Label18.BackColor))
HTML_Auction_Buffer = Replace(HTML_Auction_Buffer, "%BACKCOLOR2%", LongToHTML(Label17.BackColor))
HTML_Auction_Buffer = Replace(HTML_Auction_Buffer, "%BACKCOLOR3%", LongToHTML(Label19.BackColor))
HTML_Auction_Buffer = Replace(HTML_Auction_Buffer, "%TEXTCOLOR1%", LongToHTML(Label18.ForeColor))
HTML_Auction_Buffer = Replace(HTML_Auction_Buffer, "%TEXTCOLOR2%", LongToHTML(Label17.ForeColor))
HTML_Auction_Buffer = Replace(HTML_Auction_Buffer, "%TEXTCOLOR3%", LongToHTML(Label19.ForeColor))
HTML_Auction_Buffer = Replace(HTML_Auction_Buffer, "%BRDRWIDTH%", Text1.Text)
HTML_Auction_Buffer = Replace(HTML_Auction_Buffer, "%BRDRCOLOR%", LongToHTML(Line10.BorderColor))
HTML_Auction_Buffer = Replace(HTML_Auction_Buffer, "%PROG_VERSION%", Ver)
HTML_Auction_Buffer = Replace(HTML_Auction_Buffer, "%NON_JS_DESC_INSERT%", HTML_Desc_Buffer)
HTML_Desc_Buffer = Replace(HTML_Buffer, "\", "\\")
HTML_Desc_Buffer = Replace(HTML_Desc_Buffer, Quote, "\" + Quote)
HTML_Desc_Buffer = Replace(HTML_Desc_Buffer, "%BACKCOLOR1%", Quote + " + BG1_ColorList[bgcolor1].Value + " + Quote)
HTML_Desc_Buffer = Replace(HTML_Desc_Buffer, "%BACKCOLOR2%", Quote + " + BG2_ColorList[bgcolor2].Value + " + Quote)
HTML_Desc_Buffer = Replace(HTML_Desc_Buffer, "%BACKCOLOR3%", Quote + " + BG3_ColorList[bgcolor3].Value + " + Quote)
HTML_Desc_Buffer = Replace(HTML_Desc_Buffer, "%TEXTCOLOR1%", Quote + " + TC1_ColorList[txtcolor1].Value + " + Quote)
HTML_Desc_Buffer = Replace(HTML_Desc_Buffer, "%TEXTCOLOR2%", Quote + " + TC2_ColorList[txtcolor2].Value + " + Quote)
HTML_Desc_Buffer = Replace(HTML_Desc_Buffer, "%TEXTCOLOR3%", Quote + " + TC3_ColorList[txtcolor3].Value + " + Quote)
HTML_Desc_Buffer = Replace(HTML_Desc_Buffer, "%BRDRCOLOR%", Quote + " + BC_ColorList[brdrcolor].Value + " + Quote)
HTML_Desc_Buffer = Replace(HTML_Desc_Buffer, "%BRDRWIDTH%", Quote + " + brdrwidth + " + Quote)
HTML_Temp_Array = Split(HTML_Desc_Buffer, vbCrLf)
HTML_Desc_Buffer = ""
For i = LBound(HTML_Temp_Array) To UBound(HTML_Temp_Array)
HTML_Desc_Buffer = HTML_Desc_Buffer + "document.writeln(" + Quote + HTML_Temp_Array(i) + Quote + ");" + vbCrLf
Next i
HTML_Auction_Buffer = Replace(HTML_Auction_Buffer, "%JS_DESC_INSERT%", HTML_Desc_Buffer)
BuildHTML = HTML_Header + HTML_Auction_Buffer
End Function
Function Getstr(ByVal ItemName As String, File As String) As String
On Error GoTo NoF
Dim FNum As Integer
Dim L As String
Dim Lines() As String
Dim i As Long
FNum = FreeFile
ItemName = ItemName + "="
Open File For Input As #FNum
Do While Not EOF(FNum)
Line Input #FNum, L
If Left(L, Len(ItemName)) = ItemName Then
Getstr = Mid(L, Len(ItemName) + 1)
Close #FNum
Exit Function
End If
Loop
Close #FNum
NoF:
If File <> "" Then
Lines = Split(File, vbCrLf)
For i = LBound(Lines) To UBound(Lines)
If Left(Lines(i), Len(ItemName)) = ItemName Then
Getstr = Mid(Lines(i), Len(ItemName) + 1)
Exit Function
End If
Next i
Else
Getstr = ""
End If
End Function
Function BuildAuctionBase() As String
Dim HTML_Buffer As String
Dim Quote As String
Dim i As Long
Quote = Chr(34)
HTML_Buffer = "<TABLE WIDTH=100% ALIGN=CENTER BORDER=%BRDRWIDTH% BORDERCOLOR=%BRDRCOLOR% CELLPADDING=3 CELLSPACING=0>" + vbCrLf
If Text9.Text <> "" Then
HTML_Buffer = HTML_Buffer + "<TR><TD BGCOLOR=%BACKCOLOR1% VALIGN=TOP" + IIf(ListView1.ListItems.Count > 0, " COLSPAN=2", "") + " ALIGN=" + GetAlignment(Label18.Alignment) + ">" + vbCrLf + IIf(Label18.Font.Bold, "<B>", "") + _
IIf(Label18.Font.Strikethrough, "<S>", "") + IIf(Label18.Font.Italic, "<I>", "") + IIf(Label18.Font.Underline, "<U>", "") + _
"<FONT FACE=" + Quote + Label18.Font.Name + Quote + " COLOR=%TEXTCOLOR1% SIZE=" + Label18.Tag + ">" + Text9.Text + "</FONT>" + IIf(Label18.Font.Underline, "</U>", "") + IIf(Label18.Font.Italic, "</I>", "") + _
IIf(Label18.Font.Strikethrough, "</S>", "") + IIf(Label18.Font.Bold, "</B>", "") + "</TD></TR>" + vbCrLf
End If
If ListView1.ListItems.Count > 0 Then
HTML_Buffer = HTML_Buffer + "<TR><TD BGCOLOR=%BACKCOLOR2% WIDTH=25% VALIGN=TOP ALIGN=" + GetAlignment(Label17.Alignment) + ">" + vbCrLf
Else
HTML_Buffer = HTML_Buffer + "<TR><TD BGCOLOR=%BACKCOLOR3% WIDTH=100% VALIGN=TOP ALIGN=" + GetAlignment(Label19.Alignment) + ">" + vbCrLf + BuildDescriptionCell + "</TD></TR>" + vbCrLf
End If
If ListView1.ListItems.Count > 0 Then
For i = 1 To ListView1.ListItems.Count
If i > 1 Then HTML_Buffer = HTML_Buffer + "<TR><TD BGCOLOR=%BACKCOLOR2% WIDTH=25% VALIGN=TOP ALIGN=" + GetAlignment(Label17.Alignment) + ">" + vbCrLf
HTML_Buffer = HTML_Buffer + IIf(Label17.Font.Bold, "<B>", "") + IIf(Label17.Font.Strikethrough, "<S>", "") + IIf(Label17.Font.Italic, "<I>", "") + _
IIf(Label17.Font.Underline, "<U>", "") + "<FONT FACE=" + Quote + Label17.Font.Name + Quote + " COLOR=%TEXTCOLOR2% SIZE=" + Label17.Tag + ">" + vbCrLf
HTML_Buffer = HTML_Buffer + "<IMG SRC=" + Quote + ListView1.ListItems(i).SubItems(1) + Quote + "><BR>" + ListView1.ListItems(i).Text + vbCrLf + _
IIf(Label17.Font.Underline, "</U>", "") + IIf(Label17.Font.Italic, "</I>", "") + IIf(Label17.Font.Strikethrough, "</S>", "") + IIf(Label17.Font.Bold, "</B>", "") + "</TD>"
If i = 1 Then
HTML_Buffer = HTML_Buffer + "<TD BGCOLOR=%BACKCOLOR3% WIDTH=75% VALIGN=TOP ROWSPAN=" & ListView1.ListItems.Count & " ALIGN=" + GetAlignment(Label19.Alignment) + ">" + vbCrLf + BuildDescriptionCell + "</TD></TR>"
Else
HTML_Buffer = HTML_Buffer + "</TR>"
End If
Next i
End If
HTML_Buffer = HTML_Buffer + "</TABLE>"
BuildAuctionBase = HTML_Buffer
End Function
Function GetAlignment(Alignment As Integer) As String
Select Case Alignment
Case 0
GetAlignment = "LEFT"
Case 1
GetAlignment = "RIGHT"
Case 2
GetAlignment = "CENTER"
End Select
End Function
Sub SetPictureContainerIndex(Index As Integer)
Dim i As Integer
For i = PictureContainer.LBound To PictureContainer.UBound
PictureContainer(i).Enabled = IIf(Index = i, True, False)
Next i
PictureContainer(Index).ZOrder 0
If Index = 0 Then
Frame3.Enabled = True
Frame3.Visible = True
Else
Frame3.Visible = False
Frame3.Enabled = False
End If
If Index = 1 Then
Frame1.Enabled = True
Frame1.Visible = True
Frame2.Enabled = True
Frame2.Visible = True
Else
Frame1.Visible = False
Frame1.Enabled = False
Frame2.Visible = False
Frame2.Enabled = False
End If
If Index = 2 Then
Frame4.Enabled = True
Frame4.Visible = True
Else
Frame4.Visible = False
Frame4.Enabled = False
End If
End Sub
Private Sub BulletLabel_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
If Button <> vbLeftButton Then
Label10.ForeColor = vbBlack
For i = HyperlinkLabel.LBound To HyperlinkLabel.UBound
HyperlinkLabel(i).ForeColor = vbBlack
Next i
End If
End Sub
Private Sub CenterMenu_Click()
On Error Resume Next
SelectedObject.Alignment = 2
End Sub
Private Sub ChangeBackColor_Click()
On Error GoTo CancelErr
CommonDialog2.Color = SelectedObject.BackColor
CommonDialog2.ShowColor
SelectedObject.BackColor = CommonDialog2.Color
CancelErr:
End Sub
Private Sub ChangeBorderColor_Click()
On Error GoTo CancelErr
CommonDialog2.Color = Line10.BorderColor
CommonDialog2.ShowColor
Line2.BorderColor = CommonDialog2.Color
Line10.BorderColor = CommonDialog2.Color
Line11.BorderColor = CommonDialog2.Color
Line12.BorderColor = CommonDialog2.Color
Line13.BorderColor = CommonDialog2.Color
Line15.BorderColor = CommonDialog2.Color
Line16.BorderColor = CommonDialog2.Color
CancelErr:
End Sub
Private Sub ChangeFontMenu_Click()
On Error GoTo CancelErr
CommonDialog2.Min = 1
CommonDialog2.Max = 6
CommonDialog2.FontBold = SelectedObject.Font.Bold
CommonDialog2.FontItalic = SelectedObject.Font.Italic
CommonDialog2.FontName = SelectedObject.Font.Name
CommonDialog2.FontSize = Val(SelectedObject.Tag)
CommonDialog2.FontStrikethru = SelectedObject.Font.Strikethrough
CommonDialog2.FontUnderline = SelectedObject.Font.Underline
CommonDialog2.Color = SelectedObject.ForeColor
CommonDialog2.ShowFont
SelectedObject.Font.Bold = CommonDialog2.FontBold
SelectedObject.Font.Italic = CommonDialog2.FontItalic
SelectedObject.Font.Name = CommonDialog2.FontName
SelectedObject.Tag = CStr(CommonDialog2.FontSize)
SelectedObject.Font.Strikethrough = CommonDialog2.FontStrikethru
SelectedObject.Font.Underline = CommonDialog2.FontUnderline
SelectedObject.ForeColor = CommonDialog2.Color
CancelErr:
End Sub
Private Sub Check6_Click()
If Not bIsLoading Then
If Check6.Value = 1 Then
OtherAddinForm.Show 0
Else
OtherAddinForm.Hide
End If
End If
End Sub
Private Sub Combo1_Click()
Dim Str As String
If bSkipLoad Then Exit Sub
If Combo1.ListIndex < 10 Then
Str = GetResourceAsString("EAL", Combo1.ListIndex + 1)
LoadLayout Str, False
Else
If LoadLayout(LayoutList(Combo1.ListIndex - 9)) = False Then
If Not bIsLoading Then MsgBox "Unable to load the eBay Auction Layout.", vbCritical
Combo1.ListIndex = 0
Str = GetResourceAsString("EAL", 1)
LoadLayout Str, False
End If
End If
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command10_Click()
Dim i As Integer
If Combo1.ListCount > 10 Then
For i = Combo1.ListCount - 1 To 10 Step -1
Combo1.RemoveItem i
Next i
End If
ReDim LayoutList(0)
Combo1.ListIndex = 0
End Sub
Private Sub Command13_Click()
On Error GoTo CancelErr
Dim VarValue As String
Dim File As String
If ExternalFile = "" Then
With CommonDialog4
.DialogTitle = "Load Auction Project"
.ShowOpen
End With
File = CommonDialog4.FileName
Else
File = ExternalFile
ExternalFile = ""
End If
On Error Resume Next
MousePointer = vbHourglass
VarValue = Getstr("EAP_VERSION", File)
If VersionDiff(Ver, VarValue) Then
MsgBox "This project is from a newer version of eBay Auction Builder and cannot be opened.", vbExclamation
GoTo CancelErr
End If
If LoadProject(File) = False Then
MsgBox "Unable to load the eBay Auction Project.", vbCritical
GoTo CancelErr
Else
If LP_LayoutFile <> "" Then LayoutList(LP_LayoutIndex) = LP_LayoutFile
End If
CancelErr:
MousePointer = vbDefault
End Sub
Private Sub Command14_Click()
On Error GoTo CancelErr
Dim VarValue As String
Dim FNum As Integer
FNum = FreeFile
With CommonDialog4
.DialogTitle = "Save Auction Project"
.ShowSave
End With
MousePointer = vbHourglass
Open CommonDialog4.FileName For Output As #FNum
Print #FNum, "// Jason's PC eBay Auction Builder v" & Ver & " Project"
Print #FNum, ""
Print #FNum, "EAP_VERSION=" & Ver
Print #FNum, ""
Print #FNum, "Title=" & Text9.Text
Print #FNum, "Description=" & Replace(Text10.Text, Chr(13), "")
Print #FNum, "TotalPictures=" & ListView1.ListItems.Count
If ListView1.ListItems.Count > 0 Then
For i = 1 To ListView1.ListItems.Count
Print #FNum, "Picture[" & i & "].Caption=" & ListView1.ListItems(i).Text
Print #FNum, "Picture[" & i & "].Location=" & ListView1.ListItems(i).SubItems(1)
Next i
End If
Print #FNum, "PayPal=" & Check2.Value
Print #FNum, "BidPay=" & Check3.Value
Print #FNum, "Billpoint=" & Check5.Value
Print #FNum, "PowerSellers=" & Check4.Value
Print #FNum, "Other=" & Check6.Value
Print #FNum, "OtherText=" & Replace(OtherAddinForm.Text1.Text, Chr(13), "")
Print #FNum, "AddCustomizeFeature=" & Check1.Value
Print #FNum, "LayoutIndex=" & Combo1.ListIndex
If Combo1.ListIndex >= 10 Then
Print #FNum, "LayoutName=" & Combo1.List(Combo1.ListIndex)
Print #FNum, "LayoutFile={"
Print #FNum, "BorderColor=" & Line10.BorderColor
Print #FNum, "BorderWidth=" & Text1.Text
Print #FNum, "TitleBackColor=" & Label18.BackColor
Print #FNum, "TitleForeColor=" & Label18.ForeColor
Print #FNum, "TitleFontName=" & Label18.Font.Name
Print #FNum, "TitleFontBold=" & Abs(CInt(Label18.Font.Bold))
Print #FNum, "TitleFontItalic=" & Abs(CInt(Label18.Font.Italic))
Print #FNum, "TitleFontUnderline=" & Abs(CInt(Label18.Font.Underline))
Print #FNum, "TitleFontStrikethrough=" & Abs(CInt(Label18.Font.Strikethrough))
Print #FNum, "TitleFontSize=" & Label18.Tag
Print #FNum, "TitleFontAlignment=" & Label18.Alignment
Print #FNum, "PictureBackColor=" & Label17.BackColor
Print #FNum, "PictureForeColor=" & Label17.ForeColor
Print #FNum, "PictureFontName=" & Label17.Font.Name
Print #FNum, "PictureFontBold=" & Abs(CInt(Label17.Font.Bold))
Print #FNum, "PictureFontItalic=" & Abs(CInt(Label17.Font.Italic))
Print #FNum, "PictureFontUnderline=" & Abs(CInt(Label17.Font.Underline))
Print #FNum, "PictureFontStrikethrough=" & Abs(CInt(Label17.Font.Strikethrough))
Print #FNum, "PictureFontSize=" & Label17.Tag
Print #FNum, "PictureFontAlignment=" & Label17.Alignment
Print #FNum, "DescriptionBackColor=" & Label19.BackColor
Print #FNum, "DescriptionForeColor=" & Label19.ForeColor
Print #FNum, "DescriptionFontName=" & Label19.Font.Name
Print #FNum, "DescriptionFontBold=" & Abs(CInt(Label19.Font.Bold))
Print #FNum, "DescriptionFontItalic=" & Abs(CInt(Label19.Font.Italic))
Print #FNum, "DescriptionFontUnderline=" & Abs(CInt(Label19.Font.Underline))
Print #FNum, "DescriptionFontStrikethrough=" & Abs(CInt(Label19.Font.Strikethrough))
Print #FNum, "DescriptionFontSize=" & Label19.Tag
Print #FNum, "DescriptionFontAlignment=" & Label19.Alignment
Print #FNum, "LayoutFile=}"
End If
Close #FNum
CancelErr:
MousePointer = vbDefault
End Sub
Private Sub Command15_Click()
Dim AppPath As String
AppPath = App.Path
If Right(AppPath, 1) <> "\" Then AppPath = AppPath + "\"
ExecFile AppPath + "Eab.hlp", AppPath
If Dir(AppPath + "Eab.hlp", vbNormal + vbArchive + vbReadOnly + vbHidden + vbSystem) = "" Then MsgBox "eBay Auction Builder help file is missing.", vbExclamation
End Sub
Private Sub Command2_Click(Index As Integer)
On Error Resume Next
If Index = 0 Then
CurrentPic = CurrentPic - 1
Command2(1).Enabled = True
If CurrentPic = PictureContainer.LBound Then
Command2(0).Enabled = False
Command2(1).SetFocus
End If
Else
CurrentPic = CurrentPic + 1
Command2(0).Enabled = True
End If
If CurrentPic = 3 Then
Clipboard.SetText Text8.Text
If Err Then
MsgBox "Error: Unable to copy the auction to the clipboard. Try again.", vbCritical
CurrentPic = CurrentPic - 1
Exit Sub
End If
MsgBox "The auction has been copied to the clipboard. You now can paste it into the description text box.", vbInformation
If Check7.Value = 1 Then
CurrentPic = CurrentPic - 1
Exit Sub
End If
bAllowExit = True
Unload Me
Exit Sub
End If
If CurrentPic = 2 Then
Command2(1).Caption = "&Finish"
Else
Command2(1).Caption = "&Next >"
End If
SetPictureContainerIndex CurrentPic
Select Case CurrentPic
Case 2
MousePointer = vbHourglass
Enabled = False
Text8.Text = InsertAddins(BuildHTML)
Text8.SelStart = 0
Enabled = True
MousePointer = vbDefault
If Err Then MsgBox "Error: Out of memory.", vbCritical: Err = 0
End Select
End Sub
Private Sub Command3_Click()
On Error GoTo CancelErr
Dim VarValue As String
Dim i As Integer
Dim bItemFound As Boolean
Dim File As String
If ExternalFile = "" Then
With CommonDialog3
.DialogTitle = "Load Auction Layout"
.ShowOpen
End With
File = CommonDialog3.FileName
Else
File = ExternalFile
ExternalFile = ""
End If
On Error Resume Next
MousePointer = vbHourglass
bNoBorderCheck = True
VarValue = Getstr("EAL_VERSION", File)
If VersionDiff(Ver, VarValue) Then MsgBox "This layout may not show correctly because it was" + vbCrLf + "created using a newer version of eBay Auction Builder.", vbInformation
If LoadLayout(File) = False Then
MsgBox "Unable to load the eBay Auction Layout.", vbCritical
GoTo CancelErr
End If
bItemFound = False
VarValue = Mid(File, InStrRev(File, "\") + 1)
If InStr(VarValue, ".") Then VarValue = Left(VarValue, InStr(VarValue, ".") - 1)
If Combo1.ListCount >= 10 Then
For i = 10 To Combo1.ListCount - 1
If Combo1.List(i) = VarValue Then
bItemFound = True
Exit For
End If
Next i
End If
If bItemFound = False Then
Combo1.AddItem VarValue
ReDim Preserve LayoutList(UBound(LayoutList) + 1)
LayoutList(UBound(LayoutList)) = File
Combo1.ListIndex = Combo1.NewIndex
Else
LayoutList(i) = File
Combo1.ListIndex = i
End If
CancelErr:
bNoBorderCheck = False
MousePointer = vbDefault
End Sub
Private Sub Command4_Click()
On Error Resume Next
Dim FNum As Integer
FNum = FreeFile
With CommonDialog1
.DialogTitle = "Open"
.ShowOpen
End With
If Err Then Exit Sub
On Error GoTo OpenErr
Open CommonDialog1.FileName For Input As #FNum
Text10.Text = Input(LOF(FNum), FNum)
Text10.SetFocus
Text10.SelStart = 0
Close #FNum
Exit Sub
OpenErr:
If Err.Number = 7 Then
Text10.Text = ""
MsgBox "Error: Cannot load text file, file is too big.", vbCritical
ElseIf Err.Number = 55 Then
MsgBox "Error: Unable to open the file, try restarting eBay Auction Builder and opening the file again.", vbCritical
Else
MsgBox "Error: " + Err.Description, vbCritical
End If
End Sub
Private Sub Command5_Click()
Dim LI As Object
Dim Str As String
Str = GetUserInput("&Picture Location (URL): ", "Add Picture", , 1000)
If Str = "" Then Exit Sub
Set LI = ListView1.ListItems.Add()
LI.Text = ""
LI.SubItems(1) = Str
Set LI = Nothing
ListView1.SetFocus
ListView1.ListItems(ListView1.ListItems.Count).Selected = True
ListView1.StartLabelEdit
End Sub
Private Sub Command6_Click()
If ListView1.ListItems.Count = 0 Then Exit Sub
ListView1.ListItems.Remove ListView1.SelectedItem.Index
End Sub
Private Sub Command7_Click()
On Error GoTo CancelErr
Dim FNum As Integer
FNum = FreeFile
With CommonDialog1
.DialogTitle = "Save"
.ShowSave
End With
Open CommonDialog1.FileName For Output As #FNum
Print #FNum, Text10.Text;
Close #FNum
CancelErr:
End Sub
Private Sub Command8_Click()
On Error Resume Next
Dim TempDir As String
Dim FNum As Integer
FNum = FreeFile
TempDir = GetTempDirectory
If Right(TempDir, 1) <> "\" Then TempDir = TempDir + "\"
Open TempDir + "eBayAuctionPreview.html" For Output As #FNum
Print #FNum, "<HTML><HEAD><TITLE>eBay Auction Builder v" & Ver & " - Preview</TITLE></HEAD><BODY BGCOLOR=#FFFFFF>"
Print #FNum, Text8.Text
Print #FNum, "</BODY></HTML>"
Close #FNum
ExecFile TempDir + "eBayAuctionPreview.html", TempDir
End Sub
Private Sub Command9_Click()
On Error GoTo CancelErr
Dim VarValue As String
Dim FNum As Integer
Dim bItemFound As Boolean
FNum = FreeFile
With CommonDialog3
.DialogTitle = "Save Auction Layout"
.ShowSave
End With
MousePointer = vbHourglass
Open CommonDialog3.FileName For Output As #FNum
Print #FNum, "// Jason's PC eBay Auction Builder v" & Ver & " Layout"
Print #FNum, ""
Print #FNum, "EAL_VERSION=" & Ver
Print #FNum, ""
Print #FNum, "BorderColor=" & Line10.BorderColor
Print #FNum, "BorderWidth=" & Text1.Text
Print #FNum, "TitleBackColor=" & Label18.BackColor
Print #FNum, "TitleForeColor=" & Label18.ForeColor
Print #FNum, "TitleFontName=" & Label18.Font.Name
Print #FNum, "TitleFontBold=" & Abs(CInt(Label18.Font.Bold))
Print #FNum, "TitleFontItalic=" & Abs(CInt(Label18.Font.Italic))
Print #FNum, "TitleFontUnderline=" & Abs(CInt(Label18.Font.Underline))
Print #FNum, "TitleFontStrikethrough=" & Abs(CInt(Label18.Font.Strikethrough))
Print #FNum, "TitleFontSize=" & Label18.Tag
Print #FNum, "TitleFontAlignment=" & Label18.Alignment
Print #FNum, "PictureBackColor=" & Label17.BackColor
Print #FNum, "PictureForeColor=" & Label17.ForeColor
Print #FNum, "PictureFontName=" & Label17.Font.Name
Print #FNum, "PictureFontBold=" & Abs(CInt(Label17.Font.Bold))
Print #FNum, "PictureFontItalic=" & Abs(CInt(Label17.Font.Italic))
Print #FNum, "PictureFontUnderline=" & Abs(CInt(Label17.Font.Underline))
Print #FNum, "PictureFontStrikethrough=" & Abs(CInt(Label17.Font.Strikethrough))
Print #FNum, "PictureFontSize=" & Label17.Tag
Print #FNum, "PictureFontAlignment=" & Label17.Alignment
Print #FNum, "DescriptionBackColor=" & Label19.BackColor
Print #FNum, "DescriptionForeColor=" & Label19.ForeColor
Print #FNum, "DescriptionFontName=" & Label19.Font.Name
Print #FNum, "DescriptionFontBold=" & Abs(CInt(Label19.Font.Bold))
Print #FNum, "DescriptionFontItalic=" & Abs(CInt(Label19.Font.Italic))
Print #FNum, "DescriptionFontUnderline=" & Abs(CInt(Label19.Font.Underline))
Print #FNum, "DescriptionFontStrikethrough=" & Abs(CInt(Label19.Font.Strikethrough))
Print #FNum, "DescriptionFontSize=" & Label19.Tag
Print #FNum, "DescriptionFontAlignment=" & Label19.Alignment
Close #FNum
bItemFound = False
VarValue = Mid(CommonDialog3.FileName, InStrRev(CommonDialog3.FileName, "\") + 1)
If InStr(VarValue, ".") Then VarValue = Left(VarValue, InStr(VarValue, ".") - 1)
If Combo1.ListCount >= 10 Then
For i = 10 To Combo1.ListCount - 1
If Combo1.List(i) = VarValue Then
bItemFound = True
Exit For
End If
Next i
End If
If bItemFound = False Then
Combo1.AddItem VarValue
ReDim Preserve LayoutList(UBound(LayoutList) + 1)
LayoutList(UBound(LayoutList)) = CommonDialog3.FileName
Combo1.ListIndex = Combo1.NewIndex
Else
LayoutList(i) = CommonDialog3.FileName
Combo1.ListIndex = i
End If
CancelErr:
MousePointer = vbDefault
End Sub
Private Sub Form_Load()
Dim i As Integer
Dim iOffset As Integer
Dim Total As Integer
Dim ComboIndex As Integer
Dim bRegErr As Boolean
Dim RegData As Integer
Dim AppPath As String
CommonDialog1.Flags = cdlOFNFileMustExist + cdlOFNOverwritePrompt + cdlOFNLongNames + cdlOFNHideReadOnly
CommonDialog2.Flags = cdlCCFullOpen + cdlCCRGBInit + cdlCFForceFontExist + cdlCFLimitSize + cdlCFEffects
CommonDialog3.Flags = cdlOFNFileMustExist + cdlOFNOverwritePrompt + cdlOFNLongNames + cdlOFNHideReadOnly
CommonDialog4.Flags = cdlOFNFileMustExist + cdlOFNOverwritePrompt + cdlOFNLongNames + cdlOFNHideReadOnly
LV_FlatColumnHeaders ListView1
CenterFrameCaption Frame2
CenterFrameCaption Frame3
CenterFrameCaption Frame4
Ver = App.Major & "." & App.Minor & IIf(App.Revision = 0, "", "." & App.Revision)
CurrentPic = 0
SetPictureContainerIndex CurrentPic
bNoBorderCheck = False
bAllowExit = False
bSkipLoad = False
Label1.Caption = Label1.Caption + Ver
AppPath = App.Path
If Right(AppPath, 1) <> "\" Then AppPath = AppPath + "\"
AppPath = Chr(34) + AppPath + App.EXEName + ".exe" + Chr(34)
SaveRegString HKEY_CLASSES_ROOT, ".eal", "", "eBayAuctionBuilder.Layout"
SaveRegString HKEY_CLASSES_ROOT, "eBayAuctionBuilder.Layout", "", "eBay Auction Builder Layout"
SaveRegString HKEY_CLASSES_ROOT, "eBayAuctionBuilder.Layout\DefaultIcon", "", AppPath + ",0"
SaveRegString HKEY_CLASSES_ROOT, "eBayAuctionBuilder.Layout\Shell", "", "Open"
SaveRegString HKEY_CLASSES_ROOT, "eBayAuctionBuilder.Layout\Shell\open", "", "&Open"
SaveRegString HKEY_CLASSES_ROOT, "eBayAuctionBuilder.Layout\Shell\open\command", "", AppPath + " -loadeal:" + Chr(34) + "%1" + Chr(34)
SaveRegString HKEY_CLASSES_ROOT, ".eap", "", "eBayAuctionBuilder.Project"
SaveRegString HKEY_CLASSES_ROOT, "eBayAuctionBuilder.Project", "", "eBay Auction Builder Project"
SaveRegString HKEY_CLASSES_ROOT, "eBayAuctionBuilder.Project\DefaultIcon", "", AppPath + ",0"
SaveRegString HKEY_CLASSES_ROOT, "eBayAuctionBuilder.Project\Shell", "", "Open"
SaveRegString HKEY_CLASSES_ROOT, "eBayAuctionBuilder.Project\Shell\open", "", "&Open"
SaveRegString HKEY_CLASSES_ROOT, "eBayAuctionBuilder.Project\Shell\open\command", "", AppPath + " -loadeap:" + Chr(34) + "%1" + Chr(34)
Total = Val(GetRegString(HKEY_LOCAL_MACHINE, RegLayoutList, "LayoutCount"))
If Total > 0 Then
ReDim LayoutList(Total)
iOffset = 0
For i = 1 To Total
Combo1.AddItem GetRegString(HKEY_LOCAL_MACHINE, RegLayoutList, "Layout[" & i & "].Name")
If Combo1.List(Combo1.NewIndex) = "" Then
Combo1.RemoveItem Combo1.NewIndex
ReDim Preserve LayoutList(UBound(LayoutList) - 1)
iOffset = iOffset + 1
Else
LayoutList(i - iOffset) = GetRegString(HKEY_LOCAL_MACHINE, RegLayoutList, "Layout[" & i & "].File")
If LayoutList(i - iOffset) = "" Then
ReDim Preserve LayoutList(UBound(LayoutList) - 1)
iOffset = iOffset + 1
Combo1.RemoveItem Combo1.NewIndex
End If
End If
Next i
Else
ReDim LayoutList(0)
End If
ComboIndex = Val(GetRegString(HKEY_LOCAL_MACHINE, RegLayoutList, "LayoutIndex"))
If ComboIndex >= Combo1.ListCount Then ComboIndex = 0
RegData = Val(GetRegString(HKEY_LOCAL_MACHINE, RegAppRoot, "AddCustomizeFeature", bRegErr))
If (RegData < 0 Or RegData > 1) Or bRegErr Then RegData = 1
Check1.Value = RegData
RegData = Val(GetRegString(HKEY_LOCAL_MACHINE, RegAppRoot, "StayOpen", bRegErr))
If (RegData < 0 Or RegData > 1) Or bRegErr Then RegData = 0
Check7.Value = RegData
RegData = Val(GetRegString(HKEY_LOCAL_MACHINE, RegAddins, "PayPal", bRegErr))
If (RegData < 0 Or RegData > 1) Or bRegErr Then RegData = 0
Check2.Value = RegData
RegData = Val(GetRegString(HKEY_LOCAL_MACHINE, RegAddins, "BidPay", bRegErr))
If (RegData < 0 Or RegData > 1) Or bRegErr Then RegData = 0
Check3.Value = RegData
RegData = Val(GetRegString(HKEY_LOCAL_MACHINE, RegAddins, "Billpoint", bRegErr))
If (RegData < 0 Or RegData > 1) Or bRegErr Then RegData = 0
Check5.Value = RegData
RegData = Val(GetRegString(HKEY_LOCAL_MACHINE, RegAddins, "PowerSellers", bRegErr))
If (RegData < 0 Or RegData > 1) Or bRegErr Then RegData = 0
Check4.Value = RegData
RegData = Val(GetRegString(HKEY_LOCAL_MACHINE, RegAddins, "Other", bRegErr))
If (RegData < 0 Or RegData > 1) Or bRegErr Then RegData = 0
bIsLoading = True
Combo1.ListIndex = ComboIndex
Check6.Value = RegData
bIsLoading = False
ExternalFile = GetCmdLineValue(Command, "-loadeal:")
If ExternalFile <> "" Then
CurrentPic = 1
SetPictureContainerIndex CurrentPic
Command2(0).Enabled = True
Command3_Click
End If
ExternalFile = GetCmdLineValue(Command, "-loadeap:")
If ExternalFile <> "" Then
CurrentPic = 1
SetPictureContainerIndex CurrentPic
Command2(0).Enabled = True
Command13_Click
End If
Load OtherAddinForm
OtherAddinForm.Text1.Text = GetRegBinary(HKEY_LOCAL_MACHINE, RegAddins, "OtherText")
OtherAddinForm.Text1.SelStart = 0
For i = HyperlinkLabel.LBound To HyperlinkLabel.UBound
HyperlinkLabel(i).ToolTipText = HyperlinkLabel(i).Tag
HyperlinkLabel(i).MouseIcon = LoadResPicture(100, vbResCursor)
Next i
Label10.MouseIcon = LoadResPicture(100, vbResCursor)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim i As Integer
Dim M As VbMsgBoxResult
If UnloadMode < 2 Then
If bAllowExit = False Then
M = MsgBox("Are you sure you want to exit eBay Auction Builder?", vbOKCancel + vbQuestion)
If M = vbCancel Then Cancel = True: Exit Sub
End If
SaveRegString HKEY_LOCAL_MACHINE, RegAppRoot, "AddCustomizeFeature", CStr(Check1.Value)
SaveRegString HKEY_LOCAL_MACHINE, RegAppRoot, "StayOpen", CStr(Check7.Value)
If UBound(LayoutList) > 0 Then
For i = 1 To UBound(LayoutList)
SaveRegString HKEY_LOCAL_MACHINE, RegLayoutList, "Layout[" & i & "].Name", Combo1.List(i + 9)
SaveRegString HKEY_LOCAL_MACHINE, RegLayoutList, "Layout[" & i & "].File", LayoutList(i)
Next i
End If
SaveRegString HKEY_LOCAL_MACHINE, RegLayoutList, "LayoutCount", CStr(UBound(LayoutList))
SaveRegString HKEY_LOCAL_MACHINE, RegLayoutList, "LayoutIndex", CStr(Combo1.ListIndex)
SaveRegString HKEY_LOCAL_MACHINE, RegAddins, "PayPal", CStr(Check2.Value)
SaveRegString HKEY_LOCAL_MACHINE, RegAddins, "BidPay", CStr(Check3.Value)
SaveRegString HKEY_LOCAL_MACHINE, RegAddins, "Billpoint", CStr(Check5.Value)
SaveRegString HKEY_LOCAL_MACHINE, RegAddins, "PowerSellers", CStr(Check4.Value)
SaveRegString HKEY_LOCAL_MACHINE, RegAddins, "Other", CStr(Check6.Value)
SaveRegBinary HKEY_LOCAL_MACHINE, RegAddins, "OtherText", OtherAddinForm.Text1.Text
End
End If
End Sub
Private Sub Form_Resize()
If WindowState = 1 Then OtherAddinForm.Hide
End Sub
Private Sub Frame3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
If Button <> vbLeftButton Then
Label10.ForeColor = vbBlack
For i = HyperlinkLabel.LBound To HyperlinkLabel.UBound
HyperlinkLabel(i).ForeColor = vbBlack
Next i
End If
End Sub
Private Sub HyperlinkLabel_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then HyperlinkLabel(Index).ForeColor = vbRed
End Sub
Private Sub HyperlinkLabel_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
If Button <> vbLeftButton Then
Label10.ForeColor = vbBlack
HyperlinkLabel(Index).ForeColor = vbBlue
For i = HyperlinkLabel.LBound To HyperlinkLabel.UBound
If Index <> i Then HyperlinkLabel(i).ForeColor = vbBlack
Next i
End If
End Sub
Private Sub HyperlinkLabel_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
If (HyperlinkLabel(Index).Left + X >= HyperlinkLabel(Index).Left And HyperlinkLabel(Index).Left + X <= HyperlinkLabel(Index).Left + HyperlinkLabel(Index).Width) And _
(HyperlinkLabel(Index).Top + Y >= HyperlinkLabel(Index).Top And HyperlinkLabel(Index).Top + Y <= HyperlinkLabel(Index).Top + HyperlinkLabel(Index).Height) Then
HyperlinkLabel(Index).ForeColor = vbBlue
LaunchURL HyperlinkLabel(Index).Tag
Else
HyperlinkLabel(Index).ForeColor = vbBlack
End If
End If
End Sub
Private Sub Image1_Click()
Set SelectedObject = Label17
PopupMenu Popupmenu1, vbPopupMenuRightButton
End Sub
Private Sub Image2_Click()
Set SelectedObject = Label17
PopupMenu Popupmenu1, vbPopupMenuRightButton
End Sub
Private Sub Label10_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then Label10.ForeColor = vbRed
End Sub
Private Sub Label10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> vbLeftButton Then Label10.ForeColor = vbBlue
End Sub
Private Sub Label10_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
If (Label10.Left + X >= Label10.Left And Label10.Left + X <= Label10.Left + Label10.Width) And _
(Label10.Top + Y >= Label10.Top And Label10.Top + Y <= Label10.Top + Label10.Height) Then
Label10.ForeColor = vbBlue
LaunchURL Label10.Caption
Else
Label10.ForeColor = vbBlack
End If
End If
End Sub
Private Sub Label11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> vbLeftButton Then Label10.ForeColor = vbBlack
End Sub
Private Sub Label17_Click()
Set SelectedObject = Label17
PopupMenu Popupmenu1, vbPopupMenuRightButton
End Sub
Private Sub Label18_Click()
Set SelectedObject = Label18
PopupMenu Popupmenu1, vbPopupMenuRightButton
End Sub
Private Sub Label19_Click()
Set SelectedObject = Label19
PopupMenu Popupmenu1, vbPopupMenuRightButton
End Sub
Private Sub Label27_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
If Button <> vbLeftButton Then
Label10.ForeColor = vbBlack
For i = HyperlinkLabel.LBound To HyperlinkLabel.UBound
HyperlinkLabel(i).ForeColor = vbBlack
Next i
End If
End Sub
Private Sub Label34_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
If Button <> vbLeftButton Then
Label10.ForeColor = vbBlack
For i = HyperlinkLabel.LBound To HyperlinkLabel.UBound
HyperlinkLabel(i).ForeColor = vbBlack
Next i
End If
End Sub
Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> vbLeftButton Then Label10.ForeColor = vbBlack
End Sub
Private Sub Label8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> vbLeftButton Then Label10.ForeColor = vbBlack
End Sub
Private Sub Label9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> vbLeftButton Then Label10.ForeColor = vbBlack
End Sub
Private Sub LeftMenu_Click()
On Error Resume Next
SelectedObject.Alignment = 0
End Sub
Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo NoItemErr
If Button = vbRightButton And ListView1.SelectedItem.Selected = True Then PopupMenu ListViewPopupMenu, vbPopupMenuRightButton
NoItemErr:
End Sub
Private Sub LogoPicture_Click()
LaunchURL Label10.Caption
End Sub
Private Sub MoveDownMenu_Click()
Dim PicCap As String
Dim PicURL As String
Dim i As Long
If ListView1.SelectedItem.Index < ListView1.ListItems.Count Then
With ListView1.SelectedItem
i = .Index + 1
PicCap = .Text
PicURL = .SubItems(1)
.Text = ListView1.ListItems(i).Text
.SubItems(1) = ListView1.ListItems(i).SubItems(1)
ListView1.ListItems(i).Text = PicCap
ListView1.ListItems(i).SubItems(1) = PicURL
ListView1.ListItems(i).Selected = True
End With
End If
End Sub
Private Sub MoveUpMenu_Click()
Dim PicCap As String
Dim PicURL As String
Dim i As Long
If ListView1.SelectedItem.Index > 1 Then
With ListView1.SelectedItem
i = .Index - 1
PicCap = .Text
PicURL = .SubItems(1)
.Text = ListView1.ListItems(i).Text
.SubItems(1) = ListView1.ListItems(i).SubItems(1)
ListView1.ListItems(i).Text = PicCap
ListView1.ListItems(i).SubItems(1) = PicURL
ListView1.ListItems(i).Selected = True
End With
End If
End Sub
Private Sub Picture2_Click()
Set SelectedObject = Picture2
ChangeBackColor.Visible = False
ChangeBorderColor.Visible = True
ChangeFontMenu.Visible = False
Blank1.Visible = False
AlignmentMenu.Visible = False
PopupMenu Popupmenu1, vbPopupMenuRightButton
AlignmentMenu.Visible = True
Blank1.Visible = True
ChangeFontMenu.Visible = True
ChangeBorderColor.Visible = False
ChangeBackColor.Visible = True
End Sub
Private Sub PictureContainer_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
If Index = 0 Then
If Button <> vbLeftButton Then
Label10.ForeColor = vbBlack
For i = HyperlinkLabel.LBound To HyperlinkLabel.UBound
HyperlinkLabel(i).ForeColor = vbBlack
Next i
End If
End If
End Sub
Private Sub RightMenu_Click()
On Error Resume Next
SelectedObject.Alignment = 1
End Sub
Private Sub Text1_Change()
Dim i As Integer
If Val(Text1.Text) < 1 Or Val(Text1.Text) > 20 Then
i = 1
If Not bNoBorderCheck Then
Text1.Text = "1"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
Else
i = Val(Text1.Text)
End If
Line11.BorderWidth = i
Line12.BorderWidth = i
Line15.BorderWidth = i
Line16.BorderWidth = i
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8 Then Exit Sub
KeyAscii = 0
End Sub
Private Sub Text1_LostFocus()
Text1.Text = Val(Text1.Text)
End Sub
Private Sub Text10_GotFocus()
Command2(1).Default = False
End Sub
Private Sub Text10_LostFocus()
Command2(1).Default = True
End Sub
Private Sub Text8_GotFocus()
Command2(1).Default = False
End Sub
Private Sub Text8_LostFocus()
Command2(1).Default = True
End Sub