Option Explicit
' -------------------------------------------------------
Dim Highres As String
Dim Title As String
Dim Datey As String
Dim Media As String
Dim Desc As String
Dim WebpageLoc As String

Private Sub cmbPublish_Click()
'saves the file. Or, you know, publishes it.
cdPublish.Filter = "HTML files (*.html; *.htm)|*.html; *.htm| All files (*.*)|*.*"
cdPublish.ShowSave
End Sub

Private Sub cmdBrowse_Click()
Call RandomDimming
cdBrowse.Filter = "supported image files (*.jpg; *.gif)|*.jpg; *.gif| All files (*.*)|*.*"
cdBrowse.ShowOpen
'If txtWebpageLoc.Text = "" Then
'txtFile.Text = cdBrowse.FileTitle
'Else:
txtFile.Text = WebpageLoc
'& cdBrowse.FileTitle
'End If
End Sub

Private Sub cmdExit_Click()
' Gives user option to exit
If MsgBox("Are you sure you wish to exit ?", vbYesNo, "Quit") = vbYes Then Unload Me
End Sub

Private Sub cmdHigRes_Click()
Call RandomDimming
cdHighRes.Filter = "supported image files (*.jpg; *.gif)|*.jpg; *.gif| All files (*.*)|*.*"
cdHighRes.ShowOpen
If txtWebpageLoc.Text = "" Then
txtHighRes.Text = cdHighRes.FileTitle
Else: txtHighRes.Text = WebpageLoc & cdHighRes.FileTitle
End If
End Sub

Private Sub RandomDimming()
txtHighRes.Text = Highres
txtFile.Text = Image
txtTitle.Text = Title
txtDate.Text = Datey
txtMedia.Text = Media
txtDesc.Text = Desc
txtWebpageLoc.Text = WebpageLoc
End Sub


Ok we need the img browser thing to automatically pop the name into the textbox and for it to be put in after the web address box.