|
-
Sep 7th, 2000, 03:36 PM
#1
Thread Starter
New Member
ok, i am trying to build an html editor for a senior project at school, the problem is that i have form where you enter the location of where a pic is or background image is, but the problem is, i can not get it to send the info from one form to another, here is the code
Private Sub Command1_Click()
frmBody.Show 1
If BgType = 1 Then
If Background_Type$ = "Color" Then
Text1.Text = Text1.Text + vbNewLine & "<BODY BGCOLOR=""" & Background_Color$ & """ > """
Else
Text1.Text = Text1.Text + "<BODY BACKGROUND="""
End If
BgType = 0
Else
BgType = 0
End If
End Sub
Private Sub Combo1_Change()
If Combo1.Enabled = True Then
Background_Type$ = "Color"
If Combo1.ItemData = 1 Then Background_Color$ = "Red"
End If
If Combo1.ItemData = 2 Then Background_Color$ = "Orange"
End If
If Combo1.ItemData = 3 Then Background_Color$ = "Yellow"
End If
If Combo1.ItemData = 4 Then Background_Color$ = "Green"
End If
If Combo1.ItemData = 5 Then Background_Color$ = "Blue"
End If
If Combo1.ItemData = 6 Then Background_Color$ = "Purple"
End If
If Combo1.ItemData = 7 Then Background_Color$ = "Black"
End If
If Combo1.ItemData = 8 Then Background_Color$ = "Brown"
End If
If Combo1.ItemData = 9 Then Background_Color$ = "White"
End If
End If
End Sub
Private Sub Command1_Click()
BgType = 1
Unload frmBody
End Sub
Private Sub Command2_Click()
BgType = 0
Unload frmBody
End Sub
Private Sub Option1_Click()
Combo1.Enabled = False
Text1.Enabled = True
End Sub
Private Sub Option2_Click()
Text1.Enabled = False
Combo1.Enabled = True
End Sub
Public BgType As Integer
Public Background_Image_Source$
Public Background_Type$
Public Background_Color$
Please help me, this is driveing me insane!!!!!
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|