D
dheathcote
Guest
i am building a program that uses buttons to bring up webpages that i have set, what i want to do is to have a button that brings up a form that you fill out and it creates a new button can anyone help?
Frame1.visible = true
button1.visible = false
button2.visible = true
'What you want button 2 to do put here
button1.(Your control) = text1.text
button1.ToolTipText = text1.text
person opens program and there are a list of buttons leading to different links
but one or them creates a new button and they can choose the link
person opens program and there are a list of buttons leading to different links
but one or them creates a new button and they can choose the link
Private Sub Command1_Click()
WebBrowser1.Navigate "YOUR WEBSITE NUMBER 1"
End Sub
Private Sub Command2_Click()
WebBrowser1.Navigate "YOUR WEBSITE NUMBER 2"
End Sub
Private Sub Command3_Click()
WebBrowser1.Navigate "YOUR WEBSITE NUMBER 3"
End Sub
Private Sub Command4_Click()
Command5.Visible = True
End Sub
Private Sub Command5_Click()
Dim InputData As String
InputData = InputBox("Where would you like to navigate?")
WebBrowser1.Navigate InputData
End Sub
Combo1.AddItem "YOUR WEBSITE NUMBER 1"
Combo1.AddItem "YOUR WEBSITE NUMBER 2"
Combo1.AddItem "YOUR WEBSITE NUMBER 3"
Combo1.AddItem "Custom"
'Creates CaseItem and InputData As a String
Dim CaseItem As String
Dim InputData As String
'Finds the selected item on the list
CaseItem = Combo1.Text
'If the case is that the user wishes a custom link
If CaseItem = "Custom" Then
InputData = InputBox("Where would you like to navigate?")
WebBrowser1.Navigate InputData
Combo1.Text = ""
'Else if the case is that the user wishes to use your links
Else
WebBrowser1.Navigate CaseItem
Combo1.Text = ""
End If

